- Fixed: FS#2502 - Problem in web traffic accounting for large integers - A...

tbrehm

2012-10-25 edaa7c5d66ef52eec1c15f79ae4034fc3e67b9b7

 server/scripts/vlogger

@@ -28,6 +28,7 @@
# 1.1   bugfix release
# 1.2   support for mod_logio
# 1.3   various contributed bugfixes
# 1.3ISPconfig1 This local version has been modified for ISPConfig. Namely: "Added better error handling to vlogger script in case the MySQL database connection is not available."
#
# 
# TODO:
@@ -170,9 +171,9 @@
# log directory
my $LOGDIR;
if ( $ARGV[0] ) {
    if ( !-d $ARGV[0] ) {
    if ( !-d $ARGV[0] || -l $ARGV[0]) {
        print STDERR
          "[vlogger] target directory $ARGV[0] does not exist - exiting.\n\n";
          "[vlogger] target directory $ARGV[0] does not exist or is a symlink - exiting.\n\n";
        exit;
    }
    $LOGDIR = $ARGV[0];
@@ -252,9 +253,14 @@
    }

    # test the connection
    my $dbh = DBI->connect( $DBI_DSN, $DBI_USER, $DBI_PASS )
      or die "DBI Error: $!";
    $dbh->disconnect;
   eval {
      my $dbh = DBI->connect( $DBI_DSN, $DBI_USER, $DBI_PASS )
        or die "DBI Error: $!";
      $dbh->disconnect;
   };
   if ($@) {
       print "MySQL Connection problem\n";
    }

    # SIGALRM dumps the tracker hash
    $SIG{ALRM} = \&dump_tracker;
@@ -423,6 +429,11 @@
            unless ( -d "${vhost}" ) {
                mkdir("${vhost}");
            }
			
         # Dont log to symlinks
         if( -l "${vhost}/".time2str( $TEMPLATE, time() ) ) {
            die("Log target is a symlink: $LOGDIR/${vhost}/".time2str( $TEMPLATE, time() ));
         }

            # open the file using the template
            open $vhost, ">>${vhost}/" . time2str( $TEMPLATE, time() )
@@ -503,7 +514,8 @@

# sub to update the database with the tracker data
sub dump_tracker {
    if ( keys(%tracker) > 0 ) {
    eval {
   if ( keys(%tracker) > 0 ) {
        my $dbh = DBI->connect( $DBI_DSN, $DBI_USER, $DBI_PASS )
          or warn "DBI Error: $!";
        foreach my $key ( keys(%tracker) ) {
@@ -529,6 +541,10 @@
        %tracker = ();
    }
    alarm $DBI_DUMP;
   };
    if ($@) {
        print "Unable to store vlogger data in database\n";
    }
}

# print usage info