SF.net SVN: ledger-smb: [1654] trunk

[..hidden..]

Revision: 1654
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=1654&view=rev
Author:   tetragon
Date:     2007-09-23 13:16:08 -0700 (Sun, 23 Sep 2007)

Log Message:
-----------
CGI.pm -> CGI::Simple switch

Modified Paths:
--------------
    trunk/LedgerSMB/Template/HTML.pm
    trunk/LedgerSMB.pm
    trunk/Makefile.PL

Modified: trunk/LedgerSMB/Template/HTML.pm
===================================================================
--- trunk/LedgerSMB/Template/HTML.pm	2007-09-22 23:46:31 UTC (rev 1653)
+++ trunk/LedgerSMB/Template/HTML.pm	2007-09-23 20:16:08 UTC (rev 1654)
@@ -40,7 +40,7 @@
 package LedgerSMB::Template::HTML;
 
 use Error qw(:try);
-use CGI;
+use CGI::Simple::Standard qw(:html);
 use Template;
 use LedgerSMB::Template::TTI18N;
 
@@ -61,7 +61,7 @@
             push @{$vars}, preprocess( $_ );
         }
     } elsif (!$type) {
-        return CGI::escapeHTML($rawvars);
+        return escapeHTML($rawvars);
     } else { # Hashes and objects
         for ( keys %{$rawvars} ) {
             $vars->{preprocess($_)} = preprocess( $rawvars->{$_} );

Modified: trunk/LedgerSMB.pm
===================================================================
--- trunk/LedgerSMB.pm	2007-09-22 23:46:31 UTC (rev 1653)
+++ trunk/LedgerSMB.pm	2007-09-23 20:16:08 UTC (rev 1654)
@@ -116,8 +116,8 @@
  #====================================================================
 =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 @@
     $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 @@
 
     }
 
-    if ( ( $self->{script} =~ m#(..|\\|/)# ) ) {
+    if ( ( $self->{script} =~ m#(\.\.|\\|/)# ) ) {
         $self->error("Access Denied");
     }
     if (!$self->{login}){

Modified: trunk/Makefile.PL
===================================================================
--- trunk/Makefile.PL	2007-09-22 23:46:31 UTC (rev 1653)
+++ trunk/Makefile.PL	2007-09-23 20:16:08 UTC (rev 1654)
@@ -5,7 +5,7 @@
 use inc::Module::Install 0.65;
 
 name 'LedgerSMB';
-version '1.2.3';
+version '1.2.99';
 license 'GPL';
 
 perl_version '5.8.1';
@@ -30,6 +30,7 @@
 requires 'Template' => '2.14';
 requires 'Template::Latex';
 requires 'Error';
+requires 'CGI::Simple';
 
 build_requires 'Test::More';
 build_requires 'Test::Trap';
@@ -48,5 +49,14 @@
     'Getopt::Long' => 0,
     'FileHandle' => 0;
 
+#feature 'Excel output',
+#    -default => 0,
+#    'Excel::Template::Plus' => 0;
+#
+#feature 'OpenOffice.org output',
+#    -default => 0,
+#    'XML::Twig' => 0,
+#    'OpenOffice::OODoc' => 0;
+
 auto_install;
 WriteAll;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.