freelanceprogrammers.org Forum Index » Perl

View previous topic :: View next topic

Need help with script

czernyman Posted: Tue Jul 13, 1999 7:45 pm

Joined: 13 Jul 1999

Posts: 2

Need help with script

I am trying to make a script that will log the
use of an audio file, and then read and return it. I
can`t get this to work. I`ve done a lot of different
things to get it to work, but they are useless. It might
have somthing to do with the script print location
instead of the file, but I don`t really know how to print
the file. I can`t use the foreach loop I think
because it would print the lines in random order. And,
the files are on a totally different server, so I
don`t think I can read them. Anyway, this is the code I
have now: #!/usr/bin/perl #get query
string @values = split(/&/,$ENV{`QUERY_STRING`}); foreach $i
(@values) { ($varname, $mydata) =
split(/=/,$i); $FORM{$varname} = $mydata; } #get the
date shortdate
= `date +"%D %T
%Z"`; chop($shortdate); #enter into captian`s
log open(OUTF,">>midi.db") or &dienice("Couldn`t open file for writing.
Please notify mts-iscool@juno.com."); print OUTF
"Date: $shortdate|File: $FORM{`file`}|Extension:
$FORM{`type`}"; close(OUTF); #grab
file open(INF,"<$FORM{`file`}") or
&dienice("Couldn`t open $FORM{`file`} for reading. Please notify
mts-iscool@juno.com."); @data = <INF>; close(INF); #print
mime print "Location:$FORM{`file`}

"; sub dienice
{ ($msg) = @_; print
"Content-type:text/html

"; print "<h2>Error</h2>
"; print
$msg; exit; }

freelanceprogrammers.org Forum Index » Perl

All times are GMT
Page 1 of 1

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum

Freelace Website Designer - Customer web design and software building.
China Wholesale - Electronics Products
Character Studio - Tutorials and Help