#
# Permission to use, copy, modify, distribute, and sell this software and its
# documentation for any purpose is hereby granted without fee, provided that
#
# Permission to use, copy, modify, distribute, and sell this software and its
# documentation for any purpose is hereby granted without fee, provided that
"qcam > $tmpfile", # Connectix Qcam
"gqcam -t PPM -d $tmpfile", # GTK+ Qcam clone
"qcam > $tmpfile", # Connectix Qcam
"gqcam -t PPM -d $tmpfile", # GTK+ Qcam clone
"streamer -a -s 768x576 -o $tmpfile", # XawTV
# the "-a" option ("mute audio") arrived with XawTV 3.76.
"streamer -a -s 768x576 -o $tmpfile", # XawTV
# the "-a" option ("mute audio") arrived with XawTV 3.76.
foreach my $dir (split (/:/, $ENV{PATH})) {
print STDERR "$progname: checking $dir/$name\n" if ($verbose > 3);
if (-x "$dir/$name") {
foreach my $dir (split (/:/, $ENV{PATH})) {
print STDERR "$progname: checking $dir/$name\n" if ($verbose > 3);
if (-x "$dir/$name") {
my $reader = "<$tmpfile";
# horrid kludge for SGIs, since they don't use PPM...
my $reader = "<$tmpfile";
# horrid kludge for SGIs, since they don't use PPM...