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

Make sure $webguiRoot is setup consistently in all upgrade scripts.

Browse source 
All the scripts had a hardcoded use lib "../../lib" and "../.."
on Session method calls. This was changed to a BEGIN prologue
where @INC gets $webguiRoot added, and the method calls use
$webguiRoot instead.

This eases the creation of patches for filesystem reorganization
of WebGUI files (e.g. for Debian packaging).
This commit is contained in:
Ernesto Hernández-Novich 2008-06-09 15:35:43 +00:00
parent f289e77955
commit bc2ec90354
12 changed files with 96 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

10
docs/upgrades/upgrade_7.4.21-7.5.0.pl
View file

@ -8,7 +8,13 @@
# http://www.plainblack.com info@plainblack.com # http://www.plainblack.com info@plainblack.com
#------------------------------------------------------------------- #-------------------------------------------------------------------
use lib "../../lib"; our ($webguiRoot);
BEGIN {
$webguiRoot = "..";
unshift (@INC, $webguiRoot."/lib");
}
use strict; use strict;
use Getopt::Long; use Getopt::Long;
use WebGUI::Session; use WebGUI::Session;
@ -550,7 +556,7 @@ sub start {
'configFile=s'=>\$configFile, 'configFile=s'=>\$configFile,
'quiet'=>\$quiet 'quiet'=>\$quiet
); );
my $session = WebGUI::Session->open("../..",$configFile); my $session = WebGUI::Session->open($webguiRoot,$configFile);
$session->user({userId=>3}); $session->user({userId=>3});
my $versionTag = WebGUI::VersionTag->getWorking($session); my $versionTag = WebGUI::VersionTag->getWorking($session);
$versionTag->set({name=>"Upgrade to ".$toVersion}); $versionTag->set({name=>"Upgrade to ".$toVersion});

10
docs/upgrades/upgrade_7.5.0-7.5.1.pl
View file

@ -8,7 +8,13 @@
# http://www.plainblack.com info@plainblack.com # http://www.plainblack.com info@plainblack.com
#------------------------------------------------------------------- #-------------------------------------------------------------------
use lib "../../lib"; our ($webguiRoot);
BEGIN {
$webguiRoot = "..";
unshift (@INC, $webguiRoot."/lib");
}
use strict; use strict;
use Getopt::Long; use Getopt::Long;
use WebGUI::Session; use WebGUI::Session;
@ -83,7 +89,7 @@ sub start {
'configFile=s'=>\$configFile, 'configFile=s'=>\$configFile,
'quiet'=>\$quiet 'quiet'=>\$quiet
); );
my $session = WebGUI::Session->open("../..",$configFile); my $session = WebGUI::Session->open($webguiRoot,$configFile);
$session->user({userId=>3}); $session->user({userId=>3});
my $versionTag = WebGUI::VersionTag->getWorking($session); my $versionTag = WebGUI::VersionTag->getWorking($session);
$versionTag->set({name=>"Upgrade to ".$toVersion}); $versionTag->set({name=>"Upgrade to ".$toVersion});

10
docs/upgrades/upgrade_7.5.1-7.5.2.pl
View file

@ -8,7 +8,13 @@
# http://www.plainblack.com info@plainblack.com # http://www.plainblack.com info@plainblack.com
#------------------------------------------------------------------- #-------------------------------------------------------------------
use lib "../../lib"; our ($webguiRoot);
BEGIN {
$webguiRoot = "..";
unshift (@INC, $webguiRoot."/lib");
}
use strict; use strict;
use Getopt::Long; use Getopt::Long;
use WebGUI::Session; use WebGUI::Session;
@ -73,7 +79,7 @@ sub start {
'configFile=s'=>\$configFile, 'configFile=s'=>\$configFile,
'quiet'=>\$quiet 'quiet'=>\$quiet
); );
my $session = WebGUI::Session->open("../..",$configFile); my $session = WebGUI::Session->open($webguiRoot,$configFile);
$session->user({userId=>3}); $session->user({userId=>3});
my $versionTag = WebGUI::VersionTag->getWorking($session); my $versionTag = WebGUI::VersionTag->getWorking($session);
$versionTag->set({name=>"Upgrade to ".$toVersion}); $versionTag->set({name=>"Upgrade to ".$toVersion});

10
docs/upgrades/upgrade_7.5.10-7.5.11.pl
View file

@ -8,7 +8,13 @@
# http://www.plainblack.com info@plainblack.com # http://www.plainblack.com info@plainblack.com
#------------------------------------------------------------------- #-------------------------------------------------------------------
use lib "../../lib"; our ($webguiRoot);
BEGIN {
$webguiRoot = "..";
unshift (@INC, $webguiRoot."/lib");
}
use strict; use strict;
use Getopt::Long; use Getopt::Long;
use WebGUI::Session; use WebGUI::Session;
@ -1700,7 +1706,7 @@ sub start {
'configFile=s'=>\$configFile, 'configFile=s'=>\$configFile,
'quiet'=>\$quiet 'quiet'=>\$quiet
); );
my $session = WebGUI::Session->open("../..",$configFile); my $session = WebGUI::Session->open($webguiRoot,$configFile);
$session->user({userId=>3}); $session->user({userId=>3});
my $versionTag = WebGUI::VersionTag->getWorking($session); my $versionTag = WebGUI::VersionTag->getWorking($session);
$versionTag->set({name=>"Upgrade to ".$toVersion}); $versionTag->set({name=>"Upgrade to ".$toVersion});

