From: ivan Date: Tue, 19 Feb 2008 02:38:33 +0000 (+0000) Subject: fix API upload X-Git-Tag: TRIXBOX_2_6~60 X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=38852d0e11e617f5f531e5edf6b4eb922a06107f fix API upload --- diff --git a/bin/pod2x b/bin/pod2x index 741b78460..6b7153f96 100755 --- a/bin/pod2x +++ b/bin/pod2x @@ -59,7 +59,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, @@ -72,7 +72,7 @@ my @files; if ( @ARGV ) { @files = @ARGV; } else { - @files = + @files = ( glob("$site_perl/*.pm"), glob("$site_perl/*/*.pm"), glob("$site_perl/*/*/*.pm"), @@ -80,7 +80,8 @@ if ( @ARGV ) { glob("$site_perl/bin/*.pod"), glob("./fs_selfservice/FS-SelfService/*.pm"), glob("./fs_selfservice/FS-SelfService/*/*.pm"), - ; + ); + } foreach my $file (@files) {