#! /usr/bin/perl -Tw
# -*- Mode: Perl -*-
# Copyright (C) 2002, Heiko Klein
# $Id$
#
# File name : traj.pl
# Description : CGI-script to select directories
#
# Author : Heiko Klein
# Created On : Tue Feb 5 16:33:16 2002
#
# Last Modified By: Heiko Klein
# Last Modified On: Fri Nov 29 11:54:20 2002
# Update Count : 108
# Status : $State$
#
# $Locker$
# $Log$
#
eval 'exec perl -Tw -S "$0" "$@"'
if 0;
$ENV{PATH} = '';
use strict;
use CGI qw(:standard);
#use CGI::Carp qw(fatalsToBrowser);
use vars qw($prgn $month $year $station $type $country $path $query %type
$file);
($prgn = $0) =~ s:.*/::; # the script-name
%type = ( 1 => 'pre',
2 => 'all',
3 => 'anna3',
4 => 'anna4' );
$path = "/usr/local/dnmi/emep/htdocs";
$query = new CGI;
$month = $query->param('month');
$year = $query->param('year');
$station = $query->param('station');
$type = $query->param('type');
$month = check_digits($month);
$year = check_digits($year,4);
if (!$station) {
error_message();
# $station = 'NO01';
} else {
if (! ($station =~ /^(\w{2})(\d+)$/)){
$station = 'NO01';
} else {
$station = $1 . check_digits($2);
}
if (!$type) {
$type = 1;
} elsif (!($type =~ /^\d$/)) {
$type = 1;
}
if (($type == 1) || ($type == 2)) {
get_pic();
} elsif ($type == 3) {
get_sector_data('Lag');
} elsif ($type == 4) {
get_sector_data('Eul');
} elsif ($type == 5) {
get_trajectory_data();
}
}
sub error_message {
print header("text/html");
print <<'EOF';
Trajectory data
EOF
print "\n";
print "Please, choose a station!\n";
print "
\n";
print <<'EOF';
EOF
}
sub get_pic {
$type = $type{$type};
if ($month == 0) {
$file = "/plot/trcross/$type-$year-$station.png";
} else {
$file = "/plot/trcross/$type-$year$month-$station.png";
}
print header("text/html");
print <<'EOF';
Trajectory crossings
The units are no. of times the trajectory has crossed the area (gridcell)
4 times per day in one month or one year.
EOF
unless (-r "$path$file") {
print "\n";
print "Sorry, the selected station did not produce data in the selected year.\n";
print "Please choose another year/station.\n";
print <<'EOF';
EOF
return;
}
print "![](\"$file\")
\n";
print <<'EOF';
To download the figure, please press shift
and click left mousebutton
EOF
print "here! \n";
print <<'EOF';
Remark
In 1986, trajectory crossings for March-August have been calculated with
modelled precipitation instead of observed precipitation. This should
be considered when using the data.
The trajectory crossings of January 1985 begin at January 1 12GMT
because meteorological data is missing for the first two terms of the month.