| | |
| | | # 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: |
| | |
| | | } |
| | | |
| | | # 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; |
| | |
| | | |
| | | # 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) ) { |
| | |
| | | %tracker = (); |
| | | } |
| | | alarm $DBI_DUMP; |
| | | }; |
| | | if ($@) { |
| | | print "Unable to store vlogger data in database\n"; |
| | | } |
| | | } |
| | | |
| | | # print usage info |