diff options
author | Kjartan Mannes <kjartan@2.no-reply.drupal.org> | 2002-04-13 22:34:20 +0000 |
---|---|---|
committer | Kjartan Mannes <kjartan@2.no-reply.drupal.org> | 2002-04-13 22:34:20 +0000 |
commit | 3ffe07f57c6fd177e2693d1e4b60178644036a4b (patch) | |
tree | 8ab2323ac13f2843a43519add728fb902db51a90 /scripts | |
parent | 933fd5e7fdcedf8309f57b35731cd66c15734d5b (diff) | |
download | brdo-3ffe07f57c6fd177e2693d1e4b60178644036a4b.tar.gz brdo-3ffe07f57c6fd177e2693d1e4b60178644036a4b.tar.bz2 |
- moving cvs-to-sql to contrib.
Diffstat (limited to 'scripts')
-rw-r--r-- | scripts/cvs-to-sql.pl | 17 |
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(); |