[devel] netamsadmin, зависимости Perl

[devel] netamsadmin, зависимости Perl

[Aleksey Avdeev]

Здравствуйте.

   Опакечивая netamsadmin 
(<http://sourceforge.net/projects/netamsadmin/>), столкнулся со 
сложностями при автоматическом поиске зависимостей для Perl 
скриптов. Подскажите пожалуйста, как правильно с ними бороться.

   Есть Perl скрипт /var/www/html/netamsadmin/modules/include.cgi и 
некоторое множество *.pl, которыми он пользуется.

1. При сборке, наблюдаю следующие:

++++

Поиск Provides (используя /usr/lib/rpm/find-provides)
Выполняется(Provides): /bin/sh -e /home/solo/tmp/rpm-tmp.59612
+ umask 022
+ /bin/mkdir -p /home/solo/RPM/BUILD
+ cd /home/solo/RPM/BUILD
+ /usr/lib/rpm/find-provides
+ exit 0
Поиск Requires (используя /usr/lib/rpm/find-requires)
Выполняется(Requires): /bin/sh -e /home/solo/tmp/rpm-tmp.54825
+ umask 022
+ /bin/mkdir -p /home/solo/RPM/BUILD
+ cd /home/solo/RPM/BUILD
+ /usr/lib/rpm/find-requires
/home/solo/tmp/netamsadmin-buildroot/var/www/html/netamsadmin/config.pl 
syntax OK
/home/solo/tmp/netamsadmin-buildroot/var/www/html/netamsadmin/index.cgi 
syntax OK
Global symbol "%POLICY" requires explicit package name at 
/home/solo/tmp/netamsadmin-buildroot/var/www/html/netamsadmin/modules/include.pl 
line 17.

...

----

   Эксперименты показали, что идёт ругань на глобальные символы за 
данные в index.cgi следующим образом:

use vars qw(%cfg $VERSION %QUERY %UNIT %UNIT_BYNAME %POLICY 
%POLICY_BYNAME %LOGINS %QUOTA_GLOBAL_INFO %QUOTAINFO %QUOTALIST 
$GRPLIST $html %secrets_data);

   Победить удаётся, только явно отключив поиск Requires в 
проблемных файлах (через %add_findreq_skiplist).

2. Если указать:

%define _perl_lib_path %perl_vendor_privlib:/var/www/html/netamsadmin

то пакет провадит все свои внутренние *.pl файлы:

Provides: perl(config.pl), perl(modules/include.pl), 
perl(modules/na_count.pl), perl(modules/na_graph.pl), 
perl(modules/na_login.pl), perl(modules/na_main.pl), 
perl(modules/na_policy.pl), perl(modules/na_quota.pl), 
perl(modules/na_unit.pl), perl(modules/secrets.pl), perl(subs.pl), 
perl(theme/theme.pl)

  Если не указывать - запрашивает наличие присутствующего в нём 
конфига config.pl:

Requires: perl(GD.pm), perl(CGI.pm), perl(POSIX.pm), 
perl(config.pl), perl-base

-- 

С уважением. Алексей.

[devel] Re: netamsadmin, зависимости Perl

[Alexey Tourbin]

[-- Attachment #1: Type: text/plain, Size: 2319 bytes --]

On Thu, Aug 19, 2004 at 01:22:57PM +0400, Aleksey Avdeev wrote:
> 1. При сборке, наблюдаю следующие:
> 
> ++++
> 
> Поиск Provides (используя /usr/lib/rpm/find-provides)
> Выполняется(Provides): /bin/sh -e /home/solo/tmp/rpm-tmp.59612
> + umask 022
> + /bin/mkdir -p /home/solo/RPM/BUILD
> + cd /home/solo/RPM/BUILD
> + /usr/lib/rpm/find-provides
> + exit 0
> Поиск Requires (используя /usr/lib/rpm/find-requires)
> Выполняется(Requires): /bin/sh -e /home/solo/tmp/rpm-tmp.54825
> + umask 022
> + /bin/mkdir -p /home/solo/RPM/BUILD
> + cd /home/solo/RPM/BUILD
> + /usr/lib/rpm/find-requires
> /home/solo/tmp/netamsadmin-buildroot/var/www/html/netamsadmin/config.pl 
> syntax OK
> /home/solo/tmp/netamsadmin-buildroot/var/www/html/netamsadmin/index.cgi 
> syntax OK
> Global symbol "%POLICY" requires explicit package name at 
> /home/solo/tmp/netamsadmin-buildroot/var/www/html/netamsadmin/modules/include.pl 
> line 17.
> 
> ...

Короче сам по себе include.pl не проходит syntax check (попробуйте `perl -c'),
поэтому перлу не удается его распарсить и извлечь зависимости.

>   Эксперименты показали, что идёт ругань на глобальные символы за 
> данные в index.cgi следующим образом:
> 
> use vars qw(%cfg $VERSION %QUERY %UNIT %UNIT_BYNAME %POLICY 
> %POLICY_BYNAME %LOGINS %QUOTA_GLOBAL_INFO %QUOTAINFO %QUOTALIST 
> $GRPLIST $html %secrets_data);
> 
>   Победить удаётся, только явно отключив поиск Requires в 
> проблемных файлах (через %add_findreq_skiplist).

Ох.

> 2. Если указать:
> 
> %define _perl_lib_path %perl_vendor_privlib:/var/www/html/netamsadmin
> 
> то пакет провадит все свои внутренние *.pl файлы:
> 
> Provides: perl(config.pl), perl(modules/include.pl), 
> perl(modules/na_count.pl), perl(modules/na_graph.pl), 
> perl(modules/na_login.pl), perl(modules/na_main.pl), 
> perl(modules/na_policy.pl), perl(modules/na_quota.pl), 
> perl(modules/na_unit.pl), perl(modules/secrets.pl), perl(subs.pl), 
> perl(theme/theme.pl)
> 
>  Если не указывать - запрашивает наличие присутствующего в нём 
> конфига config.pl:
> 
> Requires: perl(GD.pm), perl(CGI.pm), perl(POSIX.pm), 
> perl(config.pl), perl-base

А Provides: perl(config.pl) не появляется?
Выложите куда-нибудь src.rpm, если есть возможность.

> -- 
> 
> С уважением. Алексей.

[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]

Re: [devel] Re: netamsadmin, зависимости Perl

[Aleksey Avdeev]

Alexey Tourbin пишет:
> On Thu, Aug 19, 2004 at 01:22:57PM +0400, Aleksey Avdeev wrote:
> 
>>1. При сборке, наблюдаю следующие:
>>
>>++++
>>
>>Поиск Provides (используя /usr/lib/rpm/find-provides)
>>Выполняется(Provides): /bin/sh -e /home/solo/tmp/rpm-tmp.59612
>>+ umask 022
>>+ /bin/mkdir -p /home/solo/RPM/BUILD
>>+ cd /home/solo/RPM/BUILD
>>+ /usr/lib/rpm/find-provides
>>+ exit 0
>>Поиск Requires (используя /usr/lib/rpm/find-requires)
>>Выполняется(Requires): /bin/sh -e /home/solo/tmp/rpm-tmp.54825
>>+ umask 022
>>+ /bin/mkdir -p /home/solo/RPM/BUILD
>>+ cd /home/solo/RPM/BUILD
>>+ /usr/lib/rpm/find-requires
>>/home/solo/tmp/netamsadmin-buildroot/var/www/html/netamsadmin/config.pl 
>>syntax OK
>>/home/solo/tmp/netamsadmin-buildroot/var/www/html/netamsadmin/index.cgi 
>>syntax OK
>>Global symbol "%POLICY" requires explicit package name at 
>>/home/solo/tmp/netamsadmin-buildroot/var/www/html/netamsadmin/modules/include.pl 
>>line 17.
>>
>>...
> 
> 
> Короче сам по себе include.pl не проходит syntax check (попробуйте `perl -c'),
> поэтому перлу не удается его распарсить и извлечь зависимости.

   "perl -c" сообщает тоже самое. (Эта диагностика у всех файлов, 
кроме index.cgi и config.pl. От наличия "#!/usr/bin/perl" - не зависит.)

> 
> 
>>  Эксперименты показали, что идёт ругань на глобальные символы за 
>>данные в index.cgi следующим образом:
>>
>>use vars qw(%cfg $VERSION %QUERY %UNIT %UNIT_BYNAME %POLICY 
>>%POLICY_BYNAME %LOGINS %QUOTA_GLOBAL_INFO %QUOTAINFO %QUOTALIST 
>>$GRPLIST $html %secrets_data);
>>
>>  Победить удаётся, только явно отключив поиск Requires в 
>>проблемных файлах (через %add_findreq_skiplist).
> 
> 
> Ох.
> 
> 
>>2. Если указать:
>>
>>%define _perl_lib_path %perl_vendor_privlib:/var/www/html/netamsadmin
>>
>>то пакет провадит все свои внутренние *.pl файлы:
>>
>>Provides: perl(config.pl), perl(modules/include.pl), 
>>perl(modules/na_count.pl), perl(modules/na_graph.pl), 
>>perl(modules/na_login.pl), perl(modules/na_main.pl), 
>>perl(modules/na_policy.pl), perl(modules/na_quota.pl), 
>>perl(modules/na_unit.pl), perl(modules/secrets.pl), perl(subs.pl), 
>>perl(theme/theme.pl)
>>
>> Если не указывать - запрашивает наличие присутствующего в нём 
>>конфига config.pl:
>>
>>Requires: perl(GD.pm), perl(CGI.pm), perl(POSIX.pm), 
>>perl(config.pl), perl-base
> 
> 
> А Provides: perl(config.pl) не появляется?

   Только, если выставлена _perl_lib_path

> Выложите куда-нибудь src.rpm, если есть возможность.

<http://solo-oboroten.pisem.net/netamsadmin-0.771-alt1.src.rpm> - он 
ещё не совсем причёсан.

-- 

С уважением. Алексей.