Annotation of db/prgsrc/deletefiles.pl, revision 1.1
1.1 ! boris 1: #!/usr/local/bin/perl -w
! 2:
! 3: =head1 NAME
! 4:
! 5: deletefiles.pl - a script for deleting files form the database
! 6:
! 7: =head1 SYNOPSIS
! 8:
! 9: deletefiles.pl [B<-y>|B<-n>] file file file...
! 10:
! 11:
! 12: =head1 DESCRIPTION
! 13:
! 14: The script will delete all questions with the given file name(s) from the
! 15: database
! 16:
! 17: =head1 OPTIONS
! 18:
! 19:
! 20: =item B<-y>
! 21:
! 22: Answer 'yes' to all questions
! 23:
! 24: =item B<-n>
! 25:
! 26: Answer 'no' to all questions
! 27:
! 28:
! 29: =head1 BUGS
! 30:
! 31: The database, user and password are hardcoded.
! 32:
! 33: =head1 SEE ALSO
! 34:
! 35: createindex.pl(1)
! 36:
! 37: =head1 AUTHOR
! 38:
! 39: Boris Veytsman
! 40:
! 41: =head1 $Id: updateindex.pl,v 1.7 2000/11/11 00:35:39 boris Exp $
! 42:
! 43: =cut
! 44:
! 45: use strict;
! 46: use vars qw($opt_h $opt_y $opt_n);
! 47:
! 48: use Getopt::Std;
! 49: use DBI;
! 50:
! 51: MAIN:
! 52: {
! 53: my $USAGE="Usage: deletefiles.pl [-y|-n][-r] file file file...\n";
! 54: getopts('ynh') or die $USAGE;
! 55: if ($opt_h) {
! 56: print $USAGE;
! 57: exit 0;
! 58: }
! 59: my $decision='askuser';
! 60: if ($opt_y) {
! 61: $decision = 'yes';
! 62: }
! 63: if ($opt_n ) {
! 64: $decision = 'no';
! 65: }
! 66: my($dbh) = DBI->connect("DBI:mysql:chgk", "piataev", "")
! 67: or die "Can't connect to DB chgk\n";
! 68:
! 69: }
! 70:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>