freelanceprogrammers.org Forum Index » Perl

View previous topic :: View next topic

Need Help W/ Script

czernyman Posted: Thu Aug 12, 1999 7:22 am

Joined: 13 Jul 1999

Posts: 2

Need Help W/ 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
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; }

Rob_Wilson_98 Posted: Fri Aug 13, 1999 1:39 am

Joined: 02 Aug 1999

Posts: 11

Need Help W/ Script

The location MIME is just to redirect to another
URL. If you give it a file, your browser won`t know
what to do with it. What you should do is:
 print "Content-type: audio/???

"; binmode
STDOUT; print @INF; close STDOUT; If this doesn`t
work, then you will need to instead do: print
"Location: $FORM{`file`}

"; #assuming that is a
URL Even if they are on a different server, if they can be
accessed through the web at all, you can use that URL to
access them in your Location:. HTH

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.
Booking Calendar - reservation calendar script
Land Surveying - total station instruments and equipments
China Wholesale - Electronics Products
Character Studio - Tutorials and Help