Changeset 17207 for gsdl/trunk/perllib/downloaders/BaseDownload.pm
- Timestamp:
- 2008-09-08T11:35:57+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/downloaders/BaseDownload.pm
r17206 r17207 1 1 ########################################################################### 2 2 # 3 # Bas Download.pm -- base class for all the Download modules3 # BaseDownload.pm -- base class for all the Download modules 4 4 # A component of the Greenstone digital library software 5 5 # from the New Zealand Digital Library Project at the … … 24 24 ########################################################################### 25 25 26 package Bas Download;26 package BaseDownload; 27 27 28 28 eval {require bytes}; … … 41 41 my $arguments = []; 42 42 43 my $options = { 'name' => "Bas Download",44 'desc' => "{Bas Download.desc}",43 my $options = { 'name' => "BaseDownload", 44 'desc' => "{BaseDownload.desc}", 45 45 'abstract' => "yes", 46 46 'inherits' => "no" }; … … 53 53 my $strDownloadName = (defined $downloadlist->[0]) ? $downloadlist->[0] : $class; 54 54 55 if(defined $arguments){ push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});}56 if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};55 push(@{$hashArgOptLists->{"ArgList"}},@{$arguments}); 56 push(@{$hashArgOptLists->{"OptList"}},$options); 57 57 58 58 my $self = {}; … … 78 78 my $classTempClass = bless $self, $class; 79 79 print STDERR "<BadDownload d=$self->{'download_name'}>\n"; 80 &gsprintf(STDERR, "\n{Bas Download.bad_general_option}\n", $self->{'download_name'});80 &gsprintf(STDERR, "\n{BaseDownload.bad_general_option}\n", $self->{'download_name'}); 81 81 $classTempClass->print_txt_usage(""); # Use default resource bundle 82 82 die "\n"; … … 233 233 my ($strFunctionName,$strError) = @_; 234 234 { 235 print "Error occoured in Bas Download.pm\n".235 print "Error occoured in BaseDownload.pm\n". 236 236 "In Function: ".$strFunctionName."\n". 237 237 "Error Message: ".$strError."\n";
Note:
See TracChangeset
for help on using the changeset viewer.