/usr/share/doc/libsoap-lite-perl/examples/XMLRPC/xmlrpc.cgi is in libsoap-lite-perl 1.19-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 | #!/usr/bin/perl
# -- XMLRPC::Lite -- services.soaplite.com -- Copyright (C) 2001 Paul Kulchenko --
use XMLRPC::Transport::HTTP;
XMLRPC::Transport::HTTP::CGI
-> dispatch_to('validator1')
-> handle
;
package validator1;
sub whichToolkit { shift if UNIVERSAL::isa($_[0] => __PACKAGE__);
return +{
toolkitDocsUrl => 'http://www.soaplite.com/',
toolkitName => 'XMLRPC::Lite',
toolkitVersion => XMLRPC::Lite->VERSION,
toolkitOperatingSystem => $^O,
}
}
sub countTheEntities { shift if UNIVERSAL::isa($_[0] => __PACKAGE__);
my $string = shift;
my $res;
$res->{ctLeftAngleBrackets} = ($string =~ s/<//g) || 0;
$res->{ctRightAngleBrackets} = ($string =~ s/>//g) || 0;
$res->{ctAmpersands} = ($string =~ s/&//g) || 0;
$res->{ctApostrophes} = ($string =~ s/'//g) || 0;
$res->{ctQuotes} = ($string =~ s/"//g) || 0;
return $res;
}
sub arrayOfStructsTest { shift if UNIVERSAL::isa($_[0] => __PACKAGE__);
my $array = shift;
my $curly_sum = 0;
for my $struct (@$array) {
$curly_sum += $struct->{'curly'};
}
return $curly_sum;
}
sub easyStructTest { shift if UNIVERSAL::isa($_[0] => __PACKAGE__);
my $struct = shift;
return $struct->{'moe'} + $struct->{'larry'} + $struct->{'curly'};
}
sub echoStructTest { shift if UNIVERSAL::isa($_[0] => __PACKAGE__);
return shift;
}
sub manyTypesTest { shift if UNIVERSAL::isa($_[0] => __PACKAGE__);
return [@_];
}
sub moderateSizeArrayCheck { shift if UNIVERSAL::isa($_[0] => __PACKAGE__);
my $array = shift;
return join('', $array->[0], $array->[-1]);
}
sub nestedStructTest { shift if UNIVERSAL::isa($_[0] => __PACKAGE__);
my $calendar = shift;
my $april_1_2000 = $calendar->{'2000'}{'04'}{'01'};
return ($april_1_2000->{moe} + $april_1_2000->{larry}
+ $april_1_2000->{curly});
}
sub simpleStructReturnTest { shift if UNIVERSAL::isa($_[0] => __PACKAGE__);
my $number = shift;
return +{
times10 => $number * 10,
times100 => $number * 100,
times1000 => $number * 1000
};
}
|