Hvor skal filerne ligge?

[Morten P]

Jeg har et program som k�rer som en d�mon der bliver startet fra init.d
(Det kan sende og modtage sms fra et modem)

Selve programmet ligger i /usr/sbin/gsm_server

For at programmet bliver overskueligt at vedligeholde har jeg splittet dele
af det op i under-moduler.

Men hvor skal disse placeres?

Jeg ser umiddelbart to muligheder:

1)
/usr/share/perl5/GSM/Server/Send_SMS.pm
/usr/share/perl5/GSM/Server/Receive_SMS.pm

2)
/usr/share/gsm_server/Send_SMS.pm
/usr/share/gsm_server/Receive_SMS.pm

Den f�rste er ret l�kker for /usr/share/perl5 er med i Perls s�gesti og jeg
kan kalde modulerne med

my $send = new GSM::Server::Send_SMS;

mens den anden kr�ver lit 'use lib' sjov.

Omvendt er modulerne jo meget specifikke og kun anvendbare for programmet
'gsm_server' s� m�ske det er helt galt at smide dem i '/usr/share/perl5'?

Hj�lp, guide og best-practice �nskes :-)

[Flemming Frandsen]

Morten P wrote:
> mens den anden kr�ver lit 'use lib' sjov.

Jeg ville helt klart smide modulerne sammen med programmet, evt. i et pm
subdir, tricket med at finde modulerne ordnes s� ved:

...
use FindBin qw($Bin);
use lib "$Bin/pm";
use LokaltHejs;

--
Flemming Frandsen - http://dren.dk - YAPH

[Morten P]

"Flemming Frandsen" <ff-...@nrvissing.net.invalid> wrote in message
news:4b2decfb$0$56787$edfa...@dtext02.news.tele.dk...

> Morten P wrote:
>> mens den anden kr�ver lit 'use lib' sjov.
>
> Jeg ville helt klart smide modulerne sammen med programmet, evt. i et pm
> subdir, tricket med at finde modulerne ordnes s� ved:

Dvs ned i /usr/share/sbin/PM/*.pm ?

Det er vel ogs� det "reneste" men troede ikke jeg "bare" kunne h�lde
programspecifikke ting ned i sbin...

[Peter Makholm]

"Morten P" <sp...@spam.spam> writes:

> Jeg har et program som kï¿œrer som en dï¿œmon der bliver startet fra init.d

> (Det kan sende og modtage sms fra et modem)

Jeg ville absolut lave en CPAN-lignende pakke med dit program, enten
med Module::Build eller ExtUtils::MakeMaker. Sￜ vil du fￜ en Build.PL
eller Makefile.PL der gï¿œr det rigtige.

> Omvendt er modulerne jo meget specifikke og kun anvendbare for programmet

> 'gsm_server' sￜ mￜske det er helt galt at smide dem i '/usr/share/perl5'?

Jeg ville lï¿œgge dine moduler ned under App::GSM_Server::*. Alt det
kode du ikke har tï¿œnkt dig at lï¿œgge i moduler ville jeg placerer i
App::GSM_Server, eventuelt i en run-funktion.

Selve "scriptet" vil sￜ bare bestￜ af to linjer der siger:

use App::GSM_Server;
App::GSM_Server->run();

Lidt ala http://github.com/pmakholm/app-bulkmail-perl

//Makholm

[Peter Makholm]

Peter Makholm <pe...@makholm.net> writes:

> Selve "scriptet" vil sￜ bare bestￜ af to linjer der siger:
>
> use App::GSM_Server;
> App::GSM_Server->run();
>
> Lidt ala http://github.com/pmakholm/app-bulkmail-perl

Ved nￜrmere eftertanke mￜske ikke et helt godt eksempel fordi jeg ogsￜ
leger lidt rundt med Any::Moose. Men ideen er simpelt at have

package App::Bulkmail;

use Carp;

sub new {
my ($class, %args) = @_;

unless (keys %args) {
require Getopt::Long;
Getopt::Long::GetOptions( \%args,
"foo=s", "bar=i"
) or croak(...);
}

return bless \%args, $class;
}

sub run {
my $self = shift;

unless (blessed $self) {
$self = $self->new( @_ );
}

...
}

1;