Return to parameters.pl CVS log

Up to [Local Repository] / processmail

New changes from Lev

    1: # В этом файле собраны ЛОКАЛЬНЫЕ параметры -- "настройки"
    2: #
    3: #$Id: parameters.pl,v 3.2 2013/10/30 19:28:30 boris Exp $
    4: #
    5: #
    6: # Количество зачётов
    7: $ROUNDS=2;
    8: 
    9: ###############################################################
   10: # Следующие настройки индивидуальны для каждого раунда, начиная
   11: # с первого
   12: ###############################################################
   13: 
   14: # Первый раунд
   15: 
   16: # Название раунда
   17: 
   18: $NAME[1]="Спринт";
   19: 
   20: # Вопросы раунда
   21: # Обычно начинаются с 1, но можно и с 0. Отрицательные номера не разрешаются.
   22: 
   23: $MINQUEST[1]=1;
   24: $MAXQUEST[1]=12;
   25: 
   26: # Файлы раунда.  Следующий перекрывает предыдущий.
   27: # Список заключён в квадратные скобки, отдельные файлы разделены ЗАПЯТЫМИ.
   28: # 	$FILES[1] = [ "sprint.mail", "sprint-extra.mail" ];
   29: #
   30: # ВНИМАНИЕ: формат этого параметра изменился с предыдущей версии!
   31: 
   32: $FILES[1]= [ 'sprint.mail' ];
   33: 
   34: # Внезачётные вопросы раунда. В квадратных скобках, номера разделены ЗАПЯТЫМИ.
   35: # Во втором раунде эти вопросы тоже будут вне зачёта (но можно будет и
   36: # учесть, см. ниже описание $NOCOUNT[2]).
   37: # 	$NOCOUNT[1] = [];
   38: # 	$NOCOUNT[1] = [ 2, 3, 4 ];
   39: 
   40: $NOCOUNT[1]= [];
   41: 
   42: 
   43: # Второй раунд
   44: 
   45: # Название раунда
   46: 
   47: $NAME[2]="Стайер";
   48: 
   49: # Вопросы раунда
   50: 
   51: $MINQUEST[2]=1;
   52: $MAXQUEST[2]=18;
   53: 
   54: # Список заключён в квадратные скобки, отдельные файлы разделены ЗАПЯТЫМИ.
   55: # 	$FILES[2] = [ 'predvarit.mail', 'osnovn.mail' ];
   56: #
   57: # ВНИМАНИЕ: формат этого параметра изменился с предыдущей версии!
   58: 
   59: $FILES[2]= [ 'stayer.mail' ];
   60: 
   61: # Внезачётные вопросы в этом раунде.  В квадратных скобках, через ЗАПЯТУЮ.
   62: # Этот список ДОБАВЛЯЕТСЯ к уже перечисленным в $NOCOUNT[1].  Однако
   63: # если вы хотите исключить какой-то из ранее указанных вопросов (например,
   64: # в гипотетической ситуации "вопрос номер 5 был исправлен слишком поздно,
   65: # поэтому в Спринте не учитывается, а для Стайера используется"), то
   66: # укажите его номер со знаком минус: "3 -5 6"
   67: # 	$NOCOUNT[2] = [];
   68: # 	$NOCOUNT[2] = [ 3, -5, 6 ];
   69: 
   70: $NOCOUNT[2]= [];
   71: 
   72: 
   73: #########################################################
   74: #   Теперь общие настройки
   75: #########################################################
   76: 
   77: 
   78: #
   79: # Адрес листа z-info
   80: #
   81: $address = 'z-info@chgk.info';
   82: #$address="boris";
   83: #
   84: # Обратный адрес дежурной команды и ее название
   85: #
   86: $fromaddress = 'Boris Veytsman <borisv@lk.net>';
   87: $DK = '"Дракоша"';
   88: #
   89: # $date -- системная процедура, которая вычисляет МОСКОВСКОЕ
   90: # время. В Линуксе zdump это делает хорошо. В других операционных 
   91: # системах надо как-то исхитряться...  На самый худой конец, используйте
   92: # 	$date='';
   93: #
   94: $date = "export TZ='Europe/Moscow'; date";
   95: 
   96: #
   97: # Процедуры, которые печатают заголовок и конец мейла-напоминания
   98: #
   99: sub printheader
  100: {
  101: print  <<"END";
  102: To: $address
  103: From: $fromaddress
  104: Subject: Svodka
  105: MIME-Version: 1.0
  106: Content-type: text/plain; charset=koi8-r
  107: Content-Transfer-Encoding: 8bit\n
  108: 
  109: Уважаемые знатоки!
  110: 
  111: С вами говорит робот команды $DK
  112: 
  113: END
  114: print "На момент ", `$date`, "в зачёте '$NAME[$round]' сданы ответы от команд:\n\n"; 
  115: }
  116: 
  117: 
  118: sub printfooter
  119: {
  120:     print  <<END;
  121: 
  122: --
  123: Good luck
  124: 
  125: -Robot
  126: END
  127: 
  128: }