10 my $db = DBI->connect(undef,undef,undef,{RaiseError=>1,AutoCommit=>0});
12 #$db->do("set client_encoding to 'LATIN1'");
13 my $i = $db->prepare('update newsgroups set description = ? where newsgroup = ?');
17 my ($group, $desc) = split(/\s+/, $_, 2);
18 $i->execute($desc,$group);
23 aaa.inu-chan 0000000000 0000000001 m
24 ab.arnet 0000000000 0000000001 m
25 ab.general 0000000000 0000000001 y
26 ab.jobs 0000000000 0000000001 y
27 ab.politics 0000000000 0000000001 y
28 abg.allgemein 0000000000 0000000001 y
29 abg.amiga 0000000000 0000000001 y
30 abg.comp 0000000000 0000000001 y
31 abg.diskussion 0000000000 0000000001 y
32 abg.english 0000000000 0000000001 y