William's Home

#!/usr/bin/perl # use LWP::Simple; use CGI ; use Switch; my $cgiq = new CGI; print $cgiq->header; if ($cgiq->param()) { my $plugin = $cgiq->param("plug") ; print < William's Home EOF switch( $plugin ) { case "tvlistings" { print < EOF } case 'news' { print < EOF } case 'rss' { print < EOF } else { print ''; print < EOF } } # end switch print < BODY { background: transparent ; font-family:Verdana, sans-serif; font-size: 8pt; } TD { font-family:Verdana, sans-serif; font-size: 8pt; } TH { font-family:Verdana, sans-serif; font-size: 8pt; } A { text-decoration: none; color: black } A:hover { color: '#820082'; } /* styles for the tree */ SPAN.TreeviewSpanArea A { font-size: 8pt; font-family: verdana,helvetica; text-decoration: none; color: black } SPAN.TreeviewSpanArea A:hover { color: '#820082'; } EOF switch( $plugin ) { case "cal" { require "myhomeplugins/mycal"; PrintCalendar(); } case "clock" { require "myhomeplugins/myclock"; PrintClock(); } case "weather" { require "myhomeplugins/myweather" ; print "

"; PrintSideWeather(); print "

"; PrintWeatherImage(); print "

"; PrintLongWeather(); } case "weatherpalm" { require "myhomeplugins/myweather" ; print "

"; PrintWeatherImage(); print "

"; PrintLongWeather(); } case "weatherforcast" { require "myhomeplugins/myweather" ; PrintLongWeather(); } case "weatherimage" { require "myhomeplugins/myweather" ; PrintWeatherImage(); } case "weathercurrent" { require "myhomeplugins/myweather" ; PrintSideWeather(); } case "tvlistings" { require "myhomeplugins/mytvlistings"; PrintMyTVListings( $cgiq ); } case "tvlistingsdetails" { require "myhomeplugins/mytvlistingsdetails"; PrintMyTVListingsDetails( $cgiq ); } case "favorites" { require "myhomeplugins/myfavorites"; PrintFavoritesTree(); } case "news" { require "myhomeplugins/myrss"; PrintRSSFlat(); } case "rss" { require "myhomeplugins/myrss"; PrintRSSTree(); } case "search" { require "myhomeplugins/mysearch"; PrintMySearchForm(); } case "fortune" { require "myhomeplugins/myfortune"; PrintFortune(); } case "empty" { print " "; } else { printf "", $plugin ; # print "Unknown plugin: $plugin\n" ; } } } else { print "No plugin specified!\n" } print < EOF