preparing for 6.7.3 bugfix cycle
This commit is contained in:
parent
947c7f99d2
commit
52736e209d
3 changed files with 45 additions and 8 deletions
File diff suppressed because one or more lines are too long
37
docs/upgrades/upgrade_6.7.2-6.7.3.pl
Normal file
37
docs/upgrades/upgrade_6.7.2-6.7.3.pl
Normal 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();
|
||||
}
|
||||
|
||||
|
|
@ -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.
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue