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 949fa35d316903388a6376004d78caf8468d9f6f..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 class=\"navi\"><a class=\"navi\"";
-      } else {
-         $menu .= "&nbsp; &nbsp; &nbsp; <tr><td class=\"subnavi\"><a class=\"navi\"";
-      }
-      $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;
@@ -44,25 +42,48 @@ while (<COMMANDS>) {
   chop;
   my @command = split /,/;
 
-  $n = $ARGV[2] . "/" . $command[2];
-  open OUTPUT, ">" . $n || die "Can not create $n";
-
-  my $content = "";
-  open INPUT, $command[3] || die "Can not open $command[3]";
-  while (<INPUT>) {
-    $content .= $_;
-  }
-  close INPUT;
-
-  my $line;
-  my $temp;
-
-  foreach $line (@template) {
-    $temp = $line;
-    $temp =~ s/#CONTENT#/$content/;
-    $temp =~ s/#MENU#/$menu/;
-    print OUTPUT $temp;
-  }
+  if ($command[2] =~ /^http:/){
+  } else {
+         $n = $ARGV[2] . "/" . $command[2];
+         open OUTPUT, ">" . $n || die "Can not create $n";
+       
+         my $content = "";
+         open INPUT, "src/$command[3]" || die "Can not open $command[3]";
+         while (<INPUT>) {
+           $content .= $_;
+         }
+         close INPUT;
+       
+         my $line;
+         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;
+         }
+ }     
   close OUTPUT;
 }