Don't they have a PHP example up there? If not, I'm sure we have something in the old Vortal code; let me know if you need me to look, off list. Luke On Wed, 30 Jul 2003, Vortek, Eater of Souls! wrote: > Hello, > Sorry for the off-topic message, but I've been searching for a cgi > script, or other program to allow me to save a file via the http post > method. > I've found several such scripts, but all require some form of password > authentication. > I'm using a VXML platform (Tellme) to try and record a message, and save > it to my server. > This of course, rules out any script that requires any form of login as > the VXML script can't handle that. > I was wondering if someone on the list knows perl, php, or some other > web language and could wip me up a quick script, or correct the attached > one. > every time I run it, I get an "inappropriate IOCTL for device" error. > it's a sample script that I got off the Tellme website, and I'm no great > shakes at perl. > Any help anyone could render would be greatly appriciated. > > Jim > > #!/usr/bin/perl -w > # Need CGI.pm module. > # See http://stein.cshl.org/WWW/software/CGI/cgi_docs.html for usage. > use strict; > use CGI::Carp qw(fatalsToBrowser); > use CGI qw(:standard :html3); > my $oReq = new CGI(); > print "Content-Type: text/xml\n\n"; > my $bSuccess = 1; > my $msg = ""; > # grab recording from "personal_greeting" param. > my $recording = $oReq->param("personal_greeting"); > # grab user id from uid param. > my $uid = $oReq->param("uid"); > # save recording to file named after user's id > my $outfile = "$uid.wav"; > $! = 0; # clear i/o errs > open(OUT, ">$outfile"); > if ($! != 0) > { > $bSuccess = 0; > $msg = $!; > } > else > { > while (<$recording>) > { > print OUT $_; > } > close(OUT); > } > WriteSubdialog($bSuccess, $msg); > # write back to the VoiceXML interpreter > sub WriteSubdialog > { > my ($code) = @_; > print <<EOF; > <vxml version="2.0"> > <var name="code" expr="$code"/> > <var name="msg" expr="'$msg'"/> > <form> > <block> > <return namelist="code msg"/> > </block> > </form> > </vxml> > EOF > } > > > > _______________________________________________ > Speakup mailing list > Speakup at braille.uwo.ca > http://speech.braille.uwo.ca/mailman/listinfo/speakup >
