in reply to Re^3: Button Send
in thread Button Send
Here is what I am doing:
I keep getting an error that it cannot open the file# Setup up # Variables # and define work fields if (-e $datefile) { open (BOBIN, ">>$datefile") || die "Cannot Open File $datefile for + writing: $!"; # Open Data file } else { ### Open directory where files data files are located # Sort in descending order, pick out first file # And e-mail it } open (BOBIN, ">$datefile") || die "Cannot create File $datefile f +or writing: $!"; } if (!(param())) { # Do stuff # By processing data # put up web page # with formatted data <form> <center><input type=submit value=Send name=S1> </center></form> } else { if (param('S1') eq "Send") { print BOBIN $datajoin; use CGI; print redirect("http://www.gailborden.info/services/b +ob/submitq.htm");} } close(BOBIN);
Is there easier way to just redirect it to a confirmation page AND write the data after pressing a button?
Does anyone know, if I change the "input type" to button can I do the same thing? When clicked, redirect to confirmation page and then write the data.
I will be more then happy to send the full script and web form.
|
|---|