X-Git-Url: http://git.projectaon.org/?p=project-aon.git;a=blobdiff_plain;f=scripts%2Fgbtoxhtml-all.pl;fp=scripts%2Fgbtoxhtml-all.pl;h=0000000000000000000000000000000000000000;hp=ebb11f4007ce248b56d9191bc3d24efeb295a36f;hb=97545603aea8298f1eceb604ff65085cc7adfced;hpb=53d5f97cd1474231d3f343c70918a91ade6466e2 diff --git a/scripts/gbtoxhtml-all.pl b/scripts/gbtoxhtml-all.pl deleted file mode 100755 index ebb11f4..0000000 --- a/scripts/gbtoxhtml-all.pl +++ /dev/null @@ -1,17 +0,0 @@ -#!/usr/bin/perl -w - -use strict; - -my $gbtoxhtml = "$ENV{AONPATH}/bin/gbtoxhtml.pl"; -my @bookCodes = qw{ 01fftd 02fotw 03tcok 04tcod - 05sots 06tkot 07cd 08tjoh - 09tcof 10tdot 11tpot 12tmod - 13tplor 14tcok 15tdc - 01gstw 02tfc 03btng - rh - }; - -foreach my $bookCode (@bookCodes) { - print "\n" . ('~' x 10) . " $bookCode " . ('~' x 10) . "\n\n"; - print qx{$gbtoxhtml $bookCode}; -}