Changeset 1483 for trunk/gsdl/perllib/classify/HTML.pm

Timestamp:

2000-08-31T20:05:25+12:00 (24 years ago)

Author:

sjboddie

Message:

added -out option to classifiers

File:

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

trunk/gsdl/perllib/classify/HTML.pm

@@ -33 +33 @@
 package HTML;
 
+use BasClas;
+
+sub BEGIN {
+    @ISA = ('BasClas');
+}
+
 sub new {
     my ($class, @options) = @_;
+    my $self = new BasClas ($class, @_);
 
     my ($title, $url);
@@ -46 +53 @@
     }
 
-    die "Error: HTML classifier contains no 'url' option\n" 
-    unless defined $url;
+    if (!defined $url) {
+    my $outhandle = $self->{'outhandle'};
+    print $outhandle "Error: HTML classifier contains no 'url' option\n";
+    die "\n";
+    }
 
     $title = 'Browse' unless defined $title;
 
-    return bless {
-    'url' => $url,
-    'title' => $title
-    }, $class;
+    $self->{'url'} = $url;
+    $self->{'title'} = $title;
+
+    return bless $self, $class;
 }