#!/usr/bin/perl
open (FH, "$ARGV[0]") || die "can't open $ARGV[0]";

print "<webserviceinvoker>\n";
print "\t<wsdl>\n";
while ($line = <FH>) {
	if ($line =~ /\?WSDL/i) {
		$line =~ s#.*location='##;
		$line =~ s#'.*##;
		chomp $line;
		print "\t\t<url>$line</url>\n";
	}
}
print "\t</wsdl>\n";
print "</webserviceinvoker>\n";
