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

Ready for 7.10.29 development.

Browse source
This commit is contained in:
Colin Kuskie 2013-03-20 21:38:23 -07:00
commit c806f99b7b
4236 changed files with 1217679 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

83
lib/WebGUI/Macro/SQL.pm Normal file
View file

@ -0,0 +1,83 @@
package WebGUI::Macro::SQL;
#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2009 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;
=head1 NAME
Package WebGUI::Macro::SQL
=head1 DESCRIPTION
Macro for executing SQL select-type statements and returning formatted output.
=head2 process ( SQL, format )
=head3 SQL
The SQL statement to execute. If the statement is not something that
returns data (select, show, describe), an error message is returned. If
there is an error executing the SQL, an error message will be returned.
=head3 format
Describes how to format the results of the SQL statement. For each
term in in a select-type statement, a numeric macro (^0, ^1, etc.)can
be used to position its output in the format.
=head3 databaseLinkId
The id of the databaseLink to use. Default is the WebGUI database which has id '0'.
The databaseLink must allow macro access, otherwise an error will be returned.
=cut
#-------------------------------------------------------------------
sub process {
my $session = shift;
my ($output, @data, $rownum, $temp, $dbh);
my ($statement, $format, $databaseLinkId) = @_;
my $i18n = WebGUI::International->new($session,'Macro_SQL');
$databaseLinkId ||= '0';
my $dbLink = WebGUI::DatabaseLink->new($session, $databaseLinkId);
if($dbLink->macroAccessIsAllowed()){
$dbh = $dbLink->db;
}
else{
return $i18n->get('database access not allowed');
}
$format = '^0;' if ($format eq "");
if ($statement =~ /^\s*select/i || $statement =~ /^\s*show/i || $statement =~ /^\s*describe/i) {
my $sth = $dbh->unconditionalRead($statement);
unless ($sth->errorCode < 1) {
return sprintf $i18n->get('sql error'), $sth->errorMessage;
} else {
while (@data = $sth->array) {
$temp = $format;
$temp =~ s/\^(\d+)\;/$data[$1]/g;
$rownum++;
$temp =~ s/\^rownum\;/$rownum/g;
$output .= $temp;
}
$sth->finish;
return $output;
}
} else {
return $i18n->get('illegal query');
}
}
1;