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

Vyššie na [Platon] / vimconfig / vim / templates

Rozdiely pre vimconfig/vim/templates/skel.fcgi medzi verziami 1.2 a 1.3

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

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

Riadok 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;

Riadok 34 use Template::Exception;

Riadok 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

Riadok 68 $database = 'my_database';

Riadok 70 $database = 'my_database';

$db_user = 'my_user';

$db_password = 'my_secret_pass';

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

$req = FCGI::Request();

$template = Template->new({

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

Riadok 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.sk> http://platon.sk/


Copyright © 2002-2006 Platon Group Stránka používa redakčný systém Metafox	Na začiatok