You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
25 lines
528 B
25 lines
528 B
15 years ago
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
use Getopt::Long;
|
||
|
|
|
||
|
|
my $prefix = '';
|
||
|
|
GetOptions( 'title=s' => \$title,
|
||
|
|
'main=s' => \$main ) || die "Wrong options\n";
|
||
|
|
|
||
|
|
$file = $ARGV[0];
|
||
|
|
open(FILE, "$file") || die "File not found: $file\n";
|
||
|
|
|
||
|
|
print "<tocsect1 name=\"$title\" url=\"$main.html\">\n";
|
||
|
|
|
||
|
|
while (<FILE>) {
|
||
|
|
|
||
|
|
if (/\<item\>\<uref url=\"(.+)\.html\"\>(.+)\<\/uref\>\<\/item\>/) {
|
||
|
|
$name = $1;
|
||
|
|
$url = "$1.html";
|
||
|
|
print " <tocsect2 name=\"$name\" url=\"$url\"/>\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
print "</tocsect1>\n";
|