diff options
author | ivan <ivan> | 2007-10-04 02:52:06 +0000 |
---|---|---|
committer | ivan <ivan> | 2007-10-04 02:52:06 +0000 |
commit | 5d4a75705af778dc0d3d726a62bd9a7fa6ae44b9 (patch) | |
tree | 64a142ddf14980015d16b8e41e9d041de34a59c3 /bin | |
parent | d01b09eda207f22e2419551efb837dc3e9062397 (diff) |
wikify individual files
Diffstat (limited to 'bin')
-rwxr-xr-x | bin/pod2x | 25 |
1 files changed, 16 insertions, 9 deletions
@@ -66,15 +66,22 @@ my $mvs = WWW::Mediawiki::Client->new( $mvs->do_login; -foreach my $file ( - glob("$site_perl/*.pm"), - glob("$site_perl/*/*.pm"), - glob("$site_perl/*/*/*.pm"), - glob("$site_perl/*/*/*/*.pm"), - glob("$site_perl/bin/*.pod"), - glob("./fs_selfservice/FS-SelfService/*.pm"), - glob("./fs_selfservice/FS-SelfService/*/*.pm"), -) { +my @files; +if ( @ARGV ) { + @files = @ARGV; +} else { + @files = + glob("$site_perl/*.pm"), + glob("$site_perl/*/*.pm"), + glob("$site_perl/*/*/*.pm"), + glob("$site_perl/*/*/*/*.pm"), + glob("$site_perl/bin/*.pod"), + glob("./fs_selfservice/FS-SelfService/*.pm"), + glob("./fs_selfservice/FS-SelfService/*/*.pm"), + ; +} + +foreach my $file (@files) { next if $file =~ /(^|\/)blib\//; next if $file =~ /(^|\/)CVS\//; #$file =~ /\/([\w\-]+)\.pm$/ or die "oops file $file"; |