Changeset 3207 for trunk/protemix/rename.pl

Timestamp:

2002-07-03T12:57:49+12:00 (22 years ago)

Author:

sjboddie

Message:

* empty log message *

File:

• trunk/protemix/rename.pl (modified) (3 diffs)

trunk/protemix/rename.pl

@@ -11 +11 @@
 use unicode;
 
-my %classifications = (
-               'Pharmacokinetics' => ['Absorption', 'Distribution', 'Metabolism', 'Elimination',
-                           'Effect of Food', 'Drug Interactions', 'Special Populations'],
-               'Pharmacodynamics' => ['Trace Metal', 'Excretion', 'Selectivity', 'Copper', 'Zinc',
-                          'Manganese', 'Iron', 'Distribution', 'Tissue', 'Brain',
-                          'Heart', 'Plasma', 'Fetal', 'Liver', 'Kidney'],
-               'Safety/Side Effects/Toxicity' => ['Acute Toxicity', 'Repeated Dose Toxicity',
-                             'Studies in Rodents', 'Studies in Dogs',
-                             'Overdosage', 'Reproductive Toxicity',
-                             'Teratogenicity', 'Mutagenecity', 'Carcinogenicity'],
-               'Other' => ['Superoxide Dismutase', 'Ferroxidase I', 'Ferroxidase II', 
-                   'Metallothienein', 'Ceruloplasmin'],
-               'Efficacy' => ['Heart', 'Complications', 'Microvascular', 'Renal', 'Diabetes'],
-               'Contraindications' => [],
-               'Precautions' => []
-               );
-
 my @meta_files = ();
 
 &recursive_rename("import");
+
+# read in log.Type.txt and log.Category.txt
+my $classifications = &read_cat_files();
+
 # process meta files
 foreach my $mfile (@meta_files) {
@@ -149 +136 @@
     $metafile .= "  <Metadata name=\"Title\">$title</Metadata>\n";
 
-    # currently just write some random values for classification metadata
-    my @c1 = ('Animal', 'Human', 'Other');
-    my $rand = int(rand 3);
-    my $classtext = "    <Metadata name=\"Class1\">" . $c1[$rand] . "</Metadata>\n";
-    my @c2 = ('Pharmacokinetics', 'Pharmacodynamics', 'Safety/Side Effects/Toxicity',
-          'Other', 'Efficacy', 'Contraindications', 'Precautions');
-    $rand = int(rand 7);
-    my $c2val = $c2[$rand];
-    $classtext .= "    <Metadata name=\"Class2\">$c2val</Metadata>\n";
-    if (defined $classifications{$c2val}) {
-    if (scalar(@{$classifications{$c2val}})) {
-        my $numvals = scalar(@{$classifications{$c2val}});
-        $rand = int(rand $numvals);
-        my $c3val = $classifications{$c2val}->[$rand];
-        $classtext .= "    <Metadata name=\"Class3\">$c3val</Metadata>\n";
-    }
-    } else {
-    print STDERR "ERROR: '$c2val' not in clasifications list\n";
-    }
-
     my $dir = File::Basename::dirname($filename);
+    my ($subdirs) = $dir =~ /import\/(.*)$/;
 
     opendir(DIR, $dir) || die;
     my @files = readdir DIR;
     foreach my $file (@files) {
-    if ($file =~ s/\.html?$//i) {
-        $metafile .= "  <Page filename=\"$file\">\n$classtext  </Page>\n";
+    if ($file =~ /\.html?$/i) {
+        my $fstub = $file;
+        $fstub =~ s/\.html?$//i;
+        $metafile .= "  <Page filename=\"$fstub\">\n";
+        if (defined ($classifications->{'type'}->{"$subdirs/$file"})) {
+        $metafile .= "    <Metadata name=\"Class1\">" .
+            $classifications->{'type'}->{"$subdirs/$file"} . "</Metadata>\n";
+        } else {
+        print STDERR "$subdirs/$file has no type metadata\n";
+        }
+        if (defined ($classifications->{'category'}->{"$subdirs/$file"})) {
+        $metafile .= "    <Metadata name=\"Class2\">" .
+            $classifications->{'category'}->{"$subdirs/$file"} . "</Metadata>\n";
+        } else {
+        print STDERR "$subdirs/$file has no category metadata\n";
+        }
+        $metafile .= "  </Page>\n";
     }
     }
@@ -186 +169 @@
 }
 
+sub read_cat_files {
 
+    my $class = {'type' => {}, 'category' => {}};
+    
+    open (TYPE, "import/log.Type.txt") || die;
+    my $line = "";
+    while (defined ($line = <TYPE>)) {
+    my ($filename, $cat) = split(/ /, $line);
+    chomp $cat;
+    $filename =~ s/^.*?Protemix\(ii\)/OCR2/;
+    $filename =~ s/^.*?Protemix\(i\)/OCR1/;
+    $class->{'type'}->{$filename} = $cat;
+    }
+    close TYPE;
+    
+    open (CAT, "import/log.Category.txt") || die;
+    $line = "";
+    while (defined ($line = <CAT>)) {
+    my ($filename, $cat) = split(/ /, $line);
+    chomp $cat;
+    $filename =~ s/^.*?Protemix\(ii\)/OCR2/;
+    $filename =~ s/^.*?Protemix\(i\)/OCR1/;
+    $class->{'category'}->{$filename} = $cat;
+    }
+    close CAT;
+
+    return $class;
+}