mdb
a2b39da0ad
git-svn-id: https://samskivert.googlecode.com/svn/trunk@615 6335cc39-0255-0410-8fd6-9bcaacd3b74c
28 lines
798 B
Perl
Executable File
28 lines
798 B
Perl
Executable File
#!/usr/bin/perl -w
|
|
#
|
|
# $Id: delete,v 1.1 2002/03/03 04:56:43 mdb Exp $
|
|
#
|
|
# Deletes an entry from the repository. Must be run on the machine that
|
|
# hosts the repository so that it can delete the files.
|
|
|
|
my $usage = "Usage: $0 repodir db_username db_password entryid\n";
|
|
|
|
my $repodir = shift or die $usage;
|
|
my $username = shift or die $usage;
|
|
my $password = shift or die $usage;
|
|
my $entryid = shift or die $usage;
|
|
|
|
if (! -d $repodir) {
|
|
die "'$repodir' not a valid repository directory.\n";
|
|
}
|
|
|
|
invoke_sql("delete from entries where entryid=$entryid");
|
|
invoke_sql("delete from songs where entryid=$entryid");
|
|
system("rm -rf $repodir/*/$entryid");
|
|
|
|
sub invoke_sql {
|
|
my ($sql) = @_;
|
|
system("mysql -u $username -p$password -e \"$sql\" robodj") == 0
|
|
or die "Error invoking 'mysql'.";
|
|
}
|