preparing for 6.7.3 bugfix cycle

This commit is contained in:
JT Smith 2005-08-26 16:26:40 +00:00
parent 947c7f99d2
commit 52736e209d
3 changed files with 45 additions and 8 deletions

File diff suppressed because one or more lines are too long

View file

@ -0,0 +1,37 @@
use lib "../../lib";
use strict;
use Getopt::Long;
use WebGUI::Session;
use WebGUI::SQL;
my $toVersion = "6.7.3";
my $configFile;
my $quiet;
start();
finish();
#-------------------------------------------------
#sub fixSomething {
# print "\tFixing ....\n" unless ($quiet);
#-------------------------------------------------
sub start {
$|=1; #disable output buffering
GetOptions(
'configFile=s'=>\$configFile,
'quiet'=>\$quiet
);
WebGUI::Session::open("../..",$configFile);
WebGUI::Session::refreshUserInfo(3);
WebGUI::SQL->write("insert into webguiVersion values (".quote($toVersion).",'upgrade',".time().")");
}
#-------------------------------------------------
sub finish {
WebGUI::Session::close();
}

View file

@ -1,6 +1,6 @@
package WebGUI;
our $VERSION = "6.7.2";
our $STATUS = "beta";
our $VERSION = "6.7.3";
our $STATUS = "gamma";
#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2005 Plain Black Corporation.