Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re: PM Login Problems

by Zecho (Hermit)
on Oct 22, 2001 at 09:31 UTC ( [id://120436]=note: print w/replies, xml ) Need Help??


in reply to PM Login Problems

Here's a quick fix I worked up here on my machine
At the top of the code for the login page, I added:
if ($query->param('safe_mode') eq 'true') { $$VARS{nodelets_off} = 1; } else { $$VARS{nodelets_off} = 0; }
and I changed this:
$query->checkbox("expires", "", "+10y", "save me a permanent c +ookie, cowboy!"). $query->submit("submit", "submit")

to
$query->checkbox("expires", "", "+10y", "save me a permanent c +ookie, cowboy!")."<br>". $query->checkbox("safe_mode", "", "true" ,"Nodelets Of +f.")."<br>". $query->submit("submit", "submit")
This works like a charm, without any side effects (at least none that I've seen so far). It's just a suggestion but, knowing my experience-level, there may be security or other related issues that I'm not aware of.

Update if you want to see this in action, go here and just click it on and off, no need for a username etc. Once you click submit, it will adjust the nodelets accordingly.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://120436]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others learning in the Monastery: (4)
As of 2024-09-20 17:47 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    The PerlMonks site front end has:





    Results (26 votes). Check out past polls.

    Notices?
    erzuuli‥ 🛈The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.