OK, I was able to find an open source uploader and intercept the header before it printed. Here' where I put the code:
if ($action eq 'admin') {
print $query->header;
if ($login && $password) {
&admin($query, $login, $password);
} else {
print &PagePassword($NAME_TITLE{'common_admin'});
}
} elsif ($action eq 'upload') {
##### My code begins #####
use CGI qw(:cgi);
use strict;
`perl newimg2db.pl > newimgseekurl.txt`;
sleep 1 while ( !(-e "newimgseekurl.txt") );
use File::Copy;
copy("newimgseekurl.txt", "newimgseekurl2.txt") or die "File canno
+t be copied.";
my $file = "newimgseekurl.txt";
unlink($file);
open FILE, "newimgseekurl2.txt" or die "Couldn't open file: $!";
my $newimgseekurl = <FILE>;
close FILE;
print redirect("$newimgseekurl");
##### My Code Ends #####
if ($dir = &check_password('guest', $login, $password)) {
print &Upload($query, $dir);
} else {
print &BadPassword($NAME_TITLE{'common_member'});
}
} else {
print $query->redirect($FORM_URL);
This did not prevent the file from uploading and did properly redirect. Thanks for the help, views and voting.
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|