Parent Directory | Revision Log | Patch
revision 319 by dpavlin, Mon Jan 30 14:58:46 2006 UTC | revision 321 by dpavlin, Mon Jan 30 15:16:45 2006 UTC | |
---|---|---|
# | Line 278 sub delete_dvd($) { | Line 278 sub delete_dvd($) { |
278 | ||
279 | # remove files for this DVD | # remove files for this DVD |
280 | map { | map { |
281 | print "\tremoving $_\n"; | if (-d $_) { |
282 | unlink($_) || die "can't rm $_: $!"; | print "\tremoving dir $_\n"; |
283 | rmtree($_) || die "can't rmtree $_: $!"; | |
284 | } else { | |
285 | print "\tremoving $_\n"; | |
286 | unlink($_) || die "can't rm $_: $!"; | |
287 | } | |
288 | } glob ( "/$iso_dir/$dvd_nr.*" ); | } glob ( "/$iso_dir/$dvd_nr.*" ); |
289 | ||
290 | $dbh->commit; | $dbh->commit; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |