Changeset 2342

Timestamp:

2001-04-30T09:31:14+12:00 (23 years ago)

Author:

sjboddie

Message:

renamed HTMLPlug's w3mir option to file_is_url

File:

• trunk/gsdl/perllib/plugins/HTMLPlug.pm (modified) (4 diffs)

trunk/gsdl/perllib/plugins/HTMLPlug.pm

@@ -64 +64 @@
     print STDERR "   -hunt_creator_metadata Find as much metadata as possible on authorship and place it in the\n ";
     print STDERR "                          'Creator' field. Requires the -metadata_fields flag.\n ";
-    print STDERR "   -w3mir                 Set if w3mir was used to generate input file structure.\n";
+    print STDERR "   -file_is_url           Set if input filenames make up url of original source documents\n";
+    print STDERR "                          e.g. if a web mirroring tool was used to create the import\n";
+    print STDERR "                          directory structure\n";
     print STDERR "   -assoc_files           Perl regular expression of file extensions to associate with\n";
     print STDERR "                          html documents. Defaults to '(?i)\.(jpe?g|gif|png|css)\$'\n";
@@ -86 +88 @@
              q^hunt_creator_metadata^, \$self->{'hunt_creator_metadata'},
              q^w3mir^, \$self->{'w3mir'},
+             q^file_is_url^, \$self->{'file_is_url'},
              q^assoc_files/.*/(?i)\.(jpe?g|gif|png|css)$^, \$self->{'assoc_files'},
              q^rename_assoc_files^, \$self->{'rename_assoc_files'},
@@ -94 +97 @@
     &print_usage();
     die "\n";
+    }
+
+    # retain this for backward compatibility (w3mir option was replaced by
+    # file_is_url)
+    if ($self->{'w3mir'}) {
+    $self->{'file_is_url'} = 1;
     }
     
@@ -302 +311 @@
     if ($before_hash =~ s/^\/// || $before_hash =~ /\\/) {
 
-        # the first directory will be the domain name if w3mir was used
+        # the first directory will be the domain name if file_is_url
         # to generate archives, otherwise we'll assume all files are
         # from the same site and base_dir is the root
             # This is not called in Windows
-        if ($self->{'w3mir'}) {
+        if ($self->{'file_is_url'}) {
         my @dirs = split /[\/\\]/, $file;
         my $domname = shift (@dirs);