2005-01-31 Zoltan Varga <vargaz@freemail.hu>

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

diff --git a/web/web/process.pl b/web/web/process.pl
index cc2d9d50e4465736d1d535626c14a33a8c33ae6e..48766f8f0b8d400bd52c9b8b07a8731c6cca69d6 100755 (executable)
--- a/web/web/process.pl
+++ b/web/web/process.pl
@@ -23,12 +23,10 @@ while (<COMMANDS>) {
   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;
@@ -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;
          }
  }