Changeset 10218 for trunk/gsdl/perllib/plugins/OggVorbisPlug.pm

Timestamp:

2005-07-06T15:27:45+12:00 (19 years ago)

Author:

kjdon

Message:

Jeffrey's new parsing modifications, committed approx 6 July, 15.16

File:

• trunk/gsdl/perllib/plugins/OggVorbisPlug.pm (modified) (2 diffs)

trunk/gsdl/perllib/plugins/OggVorbisPlug.pm

@@ -35 +35 @@
 
 sub BEGIN {
-    @ISA = ('UnknownPlug');
+    @OggVorbisPlug::ISA = ('UnknownPlug');
 }
 
@@ -65 +65 @@
 sub new
 {
-    my $class = shift(@_);
-
-    my $self = new UnknownPlug($class, @_);
-    $self->{'plugin_type'} = "OggVorbisPlug";
-
-    if (!parsargv::parse(\@_,
-             q^add_technical_metadata^, \$self->{'add_technical_metadata'},
-             "allow_extra_options")) {
-    die "\nIncorrect options passed to OggVorbisPlug, check your collect.cfg configuration file\n";
-    }
-
-    # To allow for proper inheritance of arguments
-    my $option_list = $self->{'option_list'};
-    push(@{$option_list}, $options);
-
+    my ($class) = shift(@_);
+    my ($pluginlist,$inputargs,$hashArgOptLists) = @_;
+    push(@$pluginlist, $class);
+    
+    if(defined $arguments){ push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});}
+    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
+    
+    my $self = (defined $hashArgOptLists)? new UnknownPlug($pluginlist,$inputargs,$hashArgOptLists): new UnknownPlug($pluginlist,$inputargs);
+    
     return bless $self, $class;
 }