#!/usr/bin/perl use strict; my $i = 0; my ($time,$html); while (1) { my $meow = ; open(TIME,"date|"); $time = ; # Get Time close(TIME); $i++; open(WWW,">/usr/home/web/www/index.html") or die "File did not open!\n"; $html = < The Door Server

The Door Server

My door has been connected to the 'net through a somewhat unconventional use of a CueCat
barcode scanner. I have adhered a barcode to the lower corner of my door and as it opens
and closes it swings by the barcode scanner which sends the barcode information to the
FreeBSD (version 4.6) machine it my room. Upon getting this signal a perl script running
on the machine springs into action and updates this page for your viewing pleasure. Below
you can see live statistics, such as how many times my door has been opened/closed and
when it was last opened/closed. Enjoy

Stats:
Door Openings/Closings : $i
Time Last Opened/Closed: $time

CATTAIL print WWW "$html" or die "did not print\n"; close(WWW); }