*** empty log message ***

This commit is contained in:
Matthew Wilson 2005-08-13 18:06:46 +00:00
parent ac7f170b98
commit 1a6c6ae254

View file

@ -0,0 +1,29 @@
my $toVersion = "6.7.1";
use lib "../../lib";
use File::Path;
use Getopt::Long;
use strict;
use WebGUI::Asset;
use WebGUI::Asset::Wobject::Folder;
use WebGUI::Asset::Snippet;
use WebGUI::Session;
use WebGUI::SQL;
use WebGUI::Group;
my $configFile;
my $quiet;
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().")");
WebGUI::Session::close();