Changeset 659 in MondoRescue for branches/stable/tools/mkannounce.pl

Timestamp:

Jun 9, 2006, 10:33:24 AM (18 years ago)

Author:

bcornec

Message:

changelog are now generated from mindi's and mondo's main ChangeLog files
new tool to create automatically announces for new version-tag
news.shtml and latest-news.html are now generated from a DB of announce (SQLite)
announce DB added (SQLite v3)
Build process improved for Debian

File:

• branches/stable/tools/mkannounce.pl (modified) (2 diffs)

branches/stable/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;