File:  [Local Repository] / processmail / parameters.pl
Revision 2.4: download - view: text, annotated - select for diffs - revision graph
Sun Feb 20 03:24:43 2005 UTC (19 years, 4 months ago) by boris
CVS tags: Version_3
Wrote readme

    1: # В этом файле собраны ЛОКАЛЬНЫЕ параметры -- "настройки"
    2: #
    3: #$Id: parameters.pl,v 2.4 2005/02/20 03:24:43 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';
   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: #
   52: # Адрес листа z-info
   53: #
   54: $address = 'z-info@chgk.info';
   55: #$address="boris";
   56: #
   57: # Обратный адрес дежурной команды и ее название
   58: #
   59: $fromaddress = 'borisv@lk.net';
   60: $DK = '"Дракоша"';
   61: #
   62: # $date -- системная процедура, которая вычисляет МОСКОВСКОЕ
   63: # время. В Линуксе zdump это делает хорошо. В других операционных 
   64: # системах надо как-то исхитряться...
   65: #
   66: $date = "export TZ='Europe/Moscow'; date";
   67: 
   68: #
   69: # Процедуры, которые печатают заголовок и конец мейла-напоминания
   70: #
   71: sub printheader
   72: {
   73: print  <<"END";
   74: To: $address
   75: From: $fromaddress
   76: Subject: Svodka
   77: MIME-Version: 1.0
   78: Content-type: text/plain; charset=koi8-r
   79: Content-Transfer-Encoding: 8bit\n
   80: 
   81: Уважаемые знатоки!
   82: 
   83: С вами говорит робот команды $DK
   84: 
   85: END
   86: print "На момент ", `$date`, "в зачёте '$NAME[$round]' сданы ответы от команд:\n\n"; 
   87: }
   88: 
   89: 
   90: sub printfooter
   91: {
   92:     print  <<END;
   93: 
   94: --
   95: Good luck
   96: 
   97: -Robot
   98: END
   99: 
  100: }

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