I Think with this script and argument like : http://devicename/cgi-bin/getimage.cgi?filename=
test.bmp
that's it , no ?
Yves.
require
LWP::UserAgent;
require HTTP::Request;
use open IN => ":crlf", OUT => ":raw";
require HTTP::Request;
use open IN => ":crlf", OUT => ":raw";
$webtotest = shift
ARGV;
$stringtosearch = shift ARGV;
$stringtosearch = shift ARGV;
$ua =
LWP::UserAgent->new;
printf $stringtosearch."\n";
open FILE,">$stringtosearch";
$request = HTTP::Request->new(GET => "$webtotest$stringtosearch");
$response = $ua->request($request);
if ( $response->is_success )
{
print "=============================\nRequete \n=============================\n";
print $webtotest;
print "=============================\nResultat Error_as_html\n=============================\n";
print "=============================\nResultat content\n=============================\n";
print FILE $response->content;
}
else
{
print FILE $response->content;
}
close FILE;
printf $stringtosearch."\n";
open FILE,">$stringtosearch";
$request = HTTP::Request->new(GET => "$webtotest$stringtosearch");
$response = $ua->request($request);
if ( $response->is_success )
{
print "=============================\nRequete \n=============================\n";
print $webtotest;
print "=============================\nResultat Error_as_html\n=============================\n";
print "=============================\nResultat content\n=============================\n";
print FILE $response->content;
}
else
{
print FILE $response->content;
}
close FILE;
exit();
#
#
De : [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] De la part de eric clark
Envoy� : mercredi 14 juillet 2004 17:40
� : [EMAIL PROTECTED]
Objet : http with perl
I have an interesting question. I have a device connected to my network that I'd like to read from. This url will read the file that I'm looking for, and return that image to me. http://devicename/cgi-bin/getimage.cgi?filename=test.bmp I'd like to have a perl script that will retreive this image for me. Basically I need to read what is contained in cgi-bin on that device( I think ). Is there a way to do this? Can anyone point me in the direction of some clear documentation on this subject?
Thanks,
Eric
"I'd take you seriously but to do so would be an affront to your intelligence."
-- William F. Buckley --
Check out the latest news, polls and tools in the MSN 2004 Election Guide!
_______________________________________________ Perl-Win32-Admin mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
