#!/opt/bin/perl ## ## my_pr.scgi - tool for using 'my_pr' via SWW ## ## COPYRIGHT ## Copyright (c) 1996 software design & management GmbH & Co. KG Munich ## Copyright (c) 1996 Susanne Huebner ## ## HISTORY ## 0.9.0 960423 susanne ## * GENESIS * ## $version = "0.9"; ### SUBROUTINES ### # evaluation of all parameters given in $QUERY_STRING for global use # inside this script. sub eval_env { @pairs = split (/&/, $ENV{'QUERY_STRING'}); foreach $pair (@pairs) { ($name, $value) = split (/=/, $pair); $name =~ tr/[a-z]/[A-Z]/; eval "\$$name = \"$value\""; } } # output of input-form sub print_form { print << "EOF";
Login-Kürzel des Benutzers:

EOF 1; } sub print_footer { print << "EOF";

SWW Preport Support Version $version
Written by Steffen Beyer <sb\@sdm.de>
sd&m/TI
EOF 1; } # print error message sub html_error { my($msg) = @_; print << "EOF"; mypreports: ERROR

mypreports via SWW: ERROR



$msg



EOF &print_footer; exit (1); } sub print_header { print << "EOF"; mypreports via SWW

mypreports via SWW



EOF 1; } ### MAIN ### # print Text/HTML-Header for correct output on browser print qq(Content-type: text/html; charset="iso-8859-1"\n\n); &eval_env; &print_header; if ($ID eq '') { # just print empty form &print_form; &print_footer; } else { # $ID contains number of searched preport $cmd = "/opt/bin/my_pr $ID"; $erg=`$cmd`; if ($erg eq '') { &html_error ("Sorry, can't find any user '$ID' here (BI)!"); } # cut off first line of message $erg =~ s/^Searching .*?\n+//m; $erg =~ s//>/mg; &print_form; print "

"; print "

"; print "The result of your query is:"; print "

"; print "

"; print "

\n";
	print "$erg";
        print "
\n"; print "

"; &print_footer; } ### EOF ###