From work on MAST PDF

MAST_tW_PDF_Updater/FilesForUpdates/Convert_OHSB_filenames_to_MAST_HB.pl

@@ -0,0 +1,68 @@
+# Step 1 in updating OSHB to MAST_HB
+# Converts file names to WA MAST abbreviations
+# After this, run Convert_refs_in_MAST_HB.pl to get data in file to conform
+# This looks for the OSHB and MAST-HB folders in the same place
+
+while (<DATA>) {
+		chomp;
+	if (/([^\t]*)\t([^\t]*)/) {
+		#($oldName, $newName) = ($1, $2);
+		$new_name{$1} = $2;
+	}
+}
+
+my $oldnames = "/Users/Henry/Documents/WACS/OSHB";
+my $newnames = "/Users/Henry/Documents/WACS/MAST_HB";
+chdir($oldnames);
+mkdir($newnames) if !-e $newnames;
+
+foreach $old_name (sort keys %new_name) {
+	print "$old_name to $newnames/$new_name{$old_name}\n";
+	system "cp $old_name $newnames/$new_name{$old_name}";
+	system "cp VerseMap.xml $newnames/VerseMap.xml"
+	#system "mv $olddir/$old_name to $newdir/$new_name{$old_name}"
+
+}
+
+print "Done.\n"
+
+__DATA__
+Gen.xml	01-GEN.xml
+Exod.xml	02-EXO.xml
+Lev.xml	03-LEV.xml
+Num.xml	04-NUM.xml
+Deut.xml	05-DEU.xml
+Josh.xml	06-JOS.xml
+Judg.xml	07-JDG.xml
+Ruth.xml	08-RUT.xml
+1Sam.xml	09-1SA.xml
+2Sam.xml	10-2SA.xml
+1Kgs.xml	11-1KI.xml
+2Kgs.xml	12-2KI.xml
+1Chr.xml	13-1CH.xml
+2Chr.xml	14-2CH.xml
+Ezra.xml	15-EZR.xml
+Neh.xml	16-NEH.xml
+Esth.xml	17-EST.xml
+Job.xml	18-JOB.xml
+Ps.xml	19-PSA.xml
+Prov.xml	20-PRO.xml
+Eccl.xml	21-ECC.xml
+Song.xml	22-SNG.xml
+Isa.xml	23-ISA.xml
+Jer.xml	24-JER.xml
+Lam.xml	25-LAM.xml
+Ezek.xml	26-EZK.xml
+Dan.xml	27-DAN.xml
+Hos.xml	28-HOS.xml
+Joel.xml	29-JOL.xml
+Amos.xml	30-AMO.xml
+Obad.xml	31-OBA.xml
+Jonah.xml	32-JON.xml
+Mic.xml	33-MIC.xml
+Nah.xml	34-NAM.xml
+Hab.xml	35-HAB.xml
+Zeph.xml	36-ZEP.xml
+Hag.xml	37-HAG.xml
+Zech.xml	38-ZEC.xml
+Mal.xml	39-MAL.xml