Changeset 10620 for trunk/gsdl/perllib/plugins/BasPlug.pm

Timestamp:

2005-09-22T17:03:15+12:00 (19 years ago)

Author:

kjdon

Message:

now prints out some gli tags when bad args are encountered for plugins and classifiers ($gli not set here, so just printed them always). Also, for BasPlug, set up the encoding values outside of new(), otherwise the list gets added in multiple times

File:

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

trunk/gsdl/perllib/plugins/BasPlug.pm

@@ -72 +72 @@
     [ { 'name' => "auto",
     'desc' => "{BasPlug.input_encoding.auto}" } ];
+
+my $e = $encodings::encodings;
+foreach my $enc (sort {$e->{$a}->{'name'} cmp $e->{$b}->{'name'}} keys (%$e)) 
+{
+    my $hashEncode =
+    {'name' => $enc,
+     'desc' => $e->{$enc}->{'name'}};
+    
+    push(@{$unicode_list},$hashEncode);
+}
+
+push(@{$auto_unicode_list},@{$unicode_list});
 
 my $arguments =
@@ -355 +367 @@
     # Set Encodings to the list!!
 
-    my $e = $encodings::encodings;
-    foreach my $enc (sort {$e->{$a}->{'name'} cmp $e->{$b}->{'name'}} keys (%$e)) 
-    {
-    my $hashEncode =
-        {'name' => $enc,
-         'desc' => $e->{$enc}->{'name'}};
-
-    push(@{$unicode_list},$hashEncode);
-    }
-
-    push(@{$auto_unicode_list},@{$unicode_list});
 
     # Start the BasPlug Constructor
@@ -399 +400 @@
     {
     my $classTempClass = bless $self, $class;
+    print STDERR "<BadPlugin p=$plugin_name>\n";
     &gsprintf(STDERR, "\n{BasPlug.bad_general_option}\n", $plugin_name);
     $classTempClass->print_txt_usage("");  # Use default resource bundle