first commit

rip_dvd.pl

@@ -0,0 +1,38 @@
+# !/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`;
+