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

11.08.2009 19:21

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

Все статьи

Задача: разослать списку пользователей информацию произвольного характера.

К примеру, есть поставщик интернет услуг. У данной организации подключено определенное количество пользователей, а для общения во внутренней локальной сети провайдера используется MyChat. Часто некоторые абоненты не вовремя оплачивают услуги провайдера или попросту забывают об этом. Поставщик интернет услуг может уведомлять своих абонентов о необходимости внести абонплату с помощью MSL – MyChat Script Language. Это встроенная скрипт-машина в MyChat Server. Возможности этой системы весьма широки.

Для начала необходимо создать обычный текстовый файл, в котором будут перечислены UIN-ы должников и периоды, а также файл с текстом сообщения для них.

Например, файл с UIN-ами «С:\UIN.txt» (формат “user|date”), на компьютере с MyChat Server содержит текст:

  1. 5|01.07.2009-31.07.2009
  2. 678|01.07.2009-31.07.2009
  3. 4|01.07.2009-31.07.2009
  4. 567|01.07.2009-31.07.2009
  5. 56|01.07.2009-31.07.2009
  6. 456|01.06.2009-31.07.2009
  7. 67|01.07.2009-31.07.2009
  8. 34|01.07.2009-31.07.2009
  9. 5|01.07.2009-31.07.2009
  10. 7|01.07.2009-31.07.2009
  11. 97|01.06.2009-31.07.2009
  12. 44|01.07.2009-31.07.2009
  13. 676|01.07.2009-31.07.2009

А файл с текстом сообщения «C:\MSG.txt» выглядит так:
  1. %user пожалуйста оплатите услугу доступа к сети Интернет, за период %date. 
  2. В случае неуплаты в течении 2-х рабочих дней – Вы будете отключены

Теперь рассмотрим процесс создания скрипта, который будет отправлять это сообщение должникам каждые 4 часа.

Для этого зайдем в редактор скриптов на сервере:

И выберем в списке событий – выполнение скрипта каждый 4-й час:

Добавляем наш скрипт:

  1. Program UsersAlerts;
  2. Var 
  3.     UsersCount, I, Uin: integer;
  4.     Str, Msg, ms, Date, User: string;
  5.  
  6. Begin
  7.  Msg:='';
  8.  // получаем количество строк в файле с должниками
  9.  UsersCount:= GetTextFileLinesCount('c:\uin.txt'); 
  10.  
  11.  For i:=1 to GetTextFileLinesCount('c:\msg.txt') do
  12.   Begin
  13.    // в этом цикле вычитываем файл и склеиваем его в одну строчку
  14.    LoadLineFromFile('c:\MSG.txt',i,str);
  15.    Msg:=Msg+str+#13#10;
  16.   End;
  17.  
  18.  For i:=1 to UsersCount do
  19.   Begin
  20.    ms:=msg; //сохраняем Msg в ms
  21.    LoadLineFromFile('c:\UIN.txt',i,str);//вычитываем строку из файла
  22.    UIN:=strtoint(copy(str,1,pos('|',str)-1));//получаем Uin пользователя
  23.    Date:=copy(str,pos('|',str)+1,length(str)-pos('|',str));//получаем дату
  24.    User:=mGetNickFromUIN(UIN);//спрашиваем ник пользователя по его UINу
  25.  
  26.    //заменяем в тексте сообщения %user на ник пользователя
  27.    Insert(User,Ms,pos('%user',ms));
  28.    Delete(Ms,pos('%user',ms),5);
  29.  
  30.    //заменяем в тексте сообщения %date на дату
  31.    Insert(Date,Ms,pos('%date',ms));
  32.    Delete(Ms,pos('%date',ms),5);
  33.  
  34.    //и отправляем сформированное сообщение пользователю
  35.    mSendPrivateMessage(uin, Ms);
  36.   End; 
  37. End.

Будет это выглядеть примерно вот так:

Нажимаем на иконку с дискеткой, сохраняем скрипт и ставим галку «Включить скрипт».

Готово, сервер будет выполнять поставленную задачу каждые 4 часа и оповещать должников.

Еще почитать:

AntiCAPS скрипт для публичных каналов MyChat Server
Что такое UIN и зачем он нужен?
Установка и обновление MyChat в Active Directory с помощью MSI

Все статьи  

 
< <<<=====   =====>>> >
 


Rambler's Top100