Changeset 15872 for gsdl/trunk/perllib/plugins/FavouritesPlugin.pm

Timestamp:

2008-06-05T09:29:32+12:00 (16 years ago)

Author:

kjdon

Message:

plugin overhaul: plugins renamed to xxPlugin, and in some cases the names are made more sensible. They now use the new base plugins. Hopefully we have better code reuse. Some of the plugins still need work done as I didn't want to spend another month doing this before committing it. Alos, I haven't really tested anything yet...

File:

• gsdl/trunk/perllib/plugins/FavouritesPlugin.pm (modified) (3 diffs)

gsdl/trunk/perllib/plugins/FavouritesPlugin.pm

@@ -28 +28 @@
 # especially SRCPlug by John McPherson Nov 2000
 
-package FavouritesPlug;
+package FavouritesPlugin;
 
-use BasPlug;
+use ReadTextFile;
 use strict;
 no strict 'refs'; # allow filehandles to be variables and viceversa
 
 sub BEGIN {
-    @FavouritesPlug::ISA = ('BasPlug');
+    @FavouritesPlugin::ISA = ('ReadTextFile');
 }
 
 my $arguments =
     [ { 'name' => "process_exp",
-    'desc' => "{BasPlug.process_exp}",
+    'desc' => "{ReadTextFile.process_exp}",
     'type' => "regexp",
     'deft' => &get_default_process_exp(),
     'reqd' => "no" } ];
 
-my $options = { 'name'     => "FavouritesPlug",
-        'desc'     => "FavouritesPlug imports Internet Explorer style Favourites. Favourites are often found in the \"C:\\Documents and Settings\\[your username]\\Favorites\" folder on your computer, but can also be made by dragging a bookmark or location from your browser (any) to the desktop.",
+my $options = { 'name'     => "FavouritesPlugin",
+        'desc'     => "{FavouritesPlugin.desc}",
         'abstract' => "no",
         'inherits' => "yes",
@@ -57 +57 @@
     push(@$pluginlist, $class);
 
-    if(defined $arguments){ push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});}
-    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
+    push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});
+    push(@{$hashArgOptLists->{"OptList"}},$options);
 
-    my $self = new BasPlug($pluginlist, $inputargs, $hashArgOptLists);
+    my $self = new ReadTextFile($pluginlist, $inputargs, $hashArgOptLists);
 
     return bless $self, $class;
@@ -80 +80 @@
 
     my $section = $doc_obj->get_top_section();
-    print STDERR "<Processing n='$file' p='FavouritesPlug'>\n" if ($gli);
-    print $outhandle "FavouritesPlug: processing $file\n" if $self->{'verbosity'} > 1;
+    print STDERR "<Processing n='$file' p='FavouritesPlugin'>\n" if ($gli);
+    print $outhandle "FavouritesPlugin: processing $file\n" if $self->{'verbosity'} > 1;
 
     # don't want mg to turn escape chars into actual values