$srcfile = $file;
$dstfile = "$dstpathname/$file";
+ # Make sure srcdir is group writable
+ if(not -w "$srcdir") {
+ print "-W- srcdir is not group writable, can't move videos out of it: $srcdir\n";
+ next;
+ }
+
# Make sure we have a unique dstfile
if(-f "$dstfile") {
$video_ext = $srcfile;