Return to parameters.pl CVS log

Up to [Local Repository] / processmail

Added Lev's corrections

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