1 files changed, 0 insertions, 56 deletions
diff --git a/bin/pod2x b/bin/pod2x
deleted file mode 100755
index 46ccc77..0000000
--- a/bin/pod2x
+++ /dev/null
@@ -1,56 +0,0 @@
-#!/usr/bin/perl
-
-#use Pod::Text;
-#$Pod::Text::termcap=1;
-
-my $site_perl = "./FS";
-#my $catman = "./catman";
-#my $catman = "./htdocs/docs/man";
-#my $html = "./htdocs/docs/man";
-my $html = "./httemplate/docs/man";
-
-$|=1;
-
-die "Can't find $site_perl" unless -d $site_perl;
-#die "Can't find $catman" unless -d $catman;
-die "Can't find $html" unless -d $html;
-
-#make some useless links
-foreach my $file (
-  glob("$site_perl/bin/freeside-*"),
-) {
-  next if $file =~ /\.pod$/;
-  #symlink $file, "$file.pod"; # or die "link $file to $file.pod: $!";
-  system("cp $file $file.pod");
-}
-
-foreach my $file (
-  glob("$site_perl/*.pm"),
-  glob("$site_perl/*/*.pm"),
-  glob("$site_perl/*/*/*.pm"),
-  glob("$site_perl/bin/*.pod"),
-  glob("./fs_sesmon/FS-SessionClient/*.pm"),
-  glob("./fs_signup/FS-SignupClient/*.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$/ ) {
-    $name = "FS/$1";
-  } elsif ( $file =~ /$site_perl\/(.*)\.(pm|pod)$/ ) {
-    $name = $1;
-  } else {
-    die "oops file $file";
-  }
-  print "$name\n";
-  my $htmlroot = join('/', map '..',1..(scalar($file =~ tr/\///)-2)) || '.';
-#  system "pod2text $file >$catman/$name.txt"; 
-  system "pod2html --podroot=$site_perl --podpath=./FS:./FS/UI:.:./bin --norecurse --htmlroot=$htmlroot $file >$html/$name.html";
-  #system "pod2html --podroot=$site_perl --htmlroot=$htmlroot $file >$html/$name.html";
-#  system "pod2html $file >$html/$name.html";
-}
-
-#remove the useless links
-unlink glob("$site_perl/bin/*.pod");
-