#!/usr/local/bin/perl # # Copyright (c) 1995 by Delphi Internet Services Corporation, # Cambridge, Massachusetts. All Rights Reserved # # Name: tangrot.pl # Purpose: pass proper arguments for rotation to tangoes.cgi # # Modification history # # 95/10/10 Chris Rywalt require "/usr/local/etc/httpd/cgi-bin/crywalt/cgi-lib.pl"; #----------------------------------------------------------------- # Main (isn't it silly to have a ``Main'' section in an unstructured language?) # print &PrintHeader; &ReadParse(*formdata); # reads in form data $rotate = $formdata{'arbitrary'}; if($ENV{'PATH_INFO'} eq '/') { $ENV{'PATH_INFO'} = ''; } $ENV{'PATH_INFO'} =~ s/\/\//\//g; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print " "; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print "


Place or rotate

"; print ""; # EOF