Auto redirect script

Which hub software is the best? Where can I find script XXX? Discuss it here...(no, this is not for advertising your hub...)

Moderator: Moderators

Locked
Paul_Don
Posts: 146
Joined: 2003-01-29 06:41
Location: uk
Contact:

Auto redirect script

Post by Paul_Don » 2003-07-07 10:41

Any of u badass coders reckon u do me a quick script that will redirect users to another address if there not registered? :twisted:

Atomic Jo
Posts: 62
Joined: 2003-01-04 03:50
Location: Québec, Canada
Contact:

Post by Atomic Jo » 2003-07-07 11:04

Code: Select all

Const REDIRECTADDRESS = "myhub.no-ip.com" 'hub address to redirect to

Sub NewUserConnected(User)
  User.ForceMove CStr(REDIRECTADDRESS)
End Sub

Paul_Don
Posts: 146
Joined: 2003-01-29 06:41
Location: uk
Contact:

Post by Paul_Don » 2003-07-07 11:53

And with maybe a private message :P :oops:

Atomic Jo
Posts: 62
Joined: 2003-01-04 03:50
Location: Québec, Canada
Contact:

Post by Atomic Jo » 2003-07-07 14:15

Code: Select all

Const REDIRECTADDRESS = "myhub.no-ip.com" 'hub address to redirect to

Sub NewUserConnected(User)
  User.PrivateMessage "RedirectBot", "This Hub is only for Registered Users."
  frmHub.DoEventsForMe
  User.ForceMove CStr(REDIRECTADDRESS)
  frmHub.DoEventsForMe
  User.Disconnect
End Sub
The last .Disconnect is for clients which didn't automatically follow the redirection directive (DC++ option). If you don't want this, just uncomment the two latest lines. (frmhub and user.disconnect)

Paul_Don
Posts: 146
Joined: 2003-01-29 06:41
Location: uk
Contact:

Post by Paul_Don » 2003-07-07 16:19

cheerz buddy appreciate it

Locked