Annotation of /nfo/perl/scripts/dispatchmail/bin/install

#!/usr/bin/perl

use strict;
use warnings;

use Cwd;

use lib qw( /data/libs/nfo/perl/libs );
use org::netfrag::shortcuts qw( run_cmd );

my $dispatchmail = 'dispatchmail';
my $path_current = cwd();
my $bin_dispatchmail = $path_current . '/' . $dispatchmail;
my $path_smrsh = '/etc/mail/smrsh';

chdir $path_smrsh;
unlink $dispatchmail;
run_cmd 'ln -s ' . $bin_dispatchmail . ' .';

chdir '/usr/local/bin';
unlink $dispatchmail;
run_cmd 'ln -s ' . $bin_dispatchmail . ' .';

1;
1	root	1.1	#!/usr/bin/perl
2
3			use strict;
4			use warnings;
5
6			use Cwd;
7
8			use lib qw( /data/libs/nfo/perl/libs );
9			use org::netfrag::shortcuts qw( run_cmd );
10
11			my $dispatchmail = 'dispatchmail';
12			my $path_current = cwd();
13			my $bin_dispatchmail = $path_current . '/' . $dispatchmail;
14			my $path_smrsh = '/etc/mail/smrsh';
15
16			chdir $path_smrsh;
17			unlink $dispatchmail;
18			run_cmd 'ln -s ' . $bin_dispatchmail . ' .';
19
20			chdir '/usr/local/bin';
21			unlink $dispatchmail;
22			run_cmd 'ln -s ' . $bin_dispatchmail . ' .';
23
24			1;
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26