39 lines
750 B
Perl
Executable File
39 lines
750 B
Perl
Executable File
# !/usr/bin/perl
|
|
# Copy dvd with dvdbackup
|
|
|
|
sub trim {
|
|
my $s = shift;
|
|
$s =~ s/^\s+|\s+$//g;
|
|
return $s
|
|
}
|
|
|
|
sub printHelp {
|
|
print "Usage: $0 [source]
|
|
|
|
source: dvd device to rip from. Default: /dev/cdrom"
|
|
}
|
|
|
|
my $source = "/dev/cdrom";
|
|
if($ARGV[0] eq "help" || $ARGV[0] eq "--help"){
|
|
printHelp;
|
|
exit 0;
|
|
} elsif($ARGV[0]) {
|
|
$source = $ARGV[0];
|
|
}
|
|
|
|
my $dest = "/home/julian/Videos/dvds/";
|
|
my $title = trim `lsdvd /dev/cdrom | grep "Disc Title" | sed 's/Disc Title: //'`;
|
|
|
|
print "Ripping dvd $title ($source) to $dest";
|
|
|
|
my $exitcode = system("dvdbackup -i $source -o $dest -M -n $title");
|
|
# $exitcode >>= 8;
|
|
|
|
if($exitcode == 0) {
|
|
print "Success!";
|
|
}
|
|
|
|
`notify-send "DVD $title ripped successfully!!!"`;
|
|
# `eject $source`;
|
|
|