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

WebGUI 2.5.0 release

Browse source
This commit is contained in:
JT Smith 2001-12-09 22:10:00 +00:00
parent 6286f9bfaf
commit 00aec56a04
65 changed files with 3006 additions and 369 deletions
Download patch file Download diff file Expand all files Collapse all files

68
lib/WebGUI/Template.pm Normal file
View file

@ -0,0 +1,68 @@
package WebGUI::Template;
#-------------------------------------------------------------------
# WebGUI is Copyright 2001 Plain Black Software.
#-------------------------------------------------------------------
# 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 strict qw(vars subs);
use Tie::IxHash;
use WebGUI::ErrorHandler;
use WebGUI::Session;
#-------------------------------------------------------------------
sub calculatePositions {
my (%positions, $string);
$string = "A";
$positions{A} = "A";
while ($string ne $_[0]) {
$string = ++$string;
$positions{$string} = $string;
}
return %positions;
}
#-------------------------------------------------------------------
sub getList {
my (@files, $file, $namespace, $cmd, %list, $templateDir);
if ($^O =~ /Win/i) {
$templateDir = "\\lib\\WebGUI\\Template";
} else {
$templateDir = "/lib/WebGUI/Template";
}
opendir (DIR,$session{config}{webguiRoot}.$templateDir) or WebGUI::ErrorHandler::fatalError("Can't open template directory!");
@files = readdir(DIR);
foreach $file (@files) {
if ($file ne "." && $file ne ".." && $file =~ /\.pm/) {
$file =~ s/\.pm//;
$cmd = "require WebGUI::Template::".$file;
eval($cmd);
$cmd = "WebGUI::Template::".$file."::namespace";
$namespace = $$cmd;
$cmd = "WebGUI::Template::".$file."::name";
$list{$namespace} = &$cmd();
}
}
closedir(DIR);
return %list;
}
#-------------------------------------------------------------------
sub getPositions {
my ($cmd, %hash);
tie %hash, "Tie::IxHash";
$cmd = "require WebGUI::Template::".$_[0];
eval($cmd);
$cmd = "WebGUI::Template::".$_[0]."::getPositions";
%hash = &$cmd;
return %hash;
}
1;