П О Р Т А Л                            
С Е Т Е В Ы Х                          
П Р О Е К Т О В                        
  
Поиск по сайту:
                                                 
Главная

О проекте

Web-мастеру
     HTML & JavaScript
     SSI
     Perl
     PHP
     XML & XSLT
     Unix Shell

MySQL

Безопасность

Хостинг

Другое








Самое читаемое:

Учебник PHP - "Для Чайника".
Просмотров 185957 раз(а).

Иллюстрированный самоучитель по созданию сайтов.
Просмотров 87230 раз(а).

Учебник HTML.
Просмотров 79523 раз(а).

Руководство по PHP5.
Просмотров 50030 раз(а).

Хостинг через призму DNS.
Просмотров 57723 раз(а).

Подборка текстов стандартных документов.
Просмотров 49088 раз(а).

Учебник PHP - Самоучитель
Просмотров 55886 раз(а).

Документация на MySQL (учебник & справочное руководство)
Просмотров 57235 раз(а).

Внешние атаки...
Просмотров 46570 раз(а).

Учебник PHP.
Просмотров 40991 раз(а).

SSI в примерах.
Просмотров 31261 раз(а).



 
 
| Добавить в избранное | Сделать стартовой | Помощь





Глава 1: Введение.
1.5. Прогулка по стране Perl
1.5.10. Как обеспечить скромный уровень безопасности

"Этот список секретных слов должен меняться минимум раз в неделю!", — требует Главный Директор Списков Секретных Слов. Мы не можем, конечно, заставить пользователей еженедельно менять пароли, но должны хотя бы предупреждать их о том, что список секретных слов не изменялся в течение семи дней и более.

лучше всего делать это в подпрограмме init_words(); мы уже работаем в ней с файлом wordlist. Perl-операциям возвращает значение, равное количеству дней, прошедшему с момента изменения файла или дескриптора файла, поэтому нам нужно просто посмотреть, превышает ли это значение число семь для дескриптора файла wordslist:

sub init_words {

  open (WORDSLIST, "wordslist") || die "can't open wordlist: $!";

  if (- М WORDSLIST >= 7.0) { # в соответствии с бюрократическими правилами

die "Sorry, the wordslist is older than seven days. "; } while ($name = <WORDSLIST) { chomp ($name); $word = <WORDSLIST>; chomp ($word); $words($name} = $word; } close (WORDSLIST) || die "couldn't close wordlist: $!";

Значение -м wordslist сравнивается со значением 7. Если оно больше, то мы, выходит, нарушили правила. Здесь мы видим новую операцию, операцию die, которая одним махом выводит сообщение на экран* и прерывает программу.

Остальная часть программы изменений не претерпевает, поэтому в целях экономии бумаги мы ее повторять не будем.

Помимо определения "возраста" файла мы можем узнать имя его владельца, размер, время последнего доступа к нему и все остальные сведения, хранимые системой о каждом файле. Более подробно об этом написано в главе 10.

* Если точнее, то в дескриптор файла stderr, но обычно это и означает терминал.

Назад | Вперед
Содержание (общее) | Содержание раздела | Содержание подраздела



Если Вы не нашли что искали, то рекомендую воспользоваться поиском по сайту:
 





Copyright © 2005-2016 Project.Net.Ru