update-config

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4
   5 use AwayMsg;
   6
   7 db_connect();
   8
   9 $dbh->do("BEGIN");
  10
  11 $dbh->do("DELETE FROM config");
  12
  13 my $sth= $dbh->prepare("INSERT INTO config".
  14                        " (emailaddr, username, forwardfile)".
  15                        " VALUES (?,?,?)");
  16
  17 open C, "config" or die $!;
  18 while (<C>) {
  19     s/^\s+//;
  20     next if m/^\#/;
  21     chomp or die;
  22     s/\s+$//;
  23     my @s = split;
  24     die "$_ ?" unless @s==3;
  25     $sth->execute(@s);
  26 }
  27
  28 db_commit();