1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
#! /usr/bin/perl
# post install script for the Debian GNU/Linux cfingerd package
require DebianNet;
# Set /usr/doc symlink
if ( $ARGV[0] eq 'configure' ) {
if ( -d '/usr/doc' && ! -e '/usr/doc/cfingerd' && -d '/usr/share/doc/cfingerd' ) {
symlink('../share/doc/cfingerd', '/usr/doc/cfingerd');
}
}
open(INETD, "/etc/inetd.conf");
@inetd=<INETD>;
close(INETD);
if (grep(/.*cfingerd.*/, @inetd)) {
$DebianNet::sep = "## "; DebianNet::disable_service("finger", "in.fingerd");
$DebianNet::sep = "#<off># "; DebianNet::enable_service("finger", "cfingerd");
} else {
$DebianNet::sep = "## "; DebianNet::disable_service("finger", "in.fingerd");
$fingentry = 'finger stream tcp nowait root /usr/sbin/tcpd /usr/sbin/cfingerd';
$DebianNet::sep = "#<off># "; DebianNet::add_service($fingentry, "INFO");
}
undef(@inetd);
foreach $f ("uptime","ping") {
if (-f "/etc/cfingerd/saved.$f") {
system "mv -f /etc/cfingerd/saved.$f /etc/cfingerd/scripts/$f";
}
}
system "/etc/init.d/netbase reload";
|
