2.# Программа auth-up

3.# Сохранение логина пользователя и времени его входа

4.$username = $ARGV[1];

5.open(FL, ‘> /etc/ppp online.usr’);

6.print(FL, “$username “, localtime, “ ”);

Строка 01 – обязательная, она сообщает, что это Perl-программа. Строка 04 – мы переприсваиваем имя пользователя из массива в переменную, этого можно и не делать, – это сделано для наглядности. Строка 05 – открываем файл для записи, в данном файле будет храниться строка: что за пользователь зашел и во сколько (в формате UTC). Строка 06 – собственно, запись имени пользователя и времени его входа в систему.

auth-down

1.#!/usr/bin/perl

2.# Программа auth-down

3.# Окончательный анализ пребывания пользователя в Интернете.

4.$username = $ARGV[1];

5.open(FL, ‘< /etc/ppp/online.usr’);

6.read(FL, $temp);