Platon Technologies
not logged in Login Registration
EnglishSlovak
open source software development celebrating 10 years of open source development! Friday, October 16, 2026
[BACK] [TXT][DIR] Up to [Platon] / web-apps / fastcgi-gallery

Diff for web-apps/fastcgi-gallery/index.fcgi between version 1.8 and 1.9

version 1.8, 2006/01/25 15:19:21 version 1.9, 2006/03/24 17:34:16
Line 29  $DEBUG        = 0 unless defined $DEBUG;
Line 29  $DEBUG        = 0 unless defined $DEBUG;
 umask 022;  umask 022;
   
 use FCGI;  use FCGI;
 use CGI;  use CGI qw(-compile param cookie url_encode);
 use CGI::Lite;  
 use Template;  use Template;
 use Time::HiRes qw(gettimeofday tv_interval);  use Time::HiRes qw(gettimeofday tv_interval);
 use POSIX qw(strftime);  use POSIX qw(strftime);
Line 46  use templates;
Line 45  use templates;
 use gallery;  use gallery;
   
 use vars qw (  use vars qw (
         $cgi $req $config $restart $template $db @languages          $req $config $restart $template $db @languages
         $gallery $gallery_config $gallery_data $gallery_cache_time $gallery_cache          $gallery $gallery_config $gallery_data $gallery_cache_time $gallery_cache
         @messages          @messages
         $lang_hash          $lang_hash
Line 65  sub MyPage($$;);
Line 64  sub MyPage($$;);
 sub send_content($;);  sub send_content($;);
 sub cur_date();  sub cur_date();
   
 $cgi = CGI::Lite->new();  
 $req = FCGI::Request();  $req = FCGI::Request();
 $config  = config->new();  $config  = config->new();
 $restart = Platon::FastCGI::Restart->new({  $restart = Platon::FastCGI::Restart->new({
Line 134  $restart->add_files(
Line 132  $restart->add_files(
         '_modules/obfuscator.pm');          '_modules/obfuscator.pm');
 while ( $config->run() && ($req->Accept() >= 0) ) {  while ( $config->run() && ($req->Accept() >= 0) ) {
   
         my %query;  
         my %cookie;          my %cookie;
           my %query;
   
         @messages = ();          @messages = ();
         $in_reply       = 0;          $in_reply       = 0;
Line 143  while ( $config->run() && ($req->Accept(
Line 141  while ( $config->run() && ($req->Accept(
         $start_time = Time::HiRes::gettimeofday;          $start_time = Time::HiRes::gettimeofday;
         my $cache_time = int($start_time / $gallery_cache_time);          my $cache_time = int($start_time / $gallery_cache_time);
   
         %query = $cgi->parse_new_form_data();          #
         %cookie = $cgi->parse_cookies();          # Parse query and cookies
           # {{{
         foreach (keys(%query)) { # simplify query if they are arrays          CGI::_reset_globals;
                 $query{$_} = $query{$_}[0] if (ref $query{$_});          my $cgi = CGI->new();
         }  
         foreach (keys(%cookie)) { # simplify cookies if they are arrays          foreach my $key ($cgi->param()) {
                 $cookie{$_} = $cookie{$_}[0] if (ref $cookie{$_});                  my @val = $cgi->param($key);
         }                  #$query{$key} = scalar(@val) > 1 ? \@val : $val[0];
                   $query{$key} = $val[0];
           }
   
           foreach my $key ($cgi->cookie()) {
                   my @val = $cgi->cookie($key);
                   $cookie{$key} = $val[0];
           }
           #warn Dumper(\%query, \%cookie);
           # }}}
   
         if (!defined($query{page}) or $query{page} !~ m/^\d{1,4}$/) {          if (!defined($query{page}) or $query{page} !~ m/^\d{1,4}$/) {
                 $query{page} = 0;                  $query{page} = 0;
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
Platon Group <platon@platon.org> http://platon.org/
Copyright © 2002-2006 Platon Group
Site powered by Metafox CMS 		Go to Top