![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to deletefiles.pl CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Local Repository] / db / prgsrc|
Return to deletefiles.pl CVS log | Up to [Local Repository] / db / prgsrc |
| version 1.3, 2001/07/28 21:19:06 | version 1.4, 2001/07/28 21:21:29 |
|---|---|
| Line 38 use DBI; | Line 38 use DBI; |
| MAIN: | MAIN: |
| { | { |
| my $USAGE="Usage: deletefiles.pl [-y|-n] file file file...\n"; | my $USAGE="Usage: deletefiles.pl file file file...\n"; |
| my($dbh) = DBI->connect("DBI:mysql:chgk", "piataev", "") | my($dbh) = DBI->connect("DBI:mysql:chgk", "piataev", "") |
| or die "Can't connect to DB chgk\n"; | or die "Can't connect to DB chgk\n"; |
| foreach my $file (@ARGV) { | foreach my $file (@ARGV) { |