diff options
| author | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-09-23 20:16:08 +0000 |
|---|---|---|
| committer | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-09-23 20:16:08 +0000 |
| commit | 564ad98bdc2a55d4cd12f734b37af7c66844204a (patch) | |
| tree | 43e3735287e4345cfb447004f728b44bb6d92251 /LedgerSMB.pm | |
| parent | 37b948b026cb941b8f8ec4670243f30f854241bd (diff) | |
CGI.pm -> CGI::Simple switch
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1654 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB.pm')
| -rwxr-xr-x | LedgerSMB.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/LedgerSMB.pm b/LedgerSMB.pm index 27abf20f..97e30403 100755 --- a/LedgerSMB.pm +++ b/LedgerSMB.pm @@ -116,8 +116,8 @@ non-numbers. #==================================================================== =cut -use CGI; -use Math::BigFloat lib => 'GMP'; +use CGI::Simple; +use Math::BigFloat; use LedgerSMB::Sysconfig; use Data::Dumper; use LedgerSMB::Session; @@ -137,7 +137,7 @@ sub new { $self->{version} = $VERSION; $self->{dbversion} = "1.2.0"; bless $self, $type; - my $query = ($argstr) ? new CGI($argstr) : new CGI; + my $query = ($argstr) ? new CGI::Simple($argstr) : new CGI::Simple; my $params = $query->Vars; $self->{VERSION} = $VERSION; @@ -158,7 +158,7 @@ sub new { } - if ( ( $self->{script} =~ m#(..|\\|/)# ) ) { + if ( ( $self->{script} =~ m#(\.\.|\\|/)# ) ) { $self->error("Access Denied"); } if (!$self->{login}){ |