#!/usr/bin/perl # use diagnostics; use File::Path; require 'cgi-lib.pl'; #morph.cgi #Copyright 2000 Werner G. Krebs. All Rights Reserved. #Unpubished trade secret Contact author for permission to use or modify. #required because we are running setuid. $ENV{PATH} = "/bin:/usr/bin:/usr/local/bin:/usr/bin/X11:/usr/X11R6/bin:/net/balin/u1/public/bin/linux"; $ENV{IFS}=""; require "cgi-lib.pl"; #use Sys::Syslog; $home = "/u1/htdocs/geometry"; $cgi = "$home"; $uploads = "$home/incoming"; $repo = "$home/storage"; $BINDIR = "/usr/local/server/bin"; $fileprefix = "/data/web/geometry/geom-mbg/data/clustering/"; $isRequest = &MethPost; if ($isRequest) { $ret = &ReadParse(\%cgi_data,\%cgi_cfn,\%cgi_ct,\%cgi_sfn); $a1 = $cgi_data{FIRST}; $a2 = $cgi_data{SECOND}; $a3 = $cgi_data{THIRD}; $a4 = $cgi_data{FOURTH}; $filesuffix = "$a2/$a1/$a2-$a1.$a3.dat"; my $file = $fileprefix . $filesuffix; if (open (Q1, "<$file")) { while ($line = ) { $filecontents .= $line; } $filecontents = "
" . $filecontents . "
\n"; close (Q1); } else { $filecontents = "Unable to open file!"; } } print "Content-type: text/html", "\n\n"; print << "EOF"; EOF print " Bogo (TM) Briefcase - File Dumper"; if ($isRequest) { print ": $filesuffix"; } print ""; print << "EOF";
EOF if ($isRequest) { print $filesuffix . ":
\n"; print $filecontents; } exit;