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

О проекте

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

MySQL

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

Хостинг

Другое








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

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

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

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

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

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

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

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

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

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

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

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



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





Глава 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