diff options
author | ivan <ivan> | 2008-02-19 02:38:28 +0000 |
---|---|---|
committer | ivan <ivan> | 2008-02-19 02:38:28 +0000 |
commit | fffb675bcc841fced1262e84b4d114cf9276aff9 (patch) | |
tree | 02028d8e0d8a20012dfee30406b97ef45b5a85d8 | |
parent | edab1e88ff785e5f50d8eef64a9eebaeef93a88f (diff) |
fix API upload
-rwxr-xr-x | bin/pod2x | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -57,7 +57,7 @@ foreach my $file ( } my $mvs = WWW::Mediawiki::Client->new( - 'host' => 'www.sisd.com', + 'host' => 'www.freeside.biz', 'wiki_path' => 'mediawiki/index.php', 'username' => $mw_username, 'password' => $mw_password, @@ -70,7 +70,7 @@ my @files; if ( @ARGV ) { @files = @ARGV; } else { - @files = + @files = ( glob("$site_perl/*.pm"), glob("$site_perl/*/*.pm"), glob("$site_perl/*/*/*.pm"), @@ -78,7 +78,7 @@ if ( @ARGV ) { glob("$site_perl/bin/*.pod"), glob("./fs_selfservice/FS-SelfService/*.pm"), glob("./fs_selfservice/FS-SelfService/*/*.pm"), - ; + ) ; } foreach my $file (@files) { |