Компиляция и установка консольного авторизатора из скрипта

[kenu]

Нужно сделать авторизатор мне под runtu 2.0 (ubuntu 7.10). Админ дал мне скрипт:

Код: [Выделить]

#!/usr/bin/perl
# =========================================================================
#                     Nodeny-Авторизатор
# =========================================================================
use IO::Socket;
use Sys::Hostname;
use Crypt::Rijndael;

# -------------------------------------------------------------------------

$yourpass = 'password';          # Пароль
$server = '10.10.7.254';         # СЕРВЕР
$portno = 7723;                  # ПОРТ

# -------------------------------------------------------------------------
$ver = 14;                       # protocol version
$v = 0;                          # 1 - verbose
# =========================================================================

sub SEND
 {
  $sock1->send($_[0]);
 }

 sub GET
 {
   my ($i,$n,$str,$tmout,$rin,$txt,$ip,$addr) = (0,10,'',5,'','','','');
   vec($rin,fileno($sock2),1) = 1;
   while (select($txt = $rin, undef, undef, $tmout) && ++$i<$n)
     {
       $tmout = 0;
       $addr = recv($sock2, $txt, 100, 0);
       ($ip, $addr) = sockaddr_in($addr);
       $ip = join(".",unpack ("C4", $addr));
       next if $ip ne $server;
       $str=$txt;
     }
   unless ($str)
     {
       $noanswer++;
       if (И сказал что делать его надобно на перле... Теперь вопрос: Как сделать этот консольный авторизатор???

[Kwah]

Видимо вставить в него свои данные в поля пароль/сервер/порт и сделать файл исполняемым (chmod o+x файл см. также man chmod).

[Romsan]

еще надо проделать команду
Cpan install i/'name'
 для блоков описаных
 ниже
 IO::Socket;
Sys::Hostname;
 Crypt::Rijndael;
 дальше поместить noauth.pl в каталог /sbin
                             noauth.sh в каталог /etc/init.d причем в noauth.sh должен быть прописан путь к noauth.pl
найти в каталогах rc*.d ссылку $***networking  и командой nl сделать следующей по номеру ссылку на noauth.sh