#!/usr/bin/perl -T #!/usr/bin/env perl # railroad crossing gate thingy, railroad.main.cgi ## Start user config # # file that contains the railroad gate's current status $status = "/tmp/.railroad.status"; # url to refresh $refresh = "http://127.0.0.1/cgi-bin/railroad.main.cgi"; # ## End user config # Setup # select STDOUT; $| = 1; # Send MIME type # print "Content-type:text/html\n\n"; # Get current railroad gate status # open ST, $status; chomp($stat = ); close ST; $stat =~ tr/a-z//csd; if (!$stat) { $stat = "Unknown"; } # Draw me a web page # print <

(World's First?) Web Controlled Railroad Crossing Gate

The railroad crossing gate is currently $stat

END_OF_FILE