Crazy CommFort Server Plugin v1.09 [плагин для сервера]

[leonbratsk]

Там нету команды пригласить. Возможно только отправить сообщение с текстом приглашения.

[CrazyVirus]

по командам тож хорошо. а можешь написать скрипт? ^.^

Вход по команде "!войти [канал]":

Код: Выделить всё

If Left(cp.EventText, 7) = "!войти " Then
  cp.JoinChannel "", Mid(cp.EventText, 8), 0, 0
End If

Выход по команде "!выйти [канал]":

Код: Выделить всё

If Left(cp.EventText, 7) = "!выйти " Then
  cp.LeaveChannel "",  Mid(cp.EventText, 8)
End If

Цепляй на "Личное сообщение" с указанием нужных имён.

[leonbratsk]

Цепляй на "Личное сообщение" с указанием нужных имён.

Всегда мучил вопросик, как перечислять имена в Crazy Pluginах ?
Через запятую ? или пробел? или как то по другому.

[CrazyVirus]

Всегда мучил вопросик, как перечислять имена в Crazy Pluginах ?
Через запятую ? или пробел? или как то по другому.

В серверном плагине через ":", в клиентском через "|".

[CraSTI]

CrazyVirus: понял, спс!=*

[CrazyVirus]

Плагин обновлён.

[DarkLord (M)]

Помогите написать скрипт ...

Мне нужно чтобы при регистрации нового пользователя в канал публиковалась вся инфа о нем указанная при регистрации ...
т.е.

[DarkLord (M)]

Или можно эту информацию записывать в файл с именем пользователя ... тоже вариант )

[CrazyVirus]

Помогите написать скрипт ...

Мне нужно чтобы при регистрации нового пользователя в канал публиковалась вся инфа о нем указанная при регистрации ...

Вот:

Код: Выделить всё

name = cp.EventUserName
id = ""
act = cp.GetActList
For i=0 To UBound(act) Step 8
  If act(i+2)=name Then
    id = act(i+4)
    Exit For
  End If
Next
If id<>"" Then
  ip = cp.EventUserIP
  sameip = ""
  sameid = ""
  users = cp.GetUsers
  For i=0 To UBound(users) Step 3
    If users(i+1)=ip Then
      If sameip<>"" Then
        sameip = sameip & ", "
      End If
      sameip = sameip & """" & users(i) & """"
    End If
    uid = cp.GetUserID(users(i))
    If uid=id Then
      If sameid<>"" Then
        sameid = sameid & ", "
      End If
      sameid = sameid & """" & users(i) & """"
    End If
  Next
  samerest = ""
  rest = cp.GetRestList
  For i=0 To UBound(rest) Step 12
    If rest(i+5)=ip Or rest(i+7)=id Then
      If samerest<>"" Then
        samerest = samerest & ", "
      End If
      samerest = samerest & """" & rest(i+4) & """"
    End If
  Next
  cp.SendMsg "", "registrator", "Запрос на активацию новой учетной записи" & vbNewLine & "Имя: " & name & vbNewLine & "IP-адрес: " & ip & vbNewLine & "С таким же IP-адресом: " & sameip & vbNewLine & "С таким же ID компьютера: " & sameid & vbNewLine & "С таким же IP-адресом/ID компьютера в списке ограничений: " & samerest, false
End If

Вешать на "Запрос на активацию новой учетной записи", естественно.

[DarkLord (M)]

Отлично спасибо , но он не пишет самого главного , "Сообщения" с данными о регистрации ... ну № договора и т.д ... что укажет пользователь при регистрации ...

[CrazyVirus]

Отлично спасибо , но он не пишет самого главного , "Сообщения" с данными о регистрации ... ну № договора и т.д ... что укажет пользователь при регистрации ...

Упс, забыл.
Заменить код отправки сообщения на

Код: Выделить всё

cp.SendMsg "", "main", "Запрос на активацию новой учетной записи" & vbNewLine & "Имя: " & name & vbNewLine & "IP-адрес: " & ip & vbNewLine & "С таким же IP-адресом: " & sameip & vbNewLine & "С таким же ID компьютера: " & sameid & vbNewLine & "С таким же IP-адресом/ID компьютера в списке ограничений: " & samerest & vbNewLine & "Сообщение: " & cp.EventText, false

[DarkLord (M)]

Идеально , все получилось , Спасибо огромное ...

[DarkLord (M)]

я еще ID прописал ... теперь вообще отлично ...

Просто нужна база на пользователей и теперь она будет в логе канала вестись ...

[DarkLord (M)]

а до скольки не рассмотренных пользователей он будет писать лог в канал ???

[CrazyVirus]

а до скольки не рассмотренных пользователей он будет писать лог в канал ???

В смысле? Он пишет при каждом добавлении новой заявки.