#!/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 $folderName = param("dirName"); sub create_html_top { print ""; print ""; print "E.L.F.O Recieved Pictures ( $folderName )"; print ""; print ""; print ""; print ""; } sub create_header_table { print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print "
E.L.F.O. Pictures - $folderNamewww.hessdalen.org
"; } sub create_footer_table { print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print "
Created 2003: Christian A. Bråthe, Jan Steinar Kvilesjø,"; print "Lars Martin DobbeBack to the directory index
"; } sub convert_filenames { $where_to_read = "./images/$folderName"; opendir(DIR,$where_to_read); @files = readdir(DIR); foreach(@files) { next if ($_ eq '.' || $_ eq '..'); # skip this and up dirs $oldName = $where_to_read . "/" . "$_"; if( $_ =~ m/\b#\b/ ) { ($front, $back) = split("#",$_); $newFilename = $where_to_read . "/" . $front . "NR" . $back; print "mv $oldName $newFilename"; system "mv $oldName $newFilename"; } } } sub list_folders { $where_to_read = "./images/$folderName"; opendir(DIR,$where_to_read); @files = readdir(DIR); print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; foreach(@files) { next if ($_ eq '.' || $_ eq '..'); # skip this and up dirs ($houre, $minute, $secound, $rest ) = split("_",$_,4); $antenna = split(".",$rest,1); $link = "showPicture.cgi?picName=" . $where_to_read . "/" . $_ . "&from=" . $folderName; print ""; print ""; print ""; print ""; print ""; } closedir(DIR); print "
Alarm occured:On antenna number:Captured Picture:
$houre : $minute : $secound$antenna$_
"; } sub create_html_bottom { print ""; print ""; } create_html_top(); create_header_table(); #convert_filenames(); list_folders(); #HER SKJER DET NOE create_footer_table(); create_html_bottom();