- Addition: added new "cvs.module" to display and mail drupal's

  CVS log messages.  Our additional Perl script that hooks into
  the CVS repository is also provided in ./scripts.  Requires a
  SQL update, see 2.00-to-x.xx.sql.

1 files changed, 17 insertions, 0 deletions

diff --git a/scripts/cvs-to-sql.pl b/scripts/cvs-to-sql.pl
new file mode 100644
index 000000000..355d22739
--- /dev/null
+++ b/scripts/cvs-to-sql.pl
@@ -0,0 +1,17 @@
+#!/usr/bin/perl -w
+
+use DBI;
+
+my $db_name = 'drupal';
+my $db_user = 'drupal';
+my $db_pass = 'drupal';
+
+my $files = $ARGV[0];
+my @message = <STDIN>;
+my $message = join '' , @message;
+my $user = $ENV{USER};
+my $timestamp = time();
+
+my $db = DBI->connect("DBI:mysql:$db_name", "$db_user", "$db_pass") or die "Couldn't connect to database: " . DBI->errstr;
+$db->do("INSERT INTO cvs (user, files, message, timestamp) VALUES (". $db->quote($user) .", ". $db->quote($files) .", ". $db->quote($message) .", ". $db->quote($timestamp) .")") or die "Couldn't execute query: " . $db->errstr;
+$db->disconnect();