Changeset 10254 for trunk/gsdl/perllib/plugins/ConvertToRogPlug.pm

Timestamp:

2005-07-19T16:27:51+12:00 (19 years ago)

Author:

kjdon

Message:

added 'use strict' to all plugins, and made modifications (mostly adding 'my') to make them compile

File:

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

trunk/gsdl/perllib/plugins/ConvertToRogPlug.pm

@@ -30 +30 @@
 use BasPlug;
 use RogPlug;
-
+use strict;
+no strict 'refs'; # allow filehandles to be variables and viceversa
 
 sub BEGIN {
-    @ISA = ('RogPlug');
-}
-
+    @ConvertToRogPlug::ISA = ('RogPlug');
+}
+
+my $arguments = [
+         ];
 my $options = { 'name'     => "ConvertToRogPlug",
         'desc'     => "{ConvertToRogPlug.desc}",
         'abstract' => "yes",
         'inherits' => "yes" };
-
-
-sub parse_args
-{
-    my $class = shift (@_);
-    my ($args) = @_;
-
-    my $plugin_name = $class;
-    $plugin_name =~ s/\.pm$//;
-
-    if (!parsargv::parse($args,  
-             "allow_extra_options")) {
-
-    print STDERR "\nIncorrect options passed to $plugin_name, ";
-    print STDERR "check your collect.cfg configuration file\n";
-    $self->print_txt_usage("");  # Use default resource bundle
-    die "\n";
-    }
-   
-    return ($plugin_name);
-}
 
 sub new {
@@ -312 +294 @@
     $doc_obj->add_metadata($cursection, "TVal",          $song->{'tval'}); 
 
-    foreach $md ( @{$song->{'metadata'}} )
+    foreach my $md ( @{$song->{'metadata'}} )
     {
     $doc_obj->add_metadata($cursection, $md->[0], $md->[1]);