view release on metacpan or  search on metacpan

README  view on Meta::CPAN

    When you want to use the default values for installing, you can set
    PERL_MM_USE_DEFAULT to true before running perl Makefile.PL. This can be
    of interest when installing GSM::SMS from a script.

CONFIGURATION
    This package needs configuration, period. When you're installing the
    package on a Windows machine then you'll need to type double back
    slashes when providing a path, e.g. for the log directory:

      c:\\gsmsms\\log

    You have three options to configure the package:

    On installation
        Running "perl Makefile.PL" will invoke the configuration wizard.

    After installation
        You can always run the configuration wizard again by the following
        command

docs/README.pod  view on Meta::CPAN

When you want to use the default values for installing, you can set
PERL_MM_USE_DEFAULT to true before running perl Makefile.PL. This can
be of interest when installing GSM::SMS from a script.

=head1 CONFIGURATION

This package needs configuration, period. When you're installing the package
on a Windows machine then you'll need to type double back slashes when providing
a path, e.g. for the log directory:

  c:\\gsmsms\\log

You have three options to configure the package:

=over 4

=item On installation

Running C<perl Makefile.PL> will invoke the configuration wizard.

=item After installation

lib/GSM/SMS/Config.pm  view on Meta::CPAN

  my $cfg = GSM::SMS::Config->new(
               -file => $config_file, # Optional otherwise take default config
			   -check => 1            # Optional, does a sanity check
			);

=cut

my $Config_defaults = {};
if ( $^O =~ /^MSWin/ ) {
	$Config_defaults->{'logdir'} = "C:\\gsmsms\\log";
	$Config_defaults->{'spool'} = "C:\\gsmsms\\spool";
	$Config_defaults->{'port'} = 'COM1';
	$Config_defaults->{'filetransport'} = "C:\\gsmsms\\filetransport";
} else {
	$Config_defaults->{'logdir'} = "/var/log/gsmsms";
	$Config_defaults->{'spool'} = "/var/spool/gsmsms";
	$Config_defaults->{'port'} = '/dev/ttyS0';
	$Config_defaults->{'filetransport'} = "/tmp/filetransport";
}

sub new {
	my ($proto, %arg) = @_;