Changeset 23088 for main/trunk/greenstone2/cgi-bin/gsdlCGI.pm

Timestamp:

2010-10-11T23:21:27+13:00 (14 years ago)

Author:

davidb

Message:

Inclusion of a new 'pre-new' routine that helps this package set GSDLHOME and related values

File:

• main/trunk/greenstone2/cgi-bin/gsdlCGI.pm (modified) (1 diff)

main/trunk/greenstone2/cgi-bin/gsdlCGI.pm

@@ -12 +12 @@
 
 @gsdlCGI::ISA = ( 'CGI' ); 
+
+sub prenew {
+    my $class = shift @_;
+       
+    my $version;
+    if (-e "gsdl3site.cfg") {
+    $version = 3;
+    } else {
+    $version = 2;
+    }
+
+    my $self = {};
+
+    if ($version == 2) {
+    $self->{'site_filename'} = "gsdlsite.cfg";
+    $self->{'greenstone_version'} = 2;
+    } 
+    elsif ($version == 3) {
+    $self->{'site_filename'} = "gsdl3site.cfg";
+    $self->{'greenstone_version'} = 3;
+    }
+    
+    my $bself = bless $self, $class;
+
+    $bself->setup_gsdl();
+
+    return $bself;
+}
+
 
 sub new {