#!/usr/bin/perl -w
use strict;
$| = 1;

################################################
# SOAP Call Debugging
# http://infocopter.com/perl/soap/debugging.html
################################################

#####  GLOBAL
my $TEMP_PREF = 'zz_temp';

&main();

sub main() {
	system("./soapdebug.pl 2>$TEMP_PREF\_out.txt") && print STDERR $!;

	open(RES, "<$TEMP_PREF\_out.txt") or print STDERR $!;

	while(<RES>) {
		chomp;
		last unless $_;
		print "$_\n";
	}

	print '------------------------------------------------',
		"-------------------------------------------------\n";

	while(<RES>) {
		chomp;
		next unless $_;
		print "$_\n";
		last if /<\/soap:Envelope>/;
	}

	close RES;
	unlink "$TEMP_PREF\_out.txt" or print STDERR $!;
}