teck power

perl script for webcam

2009-02-15T20:09:00.000-08:00

Following is a perl script that I wrote to take and upload snapshots from webcam.
Use crontab to execute this script hourly.

streamer is from a cool package xawtv.

=========================================

#!/usr/bin/perl -w
#Capture imgs from webcam and upload it to ftp
#Author: Chenyang
#Email: higooday at gmail.com
#
#bug:somehow,the first img taken by streamer is never complete.
#So I only upload from the second one.
#If you know how to solve it, please teach me.
#
use strict;
use Net::FTP;

my $user="xxxx"; ##user name for ftp
my $pass="xxxx"; ##passwd for ftp
my $host="www"; ##ftp site
my $ftp_dir="xxx"; ##directory at ftp site for picture uploading
my $shot=6; ##number of shots taken
my $interval=1; ##number of shots in one second
my $file_prefix=hour();
my $file_name=$file_prefix."_0.jpeg";
my $working_dir="/home/yourname/xxxx";
chdir $working_dir; # change working directory, important if executed by crontab

system ("streamer -t $shot -r $interval -o $file_name");
ftp ("put",$file_prefix,$shot,$user,$pass,$host,$ftp_dir);

######################
sub ftp {
my ($method, $file_prefix,$shot,$user,$pass,$host,$ftp_dir) = @_;

my $ftp = Net::FTP->new($host, Debug => 0);
$ftp->login($user, $pass) or die "ERROR - FTP login failed: ", $ftp->message;
$ftp->binary; #switch to binary transfer mode
$ftp->cwd($ftp_dir);
if ($method eq "put") {
for (my $i=1;$i<6;$i++)
{
my $file_name=$file_prefix."_".$i.".jpeg";
$ftp->put($file_name) or die "ERROR - FTP put failed: ", $ftp->message;
}
}
elsif ($method eq "get") {
$ftp->get($file_name) or die "ERROR - FTP get failed: ", $ftp->message;
}

$ftp->quit;
}

sub hour {
my ($sec, $min, $hour, $day, $month, $year) = (localtime)[0, 1, 2, 3, 4, 5];
my $time = $hour;
return $hour;
}

FTP backup script

2009-02-15T12:24:00.000-08:00

Perl Net::FTP:
http://aplawrence.com/Unixart/perlnetftp.html
Remotebackup.pl:
http://www.goldb.org/remotebackup.html
Crontab: a simple text file that holds a list of commands that are to be run at specified times
http://ubuntuforums.org/showthread.php?t=102625

My simple script for backup
===============================
#!/usr/bin/perl -w
#This is the backup script from Chenyang, version 0.1
#Questions please contact Chenyang: higooday@gmail.com
#use strict;
#use warnings;
#definitions and environments
my $email = 'xx@xx';
my $t_list= "xxxxx"; #list of directories to backup. txt file with each dir in one line
my $backup_dir ="xx/xx/xx"; #dir where the backup files are stored
my $backup_name = "xxx".datetime().".tar.gz";
my $log_name = "xxxx".datetime().".log";

my $startime=localtime();
print "Performing backup:$backup_name ...\nstarting at $startime\n";
system ("tar czvf $backup_dir/$backup_name -T $t_list >$backup_dir/$log_name");
my $finishtime=localtime();
print "\ndone! Finish time $finishtime\n";

print "Email backup conformation to $email ...";
email_notice($email,$backup_dir,$backup_name);
print "done!\n";

#############
sub datetime {
my ($sec, $min, $hour, $day, $month, $year) = (localtime)[0, 1, 2, 3, 4, 5];
my $datetime = sprintf "%02d-%02d-%02d-%02d.%02d.%02d",
$year + 1900, ($month + 1), $day, $hour, $min, $sec;
return $datetime;
}

sub email_notice {
my ($email, $backup_dir,$backup_name) = @_;
my $subject="Confirmation of backup";
my $time=localtime();
my $body="
A backup has finished at $time. The backup directory is: $backup_dir. The backup file is $backup_name. Please copy the backup file ASAP.

Chenyang
";
open(MAIL, "|/usr/lib/sendmail -t");
print MAIL "To: $email\n";
print MAIL "From: $email\n";
print MAIL "Subject: $subject\n";
print MAIL "$body\n";
close (MAIL);
}

Installation directory in Linux

2009-02-14T17:51:00.000-08:00

Use command:
rpm -ql your_program_name

to locate all the files associated with the program.

Unlike windows, the installed files are distributed in various directories of the system.

Cool guide to fedora installation

2009-02-14T08:53:00.000-08:00

http://www.mjmwired.net/resources/

Installing Nvidia driver on Fedora-10

2009-02-14T08:50:00.001-08:00

http://www.itech7.com/Linux/Installing-Nvidia-driver-on-Fedora-10

How to compile software from source

2009-02-14T08:45:00.000-08:00

http://www.tuxfiles.org/linuxhelp/softinstall.html