Secure Query

Alpha · Lurker Joined: 29 Dec 2005 Posts: 206

Just a little secure query script I made.

/* Secure Query
By: Douglas
irc.us-irc.net #chat
Copyright 2005
*/

on ^*:OPEN:?: {
set %check % [ $+ [ acceptpm. ] $+ [ %pmnick ] ]
if ((%check == $null) && (%awaymsg == $null)) {
echo -a $nick is send you a private message 11[ $+ $1- $+ 11]
if (serv isin $nick) { /halt }
msg $nick 11** [14Automated message11] Please hold.
set %pmnick $nick
dialog -ma acceptpm acceptpm
halt
haltdef
}
if (%awaymsg != $null) {
msg $nick I am currently away - 11[ $+ $1- $+ 11]
}
}

dialog acceptpm {
title "Incoming PM"
size -1 -1 110 30
option dbu
box "Do you wish to accept?",1,2 2 115 25
button "Accept",2,15 11 40 11,ok
button "Deny",3,65 11 40 11,cancel
}

dialog denypm {
title "PM Rejected"
size -1 -1 110 50
option dbu
box "Please enter reason",1,2 2 115 45
edit "",2,10 11 100 11,left
button "Ok",3,40 32 40 11,ok
}

on *:dialog:acceptpm:sclick:2: {
set % [ $+ [ acceptpm. ] $+ [ %pmnick ] ] 1
timer 1 300 unset % [ $+ [ acceptpm. ] $+ [ %pmnick ] ]
msg %pmnick 11** Your pm has been accepted
}

on *:dialog:acceptpm:sclick:3: {
dialog -ma denypm denypm
}

on *:dialog:denypm:sclick:3: {
set %denymsg $did(2)
msg %pmnick 11** Your pm has been denied.11 (Reason: 11[ $+ %denymsg $+ 11] $+ )
}
on ^*:CLOSE:?: {
unset %check %reason %pmnick %acceptpm.
halt
haltdef
}

magpie · Idler Joined: 18 Jan 2004 Posts: 454 Location: Essex, UK

Erm, how is this secure?

XVar · Newbie Joined: 21 Sep 2005 Posts: 97

You want secure use FiSH DLL...

Alpha · Lurker Joined: 29 Dec 2005 Posts: 206

I didn't know how else to phrase it. It's a PM script. Oki?

sarkar112 · none Joined: 10 Nov 2004 Posts: 3