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=ebb11f4007ce248b56d9191bc3d24efeb295a36f;hp=0000000000000000000000000000000000000000;hb=c560b69a3029efc08efe83f4672c98680dd2a605;hpb=20c4bc96a6f08ee9d2dadd0acd177cb69755eacf

diff --git a/scripts/gbtoxhtml-all.pl b/scripts/gbtoxhtml-all.pl
new file mode 100755
index 0000000..ebb11f4
--- /dev/null
+++ b/scripts/gbtoxhtml-all.pl
@@ -0,0 +1,17 @@
+#!/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};
+}