Return to parameters.pl CVS log

Up to [Local Repository] / processmail

Started to move to the new scheme

    1: # В этом файле собраны ЛОКАЛЬНЫЕ параметры -- "настройки"
    2: #
    3: #$Id: parameters.pl,v 2.3 2005/02/15 19:27:51 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: $ICHB=0;
   52: 
   53: #
   54: # Адрес листа z-info
   55: #
   56: $address = 'z-info@chgk.info';
   57: #$address="boris";
   58: #
   59: # Обратный адрес дежурной команды и ее название
   60: #
   61: $fromaddress = 'borisv@lk.net';
   62: $DK = '"Дракоша"';
   63: #
   64: # $date -- системная процедура, которая вычисляет МОСКОВСКОЕ
   65: # время. В Линуксе zdump это делает хорошо. В других операционных 
   66: # системах надо как-то исхитряться...
   67: #
   68: $date = "export TZ='Europe/Moscow'; date";
   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
   88: print "На момент ", `$date`, "в зачёте '$NAME[$round]' сданы ответы от команд:\n\n"; 
   89: }
   90: 
   91: 
   92: sub printfooter
   93: {
   94:     print  <<END;
   95: 
   96: --
   97: Good luck
   98: 
   99: -Robot
  100: END
  101: 
  102: #    print `fortune /usr/local/share/games/fortunes/`;
  103: 
  104: }