2005-01-31 Zoltan Varga <vargaz@freemail.hu>
[mono.git] / web / web / process.pl
index f170fe176758f79815dad4a25b84faa767d1b00b..48766f8f0b8d400bd52c9b8b07a8731c6cca69d6 100755 (executable)
@@ -26,7 +26,7 @@ while (<COMMANDS>) {
          $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";
+         $menu .= " HREF=\"$command[2]\">$command[1]</A></td></tr>\n\n";
   } 
 }
 close COMMANDS;
@@ -48,7 +48,7 @@ while (<COMMANDS>) {
          open OUTPUT, ">" . $n || die "Can not create $n";
        
          my $content = "";
-         open INPUT, "src/" . $command[3] || die "Can not open $command[3]";
+         open INPUT, "src/$command[3]" || die "Can not open $command[3]";
          while (<INPUT>) {
            $content .= $_;
          }