WSDL Analyzer

#!/usr/bin/perl -w use strict; use XML::XSLT; my $xslfile = 'soap.xsl'; my $xmlfile = 'query.wsdl'; #my $parser = XML::XSLT->new (SOURCE => $xslfile); #print $parser->serve (SOURCE => $xmlfile); my $xslt = XML::XSLT->new ($xslfile, warnings => 1); open ( XML, "$xmlfile" ) or die "$! -- $?\n"; my $stuff = join "", ; close(XML); print "$stuff\n"; $xslt->transform ($stuff); print "Content-type: text/html\n\n"; print $xslt->toString; $xslt->dispose; ##

##








		
		WSDL Analyzer


		
				
						
				
				
						Endpoint: 
				
				
						Description: 
				
		
		



		
				
					Operations
				
				
					
				
		






		
				
					
				
				
						
						Request:

						
						
						
						Response:

						
						           
						
						
				
		
		



















 : 







    



 : 







 

##


Endpoint:
Description:


Request: Response:

##



	
		
			
				
					
					
					
					
					
				
			
			
				
					
						
					
				
			
			
				
					
					
				
			
			
				
					
						
					
				
			
			
				
					
					
					
					
					
					
					
					
					
					
					
					
					
				
			
		
	
	
		
	
	
		
	
	
	
		
	
	
	
		
	
	
		
	
	
		
	
	
		
	
	
		
	
	
		
			
			
		
		
			
			
		
		
			
			
		
		
			
			
		
		
			
			
		
	
	
		
		
			
			
				
			
			
				
			
		
		
			
			
				
			
			
				
			
		
		
			
			
				
			
			
				
			
		
		
			
			
				
			
			
				
			
		
		
			
			
				
			
			
				
			
		
	
	
		XMethods query service