--- deliantra/server/pod/genhelp.pl	2006/09/08 01:54:26	1.1
+++ deliantra/server/pod/genhelp.pl	2006/09/08 03:08:21	1.2
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: genhelp.pl,v 1.1 2006/09/08 01:54:26 pippijn Exp $
+# $Id: genhelp.pl,v 1.2 2006/09/08 03:08:21 pippijn Exp $
 
 use strict;
 use warnings;
@@ -10,7 +10,7 @@
 my $pom = Pod::POM->new();
 my $pod = $pom->parse_file($ARGV[0]);
 
-foreach my $head1 (grep { /Listing/ } $pod->head1()) {
+foreach my $head1 (grep { /Command/ } $pod->head1()) {
    my $i = 0;
    my @command;
    foreach my $head2 ($head1->head2) {
@@ -18,7 +18,7 @@
       if ($command[$i] =~ /^X</) {
          (undef, $command[$i]) = split '>', $command[$i];
       }
-      open (HELP, ">help/".$command[$i]);
+      open (HELP, ">".$ARGV[1]."/".$command[$i]);
       my $content = $head2->present('Pod::POM::View::Text');
       print HELP $content;
       close HELP;