summaryrefslogtreecommitdiff
path: root/scripts/cvs-to-sql.pl
diff options
context:
space:
mode:
Diffstat (limited to 'scripts/cvs-to-sql.pl')
-rw-r--r--scripts/cvs-to-sql.pl17
1 files changed, 0 insertions, 17 deletions
diff --git a/scripts/cvs-to-sql.pl b/scripts/cvs-to-sql.pl
deleted file mode 100644
index e957008fb..000000000
--- a/scripts/cvs-to-sql.pl
+++ /dev/null
@@ -1,17 +0,0 @@
-#!/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 = $ARGV[1];
-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();