Return to parameters.pl CVS log

Up to [Local Repository] / processmail

Annotation of processmail/parameters.pl, revision 2.3

2.1       boris       1: # В этом файле собраны ЛОКАЛЬНЫЕ параметры -- "настройки"
                      2: #
2.3     ! boris       3: #$Id: parameters.pl,v 2.2 2005/01/24 03:16:35 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: 
        !            25: # Файлы раунда.  Следующий перекрывает предыдущий:
        !            26: 
        !            27: $FILES[1]='sprint.mail';
        !            28: 
        !            29: 
        !            30: # Второй раунд
        !            31: 
        !            32: # Название раунда
        !            33: 
        !            34: $NAME[2]="Стайер";
        !            35: 
        !            36: # Вопросы раунда
        !            37: 
        !            38: $MINQUEST[2]=1;
        !            39: $MAXQUEST[2]=18;
        !            40: 
        !            41: # Файлы раунда.  Следующий перекрывает предыдущий.  Файлы разделены
        !            42: # ПРОБЕЛАМИ
        !            43: 
        !            44: $FILES[2]='stayer.mail';
        !            45: 
        !            46: #########################################################
        !            47: #   Теперь общие настройки
        !            48: #########################################################
        !            49: 
        !            50: #Использовать ли формат ИЧБ для вывода
        !            51: $ICHB=0;
        !            52: 
2.1       boris      53: #
                     54: # Адрес листа z-info
                     55: #
2.2       boris      56: $address = 'z-info@chgk.info';
                     57: #$address="boris";
2.1       boris      58: #
                     59: # Обратный адрес дежурной команды и ее название
                     60: #
2.2       boris      61: $fromaddress = 'borisv@lk.net';
                     62: $DK = '"Дракоша"';
2.1       boris      63: #
                     64: # $date -- системная процедура, которая вычисляет МОСКОВСКОЕ
                     65: # время. В Линуксе zdump это делает хорошо. В других операционных 
                     66: # системах надо как-то исхитряться...
                     67: #
2.2       boris      68: $date = "export TZ='Europe/Moscow'; date";
2.1       boris      69: 
                     70: #
                     71: # Процедуры, которые печатают заголовок и конец мейла-напоминания
                     72: #
                     73: sub printheader
                     74: {
                     75: print  <<"END";
                     76: To: $address
                     77: From: $fromaddress
                     78: Subject: Svodka
                     79: MIME-Version: 1.0
                     80: Content-type: text/plain; charset=koi8-r
                     81: Content-Transfer-Encoding: 8bit\n
                     82: 
                     83: Уважаемые знатоки!
                     84: 
                     85: С вами говорит робот команды $DK
                     86: 
                     87: END
2.3     ! boris      88: print "На момент ", `$date`, "в зачёте '$NAME[$round]' сданы ответы от команд:\n\n"; 
2.1       boris      89: }
                     90: 
                     91: 
                     92: sub printfooter
                     93: {
                     94:     print  <<END;
                     95: 
                     96: --
                     97: Good luck
                     98: 
                     99: -Robot
                    100: END
2.2       boris     101: 
                    102: #    print `fortune /usr/local/share/games/fortunes/`;
                    103: 
2.1       boris     104: }