Platon Technologies
neprihlásený Prihlásiť Registrácia
SlovakEnglish
open source software development oslavujeme 10 rokov vývoja otvoreného softvéru! Pondelok, 19. október 2026
[BACK] [TXT][DIR] Vyššie na [Platon] / scripts / perl / accounting

Rozdiely pre scripts/perl/accounting/netacct-stats.cgi medzi verziami 1.1 a 1.2

verzia 1.1, 2005/03/15 23:16:37 verzia 1.2, 2005/03/26 13:29:05
Riadok 12 
Riadok 12 
 # 2005-03-14 - created  # 2005-03-14 - created
 #  #
   
 # $Platon$  # $Platon: scripts/perl/accounting/netacct-stats.cgi,v 1.1 2005/03/15 23:16:37 rajo Exp $
   
 use strict;  use strict;
 umask 002;  umask 002;
Riadok 75  $admin    = Platon::MySQL::Admin->new($db,
Riadok 75  $admin    = Platon::MySQL::Admin->new($db,
                 table   => 'net_acct_config',                  table   => 'net_acct_config',
                 primary_key_name        => 'config_id',                  primary_key_name        => 'config_id',
                 select_columns          => [ qw(                  select_columns          => [ qw(
                           config_id
                         config_order config_description ip_proto                          config_order config_description ip_proto
                         source_ip source_port                          source_ip source_port
                         dest_ip dest_port                          dest_ip dest_port
Riadok 113  if (defined $query{newtemplate} and  $qu
Riadok 114  if (defined $query{newtemplate} and  $qu
         $query{template} = $query{newtemplate};          $query{template} = $query{newtemplate};
 }  }
   
   if ($query{template} eq 'netacct/edit' or $query{template} eq 'netacct/new') { # {{{
           if (defined($query{store}) and $query{store} eq 'yes') {
                   # vyhodime zbytocne medzery etc.
                   $query{config_description}              =~ s/^\s+//g;
                   $query{config_description}              =~ s/\s+$//g;
                   $query{config_description}              =~ s/\s+/ /g;
   
                   if ($query{template} eq 'netacct/edit') {
                           $template_data->{changed_rows} = $admin->update_record(\%query);
                   }
                   else {
                           $template_data->{new_id} = $admin->create_record(\%query);
                   }
                   $query{template} = 'netacct/config';
           }
           else {
                   $template_data->{data}  = $admin->get_record($query{config_id}) if (defined $query{config_id});
           }
   } # }}}
   
 if ($query{template} eq 'netacct/config') {  if ($query{template} eq 'netacct/config') {
         $template_data->{data} = $admin->get_data();          $template_data->{data} = $admin->get_data();
 }  }
Legend:
Odstranené z verzie1.1  
zmenené riadky
  Pridané vo verzii1.2
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