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

WebGUI 2.4.0 release

Browse source
This commit is contained in:
JT Smith 2001-11-20 03:49:00 +00:00
parent 2a61818564
commit 6286f9bfaf
74 changed files with 2332 additions and 548 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lib/WebGUI/Macro.pm
View file

@ -14,6 +14,20 @@ use strict qw(vars subs);
use WebGUI::ErrorHandler;
use WebGUI::Session;
#-------------------------------------------------------------------
sub getParams {
my ($data, @param);
$data = $_[0];
$data = substr($data,1,length($data)-2);
push(@param, $+) while $data =~ m {
"([^\"\\]*(?:\\.[^\"\\]*)*)",?
| ([^,]+),?
| ,
}gx;
push(@param, undef) if substr($data,-1,1) eq ',';
return @param;
}
#-------------------------------------------------------------------
sub process {
my (@files, $file, $cmd, $output, $macroDir);
@ -37,6 +51,7 @@ sub process {
closedir(DIR);
#---script url---
# slash has to go last because it is also used as the end character for configurable widgets
# this will disappear in a future rev as it is depricated
if ($output =~ /\^\//) {
$output =~ s/\^\//$session{env}{SCRIPT_NAME}/g;
}