(RADIATOR) Debugging perl script

[Mike McCauley]

Hello Eric,

On Wednesday 12 January 2005 17:49, Erik Wirring LE34 Trimble Center Danmark 
wrote:
> Hello
>
> I am trying to debug a perl script that is a PostAuthHook
>
> According to the hooks.txt examplefiles in \goodies I should write somthing
> like this:
>
> hooks.txt:
> **************
> 	&main::log($main::LOG_DEBUG,
>             "Profile = $profile, Identifier = $identifier");
>
> in my script i Have written:
> ****************
> 	&main::log(&main::LOG_DEBUG, "RIP\n");
>
> but gets this error in the log at runtime:
>
> Wed Jan 12 07:36:08 2005: ERR: Error in PostAuthHook(): Undefined
> subroutine &main::LOG_DEBUG called at (eval 30) line 23.
>
> anybody got an idea whats going wrong ??


You have &main::LOG_DEBUG instead of $main::LOG_DEBUG.
The & tells perl upu want a subroutine, but you really want the $ meaning a 
variable called main::LOG_DEBUG.

>
> Med venlig hilsen
>
> Erik Wirring
> Udviklingschef
> Landinspektør
>
> Email: EW at LE34.Dk
> Direkte tlf: 77 332 257
> Mobil tlf:    51 314 257
>
> Landinspektørfirmaet LE34
> Energivej 34
> 2750 Ballerup
> Tlf.   77 332 233
> Fax. 77 332 299
> Http://www.LE34.Dk
> Http://GPSnet.dk     Danmarks Elektroniske Referencenet
>
> --
> Archive at http://www.open.com.au/archives/radiator/
> Announcements on radiator-announce at open.com.au
> To unsubscribe, email 'majordomo at open.com.au' with
> 'unsubscribe radiator' in the body of the message.

-- 
Mike McCauley                               mikem at open.com.au
Open System Consultants Pty. Ltd            Unix, Perl, Motif, C++, WWW
9 Bulbul Place Currumbin Waters QLD 4223 Australia   http://www.open.com.au
Phone +61 7 5598-7474                       Fax   +61 7 5598-7070

Radiator: the most portable, flexible and configurable RADIUS server 
anywhere. SQL, proxy, DBM, files, LDAP, NIS+, password, NT, Emerald, 
Platypus, Freeside, TACACS+, PAM, external, Active Directory, EAP, TLS, 
TTLS, PEAP etc on Unix, Windows, MacOS etc.

--
Archive at http://www.open.com.au/archives/radiator/
Announcements on radiator-announce at open.com.au
To unsubscribe, email 'majordomo at open.com.au' with
'unsubscribe radiator' in the body of the message.