Opensource.Platon.SK CVS: vimconfig/vim/templates/skel.fcgi - diff

Up to [Platon] / vimconfig / vim / templates

Diff for vimconfig/vim/templates/skel.fcgi between version 1.2 and 1.3

version 1.2, 2005/09/08 23:21:19

version 1.3, 2007/09/14 18:25:42

Line 26 umask 022;

use lib qw( ./modules );

use FCGI;

use CGI::Lite;

use CGI qw(-compile param cookie url_encode upload);

#use CGI::Carp qw(fatalsToBrowser);

use DBI qw(:sql_types);

use Template;

use Template::Plugin;

Line 34 use Template::Exception;

Line 35 use Template::Exception;

use Time::HiRes qw(gettimeofday tv_interval);

use Cwd;

use File::Basename qw( basename fileparse );

#use Data::Dumper;

use vars qw (

$cgi $req

$req

$dbh $data_source $database $db_host $db_user $db_password

$runcount $runlimit

$template

Line 68 $database = 'my_database';

Line 70 $database = 'my_database';

$db_user = 'my_user';

$db_password = 'my_secret_pass';

$cgi = CGI::Lite->new();

$req = FCGI::Request();

$template = Template->new({

Line 98 while ( ($runcount++ < $runlimit) && ($r

Line 99 while ( ($runcount++ < $runlimit) && ($r

my %query;

my %cookie;

%query = $cgi->parse_new_form_data();

# Parse query and cookies

%cookie = $cgi->parse_cookies();

# {{{

CGI::_reset_globals;

my $cgi = CGI->new();

foreach my $key ($cgi->param()) {

my @val = $cgi->param($key);

$query{$key} = scalar(@val) > 1 ? \@val : $val[0];

$query_orig{$key} = scalar(@val) > 1 ? \@val : $val[0];

#$query{$key} = $val[0];

#$query_orig{$key} = $val[0];

}

foreach my $key ($cgi->cookie()) {

my @val = $cgi->cookie($key);

$cookie{$key} = $val[0];

}

#warn Dumper(\%query, \%cookie);

# }}}

foreach (keys(%query)) { # simplify query if they are arrays

$query{$_} = $query{$_}[0] if (ref $query{$_});

Platon Group <platon@platon.org> http://platon.org/


Copyright © 2002-2006 Platon Group Site powered by Metafox CMS	Go to Top