chiark
/
gitweb
/
~ian
/
nj-awaymsg.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
wip
[nj-awaymsg.git]
/
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();