my @command = split /,/;
if ($command[0] != -1) {
$menu .= "\t\t";
- if ($command[0] == 0){
- $menu .= "<tr><td class=\"navi\"><a class=\"navi\"";
- } else {
- $menu .= " <tr><td class=\"subnavi\"><a ";
- }
- $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;
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;
}