/[irc-logger]/trunk/bin/irc-logger.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/bin/irc-logger.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 68 by dpavlin, Sat Sep 29 14:11:55 2007 UTC revision 69 by dpavlin, Fri Dec 7 12:51:55 2007 UTC
# Line 308  sub get_from_log { Line 308  sub get_from_log {
308          #warn "### sql: $sql ", dump( @args );          #warn "### sql: $sql ", dump( @args );
309    
310          my $sth = $dbh->prepare( $sql );          my $sth = $dbh->prepare( $sql );
311          $sth->execute( @args );          eval { $sth->execute( @args ) };
312            return if $@;
313    
314          my $last_row = {          my $last_row = {
315                  date => '',                  date => '',
# Line 509  sub save_message { Line 510  sub save_message {
510  if ($import_dircproxy) {  if ($import_dircproxy) {
511          open(my $l, $import_dircproxy) || die "can't open $import_dircproxy: $!";          open(my $l, $import_dircproxy) || die "can't open $import_dircproxy: $!";
512          warn "importing $import_dircproxy...\n";          warn "importing $import_dircproxy...\n";
513          my $tz_offset = 2 * 60 * 60;    # TZ GMT+2          my $tz_offset = 1 * 60 * 60;    # TZ GMT+2
514          while(<$l>) {          while(<$l>) {
515                  chomp;                  chomp;
516                  if (/^@(\d+)\s(\S+)\s(.+)$/) {                  if (/^@(\d+)\s(\S+)\s(.+)$/) {

Legend:
Removed from v.68  
changed lines
  Added in v.69

  ViewVC Help
Powered by ViewVC 1.1.26