[ic] Image Magick

[Stefan Hornburg Racke]

"Mat Jones - booksellersolutions.com" <mat@booksellersolutions.com> writes:

> Hi,
> 
> Is there anyway to integrate Image Magick (PerlMagick) into interchange.
> Has anyone done this before. It would be so much easier to have everthing
> run in interchange without having to write scripts external to interchange.

Write a global usertag. Global usertags can do nearly anything.
Keep us posted. This stuff may be interesting to several
IC developers.

Example:

UserTag deliver_agent Order host port input
UserTag deliver_agent Routine <<EOS
sub {
	use Socket;

	my ($host, $port, $input) = @_;
	my ($iaddr, $paddr, $proto);
	my $line;

#	Log ("HOST: $host PORT: $port");
	$iaddr = inet_aton ($host);
	$paddr = sockaddr_in ($port, $iaddr);
#	Log ("Have ADDR in");
	$proto = getprotobyname ('tcp');
	unless (socket (SOCK, PF_INET, SOCK_STREAM, $proto)) {
		Log ("socket: $!\n");
		return;
	}
#	Log ("Have Socket");
	unless (connect (SOCK, $paddr)) {
		Log ("connect failed: $!\n");
		return;
	}
#	Log ("Have Connection");
	unless (syswrite (SOCK, $input, 29) == 29) {
		Log ("write failed\n");
		return;
	}
	unless (sysread (SOCK, $line, 77) == 77) {
		Log ("read failed\n");
		return;
	}
	Log ("SOCK: $line");
	unless (close (SOCK)) {
		Log ("socket close: $!\n");
	    return;
    } 
	substr ($line, 31);
};
EOS

Ciao
        Racke

-- 
Master of Swiss Web 2001: http://www.zweifel.ch/

For projects and other business stuff please refer to COBOLT NetServices
(URL: http://www.cobolt.net; Email: info@cobolt.net; Phone: 0041-1-3884400)