[Compbench-web-devel] compbenchmarks-web/tools import-doc.pl, NONE, 1.1

SourceForge Headquarters 1320 Columbia Street Suite 310 San Diego, CA 92101 +1 (858) 422-6466

Update of /cvsroot/compbench/compbenchmarks-web/tools
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv9814

Added Files:
	import-doc.pl 
Log Message:
First import.

--- NEW FILE: import-doc.pl ---
#!/usr/bin/perl -w

use strict;
# http://biomass/cgi-bin/doc.cgi?tab=core&version=0.5.0&target=classCBM_1_1Benchmark.html
my $SRC_DOC_PATH  = "/home/fred/workspace/CompBenchmarks++/doc/html";
my $VERSION       = "0.5.0";
my $DEST_DOC_PATH = "/home/fred/workspace/compbenchmarks-web/tmp/doc/$VERSION";

my $HTMLFILE_PREFIX = "/cgi-bin/doc.cgi?tab=core&amp;version=$VERSION&amp;target=";

sub treat_htmlfile {
  my $file = shift;
  my $htmlfile_prefix = $HTMLFILE_PREFIX;
  my $png_prefix      = "\/tmp\/doc\/$VERSION";

  # $htmlfile_prefix =~ s/\//\\\//g;

  my @data = `cat $SRC_DOC_PATH/$file`;
  $file="$DEST_DOC_PATH/$file";
  my @out;

  chomp(@data);
  my $s;
  foreach $s (@data) {
    $s=~ s/\shref=\"(.*?)\.html(.*?)\"/ href=\"$htmlfile_prefix$1.html$2\"/g;
    #$s=~ s/ href=\"(.*)\.html\"/ href=\"$htmlfile_prefix$1.html\"/g;
    $s=~ s/^<!DOCTYPE.*>//g;
    $s=~ s/^<html>.*>//g;
    $s=~ s/^<title>.*\$//g;
    $s=~ s/^<link href=\".*\.css\">.*\$//g;
    $s=~ s/^<\/head>.*$//g;
    $s=~ s/^<\/body>$//g;
    $s=~ s/^<\/html>$//g;
    $s=~ s/src=\"(.*)\.png\"/src=\"$png_prefix\/$1.png\"/g;
    $s=~ s/src=\"(.*)\.gif\"/src=\"$png_prefix\/$1.gif\"/g;
    push(@out, "$s\n");
  }
  open(FD, ">$file") || die ("$!");
  print FD @out;
  close(FD);
}

sub treat {
  my $n;
  my $i;

  print "Getting files... ";
  my @files = `ls -1 $SRC_DOC_PATH`;
  $n=(@files+0);
  print "OK ($n)\n";

  # treat_htmlfile("classes.html");
  # exit(0);

  # treat_htmlfile("Benchmark_8h-source.html");
  # exit(0);
  # treat_htmlfile("classCBM_1_1Benchmark.html");
  # exit(0);
  foreach(@files) {
    chomp;

    if (/.html$/) {
      treat_htmlfile($_);
    } else {
      if (/\.gif$/) {
	`cp $SRC_DOC_PATH/$_ ../tmp/doc`;
      } else {
	`cp $SRC_DOC_PATH/$_ $DEST_DOC_PATH`;
      }
    }
    $i++;
    print "Progress : " . sprintf("%0.2f", ($i*100.0)/$n) . "%\r";
  }
  print "\n";
}

$|=1;
treat();