#!/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 Received picture: $pictureName"; print ""; print ""; print ""; print ""; } sub create_header_table { print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print "
Hessdalen AMS.
E.L.F.O. Picture. 		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 "
Picture location/name: $pictureName 
 
"; print "This picture is from $dag-$maned-$bar (date-month-year)
"; print "at $hourly : $minutt : $secondly (hour : minute : second)

"; print "The X-axis show the frequency. The Y-axis show the time.

"; } 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 DobbeBack to the file index
"; } create_html_top(); create_header_table(); picture_table(); create_footer_table();