http://www.jwz.org/xscreensaver/xscreensaver-5.11.tar.gz

[xscreensaver] / driver / xscreensaver-getimage-video

diff --git a/driver/xscreensaver-getimage-video b/driver/xscreensaver-getimage-video
index 6b9c1408ea87f94a661061caae1ea666ffc0eccb..6afd76112a13caf4245a7a3d17059ebbd52dbd41 100755 (executable)
--- a/driver/xscreensaver-getimage-video
+++ b/driver/xscreensaver-getimage-video
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -w
-# Copyright © 2001-2007 Jamie Zawinski <jwz@jwz.org>.
+# Copyright © 2001-2010 Jamie Zawinski <jwz@jwz.org>.
 #
 # Permission to use, copy, modify, distribute, and sell this software and its
 # documentation for any purpose is hereby granted without fee, provided that
@@ -25,11 +25,11 @@
 # 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.17 $ }; $version =~ s/^[^0-9]+([0-9.]+).*$/$1/;
+my $version  = q{ $Revision: 1.19 $ }; $version =~ s/^[^0-9]+([0-9.]+).*$/$1/;
 
 my $tmpdir   = $ENV{TMPDIR} || "/tmp";
 my $tmpfile  = sprintf("%s/xssv.%08x.ppm", $tmpdir, rand(0xFFFFFFFF));
@@ -69,6 +69,9 @@ my @programs = (
 
   "vidtomem -f $tmpfile 2>&- " .               # Silicon Graphics
        "&& mv $tmpfile-00000.rgb $tmpfile",
+
+  # "mplayer tv:// -vo pnm -frames 1 2>&- " .  # Maybe works with some cams?
+  #    "&& mv 00000001.ppm $tmpfile",
 );