X-Git-Url: http://git.hungrycats.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=driver%2Fxscreensaver-getimage-video;h=cc8d99d3545196cf590d16c91d8398d6805cddb7;hb=2762a7d7cf8d83e68b8f635941f6609119d630ae;hp=d35d0ca730476ead33a91473f070235d47e1fd26;hpb=96a411663168b0ba5432b407a83be55f3df0c802;p=xscreensaver diff --git a/driver/xscreensaver-getimage-video b/driver/xscreensaver-getimage-video index d35d0ca7..cc8d99d3 100755 --- a/driver/xscreensaver-getimage-video +++ b/driver/xscreensaver-getimage-video @@ -1,5 +1,5 @@ #!/usr/bin/perl -w -# Copyright © 2001, 2002, 2003 Jamie Zawinski . +# Copyright © 2001-2013 Jamie Zawinski . # # Permission to use, copy, modify, distribute, and sell this software and its # documentation for any purpose is hereby granted without fee, provided that @@ -18,65 +18,71 @@ # "jigsaw", etc.) get the image to manipulate by running the # "xscreensaver-getimage" program. # -# "xscreensaver-getimage" will invoke this program, depending on the -# value of the "grabVideoFrames" setting in the ~/.xscreensaver file -# (or in /usr/lib/X11/app-defaults/XScreenSaver). +# The various screen savers invoke "xscreensaver-getimage", which will in +# turn invoke this program, depending on the value of the "grabVideoFrames" +# setting in the ~/.xscreensaver file (or in the app-defaults file, usually +# /usr/lib/X11/app-defaults/XScreenSaver). # -# Created: 13-Apr-01. +# Created: 13-Apr-2001. require 5; -use diagnostics; +#use diagnostics; # Fails on some MacOS 10.5 systems use strict; my $progname = $0; $progname =~ s@.*/@@g; -my $version = q{ $Revision: 1.12 $ }; $version =~ s/^[^0-9]+([0-9.]+).*$/$1/; +my $version = q{ $Revision: 1.22 $ }; $version =~ s/^[^0-9]+([0-9.]+).*$/$1/; + +my $tmpdir = $ENV{TMPDIR} || "/tmp"; +my $tmpfile = sprintf("%s/xssv.%08x.ppm", $tmpdir, rand(0xFFFFFFFF)); my $verbose = 0; + # These are programs that can be used to grab a video frame. The first one # of these programs that exists on $PATH will be used, and the image file -# is assumed to be written to stdout (in some image format acceptable to +# is assumed to be written to $tmpfile (in some image format acceptable to # "xscreensaver-getimage-file", e.g., PPM or JPEG.) # # If you add other programs to this list, please let me know! # - -my $tmpdir = $ENV{TMPDIR}; -$tmpdir = "/tmp" unless $tmpdir; - -my $tmpfile = "$tmpdir/xssgv.$$.ppm"; - -# this crap is because "vidtomem" can only write to a file, and uses -# a stupid, non-overridable file name format. -my $sgi_bogosity = "$tmpfile-00000.rgb"; - my @programs = ( "bttvgrab -d q -Q -l 1 -o ppm -f $tmpfile", # BTTV "qcam > $tmpfile", # Connectix Qcam "gqcam -t PPM -d $tmpfile", # GTK+ Qcam clone - "streamer -s 768x576 -o $tmpfile", # XawTV + + "v4lctl snap ppm full $tmpfile", # XawTV 3.94. + + "streamer -a -s 768x576 -o $tmpfile", # XawTV + # the "-a" option ("mute audio") arrived with XawTV 3.76. + "atitv snap $tmpfile", # ATI video capture card - "grab -type ppm -format ntsc -source 1 " . - "-settle 0.75 -output $tmpfile", # *BSD BT848 module + "grab -type ppm -format ntsc -source 1 " . # *BSD BT848 module + "-settle 0.75 -output $tmpfile", - "motioneye -j $tmpfile", # Sony Vaio MotionEye + "motioneye -j $tmpfile", # Sony Vaio MotionEye # (hardware jpeg encoder) - "vidtomem -f $tmpfile 2>&- && mv $sgi_bogosity $tmpfile", # Silicon Graphics + "vidcat -b -f ppm -s 640x480 > $tmpfile 2>-", # w3cam/ovcam + + "vidtomem -f $tmpfile 2>&- " . # Silicon Graphics + "&& mv $tmpfile-00000.rgb $tmpfile", + + # "mplayer -really-quiet tv://0 " . # Maybe works with some cams? + # "-ao null -vo pnm -frames 1 2>&- " . + # "&& mv 00000001.ppm $tmpfile", + ); -sub error { - ($_) = @_; - print STDERR "$progname: $_\n"; +sub error($) { + my ($e) = @_; + print STDERR "$progname: $e\n"; exit 1; } -my $displayer = undef; - -sub pick_grabber { +sub pick_grabber() { my @names = (); foreach my $cmd (@programs) { @@ -87,86 +93,47 @@ sub pick_grabber { foreach my $dir (split (/:/, $ENV{PATH})) { print STDERR "$progname: checking $dir/$name\n" if ($verbose > 3); if (-x "$dir/$name") { - $displayer = $name; return $cmd; } } } $names[$#names] = "or " . $names[$#names]; - error "none of: " . join (", ", @names) . " were found on \$PATH."; + error ("none of: " . join (", ", @names) . " were found on \$PATH."); } -my $use_stdout_p = 0; -my $return_filename_p = 0; - -sub grab_image { +sub grab_image() { my $cmd = pick_grabber(); unlink $tmpfile; print STDERR "$progname: executing \"$cmd\"\n" if ($verbose); system ($cmd); - if (-z $tmpfile) - { - unlink $tmpfile; - error "\"$cmd\" produced no data."; - } - - if ($return_filename_p) { - print STDERR "$progname: wrote \"$tmpfile\"\n" if ($verbose); - print STDOUT "$tmpfile\n"; - - } elsif ($use_stdout_p) { - local *IN; - my $ppm = ""; - my $reader = "<$tmpfile"; - - # horrid kludge for SGIs, since they don't use PPM... - if ($displayer eq "vidtomem") { - $reader = "sgitopnm $tmpfile"; - $reader .= " 2>/dev/null" if ($verbose <= 1); - $reader .= " |"; - } - - open(IN, $reader) || error "reading $tmpfile: $!"; - print STDERR "$progname: reading $tmpfile\n" if ($verbose > 1); - while () { $ppm .= $_; } - close IN; - unlink $tmpfile; - print STDOUT $ppm; - - } else { - - $cmd = "xscreensaver-getimage-file"; - $cmd .= " --verbose" if ($verbose); - $cmd .= " $tmpfile"; - - print STDERR "$progname: executing \"$cmd\"\n" if ($verbose); - system ($cmd); - + if (! -s $tmpfile) { unlink $tmpfile; + error ("\"$cmd\" produced no data."); } + + print STDERR "$progname: wrote \"$tmpfile\"\n" if ($verbose); + print STDOUT "$tmpfile\n"; } -sub usage { +sub usage() { print STDERR "usage: $progname [--verbose] [--name | --stdout]\n"; exit 1; } -sub main { +sub main() { while ($_ = $ARGV[0]) { shift @ARGV; - if ($_ eq "--verbose") { $verbose++; } - elsif (m/^-v+$/) { $verbose += length($_)-1; } - elsif (m/^--?stdout$/) { $use_stdout_p = 1; } - elsif (m/^--?name$/) { $return_filename_p = 1; } - elsif (m/^-./) { usage; } - else { usage; } + if (m/^--?verbose$/s) { $verbose++; } + elsif (m/^-v+$/s) { $verbose += length($_)-1; } + elsif (m/^--?name$/s) { } # ignored, for compatibility + elsif (m/^-./) { usage; } + else { usage; } } - grab_image(); }