#!/usr/bin/perl
###########################################
# SOAP client
# soapc.pl host image_file
# Mike Schilli, 2002 (
[email protected])
###########################################
use warnings;
use strict;
use SOAP::Lite;
my($windows_host, $file) = @ARGV;
die "usage: $0 host file\n"
unless defined $file;
open FILE, "<$file" or
die "Cannot open $file";
my $data = join '', <FILE>;
close FILE;
my $rc = SOAP::Lite
-> uri("urn:Photoshop/Hoelle")
-> proxy("http://$windows_host" .
"/cgi-bin/soaps.pl")
-> pshopit($data)
-> result;
print $rc;
