Changeset 6983

Timestamp:

2004-03-09T15:06:40+13:00 (20 years ago)

Author:

kjdon

Message:

added in the info_only check, and now dies if is not set

File:

• trunk/gsdl/perllib/classify/HTML.pm (modified) (2 diffs)

trunk/gsdl/perllib/classify/HTML.pm

@@ -61 +61 @@
     push( @{$option_list}, $options );
 
+    if ($self->{'info_only'}) {
+    # created from classinfo.pl - don't need to parse the arguments
+    return bless $self, $class;
+    }
+
     my ($title, $url);
     
@@ -73 +78 @@
     }
 
-    if (!defined $url) {
+    if (!$url) {
     my $outhandle = $self->{'outhandle'};
-    print $outhandle "Error: HTML classifier contains no 'url' option\n";
-    die "\n";
+    print $outhandle "HTML Error: required option -url not supplied\n";
+    $self->print_txt_usage("");
+    die "HTML Error: required option -url not supplied\n";
     }