/usr/bin/stubmaker is in libsoap-lite-perl 1.26-1.
This file is owned by root:root, with mode 0o755.
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 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 | #!/usr/bin/perl
#!d:\perl\bin\perl.exe
#
# Filename: stubmaker
# Authors: Byrne Reese <byrne at majordojo dot com>
# Paul Kulchenko
#
# Copyright (C) 2005 Byrne Reese
#
# Usage:
# stubmaker -[vd] <WSDL URL>
###################################################
our $VERSION = '1.26'; # VERSION
use SOAP::Lite;
use Getopt::Long;
my $VERBOSE = 0;
my $DIRECTORY = ".";
GetOptions(
'd=s' => \$DIRECTORY,
'v' => \$VERBOSE,
help => sub { HELP_MESSAGE(); },
version => sub { VERSION_MESSAGE(); exit(0); },
) or HELP_MESSAGE();
HELP_MESSAGE() unless $ARGV[0];
my $WSDL_URL = shift;
print "Writing stub files...\n" if $VERBOSE;
my %services = %{SOAP::Schema->schema_url($WSDL_URL)
->cache_ttl(1)
->cache_dir($DIRECTORY)
->parse()
->load
->services};
Carp::croak "More than one service in service description. Service and port names have to be specified\n"
if keys %services > 1;
sub VERSION_MESSAGE {
print "$0 $SOAP::Lite::VERSION (C) 2005 Byrne Reese.\n";
}
sub HELP_MESSAGE {
VERSION_MESSAGE();
print <<EOT;
usage: $0 -[options] <WSDL URL>
options:
-v Verbose Outputbe quiet
-d <dirname> Output directory
EOT
exit 0;
}
__END__
=pod
=head1 NAME
stubmaker - Generates client stubs from a WSDL file.
=head1 OPTIONS
=over
=item -d <dirname>
Specifies the directory you wish to output the files to. The directory must already exist.
=item -v
Turns on "verbose" output during the code stub generation process. To be honest, there is not much the program outputs, but if you must see something output to the console, then this fits the bill.
=item --help
Outputs a short help message.
=item --version
Outputs the current version of stubmaker.
=back
=cut
=head1 STUB FILES
=head2 STUB SUBROUTINES
The "class" or "package" created by stubmaker is actually a sub-class of
the core SOAP::Lite object. As a result, all methods one can call upon
L<SOAP::Lite> one can also call upon generated stubs.
For example, suppose you wanted to obtain readable output from the generated
stub, then simply call C<readable(1)> on the stub's instance. See the example
below.
The following subroutines are unique to generated stub classes, and help the
user control and configure the stub class.
=over
=item want_som(boolean)
When set to 1, SOAP::Lite will return SOAP::SOM objects to the user upon
invoking a method on a remote service. This is very helpful when you need
to check to see if the return value is a SOAP::Fault or not. When set to 0,
SOAP::Lite will return the return value of the method.
=back
=cut
=head1 EXAMPLES
=head2 Invoking stubmaker from the command line
> perl stubmaker http://www.xmethods.net/sd/StockQuoteService.wsdl
Or:
> perl "-MStockQuoteService qw(:all)" -le "print getQuote('MSFT')"
=head2 Working with stub classes
Command line:
> perl stubmaker http://ws1.api.re2.yahoo.com/ws/soap-demo/full.wsdl
File: echo
> use full;
> use SOAP::Lite +trace => qw( debug );
> my $f = new full;
> $f->use_prefix(0);
> $f->readable(1);
> $f->want_som(1);
> $som = $f->echoViaBase64("foo");
=head1 COPYRIGHT
Copyright (C) 2000-2005 Paul Kulchenko. All rights reserved.
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
|