X-Git-Url: http://git.pippins.net/embedvideo/.git/?a=blobdiff_plain;f=make_home_videos.pl;h=69631756b5219137b1f669f9036f5f6c748cad6f;hb=d7f4b21428b928d9a166c67d2ae6a0dbeec35e9a;hp=a35a983968ed8c032487bec607fe6284bb8d8c3a;hpb=c557492f3e191e64e0a2737152e4c77a35476e1a;p=videoscripts%2F.git

diff --git a/make_home_videos.pl b/make_home_videos.pl
index a35a983..6963175 100755
--- a/make_home_videos.pl
+++ b/make_home_videos.pl
@@ -6,6 +6,7 @@
 # 2) mencoder  : http://www.mplayerhq.hu/homepage/design7/dload.html
 # 3) transcode : vi sources.list; deb ftp://ftp.nerim.net/debian-marillat sarge main
 #                apt-get install transcode
+# 4) avimerge  : apt-get install transcode-utils
 
 use Getopt::Std;
 
@@ -21,7 +22,7 @@ $encoded_dir = "xvid_clips";
 $merge_dir = "daily_clips";
 $default_tape_name = "home_video";
 $playlist_extension = "pls";
-$dvgrab = "/usr/local/bin/dvgrab";
+$dvgrab = "/usr/bin/dvgrab";
 $mencoder = "/usr/bin/mencoder";
 $mplayer = "/usr/bin/mplayer";
 $avimerge = "/usr/bin/avimerge";
@@ -34,8 +35,10 @@ $max_dv_clip_size_in_mb = "1023"; #I had to keep it at this size to avoid errors
 #$max_dv_clip_size_in_mb = "22000"; #avisplit still doesn't seem to do things right for large clips
 # max_tape_grab_time=7200 Allows Max time of 2 hours to allow a tape to be dumped (good for 90 min tape)
 # max_tape_grab_time=5400 Allows Max time of 1.5 hours to allow a tape to be dumped (good for 60 min tape)
-$max_tape_grab_time = 5400;
-$dvgrab_options = "--autosplit --timestamp --format dv2 --opendml --buffers 500";
+$max_tape_grab_time = 7200;
+#$dvgrab_options = "--autosplit --timestamp --format dv2 --opendml --buffers 2048 --rewind";
+#$dvgrab_options = "-autosplit -timestamp -format dv2 -opendml -buffers 2048 -rewind";
+$dvgrab_options = "-autosplit -timestamp -format dv2 -opendml -rewind";
 $encode_options_pass1 = "-mc 0 -oac mp3lame -lameopts cbr:cbr=128 -ffourcc XVID -fps 29.97 -ovc lavc ";
 $encode_options_pass1.= "-lavcopts vcodec=mpeg4:vhq:vbitrate=$bitrate:keyint=15:vpass=1 -vf pp=ci";
 $encode_options_pass2 = "-mc 0 -oac mp3lame -lameopts cbr:cbr=128 -ffourcc XVID -fps 29.97 -ovc lavc ";
@@ -172,6 +175,14 @@ sub capture_videos {
     alarm(0);
     sleep 5; # Give some time to catch an interrupt if needed
     print "-> Done grabbing video from camera\n\n";
+
+    # Now see if we need to add a ".avi" extension to the video files dvgrab created
+    opendir(VIDEODIR, $video_directory) or die "-E- Could not open: $video_directory";
+    my @all_files = readdir VIDEODIR;
+    closedir(VIDEODIR);
+    foreach $file (@all_files) {
+      if(($file =~ /$opt_n/) && ($file !~ /$opt_n.*?\.avi/)) { rename("$file","$file.avi"); }
+    }
 }
 
 sub encode_videos {