How to add rejoin delay

[Vovozozo]

Hello

How can I add rejoin delay to clans?

in gregoo clan files it was added. Would be nice if someone can help to add in sandurr clan files it.

Thanks

[MentaL]

[bobsobol]

That is a matter of the Server Side Scripting. Gregoo uses PHP (if I'm not mistaken) and Sandurrs clan system was ASP, but PHP and ASPX derivatives exist as well, I believe. (correct me if I'm wrong, I still don't have much luck with clans)

So it's not specifically the Sandurr Clan system (CSM, Clan SoD Manager) which is the problem.

If you know ASP / ASP .Net or PHP, then making the change shouldn't be too hard. If you don't, you should use files in the one you do understand... otherwise how do you edit them to fix the security when hackers exploit them? (Just a thought)

If you share the source of your clanjoin server-side script, we can suggest edits you could make. But unless you are using an unaltered version from of the stickied release I know many people have released various re-packs of this system, and what you do with each one is likely to be very different.

[Vovozozo]

Gregoo system is written in ASP

[tnrh1]

Bobsbol just said that -.-
learn some asp or post your script here and we will help you.

[Vovozozo]

My script = Sandurr script
The default script

[bobsobol]

Bobsbol just said that -.-

No, I said I thought Gregoo had used PHP. As you will see here Vovozozo was right to correct me. I think the download isn't working yet, but I also remember Gregoo saying to Osirus that they also needed some work, and he has said that time is in very short supply for him at the moment.

My guess that Vovzozos' files are like these:-

Spoiler:

clanInsertClanWon.asp

<!-- #include file ="settings.asp" -->
<%
'Written By Sandurr COPYRIGHT Sandurr 2006
'Written By Sandurr COPYRIGHT Sandurr 2006
'Written By Sandurr COPYRIGHT Sandurr 2006
'Written By Sandurr COPYRIGHT Sandurr 2006
'Written By Sandurr COPYRIGHT Sandurr 2006
'Version 2.0 NOVEMBER 2006

' Assign Global Variables
Dim dbhost, dbuser, dbpass, dbname, userid, gserver, chname, clName, clwon, clwonUserid, lv, ticket, chtype, chlv, chipflag

FillSettings()

Dim strSplit
strSplit = Chr("&H" & "0D")

' Parameter Variables
' clanInsertClanWon (userid, gserver, chname, clName, clwon, clwonUserid, lv, chtype, chlv, chipflag)
userid = Trim(Request("userid")) 'Userid of Leader
gserver = Trim(Request("gserver")) 
chname = Trim(Request("chname")) 'Char name of Leader
clName = Trim(Request("clName"))
clwon = Trim(Request("clwon")) 'Char name of invited player
clwonUserid = Trim(Request("clwonUserid")) 'Userid of invited player
lv = Trim(Request("lv")) 'unimportant
chtype = Trim(Request("chtype"))
chlv = Trim(Request("chlv"))
chipflag = Trim(Request("chipflag")) 'char IP flag ? unimportant
ticket = Trim(Request("ticket"))

if userid = "" Or gserver = "" Or chname = "" Or clName = "" Or clwon = "" Or clwonUserid = "" Or lv = "" Or chtype = "" Or chlv = "" Or ticket = "" Then
    Response.Write("Code=100" & strSplit)
    Response.End
End if

Dim QUERY, RS, objConn

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=SQLOLEDB; Data Source=" & dbhost & "; Initial Catalog=" & dbname & "; User ID=" & dbuser & "; Password=" & dbpass

Set RS = Server.CreateObject("ADODB.Recordset")
CheckTicket userid, ticket

QUERY = "SELECT IDX,ClanZang,MemCnt FROM CL WHERE ClanName='" & clName & "'"
RS.Open QUERY, objConn, 3, 1

Dim strReturn
Dim ClanLeader, ClanMembers, ClanSubChief, IDX
if RS.RecordCount >= 1 Then
    ClanLeader = RS("ClanZang").Value
    ClanMembers = CInt(RS("MemCnt").Value)
    IDX = RS("IDX").Value
    RS.Close
Else
    Set RS = Nothing
    objConn.Close
    Set objConn = Nothing
    strReturn = "Code=0" & strSplit
    Response.Write(strReturn)
    Response.End
End if

If (CInt(MemCnt) + 1) > 100 Then
    Set RS=Nothing
    objConn.Close
    Set objConn = Nothing
    strReturn = "Code=2" & strSplit
    Response.Write(strReturn)
    Response.End
End If

QUERY = "SELECT ChName FROM UL WHERE Permi=2 AND ClanName='" & clName & "'"
RS.Open QUERY, objConn, 3, 1

If RS.RecordCount >= 1 Then
    ClanSubChief = RS("ChName").Value
Else
    ClanSubChief = ""
End If

if ClanLeader <> chname And ClanSubChief <> chname Then
    Set RS = Nothing
    objConn.Close
    Set objConn = Nothing
    strReturn = "Code=0" & strSplit
    Response.Write(strReturn)
    Response.End
End if

RS.Close

QUERY = "SELECT ClanName FROM UL WHERE ChName='" & clwon & "'"
RS.Open QUERY, objConn, 3, 1

Dim UclName
if RS.RecordCount >= 1 Then
    UclName = RS("ClanName").Value
Else
    UclName = ""
End if

if Not UclName = "" Then
    RS.Close
    Set RS = Nothing
    objConn.Close
    Set objConn = Nothing
    strReturn = "Code=0" & strSplit
    Response.Write(strReturn)
    Response.End
Else
    if UclName = "" And RS.RecordCount >= 1 Then
        RS.Close
        QUERY = "DELETE FROM UL WHERE ChName='" & clwon & "'"
        RS.Open QUERY, objConn, 3, 1
    End if
End if
RS.Close

ClanMembers = ClanMembers + 1

QUERY = "UPDATE CL SET MemCnt='" & ClanMembers & "' WHERE ClanName='" & clName & "'"
RS.Open QUERY, objConn, 3, 1
QUERY = "INSERT INTO UL ([IDX],[userid],[ChName],[ClanName],[ChType],[ChLv],[Permi],[JoinDate],[DelActive],[PFlag],[KFlag],[MIconCnt]) values('" & IDX & "','" & clwonUserid & "','" & clwon & "','" & clName & "','" & chtype & "','" & chlv & "','0',getdate(),'0','0','0','0')"
RS.Open QUERY, objConn, 3, 1

strReturn = "Code=1" & strSplit
SET RS = Nothing
objConn.Close
SET objConn = Nothing

Response.Write(strReturn)
%>

clanWonRelease.asp

<!-- #include file ="settings.asp" -->
<%
'Written By Sandurr COPYRIGHT Sandurr 2006
'Written By Sandurr COPYRIGHT Sandurr 2006
'Written By Sandurr COPYRIGHT Sandurr 2006
'Written By Sandurr COPYRIGHT Sandurr 2006
'Written By Sandurr COPYRIGHT Sandurr 2006
'Version 2.0 NOVEMBER 2006

' Assign Global Variables
Dim dbhost, dbuser, dbpass, dbname, userid, gserver, chname, clName, clwon1, ticket

FillSettings()

Dim strSplit
strSplit = Chr("&H" & "0D")

' Parameter Variables
' clanWonRelease (userid, gserver, chname, clName, clwon1)
userid = Trim(Request("userid"))
gserver = Trim(Request("gserver"))
chname = Trim(Request("chname"))
clName = Trim(Request("clName"))
clwon1 = Trim(Request("clwon1"))
ticket = Trim(Request("ticket"))

if userid = "" Or gserver = "" Or chname = "" Or clName = "" Or clwon1="" Or ticket="" Then
    Response.Write("Code=100" & strSplit)
    Response.End
End if

Dim QUERY, RS, objConn

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=SQLOLEDB; Data Source=" & dbhost & "; Initial Catalog=" & dbname & "; User ID=" & dbuser & "; Password=" & dbpass

Set RS = Server.CreateObject("ADODB.Recordset")
CheckTicket userid, ticket

QUERY = "SELECT ClanName FROM UL WHERE ChName='" & clwon1 & "'"
RS.Open QUERY, objConn, 3, 1

Dim strReturn
Dim clName2

if RS.RecordCount >= 1 Then
    clName2 = RS("ClanName").Value
    if clName2 = "" Then
        QUERY = "DELETE FROM UL WHERE ChName='" & clwon1 & "'"
        RS.Open QUERY, objConn, 3, 1
        SET RS = Nothing
        objConn.Close
        SET objConn = Nothing
        strReturn = "Code=0" & strSplit
        Response.Write(strReturn)
        Response.End
    End if
    if Not clName2 = clName Then
        RS.Close
        SET RS = Nothing
        objConn.Close
        SET objConn = Nothing
        strReturn = "Code=0" & strSplit
        Response.Write(strReturn)
        Response.End
    End if
Else
    RS.Close
    SET RS = Nothing
    objConn.Close
    SET objConn = Nothing
    strReturn = "Code=0" & strSplit
    Response.Write(strReturn)
    Response.End
End if

RS.Close
QUERY = "SELECT ClanZang,MemCnt FROM CL WHERE ClanName='" & clName & "'"
RS.Open QUERY, objConn, 3, 1

Dim ClanLeader, ClanMembers
ClanLeader = RS("ClanZang").Value
ClanMembers = CInt(RS("MemCnt").Value)
ClanMembers = ClanMembers - 1

if clwon1 = ClanLeader Then
    RS.Close
    SET RS = Nothing
    objConn.Close
    SET objConn = Nothing
    strReturn = "Code=4" & strSplit
    Response.Write(strReturn)
    Response.End
End if

QUERY = "UPDATE CL SET MemCnt='" & ClanMembers & "' WHERE ClanName='" & clName & "'"
Dim QUERY2
QUERY2 = "DELETE FROM UL WHERE ChName='" & clwon1 & "'"
RS.Close
RS.Open QUERY, objConn, 3, 1
RS.Open QUERY2, objConn, 3, 1

SET RS = Nothing
objConn.Close
SET objConn = Nothing
strReturn = "Code=1" & strSplit

Response.Write(strReturn)
%>

clanWonSelfLeave.asp

<!-- #include file ="settings.asp" -->
<%
'Written By Sandurr COPYRIGHT Sandurr 2006
'Written By Sandurr COPYRIGHT Sandurr 2006
'Written By Sandurr COPYRIGHT Sandurr 2006
'Written By Sandurr COPYRIGHT Sandurr 2006
'Written By Sandurr COPYRIGHT Sandurr 2006
'Version 2.0 NOVEMBER 2006

' Assign Global Variables
Dim dbhost, dbuser, dbpass, dbname, userid, gserver, chname, clName, ticket

FillSettings()

Dim strSplit
strSplit = Chr("&H" & "0D")

' Parameter Variables
' clanWonSelfLeave (userid, gserver, chname, clName)
userid = Trim(Request("userid"))
gserver = Trim(Request("gserver"))
chname = Trim(Request("chname"))
clName = Trim(Request("clName"))
ticket = Trim(Request("ticket"))

if userid = "" Or gserver = "" Or chname = "" Or clName = "" Or ticket = "" Then
    Response.Write("Code=100" & strSplit)
    Response.End
End if

Dim QUERY, RS, objConn

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=SQLOLEDB; Data Source=" & dbhost & "; Initial Catalog=" & dbname & "; User ID=" & dbuser & "; Password=" & dbpass

Set RS = Server.CreateObject("ADODB.Recordset")
CheckTicket userid, ticket

QUERY = "SELECT ClanName,Permi FROM UL WHERE ChName='" & chname & "'"
RS.Open QUERY, objConn, 3, 1

Dim strReturn
Dim clName2

if RS.RecordCount >= 1 Then
    clName2 = RS("ClanName").Value
    if clName2 = "" Then
        QUERY = "DELETE FROM UL WHERE ChName='" & chname & "'"
        RS.Open QUERY, objConn, 3, 1
        SET RS = Nothing
        objConn.Close
        SET objConn = Nothing
        strReturn = "Code=0" & strSplit
        Response.Write(strReturn)
        Response.End
    End if
    if Not clName2 = clName Then
        RS.Close
        SET RS = Nothing
        objConn.Close
        SET objConn = Nothing
        strReturn = "Code=0" & strSplit
        Response.Write(strReturn)
        Response.End
    End if
Else
    RS.Close
    SET RS = Nothing
    objConn.Close
    SET objConn = Nothing
    strReturn = "Code=0" & strSplit
    Response.Write(strReturn)
    Response.End
End if

RS.Close
QUERY = "SELECT ClanZang,MemCnt FROM CL WHERE ClanName='" & clName & "'"
RS.Open QUERY, objConn, 3, 1

Dim ClanLeader, ClanMembers
ClanLeader = RS("ClanZang").Value
ClanMembers = CInt(RS("MemCnt").Value)
ClanMembers = ClanMembers - 1

if chName = ClanLeader Then
    RS.Close
    SET RS = Nothing
    objConn.Close
    SET objConn = Nothing
    strReturn = "Code=4" & strSplit
    Response.Write(strReturn)
    Response.End
End if

QUERY = "UPDATE CL SET MemCnt='" & ClanMembers & "' WHERE ClanName='" & clName & "'"
Dim QUERY2
QUERY2 = "DELETE FROM UL WHERE ChName='" & chname & "'"
RS.Close
RS.Open QUERY, objConn, 3, 1
RS.Open QUERY2, objConn, 3, 1

SET RS = Nothing
objConn.Close
SET objConn = Nothing
strReturn = "Code=1" & strSplit

Response.Write(strReturn)
%>

One should record the date and time when a player leaves a clan, and disallow Clan join if that date is too close to the present date.

I don't understand how the files are used well enough to inform much, but I think these should be the files executed when you join, are kicked or chose to leave.

If anyone knows otherwise please correct me.