[Bio] / FigWebServices / wsdl_ach.cgi Repository:
ViewVC logotype

Annotation of /FigWebServices/wsdl_ach.cgi

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (view) (download)

1 : disz 1.1 #__perl__
2 :    
3 :    
4 :    
5 :     use strict;
6 :     use warnings;
7 :     use lib '/home/redwards/perl/lib/perl5/site_perl/5.8.7/';
8 :     use Pod::WSDL;
9 :     use CGI::Carp qw(fatalsToBrowser);
10 :     use CGI qw(header);
11 :     my $url=$FIG_Config::cgi_url . "/webservices_ACH.cgi";
12 :    
13 :    
14 :     my $p = new Pod::WSDL(source => 'webservices_ACH.cgi',
15 :     location => $url,
16 :     pretty => 1,
17 :     withDocumentation => 1);
18 :    
19 :     print header('text/plain'), $p->WSDL;

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3