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 24 lines (18 sloc) 0.505 kB
#!/usr/bin/perl
$policypath = shift @ARGV || die "USAGE: cat <service.xml> | add_server_policy.pl <policy_path>\n";
$found=0;
while(<STDIN>) {
my $orig = $_;
my $line = $orig;
chomp $line;
$added = "";
if ($found == 0) {
if ($line =~ /^\s*<\/service>/) {
$added = "<module ref=\"rampart\"/>\n";
$added .= `cat $policypath | sed "s:EUCALYPTUS_HOME:\$EUCALYPTUS:g" | sed "s:AXIS2C_HOME:\$AXIS2C_HOME:g"`;
}
}
print ("$added");
print ("$orig");
}
exit 0;
Jump to Line
Something went wrong with that request. Please try again.