10
docs/upgrades/upgrade_7.5.2-7.5.3.pl
View file

@ -8,7 +8,13 @@
# http://www.plainblack.com info@plainblack.com # http://www.plainblack.com info@plainblack.com
#------------------------------------------------------------------- #-------------------------------------------------------------------
use lib "../../lib"; our ($webguiRoot);
BEGIN {
$webguiRoot = "..";
unshift (@INC, $webguiRoot."/lib");
}
use strict; use strict;
use Getopt::Long; use Getopt::Long;
use WebGUI::Session; use WebGUI::Session;
@ -63,7 +69,7 @@ sub start {
'configFile=s'=>\$configFile, 'configFile=s'=>\$configFile,
'quiet'=>\$quiet 'quiet'=>\$quiet
); );
my $session = WebGUI::Session->open("../..",$configFile); my $session = WebGUI::Session->open($webguiRoot,$configFile);
$session->user({userId=>3}); $session->user({userId=>3});
my $versionTag = WebGUI::VersionTag->getWorking($session); my $versionTag = WebGUI::VersionTag->getWorking($session);
$versionTag->set({name=>"Upgrade to ".$toVersion}); $versionTag->set({name=>"Upgrade to ".$toVersion});

10
docs/upgrades/upgrade_7.5.3-7.5.4.pl
View file

@ -8,7 +8,13 @@
# http://www.plainblack.com info@plainblack.com # http://www.plainblack.com info@plainblack.com
#------------------------------------------------------------------- #-------------------------------------------------------------------
use lib "../../lib"; our ($webguiRoot);
BEGIN {
$webguiRoot = "..";
unshift (@INC, $webguiRoot."/lib");
}
use strict; use strict;
use Getopt::Long; use Getopt::Long;
use WebGUI::Session; use WebGUI::Session;
@ -124,7 +130,7 @@ sub start {
'configFile=s'=>\$configFile, 'configFile=s'=>\$configFile,
'quiet'=>\$quiet 'quiet'=>\$quiet
); );
my $session = WebGUI::Session->open("../..",$configFile); my $session = WebGUI::Session->open($webguiRoot,$configFile);
$session->user({userId=>3}); $session->user({userId=>3});
my $versionTag = WebGUI::VersionTag->getWorking($session); my $versionTag = WebGUI::VersionTag->getWorking($session);
$versionTag->set({name=>"Upgrade to ".$toVersion}); $versionTag->set({name=>"Upgrade to ".$toVersion});

10
docs/upgrades/upgrade_7.5.4-7.5.5.pl
View file

@ -8,7 +8,13 @@
# http://www.plainblack.com info@plainblack.com # http://www.plainblack.com info@plainblack.com
#------------------------------------------------------------------- #-------------------------------------------------------------------
use lib "../../lib"; our ($webguiRoot);
BEGIN {
$webguiRoot = "..";
unshift (@INC, $webguiRoot."/lib");
}
use strict; use strict;
use Getopt::Long; use Getopt::Long;
use WebGUI::Session; use WebGUI::Session;
@ -113,7 +119,7 @@ sub start {
'configFile=s'=>\$configFile, 'configFile=s'=>\$configFile,
'quiet'=>\$quiet 'quiet'=>\$quiet
); );
my $session = WebGUI::Session->open("../..",$configFile); my $session = WebGUI::Session->open($webguiRoot,$configFile);
$session->user({userId=>3}); $session->user({userId=>3});
my $versionTag = WebGUI::VersionTag->getWorking($session); my $versionTag = WebGUI::VersionTag->getWorking($session);
$versionTag->set({name=>"Upgrade to ".$toVersion}); $versionTag->set({name=>"Upgrade to ".$toVersion});

10
docs/upgrades/upgrade_7.5.5-7.5.6.pl
View file

@ -8,7 +8,13 @@
# http://www.plainblack.com info@plainblack.com # http://www.plainblack.com info@plainblack.com
#------------------------------------------------------------------- #-------------------------------------------------------------------
use lib "../../lib"; our ($webguiRoot);
BEGIN {
$webguiRoot = "..";
unshift (@INC, $webguiRoot."/lib");
}
use strict; use strict;
use Getopt::Long; use Getopt::Long;
use WebGUI::Session; use WebGUI::Session;
@ -224,7 +230,7 @@ sub start {
'configFile=s'=>\$configFile, 'configFile=s'=>\$configFile,
'quiet'=>\$quiet 'quiet'=>\$quiet
); );
my $session = WebGUI::Session->open("../..",$configFile); my $session = WebGUI::Session->open($webguiRoot,$configFile);
$session->user({userId=>3}); $session->user({userId=>3});
my $versionTag = WebGUI::VersionTag->getWorking($session); my $versionTag = WebGUI::VersionTag->getWorking($session);
$versionTag->set({name=>"Upgrade to ".$toVersion}); $versionTag->set({name=>"Upgrade to ".$toVersion});

