Step 1.

In the file DODS_Dispatch.pm, find the function get_url(). It be around line
800, depending on the version you have and will like this (all affected
versions of the function look essentailly the same):

sub get_url {
    my $self = shift;
    my $url  = shift;

    my $transfer = $self->curl() . " --silent " . $url . " |";
    my $buf;
    print( DBG_LOG "About to run curl: $transfer\n" ) if $debug > 1;

    # Use the HTML error message format since this is only used via a web
    # browser, never a client built with our library. 11/21/03 jhrg
    open CURL, $transfer
      or print_error_message(
        $self, "Could not transfer $url: \n\
Unable to open the transfer utility (curl).\n", 0 );
    print( DBG_LOG "Back from curl\n" ) if $debug > 1;
    my $offset = 0;
    my $bytes;
    while ( $bytes = read CURL, $buf, 20, $offset ) {
        $offset += $bytes;
    }

    close CURL;

    return $buf;
}

Replace that with:

sub get_url {
    my $self = shift;
    my $url  = shift;

    use CGI;
    use LWP::Simple;
    use FilterDirHTML;      # FilterDirHTML is a subclass of HTML::Filter

    print(DBG_LOG "get_url: Getting the directory listing using: $url\n")
       if $debug > 1;

    my $directory_html = &get($url);

    return $directory_html 
}

Step 2.

Look in the nph-dods program for this line (whick older servers don't have):

    my $dodster    = is_dodster( $dispatch->filename() );

If it's present, change it to:

    my $dodster = "";

Step 2b.

Look in nph-dods for:

    $dispatch = new DODS_Dispatch( "DAP2/<version>" ....

Where <version> is soem version number like "3.7.4", or "3.4". Change that to
"3.8.0". This is not technically true, you're really still running a patched
version 3.2.x or 3.7.x or whatever server, but this provides a way to see
that your server has been patched in a way that won't break client programs.


Step 3.

Verify that the Perl LWP module is installed. Do this by running the
command: 

       perl -e "use LWP;"

It should return nothing if the module is installed; it will return an error
stating it "Can't locate LWP.pm" if not. In that case install the LWP Perl
module. One way to do this is to use the 'cpan' utility as like:

       sudo cpan -i LWP

And answer the questions as it prompts you. 

4. Verify the patch. The server's version response should be '3.8.0'. In a
browser, look at http://<your server>/cgi-bin/nph-dods/version. If you are
running the server in a special CGI bin directory, use its name instead of
'cgi-bin'. If you get this, you're done.