LWP UserAgent

[Andrew Precht]

Hi Monks, I have no knowledge of perl, so please forgive... I've been asked to rebuild a RADIUS server. The guys at FreeRadius.org have really helped me get it up and running. However, my next issue is getting this perl script to run. Where do I start in tracking down this error: Can't locate object method "new" via package "LWP::UserAgent" (perhaps you forgot to load "LWP::UserAgent"?) at /etc/raddb/sjpl.pl line 94.

here is the offending code in line 94

my $ua = LWP::UserAgent->new;

here is all the code added to the default Radius script

sub authenticate {

#  my $logfile = "/var/log/patron/sign-on.log";
my $logfile = "/dev/null";
my $testfile = "/etc/raddb/test.text";
my $date = `/bin/date`;
chomp $date;
my $url = "https://10.151.4.3:54620/PATRONAPI/" . $RAD_REQUEST{'User-N
+ame'} . "/" . $RAD_REQUEST{'User-Password'} . "/pintest";
my $ua = LWP::UserAgent->new;
my  $output1 = $ua->get($url);
my $output = $output1->as_string;

#       For debugging purposes only
#       &log_request_attributes;

        if ($output =~ /RETCOD=0/) {
                `echo "$date : SUCCESS via SSL $RAD_REQUEST{'User-Name
+'} - $RAD_REQUEST{'User-Password'}" >> $logfile`;
                $RAD_REPLY{'Reply-Message'} = "Success";
                return RLM_MODULE_OK;
        } else {
                `echo "$date : FAIL via SSL $RAD_REQUEST{'User-Name'} 
+- $RAD_REQUEST{'User-Password'}" >> $logfile`;
                $RAD_REPLY{'Reply-Message'} = "Denied access by RADIUS
+";
                return RLM_MODULE_REJECT;
        }
}

Thanks for any help.

[blue_cowdawg]

Hi Monks, I have no knowledge of perl, so please forgive.

My heartfelt advice to you is to fix that problem before going any further. Just as I'd not get into a car and drive cross country before I learned a) how to drive and b) how to navigate I don't suggest trying to do something as sophisticated as you're attempting without learning the basics first.

That said, let me lay out a foundation for you.

#!/usr/bin/perl -w 
################################################
# First line is called a "shebang" and on a *nix or Cygwin environment
+ loads the 
# interpreter
use strict;  # keep an eye on our code looking for major faults
use LWP::UserAgent;

my $res=authenticate();        # Call your sub.  You might want to  
                               # decide what to do with the return cod
+e.
# more code goes here
exit(0);

#the code you posted goes here

Find your self a book such as Learning Perl to get a handle on things. I wouldn't attempt to build a house without some basic construction technique knowledge.

[toolic]

Add this line near the top of your /etc/raddb/sjpl.pl file:

use LWP::UserAgent;

[Andrew Precht]

Thanks toolic, use LWP::UserAgent; worked:)

Thanks Blue Cowdawg, I am in agreement with you... Unfortunately, time does not allow.

[Tanktalus]

Unfortunately, time does not allow.

To carry on with blue_cowdawg's apt analogy, you've basically asked "I have no knowledge of driving, so please forgive ... I need to get across the country, and was given this car. How do I start it?" Once someone has pointed out how to put the key in the ignition, turn it, and press the gas pedal, you've ignored the advice to learn how to drive and navigate, and just stuck a brick on the accelerator while you hop into the back seat to connect to the office on your 3G-enabled laptop.

As you might be able to guess, this does not bode well.

Sometimes....

you don't have time NOT to learn.

Make sure your management is aware of that before they give you instructions that will result not only in a crash down the line, but with even less time to adapt and learn things to resolve it.

[Old_Gray_Bear]

Sigh. There is never time enough to do it right, but that is always enough time to do it over.