10
docs/upgrades/upgrade_7.5.6-7.5.7.pl
View file

@ -8,7 +8,13 @@
# http://www.plainblack.com info@plainblack.com # http://www.plainblack.com info@plainblack.com
#------------------------------------------------------------------- #-------------------------------------------------------------------
use lib "../../lib"; our ($webguiRoot);
BEGIN {
$webguiRoot = "..";
unshift (@INC, $webguiRoot."/lib");
}
use strict; use strict;
use Getopt::Long; use Getopt::Long;
use WebGUI::Session; use WebGUI::Session;
@ -62,7 +68,7 @@ sub start {
'configFile=s'=>\$configFile, 'configFile=s'=>\$configFile,
'quiet'=>\$quiet 'quiet'=>\$quiet
); );
my $session = WebGUI::Session->open("../..",$configFile); my $session = WebGUI::Session->open($webguiRoot,$configFile);
$session->user({userId=>3}); $session->user({userId=>3});
my $versionTag = WebGUI::VersionTag->getWorking($session); my $versionTag = WebGUI::VersionTag->getWorking($session);
$versionTag->set({name=>"Upgrade to ".$toVersion}); $versionTag->set({name=>"Upgrade to ".$toVersion});

10
docs/upgrades/upgrade_7.5.7-7.5.8.pl
View file

@ -8,7 +8,13 @@
# http://www.plainblack.com info@plainblack.com # http://www.plainblack.com info@plainblack.com
#------------------------------------------------------------------- #-------------------------------------------------------------------
use lib "../../lib"; our ($webguiRoot);
BEGIN {
$webguiRoot = "..";
unshift (@INC, $webguiRoot."/lib");
}
use strict; use strict;
use Getopt::Long; use Getopt::Long;
use WebGUI::Session; use WebGUI::Session;
@ -162,7 +168,7 @@ sub start {
'configFile=s'=>\$configFile, 'configFile=s'=>\$configFile,
'quiet'=>\$quiet 'quiet'=>\$quiet
); );
my $session = WebGUI::Session->open("../..",$configFile); my $session = WebGUI::Session->open($webguiRoot,$configFile);
$session->user({userId=>3}); $session->user({userId=>3});
my $versionTag = WebGUI::VersionTag->getWorking($session); my $versionTag = WebGUI::VersionTag->getWorking($session);
$versionTag->set({name=>"Upgrade to ".$toVersion}); $versionTag->set({name=>"Upgrade to ".$toVersion});

10
docs/upgrades/upgrade_7.5.8-7.5.9.pl
View file

@ -8,7 +8,13 @@
# http://www.plainblack.com info@plainblack.com # http://www.plainblack.com info@plainblack.com
#------------------------------------------------------------------- #-------------------------------------------------------------------
use lib "../../lib"; our ($webguiRoot);
BEGIN {
$webguiRoot = "..";
unshift (@INC, $webguiRoot."/lib");
}
use strict; use strict;
use Getopt::Long; use Getopt::Long;
use WebGUI::Session; use WebGUI::Session;
@ -107,7 +113,7 @@ sub start {
'configFile=s'=>\$configFile, 'configFile=s'=>\$configFile,
'quiet'=>\$quiet 'quiet'=>\$quiet
); );
my $session = WebGUI::Session->open("../..",$configFile); my $session = WebGUI::Session->open($webguiRoot,$configFile);
$session->user({userId=>3}); $session->user({userId=>3});
my $versionTag = WebGUI::VersionTag->getWorking($session); my $versionTag = WebGUI::VersionTag->getWorking($session);
$versionTag->set({name=>"Upgrade to ".$toVersion}); $versionTag->set({name=>"Upgrade to ".$toVersion});

10
docs/upgrades/upgrade_7.5.9-7.5.10.pl
View file

@ -8,7 +8,13 @@
# http://www.plainblack.com info@plainblack.com # http://www.plainblack.com info@plainblack.com
#------------------------------------------------------------------- #-------------------------------------------------------------------
use lib "../../lib"; our ($webguiRoot);
BEGIN {
$webguiRoot = "..";
unshift (@INC, $webguiRoot."/lib");
}
use strict; use strict;
use Getopt::Long; use Getopt::Long;
use WebGUI::Session; use WebGUI::Session;
@ -93,7 +99,7 @@ sub start {
'configFile=s'=>\$configFile, 'configFile=s'=>\$configFile,
'quiet'=>\$quiet 'quiet'=>\$quiet
); );
my $session = WebGUI::Session->open("../..",$configFile); my $session = WebGUI::Session->open($webguiRoot,$configFile);
$session->user({userId=>3}); $session->user({userId=>3});
my $versionTag = WebGUI::VersionTag->getWorking($session); my $versionTag = WebGUI::VersionTag->getWorking($session);
$versionTag->set({name=>"Upgrade to ".$toVersion}); $versionTag->set({name=>"Upgrade to ".$toVersion});