Annotation of processmail/parameters.pl, revision 3.1

2.1       boris       1: # В этом файле собраны ЛОКАЛЬНЫЕ параметры -- "настройки"
                      2: #
3.0       boris       3: #$Id: parameters.pl,v 2.4 2005/02/20 03:24:43 boris Exp $
2.1       boris       4: #
2.3       boris       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: 
3.0       boris      25: # Файлы раунда.  Следующий перекрывает предыдущий.
                     26: # Список заключён в квадратные скобки, отдельные файлы разделены ЗАПЯТЫМИ.
                     27: #      $FILES[1] = [ "sprint.mail", "sprint-extra.mail" ];
                     28: #
                     29: # ВНИМАНИЕ: формат этого параметра изменился с предыдущей версии!
                     30: 
                     31: $FILES[1]= [ 'sprint.mail' ];
2.3       boris      32: 
3.0       boris      33: # Внезачётные вопросы раунда. В квадратных скобках, номера разделены ЗАПЯТЫМИ.
                     34: # Во втором раунде эти вопросы тоже будут вне зачёта (но можно будет и
                     35: # учесть, см. ниже описание $NOCOUNT[2]).
                     36: #      $NOCOUNT[1] = [];
                     37: #      $NOCOUNT[1] = [ 2, 3, 4 ];
                     38: 
                     39: $NOCOUNT[1]= [];
2.3       boris      40: 
                     41: 
                     42: # Второй раунд
                     43: 
                     44: # Название раунда
                     45: 
                     46: $NAME[2]="Стайер";
                     47: 
                     48: # Вопросы раунда
                     49: 
                     50: $MINQUEST[2]=1;
                     51: $MAXQUEST[2]=18;
                     52: 
3.0       boris      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]= [];
2.3       boris      70: 
                     71: 
                     72: #########################################################
                     73: #   Теперь общие настройки
                     74: #########################################################
                     75: 
                     76: 
2.1       boris      77: #
                     78: # Адрес листа z-info
                     79: #
2.2       boris      80: $address = 'z-info@chgk.info';
                     81: #$address="boris";
2.1       boris      82: #
                     83: # Обратный адрес дежурной команды и ее название
                     84: #
3.0       boris      85: $fromaddress = 'Boris Veytsman <borisv@lk.net>';
2.2       boris      86: $DK = '"Дракоша"';
2.1       boris      87: #
                     88: # $date -- системная процедура, которая вычисляет МОСКОВСКОЕ
                     89: # время. В Линуксе zdump это делает хорошо. В других операционных 
3.0       boris      90: # системах надо как-то исхитряться...  На самый худой конец, используйте
                     91: #      $date='';
2.1       boris      92: #
2.2       boris      93: $date = "export TZ='Europe/Moscow'; date";
2.1       boris      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
2.3       boris     113: print "На момент ", `$date`, "в зачёте '$NAME[$round]' сданы ответы от команд:\n\n"; 
2.1       boris     114: }
                    115: 
                    116: 
                    117: sub printfooter
                    118: {
                    119:     print  <<END;
                    120: 
                    121: --
                    122: Good luck
                    123: 
                    124: -Robot
                    125: END
2.2       boris     126: 
2.1       boris     127: }

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>