Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Hello Priestly perl guys,

I hope that you can answer a couple of questions for a perl newbie.

1. I was connecting to a SQL Server DB through DBI, using a DSN that I set up. I now need to move this over to a Red Hat box, and I I am not sure how to connect to the DB without using ODBC.

2.I am trying to dowload a file from the internet, but I keep getting the following the 401 authorization error. Here is the code I am using:

require LWP::UserAgent; use HTTP::Request::Common; use Digest::MD5; $ua = LWP::UserAgent->new; $ua->credentials("datafeedsCentral.com", "Datafeeds", $user, $password +); # URL where to download the database and its updates $url = "http://datafeedsCentral.com/datafeeds/$user/vuldb/"; # download the initial database dump from the server sub download_dump { my $response; print "Downloading initial database dump.\n"; $response = $ua->request(GET("$url/vdb-dump.tgz"), 'vdb-dump.tgz'); if (!$response->is_success) { die "Can't download vdb-dump.tgz: " . $response->status_line . "\n +"; }
I can download it through IE, it pops up a box asking for a username and a password. I am pretty sure that the netloc and realm are correct. I know that my username and password are.

Any help is appriciated.

Thanks

Edit by tye

Replies are listed 'Best First'.
Re: 2 Questions!!
by arunhorne (Pilgrim) on May 21, 2002 at 00:16 UTC

    Hi

    You could certainly simplify your code by using the LWP::Simple module to access web resource. It exports a UserAgent for a start. Infact rather topically Dog and Pony wrote this just hours ago: Getting more out of LWP::Simple.

    I may be mistaken but in your code above the download_dump subroutine is never called..?

    Sorry can't be of more help, but I really think LWP::Simple may serve to make your code more readable and easier for others to work with?

    Arun.

Re: 2 Questions!!
by grep (Monsignor) on May 21, 2002 at 01:44 UTC
    As for your SQL server connection problem there is a Q&A on this.

    You should also check out the Linux Journal article from the April 2002 Issue It is not availible online, yet. It explains a solution with FreeTDS and DBD::Sybase.

    grep
    These are not the monks you are looking for, move along