adsl-dslam.cgi      | Конфигурация DSLAM       | {"admin"}

 adsl-admin.cgi      | Модуль администратора      | {"admin"}

(записей: 3)

Результат работы сценария adsl.cgi представлен на рисунках 1 и 2.

Рисунок 1

Рисунок 2

Модуль My::Insite в моем случае будет размещаться по такому адресу: /usr/local/lib/perl5/site_perl/5.6.1/My/Insite.pm. Узнать пути, по которым Perl ищет подключаемые модули, позволяет специальная переменная @INC:

#!/usr/bin/perl

#-------------------- testpath.pl

$, = " ";

print @INC;

exit;

На моей машине результат был получен следующий:

$ ./testpath.pl

/usr/local/lib/perl5/site_perl/5.6.1/mach

/usr/local/lib/perl5/site_perl/5.6.1

/usr/local/lib/perl5/site_perl

/usr/local/lib/perl5/5.6.1/BSDPAN

/usr/local/lib/perl5/5.6.1/mach

/usr/local/lib/perl5/5.6.1

Код модуля My::Insite представлен ниже:

package My::Insite;

use CGI;

use DBI;

use Apache::Session::Postgres;

sub CGIStart {

    return CGI->new;

}

sub DBConnect {

    my($obj, $dbName, $dbUser, $dbPwd) = @_;