From 1a6c6ae254c8cf723a527aa2985986cbe96156dd Mon Sep 17 00:00:00 2001 From: Matthew Wilson Date: Sat, 13 Aug 2005 18:06:46 +0000 Subject: [PATCH] *** empty log message *** --- docs/upgrades/upgrade_6.7.0-6.7.1.pl | 29 ++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) create mode 100644 docs/upgrades/upgrade_6.7.0-6.7.1.pl diff --git a/docs/upgrades/upgrade_6.7.0-6.7.1.pl b/docs/upgrades/upgrade_6.7.0-6.7.1.pl new file mode 100644 index 000000000..61654e566 --- /dev/null +++ b/docs/upgrades/upgrade_6.7.0-6.7.1.pl @@ -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();