adding quick script to move all customers to postal billing only for skycatcher

[freeside.git] / bin / pod2x

diff --git a/bin/pod2x b/bin/pod2x
index cbe1423..1e11c56 100755 (executable)
--- a/bin/pod2x
+++ b/bin/pod2x
@@ -30,9 +30,11 @@ foreach my $file (
   glob("$site_perl/*/*/*.pm"),
   glob("$site_perl/bin/*.pod"),
   glob("./fs_sesmon/FS-SessionClient/*.pm"),
-  glob("./fs_signup/FS-SignupClient/*.pm"),
+  #glob("./fs_signup/FS-SignupClient/*.pm"),
+  glob("./fs_selfservice/FS-SelfService/*.pm"),
   glob("./fs_selfadmin/FS-MailAdminServer/*.pm"),
 ) {
+  next if $file =~ /(^|\/)blib\//;
   #$file =~ /\/([\w\-]+)\.pm$/ or die "oops file $file";
   my $name;
   if ( $file =~ /fs_\w+\/FS\-\w+\/(.*)\.pm$/ ) {