Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

executable file 23 lines (18 sloc) 0.52 kb
#!/usr/bin/perl
#$fname = shift @ARGV || die "USAGE: add_wsdllocation.pl <service.xml> <wsdl_path>\n";
$wsdlpath = shift @ARGV || die "USAGE: cat <service.xml> | add_wsdllocation.pl <wsdl_path>\n";
$found=0;
while(<STDIN>) {
my $orig = $_;
my $line = $orig;
chomp $line;
$added = "";
if ($found == 0) {
if ($line =~ /^<service name=/) {
$added = "<parameter name=\"wsdl_path\" locked=\"xsd:false\">$wsdlpath</parameter>\n";
}
}
print ("$orig");
print ("$added");
}
exit 0;
Jump to Line
Something went wrong with that request. Please try again.