View the DQSD CVS repository here:
http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/dqsd/

Update of /cvsroot/dqsd/dqsd/searches
In directory sc8-pr-cvs1:/tmp/cvs-serv30314/searches

Added Files:
        perldoc.xml 
Log Message:
perldoc search.. checked in for Dean Wilson

--- NEW FILE: perldoc.xml ---
<search function="perldoc">
  <name>Perldoc Search</name>
  <category>Computers<category>Programming</category></category>
  <contributor>Dean Wilson</contributor>
  <link>http://perldoc.com/</link>
  <email>dean dot wilson3 at virgin dot net</email>
  <description>
  Search the online documentation for builtin functions from any released
        version of Perl. Defaults to version 5.8.0 (The newest release as of May
        25 2003)
    <div class="helpboxDescLabels">Switches:</div>
    <table class="helpboxDescTable">
        <tr><td>/perl5.8.0</td><td> - </td><td>Search within Perl version 
5.8.0</td></tr>
        <tr><td>/perl5.6.1</td><td> - </td><td>Search within Perl version  
5.6.1</td></tr>
        <tr><td>/perl5.6.0</td><td> - </td><td>Search within Perl version 
5.6.0</td></tr>
        <tr><td>/perl5.005_03</td><td> - </td><td>Search within Perl version 
5.005_03</td></tr>
        <tr><td>/perl5.004_05</td><td> - </td><td>Search within Perl version 
5.004_05</td></tr>
    </table>

    <div class="helpboxDescLabels">Examples:</div>
    <table class="helpboxDescTable">
        <tr><td>perldoc fileno</td></tr>
        <tr><td>perldoc opendir /perl5.6.1</td></tr>
        <tr><td>perldoc closedir /561</td></tr>
        <tr><td>perldoc readdir /56</td></tr>
    </table>

  </description>
  <form name="perldocf"
        method="get"
        action="http://perldoc.com/cgi-bin/htsearch";>

    <input type="hidden" name="words" value="" />
    <input type="hidden" name="restrict" value="" />
  </form>

  <script><![CDATA[
    function perldoc(q)
    {
      if( nullArgs("perldoc", q) )
        return;
                
      var args = parseArgs(q, "perl5.6, perl5.8.0, perl5.6.1, perl5.6.0, perl5.005_03, 
perl5.004_05, perl5.8, perl58, 5.8.0, 580, 58, perl56, 5.6.0, 560, 56, perl561, 5.6.1, 
561, 5.005_03, 5.004_05");

       if ( args.switches.length == 1)
      {
        switch( args.switches[0].name )
        {
          //basic catches, these are identical to params passed to the cgi
          case "perl5.6":
            document.perldocf.restrict.value = "perl5.6";
            break;
          case "perl5.8.0":
            document.perldocf.restrict.value = "perl5.8.0";
            break;
          case "perl5.6.1":
            document.perldocf.restrict.value = "perl5.6.1";
            break;
          case "perl5.6.0":
            document.perldocf.restrict.value = "perl5.6";
            break;
          case "perl5.005_03":
            document.perldocf.restrict.value = "perl5.005_03";
            break;
          case "perl5.004_05":
            document.perldocf.restrict.value = "perl5.004_05";
            break;
          // shorthand catches for the lazy, and me.
          case "perl5.8":
            document.perldocf.restrict.value = "perl5.8.0";
            break;
          case "perl58":
            document.perldocf.restrict.value = "perl5.8.0";
            break;
          case "5.8.0":
            document.perldocf.restrict.value = "perl5.8.0";
            break;
          case "580":
            document.perldocf.restrict.value = "perl5.8.0";
            break;
          case "58":
            document.perldocf.restrict.value = "perl5.8.0";
            break;
          case "perl56":
            document.perldocf.restrict.value = "perl5.6";
            break;
          case "5.6.0":
            document.perldocf.restrict.value = "perl5.6";
            break;
          case "560":
            document.perldocf.restrict.value = "perl5.6";
            break;
          case "56":
            document.perldocf.restrict.value = "perl5.6";
            break;
          case "perl561":
            document.perldocf.restrict.value = "perl5.6.1";
            break;
          case "5.6.1":
            document.perldocf.restrict.value = "perl5.6.1";
            break;
          case "561":
            document.perldocf.restrict.value = "perl5.6.1";  //56 calls this
            break;
            //these are old, less used and have a verbose version number.
            //if your still using them you deserve pain. :)
          case "5.005_03":
            document.perldocf.restrict.value = "perl5.005_03";
            break;
          case "5.004_05":
            document.perldocf.restrict.value = "perl5.004_05";
            break;
          default:
            document.perldocf.restrict.value = "perl5.8.0";
            break;
        }
      } else {
          document.perldocf.restrict.value = "perl5.8.0";
      }

      document.perldocf.words.value = args.q;

      submitForm(perldocf);
    }
  ]]></script>
  <copyright>
    The following applies if this file is included and distributed with Dave's Quick 
Search Deskbar:
    Copyright (c) 2002 David Bau; Distributed under the terms of the GNU Public 
License, Version 2 (http://www.gnu.org/copyleft/gpl.txt)
  </copyright>
  <created_by>
    This search file was initially created on 05/24/03 at 12:53:16
    by Dave's Quick Search Deskbar Search Wizard version 1.0.1 ,
    Copyright (c) 2002 Glenn Carr; Distributed under the terms of the GNU General 
Public License, Version 2
  </created_by>
</search>




-------------------------------------------------------
This SF.net email is sponsored by:  Etnus, makers of TotalView, The best
thread debugger on the planet. Designed with thread debugging features
you've never dreamed of, try TotalView 6 free at www.etnus.com.
_______________________________________________
DQSD-CVS mailing list
https://lists.sourceforge.net/lists/listinfo/dqsd-cvs
DQSD CVS repository:
http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/dqsd/

Reply via email to