PEAR::SOAP now can generate WSDL for you. The first part is setting up the basic logic to choose whether you process SOAP, or generate DISCO or WSDL output.