X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=web%2Fweb%2Fprocess.pl;h=c0321afe2ef13ae101d06431c668eef1f42339e3;hb=7c109459cf2b6c55167604ba6ea4a8123a7005c5;hp=cc2d9d50e4465736d1d535626c14a33a8c33ae6e;hpb=0c3a8436fea212533316c4fe38fdd97f8b7905f9;p=mono.git

diff --git a/web/web/process.pl b/web/web/process.pl
index cc2d9d50e44..c0321afe2ef 100755
--- a/web/web/process.pl
+++ b/web/web/process.pl
@@ -19,16 +19,14 @@ my $menu = "";
 
 open COMMANDS, $ARGV[0] || die "Can not open $ARGV[0]";
 while (<COMMANDS>) {
-  chop;
+  chomp;
   my @command = split /,/;
   if ($command[0] != -1) {
       $menu .= "\t\t";
-      if ($command[0] == 0){
-	  $menu .= "<tr><td valign=\"top\" class=\"navi\"><a class=\"navi\"";
-      } else {
-	  $menu .= "<tr><td valign=\"top\" class=\"subnavi\">&nbsp;&nbsp;&nbsp<a class=\"subnavi\"";
-      }
-      $menu .= "HREF=\"$command[2]\">$command[1]</A></td></tr>\n\n";
+	  $menu .= "<tr><td valign=\"top\" class=\"navi" . $command[0];
+	  $menu .= "\"><a class=\"navi" . $command[0];
+	  $menu .= "\"";
+	  $menu .= " HREF=\"$command[2]\">$command[1]</a></td></tr>\n\n";
   } 
 }
 close COMMANDS;
@@ -41,7 +39,7 @@ close TEMPLATE;
 
 open COMMANDS, $ARGV[0] || die "Can not open $ARGV[0]";
 while (<COMMANDS>) {
-  chop;
+  chomp;
   my @command = split /,/;
 
   if ($command[2] =~ /^http:/){
@@ -50,7 +48,7 @@ while (<COMMANDS>) {
 	  open OUTPUT, ">" . $n || die "Can not create $n";
 	
 	  my $content = "";
-	  open INPUT, $command[3] || die "Can not open $command[3]";
+	  open INPUT, "src/$command[3]" || die "Can not open $command[3]";
 	  while (<INPUT>) {
 	    $content .= $_;
 	  }
@@ -60,14 +58,30 @@ while (<COMMANDS>) {
 	  my $temp;
 	  my $tit;
 	  my $title;
+	  my $css;
+	  my $script;
 	
 	  $tit = $command[1];
+	  $css = $command[4];
+	  $script = $command[5];
+
 	  foreach $line (@template) {
 	    $temp = $line;
 	    $title = "$tit / Mono";
 	    $temp =~ s/#TITLE#/$title/;
 	    $temp =~ s/#CONTENT#/$content/;
 	    $temp =~ s/#MENU#/$menu/;
+	    if ($css) {
+	      $temp =~ s/#CSS#/<link rel="stylesheet" type="text\/css" href="$css" \/>/;
+	    } else {
+	      $temp =~ s/#CSS#//;
+	    }
+		
+	    if ($script) {
+	      $temp =~ s/#SCRIPT#/<script src="$script"><\/script>/;
+	    } else {
+	      $temp =~ s/#SCRIPT#//;
+	    }
 	    print OUTPUT $temp;
 	  }
  }