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);
}
[download]

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.