EMEP Trajectory Selector

#! /usr/bin/perl -Tw # -*- Mode: Perl -*- # Copyright (C) 2002, Heiko Klein # $Id$ # # File name : traj_select.pl # Description : # # Author : Heiko Klein # Created On : Wed Feb 6 14:08:58 2002 # # Last Modified By: Heiko Klein # Last Modified On: Fri Nov 29 14:14:25 2002 # Update Count : 73 # Status : $State$ # # $Locker$ # $Log$ # eval 'exec perl -Tw -S "$0" "$@"' if 0; use strict; use CGI qw(:standard); use CGI::Carp qw(fatalsToBrowser); use vars qw($prgn %Country %Station $query $country $station $type $year $month @Month); ($prgn = $0) =~ s:.*/::; # the script-name @Month = qw(All January February March April May June July August September October November December); get_country_station (); $query = new CGI; $country = $query->param('country'); print_head(); if (!$country) { country_select (); } else { select_all (); } print_foot(); sub print_head { print header(-type => "text/html"); print < EMEP Trajectory Selector EOF } sub print_foot { print < EOF } sub select_all { my $countryname = $Country{$country}->{Short}; print <

Station:		Country: $countryname
Year:	EOF foreach my $month (0..$#Month) { print "
Type:

EOF } sub country_select { print < Country:

EOF } sub get_country_station { %Country = %{ read_objects ("country.obj") }; %Station = %{ read_objects ("station.obj") }; } #@ # DESCRIPTION: read a perl obj. file from disk (i.e. written by Dumper) # # PARAMETER: $file # # RETURN: $ref_to_object #@ sub read_objects ($) { my $file = shift; open (F, "$file") or die "Cannot open $file: $!\n"; local $/ = undef; # slurp mode my $obj = ; close F; if ($obj =~ /(.*)/s) { $obj = $1; # untaint this, I'm reading a local file } my $VAR1; eval "$obj" or die "Cannot eval $obj: $!\n"; return $VAR1; }