server/pod/genhelp.pl

#!/usr/bin/perl

# $Id: genhelp.pl,v 1.2 2006-09-08 03:08:21 pippijn Exp $

use strict;
use warnings;
use Pod::POM;
use Pod::POM::View::Text;

my $pom = Pod::POM->new();
my $pod = $pom->parse_file($ARGV[0]);

foreach my $head1 (grep { /Command/ } $pod->head1()) {
   my $i = 0;
   my @command;
   foreach my $head2 ($head1->head2) {
      ($command[$i], undef) = split ' ', $head2->title;
      if ($command[$i] =~ /^X</) {
         (undef, $command[$i]) = split '>', $command[$i];
      }
      open (HELP, ">".$ARGV[1]."/".$command[$i]);
      my $content = $head2->present('Pod::POM::View::Text');
      print HELP $content;
      close HELP;
      $i++;
   }
}
Revision:	1.3
Committed:	Wed Apr 18 18:03:18 2007 UTC (17 years ago) by root
Content type:	text/plain
Branch:	MAIN
CVS Tags:	HEAD
Changes since 1.2:	+1 -1 lines
State:	*FILE REMOVED*
Log Message:	rip out old help implementation in favour of the new one (which incidentally is non-blocking)
#	Content
1	#!/usr/bin/perl
2
3	# $Id: genhelp.pl,v 1.2 2006-09-08 03:08:21 pippijn Exp $
4
5	use strict;
6	use warnings;
7	use Pod::POM;
8	use Pod::POM::View::Text;
9
10	my $pom = Pod::POM->new();
11	my $pod = $pom->parse_file($ARGV[0]);
12
13	foreach my $head1 (grep { /Command/ } $pod->head1()) {
14	my $i = 0;
15	my @command;
16	foreach my $head2 ($head1->head2) {
17	($command[$i], undef) = split ' ', $head2->title;
18	if ($command[$i] =~ /^X</) {
19	(undef, $command[$i]) = split '>', $command[$i];
20	}
21	open (HELP, ">".$ARGV[1]."/".$command[$i]);
22	my $content = $head2->present('Pod::POM::View::Text');
23	print HELP $content;
24	close HELP;
25	$i++;
26	}
27	}