Contents 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	#!/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