Changeset 672 in MondoRescue for trunk/tools/mkannounce.pl

Timestamp:

Jun 12, 2006, 9:55:14 AM (18 years ago)

Author:

bcornec

Message:

merge -r651:671 $SVN_M/branches/stable

File:

• trunk/tools/mkannounce.pl (modified) (2 diffs)

trunk/tools/mkannounce.pl

@@ -28 +28 @@
     }
 
-my $db="$TOOLHOME/../website/announces.sql";
+my $db="$TOOLHOME/../website/announces3.sql";
 
 my $dbh = DBI->connect("dbi:SQLite:dbname=$db","","",
@@ -40 +40 @@
 open(ANNOUNCE,$ARGV[0]) || die "Unable to open $ARGV[0] (read)";
 my $announce = <ANNOUNCE>;
-$announce =~ s/\"/\"\"/g;
+#$announce =~ s/\"/\"\"/g;
+#$announce =~ s/!//g;
 close(ANNOUNCE);
 
 print "INSERT INTO announces VALUES (NULL, $date, $announce)\n";
-#$dbh->do("INSERT INTO announces VALUES (NULL, $date, $announce)") 
+my $sth = $dbh->prepare(qq{INSERT INTO announces VALUES (NULL,?,?)}) 
+        || die "Unable to insert into $db";
+$sth->execute($date, $announce);
+#$dbh->do(qq(INSERT INTO announces VALUES (NULL, '$date', '$announce'))) 
 #|| die "Unable to insert into $db";
+
 $dbh->disconnect;