#!/usr/bin/perl # #Copyright (C) 2003: Christian A. Bråthe #For: Christian A. Bråthe, Jan Steinar Kvilesjø, Lars Martin Dobbe #Minor change 2007 by Erling Strand # use CGI qw(:standard :escapeHTML); print "Content-type: text/html\n\n"; #START $pictureName = param("picName"); $comingFrom = param("from"); sub create_html_top { print ""; print ""; print "E.L.F.O Mottatt bilde: $pictureName"; print ""; # print ""; print ""; print ""; } sub create_header_table { print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print "
Hessdalen AMS.
E.L.F.O. Bilde. 		www.hessdalen.org
"; } sub picture_table { ($rest1, $rest2, $rest3, $rest4, $rest5) = split("/",$pictureName,5); ($hour, $minute, $second) = split("_",$rest5,4); ($hourly) = split(" ",$hour,2); if ($hourly <10) {$hourly = "0".$hourly}; ($minutt) = split(" ",$minute,2); if ($minutt <10) {$minutt = "0".$minutt}; ($secondly) = split(" ",$second,2); if ($secondly <10) {$secondly = "0".$secondly}; ($dag, $maned, $bar) = split("_",$comingFrom,3); if ($dag <10) {$dag = "0".$dag}; if ($maned <10) {$maned = "0".$maned}; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print "
Bilde lokasjon/navn: $pictureName 
 
"; print "Dette bildet er fra $dag-$maned-$bar (dag-måned-år)
"; print "klokken $hourly : $minutt : $secondly (time : minutt : sekund)

"; print "X-aksen viser frekvensen. Y-aksen viser tiden.

"; } sub create_footer_table { print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print "
Created 2003: Christian A. Bråthe, Jan Steinar Kvilesjø and "; print "Lars Martin DobbeTilbake
"; } create_html_top(); create_header_table(); picture_table(); create_footer_table();