Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:
$status = LWP::Simple->getstore ($harvest_url, $upload_loc); if (is_error ($status)) { $emsg = "***Upload failed on ->$harvest_url<-: "; $emsg .= "Code ->$status<- "; $emsg .= "Msg ->" . status_message ($status) . "<-"; Common::logmsg ($lsid, "$emsg"); die ("$lsid $emsg"); } else { Common::logmsg ($lsid, "on ->$args<- successful"); }
Edited by planetscape - added code tags
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: LWP::Simple->getstore Not Working
by japhy (Canon) on Mar 16, 2006 at 19:41 UTC | |
|