Platon Technologies
not logged in Login Registration
EnglishSlovak
open source software development celebrating 10 years of open source development! Wednesday, October 14, 2026
[BACK] [TXT][DIR] Up to [Platon] / phpWebLogAnalyzer / utils

Diff for phpWebLogAnalyzer/utils/sessions-split.pl between version 1.2 and 1.3

version 1.2, 2001/11/22 14:34:36 version 1.3, 2001/11/22 15:27:03
Line 22  my $i;
Line 22  my $i;
 my $query;  my $query;
 my $max_session_id;  my $max_session_id;
   
   my $total_records;
   my $total_sessions;
   
 my $dbh;  my $dbh;
 my $sth;  my $sth;
   
Line 30  my $sth;
Line 33  my $sth;
 #  #
   
 $dbh = DBI->connect(  $dbh = DBI->connect(
     "dbi:" . $sessions_split_config::db{type}          "dbi:" . $sessions_split_config::db{driver}
     . ":" . $sessions_split_config::db{name},          . ":database=" . $sessions_split_config::db{name}
           . ";host=" . $sessions_split_config::db{host}
           . ";port=" . $sessions_split_config::db{port},
     $sessions_split_config::db{username},      $sessions_split_config::db{username},
     $sessions_split_config::db{password} )      $sessions_split_config::db{password} )
   || die "can't connect to database: $DBI::errstr";    || die "can't connect to database: $DBI::errstr";
Line 83  else {
Line 88  else {
 # Main processing.  # Main processing.
 #  #
   
   $total_records = $total_sessions = 0;
   
 foreach (@ids) {  foreach (@ids) {
     print "Processing ("      print "Processing ("
       . ( $_->{ra_id} ? $_->{ra_id} : 'NULL' ) . ", "        . ( $_->{ra_id} ? $_->{ra_id} : 'NULL' ) . ", "
Line 113  foreach (@ids) {
Line 120  foreach (@ids) {
     die $sth->errstr if $sth->err;      die $sth->errstr if $sth->err;
         pop(@data);          pop(@data);
   
           $total_records += scalar(@data);
     print scalar(@data) . " records, ";      print scalar(@data) . " records, ";
   
     #      #
Line 139  foreach (@ids) {
Line 147  foreach (@ids) {
     }      }
   
     $max_session_id++ if ( scalar(@data) > 0 );      $max_session_id++ if ( scalar(@data) > 0 );
           $total_sessions += $max_session_id - $start_session_id;
   
     print $max_session_id - $start_session_id . " sessions.\n";      print $max_session_id - $start_session_id . " sessions.\n";
 }  }
Line 149  foreach (@ids) {
Line 158  foreach (@ids) {
   
 $dbh->disconnect();  $dbh->disconnect();
   
   #
   # Total statistics print.
   #
   
   print "-" x 60 . "\n";
   print "Total records  = $total_records\n";
   print "Total sessions = $total_sessions\n";
   
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
Platon Group <platon@platon.org> http://platon.org/
Copyright © 2002-2006 Platon Group
Site powered by Metafox CMS 		Go to Top