Friday, July 30, 2004

Stargate Atlantis

I'm enjoying the new Stargate series, The characters are starting to get fleshed out a little and it's a good thing.

Tonight I half expected the thing that would remove the creature to be the chocolate bar that McKay was eating.

I wonder if we will see him use the shield device from last week again.

Nice explination about their lack of inertia being a problem, and a reasonable sollution as well.


I ordered a Refurbished Series 2 Tivo yesterday.

$49 from after rebate.

Would have been nice if it was in my hands tonight, I look foward to the ability to pause live tv.

Registered to vote

Today I filled out the paperwork to register to vote.

I've not voted before, I'm not sure what I was doing last presidential election but this time I plan to take part in the process.

Currently I feel I'm very uninformed about issues, I spend too much time watching tech news and alike but I've never really paid attention to politics, I hope to change this.

John Kerry looks to be my candidate of choice, He rated a 81% match with my answers on Presidentmatch and I like the things his website say.

Thursday, July 29, 2004

Trying out Flickr

This service sounded like a neat way to add Photo's to this Blog.

Here is one from the Oranski Wedding.

Mike and Jen
Originally uploaded by johnkiniston.

Perl FTP

Here is the first program I'm giving the source for, it's a FTP upload script that is designed to run from Cron.

use Net::FTP;
use File::Copy;
#Setup the variables
$ftphost = "";
$username = "user";
$password = "password";
$remotedirectory = "public_html";
$outputdirectory = "~/transfered/";
$localdirectory = "~/dropbox/";
$fromaddress = "username\";
$toaddress = "tousername\";
$subject = "Automated FTP Transfer";
# Build the filelist
@files=`ls -1 $localdirectory`;

#Connect to the FTP Server
$ftp = Net::FTP->new("$ftphost", Timeout => 30, Debug => 1) or $erroroutput = $erroroutput."Can't connect: $@\n";

#Login with the username and password
$ftp->login($username, $password) or $erroroutput = $erroroutput."Couldn't authenticate, even with explicit username and password.\n";

#Set Binary Mode

#Change Directories
$ftp->cwd($remotedirectory) or $erroroutput = $erroroutput."Couldn't change directory\n";

#Upload the files if everything is OK So far.
if (!$erroroutput){
foreach $file (@files) {
chomp $file;
$ftp->put ($localdirectory.$file) or $erroroutput = $erroroutput."couldn't upload $file\n";

#Close the FTP Connection

#Mail the results
$mailer = "/usr/lib/sendmail -f$fromaddress -oi";
open(MAIL, "|$mailer -t") || die;
print MAIL "To: $toaddress\n";
print MAIL "Subject: $subject\n\n";
if ($erroroutput) {
print MAIL "Error $erroroutput";
foreach $file (@files) {
print MAIL "Did not transfer $file\n";
else {
foreach $file (@files) {
chomp $file;
print MAIL "Transferred $file\n";
move ("$localdirectory$file", "$outputdirectory$file");
close (MAIL);

Rippoff Alert! just put an unauthorized Charge on my Visa.

See for more info about these people.

Wednesday, July 28, 2004

Code I've written

From now on I plan to share anything that I write be it Perl, Shell or PHP here in my Blog so it may be usfull for other people.

Off the top of my head I've written a quick FTP droplet in Applescript, Several FTP transfer Shell and Perl scripts (Both FTP and SFTP), A module for a webpage that shows a random graphic based on the Time of day and Day of week from a predefined set, A graphical forum signature that grabs information about the current viewer and displays it,And a image watermarking program.

I'll be adding the sources to these programs to here as time permits.

Results from 07/27/04

Did backups.
Checked Oil (Low added two quarts)
Stayed Positive
Didnt stay as focused as I could have.
Sent Registration Project Data storage draft to Jeff.

Tuesday, July 27, 2004

Goals for 7/27/04

Stay Positive
Stay Focused
Work on Registration project
Check OIL in Escort
Do Backups

Monday, July 26, 2004

Results for July 26

Stayed Positive
Stayed Focus
Turned in phone bill for partial re-imbursement
Worked on Data Storage plan
Asked for help about Test plan

Got stuck in meeting from 10AM-4PM, Did not get much else done.

Short Term Goals for July 26 2004

Todays Goals:

* Stay Positive
* Stay Focused
* Turn in final Phone bill
* Data storage plan for Registration
* Ask for help on Test plan
* Backups
* Camera

Things I need to bring to work:

# VPN Endpoint
# Can opener
# Zaurus
# iPod
# Phone Bill