preserve the old behavior for 1.1 profiles

[mono.git] / web / web / process.pl

diff --git a/web/web/process.pl b/web/web/process.pl
index cc2d9d50e4465736d1d535626c14a33a8c33ae6e..c0321afe2ef13ae101d06431c668eef1f42339e3 100755 (executable)
--- 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;
          }
  }