in reply to
Re: Webcam 0.2
in thread Webcam 0.2
Dayum, that's alot of code. I wrote a piece of cam-like software today. I have found a program that works astonishingly well (gqcam) on my linux box. The only problem being that it doesn't auto upload. So, I took it upon myself to write some code for it:
#!/usr/bin/perl -w
use Net::FTP;
my $hostname;
my $username;
my $password;
my $boink;
my $directory;
my $filename;
my $ftp;
my $sleeptime;
$boink = 0;
while ($boink == 0) {
$ftp = Net::FTP->new($hostname) or die "can't connect: $@\n";
$ftp->login($username,$password) or die "can't login: $@\n";
$ftp->cwd($directory) or die "can't cwd to $directory\n";
$ftp->type(binary) or die "cannot change type to binary\n";
$ftp->put($filename) or die "cannot put $filename\n";
$ftp->close;
sleep($sleeptime);
}
Althogh this is nothing revolutionary, I thought that I might as well post it because it runs under -w, as far as I am aware. I attempted to launch gqcam from the program with:
`gqcam &`; but that generated error after error for the cam program. If anyone has any input on this, let me know.
