#!/usr/bin/perl
###########################################
# SOAP client
#   soapc.pl host image_file
# Mike Schilli, 2002 (m@perlmeister.com)
###########################################
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;