sub pushToImageServer { my $imageFullPath = $_[0]; my $imageFileName = $_[1]; my $contentType = $_[2]; my $userName = $_[3]; my $fileNameNoExt = $_[4]; my $FAILURE = 'Response: Failed'; my $SUCCESS = 'Response: Success'; logEvent(qq(Pushing "$imageFileName" to $CONFIGURATION->{imageserver})) if $CONFIGURATION->{verbose}; #my $CONFIGURATION->{imageserver}Path = "/up/" . $CONFIGURATION->{password} . "/" . $CONFIGURATION->{application} . "/" . $imageFileName; my $imageServerPath = "/up/" . $CONFIGURATION->{password} . "/" . $CONFIGURATION->{application} . "/" . $userName . "/"; ## CS URL ##my $URL = 'http://' . $CONFIGURATION->{imageserver} . $imageServerPath; ## IS URL ##$imageServerPath =~ s/\/$//; ## Strip off trailing slash my $URL = 'http://' . $CONFIGURATION->{imageserver} . $imageServerPath . "?width=" . $CONFIGURATION->{validimagewidth} . "&height=" . $CONFIGURATION->{validimageheight} . "&type=" . $CONFIGURATION->{desiredformat} . "&name=" . $fileNameNoExt; logEvent("Image Server URL: $URL") if $CONFIGURATION->{verbose}; ## POST my $ua = LWP::UserAgent->new; my $imageBody = [$CONFIGURATION->{filekey}=>[$imageFullPath,$imageFileName,'Content-Type'=>$contentType]]; my $POST = POST($URL, Content_Type => 'form-data',Connection => 'Close',Host => $CONFIGURATION->{imageserver}, Content=>$imageBody); ## GET my $return = $ua->request($POST); my $returnString = $return->as_string; #logEvent("Received From $CONFIGURATION->{imageserver}: $returnString"); logEvent("Received From $CONFIGURATION->{imageserver}: $returnString") if $CONFIGURATION->{verbose}; unless ( $returnString =~ /$SUCCESS/ ) { logEvent("Received FAILURE Response from $CONFIGURATION->{imageserver}"); return 0; } return 1; }