oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

preparing for 6.8.2 bugfix cycle

Browse source
This commit is contained in:
JT Smith 2005-12-08 21:04:50 +00:00
parent 1854f6dbeb
commit 0d24873145
4 changed files with 75 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

43
docs/previousVersion.sql
View file

File diff suppressed because one or more lines are too long

56
docs/upgrades/upgrade_6.8.1-6.8.2.pl Normal file
View file

@ -0,0 +1,56 @@
#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2005 Plain Black Corporation.
#-------------------------------------------------------------------
# Please read the legal notices (docs/legal.txt) and the license
# (docs/license.txt) that came with this distribution before using
# this software.
#-------------------------------------------------------------------
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
use lib "../../lib";
use strict;
use Getopt::Long;
use WebGUI::Session;
use WebGUI::SQL;
my $toVersion = "6.8.2"; # make this match what version you're going to
my $quiet; # this line required
start(); # this line required
fixPosts();
finish(); # this line required
#-------------------------------------------------
sub fixPosts {
print "\tFixing posts.\n" unless ($quiet);
WebGUI::SQL->write("update Post set dateSubmitted=dateUpdated where dateSubmitted is null");
}
# ---- DO NOT EDIT BELOW THIS LINE ----
#-------------------------------------------------
sub start {
my $configFile;
$|=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();
}

2
lib/WebGUI.pm
View file

@ -1,5 +1,5 @@
package WebGUI;
our $VERSION = "6.8.1";
our $VERSION = "6.8.2";
our $STATUS = "beta";
#-------------------------------------------------------------------

1
lib/WebGUI/URL.pm
View file

@ -190,6 +190,7 @@ sub getSiteURL {
$site = $session{env}{HTTP_HOST} || $session{config}{defaultSitename};
}
my $proto = "http://";
# $r->subprocess_env('HTTPS')
if ($session{env}{HTTPS} eq "on") {
$proto = "https://";
}