projects
/
xscreensaver
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
ftp://ftp.jp.xemacs.org/pub/NetBSD/packages/distfiles/xscreensaver-4.15.tar.gz
[xscreensaver]
/
driver
/
xscreensaver-getimage-desktop
diff --git
a/driver/xscreensaver-getimage-desktop
b/driver/xscreensaver-getimage-desktop
index f7d9e7650aa371aaf5bd049dfa95f330099246ac..40c6173cbc46a6c6a45b8e5891413c2642b5477a 100755
(executable)
--- a/
driver/xscreensaver-getimage-desktop
+++ b/
driver/xscreensaver-getimage-desktop
@@
-34,7
+34,7
@@
use diagnostics;
use strict;
my $progname = $0; $progname =~ s@.*/@@g;
use strict;
my $progname = $0; $progname =~ s@.*/@@g;
-my $version = q{ $Revision: 1.
1
$ }; $version =~ s/^[^0-9]+([0-9.]+).*$/$1/;
+my $version = q{ $Revision: 1.
2
$ }; $version =~ s/^[^0-9]+([0-9.]+).*$/$1/;
my @grabber = ("screencapture", "-x");
my @converter = ("pdf2jpeg");
my @grabber = ("screencapture", "-x");
my @converter = ("pdf2jpeg");
@@
-81,7
+81,7
@@
sub grab_image {
my $tmpdir = $ENV{TMPDIR};
$tmpdir = "/tmp" unless $tmpdir;
my $tmpdir = $ENV{TMPDIR};
$tmpdir = "/tmp" unless $tmpdir;
- my $tmpfile =
"$tmpdir/xssgrab.$$.pdf"
;
+ my $tmpfile =
sprintf ("%s/xssgrab.%08x.pdf", $tmpdir, rand(0xffffffff))
;
my @cmd = (@grabber, $tmpfile);
unlink $tmpfile;
my @cmd = (@grabber, $tmpfile);
unlink $tmpfile;