#!/usr/bin/perl # #Copyright (C) 2003: Christian A. Bråthe #For: Christian A. Bråthe, Jan Steinar Kvilesjø, Lars Martin Dobbe # 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 Recieved Pictures - Showing: $pictureName"; print ""; print ""; print ""; print ""; } sub create_header_table { print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print "
E.L.F.O. Picture: SELECTED PICTUREwww.hessdalen.org
"; } sub picture_table { print ""; print ""; print ""; print ""; print ""; print ""; print ""; } sub create_footer_table { print "
Picture name: $pictureName
"; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print "
Created 2003: Christian A. Bråthe, Jan Steinar Kvilesjø,"; print "Lars Martin DobbeBack to the file index
"; } create_html_top(); create_header_table(); picture_table(); create_footer_table();