Gecko [ 103.233.161.39 ]

Name	Size	Permission
ModemManager	1.19 MB	-rwxr-xr-x
NetworkManager	2.83 MB	-rwxr-xr-x
abrt-auto-reporting	10.98 KB	-rwxr-xr-x
abrt-configuration	31.66 KB	-rwxr-xr-x
abrt-dbus	31.22 KB	-rwxr-xr-x
abrt-harvest-pstoreoops	1.32 KB	-rwxr-xr-x
abrt-harvest-vmcore	8.19 KB	-rwxr-xr-x
abrt-install-ccpp-hook	2.85 KB	-rwxr-xr-x
abrt-server	31.11 KB	-rwxr-xr-x
abrtd	31.22 KB	-rwxr-xr-x
accept	10.95 KB	-rwxr-xr-x
accessdb	11.55 KB	-rwxr-xr-x
accton	11.19 KB	-rwxr-xr-x
activate-devpay	15.04 KB	-rwxr-xr-x
addgnupghome	3.05 KB	-rwxr-xr-x
addpart	19.69 KB	-rwxr-xr-x
adduser	134.39 KB	-rwxr-xr-x
agetty	48.48 KB	-rwxr-xr-x
alsa-info	28.09 KB	-rwxr-xr-x
alsa-info.sh	28.09 KB	-rwxr-xr-x
alsabat-test.sh	4.04 KB	-rwxr-xr-x
alsactl	99.15 KB	-rwxr-xr-x
alternatives	27.61 KB	-rwxr-xr-x
amaddclient	15.02 KB	-rwxr-xr-x
amadmin	55.69 KB	-rwxr-xr-x
amaespipe	3.29 KB	-rwxr-xr-x
amandad	35.36 KB	-rwxr-xr-x
amarchiver	15.3 KB	-rwxr-xr-x
amcheck	63.25 KB	-rwsr-x---
amcheckdb	1.79 KB	-rwxr-xr-x
amcheckdump	14.25 KB	-rwxr-xr-x
amcleanup	6.21 KB	-rwxr-xr-x
amcleanupdisk	4.16 KB	-rwxr-xr-x
amcrypt	1.02 KB	-rwxr-xr-x
amcrypt-ossl	3.12 KB	-rwxr-xr-x
amcrypt-ossl-asym	6.8 KB	-rwxr-xr-x
amcryptsimple	4.55 KB	-rwxr-xr-x
amdevcheck	4.51 KB	-rwxr-xr-x
amdump	10.46 KB	-rwxr-xr-x
amfetchdump	26.87 KB	-rwxr-xr-x
amflush	27.13 KB	-rwxr-xr-x
amgetconf	12.24 KB	-rwxr-xr-x
amgpgcrypt	2.68 KB	-rwxr-xr-x
amlabel	11.22 KB	-rwxr-xr-x
amoverview	6.42 KB	-rwxr-xr-x
amplot	5.94 KB	-rwxr-xr-x
amreport	17.65 KB	-rwxr-xr-x
amrestore	12.7 KB	-rwxr-xr-x
amrmtape	8.91 KB	-rwxr-xr-x
amserverconfig	20.99 KB	-rwxr-xr-x
amservice	19.16 KB	-rwsr-x---
amstatus	49.23 KB	-rwxr-xr-x
amtape	19.47 KB	-rwxr-xr-x
amtapetype	22.56 KB	-rwxr-xr-x
amtoc	7.54 KB	-rwxr-xr-x
amvault	29.59 KB	-rwxr-xr-x
anaconda	54.99 KB	-rwxr-xr-x
anacron	35.52 KB	-rwxr-xr-x
apachectl	4.19 KB	-rwxr-xr-x
applygnupgdefaults	2.21 KB	-rwxr-xr-x
arp	63.98 KB	-rwxr-xr-x
arpd	52.98 KB	-rwxr-xr-x
arping	23.19 KB	-rwxr-xr-x
atd	27.17 KB	-rwxr-xr-x
atrun	67 B	-rwxr-xr-x
attrd_updater	16.52 KB	-rwxr-xr-x
audispd	39.75 KB	-rwxr-xr-x
auditctl	39.56 KB	-rwxr-xr-x
auditd	125.65 KB	-rwxr-xr-x
augenrules	3.7 KB	-rwxr-xr-x
aureport	105.39 KB	-rwxr-xr-x
ausearch	109.8 KB	-rwxr-xr-x
authconfig	43.49 KB	-rwxr-xr-x
authconfig-tui	43.49 KB	-rwxr-xr-x
autrace	15.49 KB	-rwxr-x---
avahi-daemon	133.04 KB	-rwxr-xr-x
avcstat	11.25 KB	-rwxr-xr-x
badblocks	27.69 KB	-rwxr-xr-x
biosdecode	24.15 KB	-rwxr-xr-x
biosdevname	36.57 KB	-rwxr-xr-x
blkdeactivate	15.97 KB	-r-xr-xr-x
blkdiscard	23.84 KB	-rwxr-xr-x
blkid	77.92 KB	-rwxr-xr-x
blkmapd	43.81 KB	-rwxr-xr-x
blockdev	32.2 KB	-rwxr-xr-x
brctl	32.13 KB	-rwxr-xr-x
bridge	77.61 KB	-rwxr-xr-x
btrfs	690.59 KB	-rwxr-xr-x
btrfs-convert	378.62 KB	-rwxr-xr-x
btrfs-debug-tree	354.23 KB	-rwxr-xr-x
btrfs-find-root	346.22 KB	-rwxr-xr-x
btrfs-image	374.63 KB	-rwxr-xr-x
btrfs-map-logical	350.27 KB	-rwxr-xr-x
btrfs-select-super	346.2 KB	-rwxr-xr-x
btrfs-zero-log	346.2 KB	-rwxr-xr-x
btrfsck	690.59 KB	-rwxr-xr-x
btrfstune	350.24 KB	-rwxr-xr-x
build-locale-archive	860.52 KB	-rwx------
cacertdir_rehash	644 B	-rwxr-xr-x
cache_check	1.23 MB	-rwxr-xr-x
cache_dump	1.23 MB	-rwxr-xr-x
cache_metadata_size	1.23 MB	-rwxr-xr-x
cache_repair	1.23 MB	-rwxr-xr-x
cache_restore	1.23 MB	-rwxr-xr-x
cache_writeback	1.23 MB	-rwxr-xr-x
capsh	19.43 KB	-rwxr-xr-x
cbq	32.73 KB	-rwxr-xr-x
cfdisk	71.37 KB	-rwxr-xr-x
cgdisk	176.87 KB	-rwxr-xr-x
chat	27.3 KB	-rwxr-xr-x
chcpu	23.7 KB	-rwxr-xr-x
chgpasswd	64.1 KB	-rwxr-xr-x
chkconfig	40.22 KB	-rwxr-xr-x
chpasswd	55.88 KB	-rwxr-xr-x
chronyd	263.08 KB	-rwxr-xr-x
chroot	32.48 KB	-rwxr-xr-x
cibadmin	27.2 KB	-rwxr-xr-x
cifs.idmap	15.07 KB	-rwxr-xr-x
cifs.upcall	31.23 KB	-rwxr-xr-x
clamd	208.18 KB	-rwxr-xr-x
clamonacc	200.67 KB	-rwxr-xr-x
clock	48.44 KB	-rwxr-xr-x
clockdiff	19.04 KB	-rwxr-xr-x
consoletype	6.95 KB	-rwxr-xr-x
convertquota	70.88 KB	-rwxr-xr-x
corosync	284.76 KB	-rwxr-xr-x
corosync-cfgtool	14.97 KB	-rwxr-xr-x
corosync-cmapctl	23.31 KB	-rwxr-xr-x
corosync-cpgtool	11 KB	-rwxr-xr-x
corosync-keygen	11.12 KB	-rwxr-xr-x
corosync-notifyd	33.63 KB	-rwxr-xr-x
corosync-quorumtool	23.16 KB	-rwxr-xr-x
cracklib-check	7.04 KB	-rwxr-xr-x
cracklib-format	246 B	-rwxr-xr-x
cracklib-packer	11.06 KB	-rwxr-xr-x
cracklib-unpacker	7.02 KB	-rwxr-xr-x
crda	11.34 KB	-rwxr-xr-x
create-cracklib-dict	990 B	-rwxr-xr-x
crm_attribute	21.51 KB	-rwxr-xr-x
crm_diff	16.73 KB	-rwxr-xr-x
crm_error	11.48 KB	-rwxr-xr-x
crm_failcount	6.56 KB	-rwxr-xr-x
crm_master	2.37 KB	-rwxr-xr-x
crm_mon	84.05 KB	-rwxr-xr-x
crm_node	24.93 KB	-rwxr-xr-x
crm_report	15.9 KB	-rwxr-xr-x
crm_resource	112.09 KB	-rwxr-xr-x
crm_shadow	21.02 KB	-rwxr-xr-x
crm_simulate	50.68 KB	-rwxr-xr-x
crm_standby	3.33 KB	-rwxr-xr-x
crm_ticket	31.15 KB	-rwxr-xr-x
crm_verify	16.38 KB	-rwxr-xr-x
crmadmin	21.1 KB	-rwxr-xr-x
crond	68.48 KB	-rwxr-xr-x
cryptsetup	85.41 KB	-rwxr-xr-x
ctrlaltdel	11.2 KB	-rwxr-xr-x
ctstat	20.09 KB	-rwxr-xr-x
cups-browsed	136.9 KB	-rwxr-xr-x
cups-genppd.5.2	56.05 KB	-rwxr-xr-x
cups-genppdupdate	34.2 KB	-rwxr-xr-x
cupsaccept	10.95 KB	-rwxr-xr-x
cupsaddsmb	10.98 KB	-rwxr-xr-x
cupsctl	14.97 KB	-rwxr-xr-x
cupsd	427.17 KB	-rwxr-xr-x
cupsdisable	10.95 KB	-rwxr-xr-x
cupsenable	10.95 KB	-rwxr-xr-x
cupsfilter	27.37 KB	-rwxr-xr-x
cupsreject	10.95 KB	-rwxr-xr-x
dcbtool	60.03 KB	-rwxr-xr-x
ddns-confgen	19.44 KB	-rwxr-xr-x
debugfs	120.65 KB	-rwxr-xr-x
delpart	19.69 KB	-rwxr-xr-x
depmod	143.24 KB	-rwxr-xr-x
devlink	64.72 KB	-rwxr-xr-x
dhclient	414.34 KB	-rwxr-xr-x
dhclient-script	30.38 KB	-rwxr-xr-x
dm_dso_reg_tool	11.29 KB	-rwxr-xr-x
dmevent_tool	11.29 KB	-rwxr-xr-x
dmeventd	39.56 KB	-r-xr-xr-x
dmfilemapd	19.16 KB	-r-xr-xr-x
dmidecode	120.2 KB	-rwxr-xr-x
dmraid	22.1 KB	-rwxr-xr-x
dmraid.static	22.1 KB	-rwxr-xr-x
dmsetup	149.2 KB	-r-xr-xr-x
dmstats	149.2 KB	-r-xr-xr-x
dnsmasq	340.79 KB	-rwxr-xr-x
dnssec-checkds	922 B	-rwxr-xr-x
dnssec-coverage	924 B	-rwxr-xr-x
dnssec-dsfromkey	56.6 KB	-rwxr-xr-x
dnssec-importkey	52.59 KB	-rwxr-xr-x
dnssec-keyfromlabel	60.52 KB	-rwxr-xr-x
dnssec-keygen	64.55 KB	-rwxr-xr-x
dnssec-keymgr	920 B	-rwxr-xr-x
dnssec-revoke	48.46 KB	-rwxr-xr-x
dnssec-settime	56.52 KB	-rwxr-xr-x
dnssec-signzone	105.71 KB	-rwxr-xr-x
dnssec-verify	48.47 KB	-rwxr-xr-x
dosfsck	56.24 KB	-rwxr-xr-x
dosfslabel	52.23 KB	-rwxr-xr-x
dovecot	88.1 KB	-rwxr-xr-x
dracut	55.83 KB	-rwxr-xr-x
dump-acct	19.63 KB	-rwxr-xr-x
dump-utmp	15.47 KB	-rwxr-xr-x
dumpe2fs	23.62 KB	-rwxr-xr-x
e2freefrag	11.15 KB	-rwxr-xr-x
e2fsck	250.55 KB	-rwxr-xr-x
e2image	27.85 KB	-rwxr-xr-x
e2label	69.41 KB	-rwxr-xr-x
e2undo	11.32 KB	-rwxr-xr-x
e4defrag	23.55 KB	-rwxr-xr-x
eapol_test	1.77 MB	-rwxr-xr-x
ebtables	6.85 KB	-rwxr-xr-x
ebtables-restore	10.88 KB	-rwxr-xr-x
ebtables-save	851 B	-rwxr-xr-x
editmap.sendmail	95.55 KB	-rwxr-xr-x
edquota	83.09 KB	-rwxr-xr-x
era_check	1.23 MB	-rwxr-xr-x
era_dump	1.23 MB	-rwxr-xr-x
era_invalidate	1.23 MB	-rwxr-xr-x
era_restore	1.23 MB	-rwxr-xr-x
ether-wake	73.26 KB	-rwxr-xr-x
ethtool	293.87 KB	-rwxr-xr-x
eventlogadm	39.17 KB	-rwxr-xr-x
exportfs	76.91 KB	-rwxr-xr-x
faillock	15.02 KB	-rwxr-xr-x
fancontrol	14.01 KB	-rwxr-xr-x
fatlabel	52.23 KB	-rwxr-xr-x
fcgistarter	11 KB	-rwxr-xr-x
fcgiwrap	19.8 KB	-rwxr-xr-x
fcnsq	15.13 KB	-rwxr-xr-x
fcoeadm	48.52 KB	-rwxr-xr-x
fcoemon	69.21 KB	-rwxr-xr-x
fcping	31.52 KB	-rwxr-xr-x
fcrls	19.16 KB	-rwxr-xr-x
fdformat	11.27 KB	-rwxr-xr-x
fdisk	195.8 KB	-rwxr-xr-x
fence_amt_ws	8.77 KB	-rwxr-xr-x
fence_apc	7.49 KB	-rwxr-xr-x
fence_apc_snmp	6.28 KB	-rwxr-xr-x
fence_bladecenter	3.09 KB	-rwxr-xr-x
fence_brocade	2.45 KB	-rwxr-xr-x
fence_cisco_mds	2.62 KB	-rwxr-xr-x
fence_cisco_ucs	5.53 KB	-rwxr-xr-x
fence_compute	16.43 KB	-rwxr-xr-x
fence_drac5	5 KB	-rwxr-xr-x
fence_eaton_snmp	6.66 KB	-rwxr-xr-x
fence_emerson	1.85 KB	-rwxr-xr-x
fence_eps	3.52 KB	-rwxr-xr-x
fence_evacuate	13 KB	-rwxr-xr-x
fence_heuristics_ping	5.78 KB	-rwxr-xr-x
fence_hpblade	3.66 KB	-rwxr-xr-x
fence_ibmblade	1.96 KB	-rwxr-xr-x
fence_idrac	6.5 KB	-rwxr-xr-x
fence_ifmib	3.18 KB	-rwxr-xr-x
fence_ilo	4.42 KB	-rwxr-xr-x
fence_ilo2	4.42 KB	-rwxr-xr-x
fence_ilo3	6.5 KB	-rwxr-xr-x
fence_ilo3_ssh	2.03 KB	-rwxr-xr-x
fence_ilo4	6.5 KB	-rwxr-xr-x
fence_ilo4_ssh	2.03 KB	-rwxr-xr-x
fence_ilo5	6.5 KB	-rwxr-xr-x
fence_ilo5_ssh	2.03 KB	-rwxr-xr-x
fence_ilo_moonshot	1.56 KB	-rwxr-xr-x
fence_ilo_mp	1.29 KB	-rwxr-xr-x
fence_ilo_ssh	2.03 KB	-rwxr-xr-x
fence_imm	6.5 KB	-rwxr-xr-x
fence_intelmodular	2.43 KB	-rwxr-xr-x
fence_ipdu	3.86 KB	-rwxr-xr-x
fence_ipmilan	6.5 KB	-rwxr-xr-x
fence_kdump	23.4 KB	-rwxr-xr-x
fence_mpath	9.98 KB	-rwxr-xr-x
fence_redfish	5.34 KB	-rwxr-xr-x
fence_rhevm	6.4 KB	-rwxr-xr-x
fence_rsa	1.76 KB	-rwxr-xr-x
fence_rsb	2.22 KB	-rwxr-xr-x
fence_sbd	11.11 KB	-rwxr-xr-x
fence_scsi	15.95 KB	-rwxr-xr-x
fence_virt	57.66 KB	-rwxr-xr-x
fence_vmware_rest	5.61 KB	-rwxr-xr-x
fence_vmware_soap	8.44 KB	-rwxr-xr-x
fence_wti	7.53 KB	-rwxr-xr-x
fence_xvm	57.66 KB	-rwxr-xr-x
filefrag	15.23 KB	-rwxr-xr-x
findfs	11.2 KB	-rwxr-xr-x
fipvlan	40.16 KB	-rwxr-xr-x
firewalld	6.87 KB	-rwxr-xr-x
firstboot	6.45 KB	-rwxr-xr-x
fixfiles	11.03 KB	-rwxr-xr-x
fixparts	61.65 KB	-rwxr-xr-x
fsadm	23.97 KB	-r-xr-xr-x
fsck	32.12 KB	-rwxr-xr-x
fsck.btrfs	1.16 KB	-rwxr-xr-x
fsck.cramfs	19.57 KB	-rwxr-xr-x
fsck.ext2	250.55 KB	-rwxr-xr-x
fsck.ext3	250.55 KB	-rwxr-xr-x
fsck.ext4	250.55 KB	-rwxr-xr-x
fsck.fat	56.24 KB	-rwxr-xr-x
fsck.minix	73.32 KB	-rwxr-xr-x
fsck.msdos	56.24 KB	-rwxr-xr-x
fsck.vfat	56.24 KB	-rwxr-xr-x
fsck.xfs	433 B	-rwxr-xr-x
fsfreeze	11.23 KB	-rwxr-xr-x
fstrim	40.59 KB	-rwxr-xr-x
ftpscrub	16.47 KB	-rwxr-xr-x
ftpshut	10.98 KB	-rwxr-xr-x
fuser	32.34 KB	-rwxr-xr-x
fxload	19.26 KB	-rwxr-xr-x
gdisk	184.49 KB	-rwxr-xr-x
gdm	430.45 KB	-rwxr-xr-x
genhomedircon	23.77 KB	-rwxr-xr-x
genhostid	6.94 KB	-rwxr-xr-x
genl	52.81 KB	-rwxr-xr-x
genl-ctrl-list	11.27 KB	-rwxr-xr-x
genrandom	11.16 KB	-rwxr-xr-x
getcap	11.13 KB	-rwxr-xr-x
getenforce	7.01 KB	-rwxr-xr-x
getpcaps	7.07 KB	-rwxr-xr-x
getsebool	11.13 KB	-rwxr-xr-x
glibc_post_upgrade.i686	700.2 KB	-rwx------
glibc_post_upgrade.x86_64	772.05 KB	-rwx------
gluster	465.84 KB	-rwxr-xr-x
groupadd	85.65 KB	-rwxr-xr-x
groupdel	77.38 KB	-rwxr-xr-x
groupmems	55.97 KB	-rwxr-xr-x
groupmod	85.66 KB	-rwxr-xr-x
grpck	59.93 KB	-rwxr-xr-x
grpconv	51.73 KB	-rwxr-xr-x
grpunconv	51.73 KB	-rwxr-xr-x
grub2-bios-setup	1.03 MB	-rwxr-xr-x
grub2-get-kernel-settings	2.08 KB	-rwxr-xr-x
grub2-install	1.28 MB	-rwxr-xr-x
grub2-macbless	1.01 MB	-rwxr-xr-x
grub2-mkconfig	7.63 KB	-rwxr-xr-x
grub2-ofpathname	225.54 KB	-rwxr-xr-x
grub2-probe	1.03 MB	-rwxr-xr-x
grub2-reboot	4 KB	-rwxr-xr-x
grub2-rpm-sort	258.52 KB	-rwxr-xr-x
grub2-set-default	3.46 KB	-rwxr-xr-x
grub2-setpassword	2.96 KB	-rwxr-xr-x
grub2-sparc64-setup	1.03 MB	-rwxr-xr-x
grubby	71.27 KB	-rwxr-xr-x
gssproxy	130.64 KB	-rwxr-xr-x
halt	704.8 KB	-rwxr-xr-x
handle-sshpw	2.35 KB	-rwxr-xr-x
hardlink	15.29 KB	-rwxr-xr-x
htcacheclean	31.16 KB	-rwxr-xr-x
httpd	511.44 KB	-rwxr-xr-x
hwclock	48.44 KB	-rwxr-xr-x
hwloc-dump-hwdata	15.32 KB	-rwxr-xr-x
hypervfcopyd	11.18 KB	-rwxr-xr-x
hypervkvpd	27.38 KB	-rwxr-xr-x
hypervvssd	15.23 KB	-rwxr-xr-x
iconvconfig	22.15 KB	-rwxr-xr-x
iconvconfig.i686	21.44 KB	-rwxr-xr-x
iconvconfig.x86_64	22.15 KB	-rwxr-xr-x
ifcfg	2.99 KB	-rwxr-xr-x
ifconfig	80.05 KB	-rwxr-xr-x
ifdown	1.61 KB	-rwxr-xr-x
ifenslave	19.74 KB	-rwxr-xr-x
ifstat	40.6 KB	-rwxr-xr-x
ifup	4.89 KB	-rwxr-xr-x
in.proftpd	988.23 KB	-rwxr-xr-x
init	1.56 MB	-rwxr-xr-x
insmod	143.24 KB	-rwxr-xr-x
install-info	110.42 KB	-rwxr-xr-x
installkernel	2.69 KB	-rwxr-xr-x
intel-microcode2ucode	11.1 KB	-rwxr-xr-x
ip	459.59 KB	-rwxr-xr-x
ip6tables	91.52 KB	-rwxr-xr-x
ip6tables-restore	91.52 KB	-rwxr-xr-x
ip6tables-save	91.52 KB	-rwxr-xr-x
ipmaddr	19.33 KB	-rwxr-xr-x
ipmievd	488.98 KB	-rwxr-xr-x
iprconfig	394.37 KB	-rwxr-xr-x
iprdbg	135.94 KB	-rwx------
iprdump	123.67 KB	-rwxr-xr-x
iprinit	123.64 KB	-rwxr-xr-x
iprsos	2.18 KB	-rwxr-xr-x
iprupdate	123.64 KB	-rwxr-xr-x
ipsec	14.96 KB	-rwxr-xr-x
ipset	7.02 KB	-rwxr-xr-x
iptables	91.52 KB	-rwxr-xr-x
iptables-restore	91.52 KB	-rwxr-xr-x
iptables-save	91.52 KB	-rwxr-xr-x
iptunnel	23.33 KB	-rwxr-xr-x
irqbalance	48.5 KB	-rwxr-xr-x
isadump	15.02 KB	-rwxr-xr-x
isaset	10.98 KB	-rwxr-xr-x
isc-hmac-fixup	11.2 KB	-rwxr-xr-x
iscsi-iname	11.01 KB	-rwxr-xr-x
iscsiadm	794.39 KB	-rwxr-xr-x
iscsid	819.81 KB	-rwxr-xr-x
iscsistart	361.05 KB	-rwxr-xr-x
iscsiuio	182.09 KB	-rwxr-xr-x
iso8601	16.04 KB	-rwxr-xr-x
iw	157.97 KB	-rwxr-xr-x
jk_check	11.2 KB	-rwxr-xr-x
jk_chrootlaunch	20.77 KB	-rwxr-xr-x
jk_chrootsh	32.73 KB	-rwsr-xr-x
jk_cp	4.12 KB	-rwxr-xr-x
jk_init	9.68 KB	-rwxr-xr-x
jk_jailuser	11.81 KB	-rwxr-xr-x
jk_list	4.93 KB	-rwxr-xr-x
jk_lsh	24.66 KB	-rwxr-xr-x
jk_socketd	29.05 KB	-rwxr-xr-x
jk_update	9.11 KB	-rwxr-xr-x
kexec	166.06 KB	-rwxr-xr-x
key.dns_resolver	19.45 KB	-rwxr-xr-x
killall5	23.17 KB	-rwxr-xr-x
kpartx	39.47 KB	-rwxr-xr-x
kpatch	14.53 KB	-rwxr-xr-x
ksmtuned	3.36 KB	-rwxr-xr-x
lchage	15.41 KB	-rwxr-xr-x
ldattach	27.93 KB	-rwxr-xr-x
ldconfig	952.08 KB	-rwxr-xr-x
ledctl	61.97 KB	-rwxr-xr-x
ledmon	62.15 KB	-rwxr-xr-x
lgroupadd	11.28 KB	-rwxr-xr-x
lgroupdel	11.26 KB	-rwxr-xr-x
lgroupmod	15.44 KB	-rwxr-xr-x
libvirtd	506.11 KB	-rwxr-xr-x
lid	15.4 KB	-rwxr-xr-x
liveinst	5.83 KB	-rwxr-xr-x
lldpad	402.72 KB	-rwxr-xr-x
lldptool	96.02 KB	-rwxr-xr-x
lnewusers	15.46 KB	-rwxr-xr-x
lnstat	20.09 KB	-rwxr-xr-x
load_policy	10.97 KB	-rwxr-xr-x
loaderinfo	40.91 KB	-rwxr-xr-x
lockdev	10.95 KB	-rwx--s--x
logrotate	68.61 KB	-rwxr-xr-x
logsave	11.27 KB	-rwxr-xr-x
losetup	82.45 KB	-rwxr-xr-x
lpadmin	27.09 KB	-rwxr-xr-x
lpasswd	15.5 KB	-rwxr-xr-x
lpc	15.07 KB	-rwxr-xr-x
lpc.cups	15.07 KB	-rwxr-xr-x
lpinfo	14.96 KB	-rwxr-xr-x
lpmove	10.98 KB	-rwxr-xr-x
lsmod	143.24 KB	-rwxr-xr-x
lsof	150.57 KB	-rwxr-xr-x
lspci	73.67 KB	-rwxr-xr-x
luseradd	15.38 KB	-rwxr-xr-x
luserdel	11.3 KB	-rwxr-xr-x
lusermod	19.43 KB	-rwxr-xr-x
lvchange	2.15 MB	-r-xr-xr-x
lvconvert	2.15 MB	-r-xr-xr-x
lvcreate	2.15 MB	-r-xr-xr-x
lvdisplay	2.15 MB	-r-xr-xr-x
lvextend	2.15 MB	-r-xr-xr-x
lvm	2.15 MB	-r-xr-xr-x
lvmconf	12.55 KB	-r-xr-xr-x
lvmconfig	2.15 MB	-r-xr-xr-x
lvmdiskscan	2.15 MB	-r-xr-xr-x
lvmdump	10.07 KB	-r-xr-xr-x
lvmetad	71.66 KB	-r-xr-xr-x
lvmpolld	64.07 KB	-r-xr-xr-x
lvmsadc	2.15 MB	-r-xr-xr-x
lvmsar	2.15 MB	-r-xr-xr-x
lvreduce	2.15 MB	-r-xr-xr-x
lvremove	2.15 MB	-r-xr-xr-x
lvrename	2.15 MB	-r-xr-xr-x
lvresize	2.15 MB	-r-xr-xr-x
lvs	2.15 MB	-r-xr-xr-x
lvscan	2.15 MB	-r-xr-xr-x
lwresd	768.03 KB	-rwxr-xr-x
mailstats	79.11 KB	-rwxr-xr-x
makedumpfile	376.52 KB	-rwxr-xr-x
makemap.sendmail	95.63 KB	-rwxr-xr-x
matchpathcon	11.19 KB	-rwxr-xr-x
mcelog	152.67 KB	-rwxr-xr-x
mdadm	593.45 KB	-rwxr-xr-x
mdmon	331.55 KB	-rwxr-xr-x
mii-diag	20.08 KB	-rwxr-xr-x
mii-tool	19.51 KB	-rwxr-xr-x
milter-greylist	253.3 KB	-rwxr-xr-x
mkdict	246 B	-rwxr-xr-x
mkdosfs	28.05 KB	-rwxr-xr-x
mkdumprd	13.99 KB	-rwxr-xr-x
mke2fs	94.08 KB	-rwxr-xr-x
mkfs	11.25 KB	-rwxr-xr-x
mkfs.btrfs	366.45 KB	-rwxr-xr-x
mkfs.cramfs	36.16 KB	-rwxr-xr-x
mkfs.ext2	94.08 KB	-rwxr-xr-x
mkfs.ext3	94.08 KB	-rwxr-xr-x
mkfs.ext4	94.08 KB	-rwxr-xr-x
mkfs.fat	28.05 KB	-rwxr-xr-x
mkfs.minix	36.27 KB	-rwxr-xr-x
mkfs.msdos	28.05 KB	-rwxr-xr-x
mkfs.vfat	28.05 KB	-rwxr-xr-x
mkfs.xfs	359.8 KB	-rwxr-xr-x
mkhomedir_helper	19.05 KB	-rwxr-xr-x
mklost+found	11.11 KB	-rwxr-xr-x
mkswap	69.64 KB	-rwxr-xr-x
modinfo	143.24 KB	-rwxr-xr-x
modprobe	143.24 KB	-rwxr-xr-x
mount.cifs	40.05 KB	-rwxr-xr-x
mount.fuse	11.1 KB	-rwxr-xr-x
mount.nfs	114.68 KB	-rwsr-xr-x
mount.nfs4	114.68 KB	-rwsr-xr-x

Code Editor : postgrey

#!/usr/bin/perl -T -w

# Postgrey: a Postfix Greylisting Policy Server
# Copyright (c) 2004-2007 ETH Zurich
# Copyright (c) 2007 Open Systems AG, Switzerland
# released under the GNU General Public License

# see the documentation with 'perldoc postgrey'

package postgrey;
use strict;
use Pod::Usage;
use Getopt::Long 2.25 qw(:config posix_default no_ignore_case);
use NetAddr::IP;
use Net::Server; # used only to find out which version we use
use Net::Server::Multiplex;
use BerkeleyDB;
use Fcntl ':flock'; # import LOCK_* constants
use Sys::Hostname;
use Sys::Syslog; # used only to find out which version we use
use POSIX qw(strftime setlocale LC_ALL);

use vars qw(@ISA);
@ISA = qw(Net::Server::Multiplex);

my $VERSION = '1.37';
my $DEFAULT_DBDIR = '/var/spool/postfix/postgrey';
my $CONFIG_DIR = '/etc/postfix';

sub read_clients_whitelists($)
{
    my ($self) = @_;

my @whitelist_clients = ();
    my @whitelist_ips = ();
    for my $f (@{$self->{postgrey}{whitelist_clients_files}}) {
        if(open(CLIENTS, $f)) {
            while(<CLIENTS>) {
                s/#.*$//; s/^\s+//; s/\s+$//; next if $_ eq '';
                if(/^\/(\S+)\/$/) {
                    # regular expression
                    push @whitelist_clients, qr{$1}i;
                }
                elsif(/^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}(?:\/\d{1,2})?$/) {
                    # IPv4 address (with or without netmask)
                    my $ip = NetAddr::IP->new($_);
                    push @whitelist_ips, $ip if defined $ip;
                }
                elsif(/^\d{1,3}\.\d{1,3}\.\d{1,3}$/) {
                    # Partial IPv4 address (/24)
                    my $ip = NetAddr::IP->new($_, 24);
                    push @whitelist_ips, $ip if defined $ip;
                }
                elsif(/^\d{1,3}\.\d{1,3}$/) {
                    # Partial IPv4 address (/16)
                    my $ip = NetAddr::IP->new($_, 24);
                    push @whitelist_ips, $ip if defined $ip;
                }
                elsif(/^.*\:.*\:.*(?:\/\d{1,3})?$/) {
                    # IPv6 address (with or without netmask)
                    my $ip = NetAddr::IP->new($_);
                    push @whitelist_ips, $ip if defined $ip;
                }
                # note: we had ^[^\s\/]+$ but it triggers a bug in perl 5.8.0
                elsif(/^\S+$/) {
                    push @whitelist_clients, qr{(?:^|\.)\Q$_\E$}i;
                }
                else {
                    warn "$f line $.: doesn't look like a hostname\n";
                }
            }
        }
        else {
            # do not warn about .local file: maybe the user just doesn't have one
            warn "can't open $f: $!\n" unless $f =~ /\.local$/;
        }
        close(CLIENTS);
    }
    $self->{postgrey}{whitelist_clients} = \@whitelist_clients;
    $self->{postgrey}{whitelist_ips}     = \@whitelist_ips;
}

sub read_recipients_whitelists($)
{
    my ($self) = @_;

my @whitelist_recipients = ();
    for my $f (@{$self->{postgrey}{whitelist_recipients_files}}) {
        if(open(RECIPIENTS, $f)) {
            while(<RECIPIENTS>) {
                s/#.*$//; s/^\s+//; s/\s+$//; next if $_ eq '';
                my ($user, $domain) = split(/\@/, $_, 2);
                if(/^\/(\S+)\/$/) {
                    # regular expression
                    push @whitelist_recipients, qr{$1}i;
                }
                elsif(!/^\S+$/) {
                    warn "$f line $.: doesn't look like an address\n";
                }
                # postfix access(5) syntax:
                elsif(defined $domain and $domain ne '') {
                    # user@domain (match also user+extension@domain)
                    push @whitelist_recipients, qr{^\Q$user\E(?:\+[^@]+)?\@\Q$domain\E$}i;
                }
                elsif(defined $domain) {
                    # user@
                    push @whitelist_recipients, qr{^\Q$user\E(?:\+[^@]+)?\@}i;
                }
                else {
                    # domain ($user is the domain)
                    push @whitelist_recipients, qr{(?:\@|\.)\Q$user\E$}i;
                }
            }
        }
        else {
            # do not warn about .local file: maybe the user just doesn't have one
            warn "can't open $f: $!\n" unless $f =~ /\.local$/;
        }
        close(RECIPIENTS);
    }
    $self->{postgrey}{whitelist_recipients} = \@whitelist_recipients;
}

sub do_sender_substitutions($$)
{
    my ($self, $addr) = @_;

my ($user, $domain) = split(/@/, $addr, 2);
    defined $domain or return $addr;

# BATV is defined as prvs=tag-val=loc-core@, but sometimes shows up
    # as prvs=loc-core=tag-val@...
    if ($user =~ /^prvs=/) {
	my @a = split(/=/, $user);
	if ($#a == 2) {
	    if ($a[1] =~ /^[0-9a-z]{10}/ && $a[2] !~ /^[0-9a-z]{10}/) {
		$user = $a[2];
	    } elsif ($a[2] =~ /^[0-9a-z]{10}/ && $a[1] !~ /^[0-9a-z]{10}/) {
		$user = $a[1];
	    } else {
		# throw a coin, pick the standard
		$user = $a[2];
	    }
	}
    }

# strip extension, used sometimes for mailing-list VERP
    $user =~ s/\+.*//;
    # replace numbers in VERP addresses with '#' so that
    # we don't create a new key for each mail
    $user =~ s/\b\d+\b/#/g;
    return "$user\@$domain";
}

# split network and host part and return both
sub do_client_substitutions($$$)
{
    my ($self, $ip, $revdns) = @_;

if($self->{postgrey}{lookup_by_host}) {
        return ($ip, undef);
    }

my $ipaddr;
    if($ip->bits() == 32) {
        $ipaddr = NetAddr::IP->new($ip->addr, $self->{postgrey}{ipv4cidr});
    }
    elsif($ip->bits() == 128) {
        $ipaddr = NetAddr::IP->new($ip->addr, $self->{postgrey}{ipv6cidr});
    }
    else {
        warn "NetAddr::IP->bits() neither 32 nor 128???\n";
        return ($ip, undef);
    }
    return ($ipaddr->network()->addr(), undef);
}

sub mylog($$$)
{
    my ($self, $level, $string) = @_;
    $string =~ s/\%/%%/g; # for Net::Server <= 0.87
    if(!defined $Sys::Syslog::VERSION or $Sys::Syslog::VERSION lt '0.15'
    or !defined $Net::Server::VERSION or $Net::Server::VERSION lt '0.94') {
        # Workaround for a crash when syslog daemon is temporarily not
        # present (for example on syslog rotation).
        # Note that this is not necessary with Sys::Syslog >= 0.15 and
        # Net::Server >= 0.94 thanks to the nofatal Option.
        eval {
            local $SIG{"__DIE__"} = sub { };
            $self->log($level, $string);
        };
    }
    else {
        $self->log($level, $string);
    }
}

sub mylog_action($$$;$$)
{
    my ($self, $attr, $action, $reason, $additional_info) = @_;

my $str;
    $str .= $attr->{queue_id} . ': ' if $attr->{queue_id};
    my @info = ("action=$action");
    push @info, "reason=$reason" if defined $reason;
    push @info, $additional_info if defined $additional_info;
    for my $a (qw(client_name client_address sender recipient)) {
        push @info, "$a=$attr->{$a}" if $attr->{$a};
    }
    $str .= join(', ', @info);
    $self->mylog(2, $str);
}

sub do_maintenance($$)
{
    my ($self, $now) = @_;
    my $db     = $self->{postgrey}{db};
    my $db_env = $self->{postgrey}{db_env};

# remove old db logs

$self->mylog(1, "cleaning up old logs...");
    $db_env->txn_checkpoint(0, 0) and
        warn "can't checkpoint !? $BerkeleyDB::Error";
    for my $l ($db_env->log_archive(DB_ARCH_ABS)) {
        $self->mylog(1, "rm $l");
        unlink $l or warn "can't remove db log $l: $!\n";
    }

# remove old keys
    # this is very expensive:  We might refuse to speak to postfix for too
    # long, after which clients will start getting "450 Server configuration
    # problem" errors... do it only during the night and only if at least one
    # day has passed
    my $hour = (localtime($now))[2];
    if($hour > 1 and $hour < 7 and
        $now - $self->{postgrey}{last_maint_keys} >= 82800)
    {
        $self->mylog(1, "cleaning up old entries...");
        my $max_age = $self->{postgrey}{max_age};
        my $retry_window = $self->{postgrey}{retry_window};
        my ($nr_keys_before, $nr_keys_after) = (0,0);
        # note: deleteing hash elements in a 'each'-loop isn't supported
        # that's why we first put them in @old_keys and then delete them
        my @old_keys = ();
        while (my ($key, $value) = each %$db) {
            $nr_keys_before++;
            my ($first, $last) = split(/,/,$value);
            if(not defined $last) {
                # shouldn't happen
                push @old_keys, $key;
            }
            elsif($now - $last > $max_age) {
                # last-seen passed max-age
                push @old_keys, $key;
            }
            elsif($last-$first < $self->{postgrey}{delay} and $now-$last > $retry_window) {
                # no successful entry yet and last seen passed retry-window
                push @old_keys, $key;
            }
            else {
                $nr_keys_after++;
            }
        }
        my $db_obj = $self->{postgrey}{db_obj};
        my $txn = $db_env->txn_begin();
        $db_obj->Txn($txn);
        for my $key (@old_keys) { delete $db->{$key}; }
        $txn->txn_commit();
        
        $self->mylog(1, "cleaning main database finished. before: $nr_keys_before, after: $nr_keys_after");

if($self->{postgrey}{awl_clients}) {
            # cleanup clients auto-whitelist database
            my $cawl_db  = $self->{postgrey}{db_cawl};
            ($nr_keys_before, $nr_keys_after) = (0, 0);
            $nr_keys_after=0;
            my @old_keys_cawl = ();
            while (my ($key, $value) = each %$cawl_db) {
                my $cawl_last_seen = (split(/,/, $value))[1];
                $nr_keys_before++;
                if($now - $cawl_last_seen > $max_age) {
                    push @old_keys_cawl, $key;
                }
                else {
                    $nr_keys_after++;
                }
            }
            my $db_cawl_obj = $self->{postgrey}{db_cawl_obj};
            $txn = $db_env->txn_begin();
            $db_cawl_obj->Txn($txn);
            for my $key (@old_keys_cawl) { delete $cawl_db->{$key}; }
            $txn->txn_commit();

$self->mylog(1, "cleaning clients database finished. before: $nr_keys_before, after: $nr_keys_after");
        }

$self->{postgrey}{last_maint_keys}=$now;
    }
}

sub is_new_instance($$)
{
    my ($self, $inst) = @_;
    return 1 if not defined $inst; # in case the 'instance' parameter
                                   # was not supplied by the client (Exim)

# we keep a list of the last 20 "instances", which identify unique messages
    # so that for example we only put one X-Greylist header per message.
    $self->{postgrey}{instances} = [ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 ]
        unless defined $self->{postgrey}{instances};

my $i = $self->{postgrey}{instances};
    return 0 if scalar grep { $_ eq $inst } @$i;
    
    # put new value into the array
    unshift @$i, $inst;
    pop @$i;

return 1;
}

# main routine: based on attributes specified as argument, return policy decision
sub smtpd_access_policy($$)
{
    my ($self, $now, $attr) = @_;
    my $db  = $self->{postgrey}{db};
    # This attribute occurs in connections from the policy-test script,
    # not in a regular postfix query connection
    if(defined $attr->{policy_test_time}) { $now = $attr->{policy_test_time} }

# make sure that important attributes are defined
    for my $a (qw(client_address client_name recipient sender)) {
        defined $attr->{$a} or do {
            warn "attribute missing: $a\n";
            return 'DUNNO';
        };
    }

# parse "client_address" into a NetAddr::IP object
    my $ip = NetAddr::IP->new($attr->{client_address});
    defined $attr->{client_address} or do {
        warn "can't parse client_address from postfix: $attr->{client_address}\n";
        return 'DUNNO';
    };
    $attr->{client_address_ip} = $ip;

# whitelists: client name
    for my $w (@{$self->{postgrey}{whitelist_clients}}) {
        if($attr->{client_name} =~ $w) {
            $self->mylog_action($attr, 'pass', 'client whitelist');
            return 'DUNNO';
        }
    }

# whitelists: client ip
    for my $w (@{$self->{postgrey}{whitelist_ips}}) {
        if($attr->{client_address_ip}->within($w)) {
            $self->mylog_action($attr, 'pass', 'client whitelist');
            return 'DUNNO';
        }
    }

# whitelists: recipient
    for my $w (@{$self->{postgrey}{whitelist_recipients}}) {
        if($attr->{recipient} =~ $w) {
            $self->mylog_action($attr, 'pass', 'recipient whitelist');
            return 'DUNNO';
        }
    }

# auto whitelist clients (see below for explanation)
    my ($cawl_db, $cawl_key, $cawl_count, $cawl_last);
    if($self->{postgrey}{awl_clients}) {
        $cawl_db  = $self->{postgrey}{db_cawl};
        $cawl_key = $attr->{client_address_ip}->addr();
        if ($self->{postgrey}{privacy}) {
             $cawl_key = Digest::SHA::sha1_hex($cawl_key);
        }
        my $cawl_val = $cawl_db->{$cawl_key};
        ($cawl_count, $cawl_last) = split(/,/,$cawl_val) if defined $cawl_val;
        
        # whitelist if count is enough
        if(defined $cawl_count and $cawl_count >= $self->{postgrey}{awl_clients})
        {
            if(($now >= $cawl_last+3600) or ($cawl_last > $now)) {
                $cawl_count++; # for statistics
                $cawl_db->{$cawl_key}=$cawl_count.','.$now;
            }
            $self->mylog_action($attr, 'pass', 'client AWL');
            return 'DUNNO';
        }
    }

# lookup
    my $sender = $self->do_sender_substitutions($attr->{sender});
    my ($client_net, $client_host) =
        $self->do_client_substitutions($attr->{client_address_ip}, $attr->{client_name});
    my $key    = lc "$client_net/$sender/$attr->{recipient}";
    if ($self->{postgrey}{privacy}) {
        $key = Digest::SHA::sha1_hex($key);
    }
    my $val    = $db->{$key};
    my $first;
    my $last_was_successful=0;
    if(defined $val) {
        my $last;
        ($first, $last) = split(/,/,$val);
        # find out if the last time was unsuccessful, so that we can add a header
        # to say how much had to be waited
        if($last - $first >= $self->{postgrey}{delay}) {
            $last_was_successful=1;
        }
        else {
            # discard stored first-seen if it is the first retrial and
            # it is beyond the retry_window
            $first = $now if $now-$first > $self->{postgrey}{retry_window};
        }
        # test for invalid first-seen date in the future
        if($first > $now) {
            $self->mylog(1, "correcting date for first seen in the future!");
            $first = $now;
        }
    }
    else {
        $first = $now;
    }

# update (put as last element stripped host-part if it was stripped)
    if(defined $client_host) {
        $db->{$key}="$first,$now,$client_host";
    }
    else {
        $db->{$key}="$first,$now";
    }

my $diff = $self->{postgrey}{delay} - ($now - $first);

# auto whitelist clients
    # algorithm:
    # - on successful entry in the greylist db of a triplet:
    #   - client not whitelisted yet? -> increase count, whitelist if count > 10 or so
    #   - client whitelisted already? -> update last-seen timestamp
    if($self->{postgrey}{awl_clients}) {
        # greylisting succeeded
        if($diff <= 0 and !$last_was_successful) {
            # enough time has passed (record only one attempt per hour)
            if(! defined $cawl_last or $now >= $cawl_last + 3600) {
                # ok, increase count
                $cawl_count++;
                $cawl_db->{$cawl_key}=$cawl_count.','.$now;
                my $client = $attr->{client_name} ?
                    $attr->{client_name}.'['.$attr->{client_address_ip}->addr().']' :
                    $attr->{client_address_ip}->addr();
                $self->mylog(1, "whitelisted: $client")
                    if $cawl_count==$self->{postgrey}{awl_clients};
            }
        }
    }

# not enough waited? -> greylist
    if ($diff > 0 ) {
        my $msg = $self->{postgrey}{greylist_text};
        # Workaround for an Exchange bug related to Greylisting:
        # use DSN 4.2.0 instead of the default 4.7.1. This works
        # only with Postfix 2.3 though and we know that Postfix >= 2.3
        # always defines the etrn_domain attribute (is this really true and
        # guaranteed in future versions? I don't know...)
        $msg = '4.2.0 ' . $msg if defined $attr->{etrn_domain} and
                          $msg !~ /^\d/;
        $msg =~ s/\%s/$diff/;
        my $recip_domain = $attr->{recipient}; $recip_domain =~ s/.*\@//;
        $msg =~ s/\%r/$recip_domain/;
        $self->mylog_action($attr, 'greylist',
            $now != $first ? "early-retry (${diff}s missing)" : "new"
            );
        return "$self->{postgrey}{greylist_action} $msg";
    }

# X-Greylist header:
    if(!$last_was_successful and $self->is_new_instance($attr->{instance})) {
        # add X-Greylist header
        my $date = strftime("%a, %d %b %Y %T %Z", localtime);
        my $delay = $now-$first;
        $self->mylog_action($attr, 'pass', 'triplet found', 'delay='.($delay));
        my $msg = $self->{postgrey}{x_greylist_header};
        $msg =~ s/\%t/$delay/;
        $msg =~ s/\%v/$VERSION/;
        $msg =~ s/\%d/$date/;
        $msg =~ s/\%h/$self->{postgrey}{hostname}/;
        return 'PREPEND ' . $msg;
    }

$self->mylog_action($attr, 'pass', 'triplet found');
    return 'DUNNO';
}

sub main()
{
    # save arguments for Net:Server HUP restart
    my @ARGV_saved = @ARGV;

# do not output any localized texts!
    setlocale(LC_ALL, 'C');

# parse options
    my %opt = ();
    GetOptions(\%opt, 'help|h', 'man', 'version', 'noaction|no-action|n',
        'verbose|v', 'quiet|q', 'daemonize|d',
        'unix|u=s', 'inet|i=s', 'socketmode=s',
        'user=s', 'group=s', 'dbdir=s', 'pidfile=s', 'delay=i', 'max-age=i',
        'lookup-by-subnet', 'lookup-by-host', 'ipv4cidr=i', 'ipv6cidr=i', 'auto-whitelist-clients:s', 
        'whitelist-clients=s@', 'whitelist-recipients=s@',
        'syslogfacility|syslog-facility|facility=s',
        'retry-window=s', 'greylist-action=s', 'greylist-text=s', 'privacy',
        'hostname=s', 'exim', 'listen-queue-size=i', 'x-greylist-header=s',
    ) or exit(1);
    # note: lookup-by-subnet can be given for compatibility, but it is default
    # so do not do nothing with it...
    # note: auto-whitelist-clients:s and not auto-whitelist-clients:n so that
    # we can differentiate between --auto-whitelist-clients=0 and
    # auto-whitelist-clients

if($opt{help})     { pod2usage(1) }
    if($opt{man})      { pod2usage(-exitstatus => 0, -verbose => 2) }
    if($opt{version})  { print "postgrey $VERSION\n"; exit(0) }
    if($opt{noaction}) { die "ERROR: don't know how to \"no-action\".\n" }

defined $opt{unix} or defined $opt{inet} or
        die "ERROR: --unix or --inet must be specified\n";

# bind only localhost if no host is specified
    if(defined $opt{inet} and $opt{inet}=~/^\d+$/) {
        $opt{inet} = "localhost:$opt{inet}";
    }

# retry window
    my $retry_window = 24*3600*2; # default: 2 days
    if(defined $opt{'retry-window'}) {
        if($opt{'retry-window'} =~ /^(\d+)h$/i) {
            $retry_window = $1 * 3600;
        }
        elsif($opt{'retry-window'} =~ /^\d+$/) {
            $retry_window = $opt{'retry-window'} * 24 * 3600;
        }
        else {
            die "ERROR: --retry-window must be either a number of days or a number\n",
                "       followed by 'h' for hours ('6h' for example).\n";
        }
    }

# untaint what is given on --dbdir. It is not security sensitive since
    # it is provided by the admin
    if($opt{dbdir}) {
        $opt{dbdir} =~ /^(.*)$/; $opt{dbdir} = $1;
    }
    # untaint what is given on --pidfile. It is not security sensitive since
    # it is provided by the admin
    if($opt{pidfile}) {
        $opt{pidfile} =~ /^(.*)$/; $opt{pidfile} = $1;
    }
    # untaint what is given on --inet. It is not security sensitive since
    # it is provided by the admin
    if($opt{inet}) {
        $opt{inet} =~ /^(.*)$/; $opt{inet} = $1;
    }
    # untaint what is given on --socketmode. It is not security sensitive since
    # it is provided by the admin
    if($opt{socketmode}) {
        $opt{socketmode} =~ /^(.*)$/; $opt{socketmode} = $1;
    }

# determine proper "logsock" for Sys::Syslog
    my $syslog_logsock;
    if(defined $Sys::Syslog::VERSION and $Sys::Syslog::VERSION ge '0.15'
    and defined $Net::Server::VERSION and $Net::Server::VERSION ge '0.97') {
        # use 'native' when Sys::Syslog >= 0.15
        $syslog_logsock = 'native';
    }
    elsif($^O eq 'solaris') {
        # 'stream' is broken and 'unix' doesn't work on Solaris: only 'inet'
        # seems to be useable with Sys::Syslog < 0.15
        $syslog_logsock = 'inet';
    }
    else {
        $syslog_logsock = 'unix';
    }

# Workaround: Net::Server doesn't allow for a value of 'listen' higher than 999
    if(defined $opt{'listen-queue-size'} and $opt{'listen-queue-size'} > 999) {
        $opt{'listen-queue-size'} = 999;
    }

# create Net::Server object and run it
    my $server = bless {
        server => {
            commandline      => [ 'postgrey', @ARGV_saved ],
            port             => [ $opt{inet} ? $opt{inet} : $opt{unix}."|unix" ],
            proto            => $opt{inet} ? 'tcp' : 'unix',
            socketmode       => $opt{socketmode} || '0666',
            user             => $opt{user} || 'postgrey',
            group            => $opt{group} || 'postgrey',
            dbdir            => $opt{dbdir} || $DEFAULT_DBDIR,
            setsid           => $opt{daemonize} ? 1 : undef,
            pid_file         => $opt{daemonize} ? $opt{pidfile} : undef,
            log_level        => $opt{quiet} ? 1 : ($opt{verbose} ? 3 : 2),
            log_file         => $opt{daemonize} ? 'Sys::Syslog' : undef,
            syslog_logsock   => $syslog_logsock,
            syslog_facility  => $opt{syslogfacility} || 'mail',
            syslog_ident     => 'postgrey',
            listen           => $opt{'listen-queue-size'} ? $opt{'listen-queue-size'} : undef,
        },
        postgrey => {
            delay            => $opt{delay}     || 300,
            max_age          => $opt{'max-age'} || 35,
            last_maint       => time,
            last_maint_keys  => 0, # do it on the first night
            lookup_by_host   => $opt{'lookup-by-host'},
            ipv4cidr         => $opt{'ipv4cidr'} || 24,
            ipv6cidr         => $opt{'ipv6cidr'} || 64,            
            awl_clients      => defined $opt{'auto-whitelist-clients'} ?
                ($opt{'auto-whitelist-clients'} ne '' ?
                    $opt{'auto-whitelist-clients'} : 5) : 5,
            retry_window     => $retry_window,
            greylist_action  => $opt{'greylist-action'} || 'DEFER_IF_PERMIT',
            greylist_text    => $opt{'greylist-text'} || 'Greylisted, see http://postgrey.schweikert.ch/help/%r.html',
            whitelist_clients_files    => $opt{'whitelist-clients'} ||
                [ "$CONFIG_DIR/postgrey_whitelist_clients" ,
                  "$CONFIG_DIR/postgrey_whitelist_clients.local" ],
            whitelist_recipients_files => $opt{'whitelist-recipients'} ||
                [ "$CONFIG_DIR/postgrey_whitelist_recipients" ],
            privacy => defined $opt{'privacy'},
            hostname => defined $opt{hostname} ? $opt{hostname} : hostname,
            exim => defined $opt{'exim'},
            x_greylist_header  => $opt{'x-greylist-header'} || 'X-Greylist: delayed %t seconds by postgrey-%v at %h; %d',
        },
    }, 'postgrey';

# max_age is in days
    $server->{postgrey}{max_age}*=3600*24;

# be sure to put in syslog any warnings / fatal errors
    if(defined $server->{server}{log_file} and $server->{server}{log_file} eq 'Sys::Syslog') {
        $SIG{__WARN__} = sub { Sys::Syslog::syslog('warning', '%s', "WARNING: $_[0]") };
        $SIG{__DIE__}  = sub { Sys::Syslog::syslog('crit', '%s', "FATAL: $_[0]"); die @_; };
    }

# read whitelist
    $server->read_clients_whitelists();
    $server->read_recipients_whitelists();

# --privacy requires Digest::SHA
    if($opt{'privacy'}) {
        require Digest::SHA;
    }

$0 = join(' ', @{$server->{server}{commandline}});
    $server->run;

# shouldn't get here
    $server->mylog(1, "Exiting!");
    exit 1;
}

##### Net::Server::Multiplex methods:

# reload whitelists on HUP
sub sig_hup {
    my $self = shift;
    $self->mylog(1, "HUP received: reloading whitelists...");
    $self->read_clients_whitelists();
    $self->read_recipients_whitelists();
}

sub post_bind_hook()
{
    my ($self) = @_;

# set unix socket permissions
    if($self->{server}{port}[0] =~ /^(.*)\|unix$/) {
        chmod oct($self->{server}{socketmode}), $1;
    }
}

sub pre_loop_hook()
{
    my ($self) = @_;

# write files with mode 600
    umask 0077;

# ensure that only one instance of postgrey is running
    my $lock = "$self->{server}{dbdir}/postgrey.lock";
    open(LOCK, ">>$lock") or die "ERROR: can't open lock file: $lock\n";
    flock(LOCK, LOCK_EX|LOCK_NB) or die "ERROR: locked: $lock\n";

# my $setflags = DB_TXN_NOSYNC;
    my $setflags = 0; # see http://bugs.debian.org/334430
    if($BerkeleyDB::db_version >= 4.1) {
        $setflags |= BerkeleyDB::DB_AUTO_COMMIT;
    }
    else {
        warn "disabling DB_AUTO_COMMIT because you are using BerkeleyDB version $BerkeleyDB::db_version. Version 4.1 is required for DB_AUTO_COMMIT. You might have problems in case of system failures to recover the database.\n";
    }

# open database with transactions, logging and auto-commit to make it as
    # safe as possible. Note that locking is not required since only one
    # process is running
    $self->{postgrey}{db_env} = BerkeleyDB::Env->new(
        -Home     => $self->{server}{dbdir},
        -Flags    => DB_CREATE|DB_RECOVER|DB_INIT_TXN|DB_INIT_MPOOL|DB_INIT_LOG,
        -SetFlags => $setflags,
    ) or die "ERROR: can't create DB environment: $! (" .
             "dbdir: ".$self->{server}{dbdir}." uid/gid: $<,$>)\n";

$self->{postgrey}{db_obj} = tie(%{$self->{postgrey}{db}}, 'BerkeleyDB::Btree',
        -Filename => 'postgrey.db',
        -Flags    => DB_CREATE,
        -Env      => $self->{postgrey}{db_env}
    ) or die "ERROR: can't create database $self->{server}{dbdir}/postgrey.db: $!\n";

if($self->{postgrey}{awl_clients}) {
        $self->{postgrey}{db_cawl_obj} = tie(%{$self->{postgrey}{db_cawl}}, 'BerkeleyDB::Btree',
            -Filename => 'postgrey_clients.db',
            -Flags    => DB_CREATE,
            -Env      => $self->{postgrey}{db_env}
        ) or die "ERROR: can't create database $self->{server}{dbdir}/postgrey_clients.db: $!\n";
    }
}

sub mux_input()
{
    my ($self, $mux, $fh, $in_ref) = @_;
    defined $self->{postgrey_attr} or $self->{postgrey_attr} = {};
    my $attr = $self->{postgrey_attr};

# consume entire lines
    while ($$in_ref =~ s/^([^\r\n]*)\r?\n//) {
        next unless defined $1;
        my $in = $1;
        if($in =~ /([^=]+)=(.*)/) {
            # read attributes
            $attr->{substr($1, 0, 512)} = substr($2, 0, 512);
        }
        elsif($in eq '') {
            defined $attr->{request} or $attr->{request}='';
            if($attr->{request} ne 'smtpd_access_policy') {
                $self->{net_server}->mylog(0, "unrecognized request type: '$attr->{request}'");
            }
            else {
                my $now = time;

# decide
                my $action = $self->{net_server}->smtpd_access_policy($now, $attr);

# give answer
                print $fh "action=$action\n\n";

# attempt maintenance if one hour has passed since the last one
                my $server = $self->{net_server};
                if($server->{postgrey}{last_maint} && 
                    $now-$server->{postgrey}{last_maint} >= 3600)
                {
                    $server->{postgrey}{last_maint} = $now;
                    $server->do_maintenance($now);
                }

# close the filehandle if --exim is set
                if ($self->{net_server}->{postgrey}{exim}) {
                    close($fh);
                    last;
                } 
            }
            $self->{postgrey_attr} = {};
        }
        else {
            $self->{net_server}->mylog(1, "ignoring garbage: <".substr($in, 0, 100).">");
        }
    }
}

sub fatal_hook()
{
    my ($self, $error, $package, $file, $line) = @_;
    # Net::Server calls $self->server_close but, unfortunately,
    # it does exit(0) (with Net::Server 0.97)...
    # It is however useful for init-script to detect non-zero exit codes
    die('ERROR: ' . $error);
}

main;

__END__

=head1 NAME

postgrey - Postfix Greylisting Policy Server

=head1 SYNOPSIS

B<postgrey> [I<options>...]

-h, --help              display this help and exit
     --version           output version information and exit
 -v, --verbose           increase verbosity level
     --syslog-facility   Syslog facility to use (default mail)
 -q, --quiet             decrease verbosity level
 -u, --unix=PATH         listen on unix socket PATH
     --socketmode=MODE   unix socket permission (default 0666)
 -i, --inet=[HOST:]PORT  listen on PORT, localhost if HOST is not specified
 -d, --daemonize         run in the background
     --pidfile=PATH      put daemon pid into this file
     --user=USER         run as USER (default: postgrey)
     --group=GROUP       run as group GROUP (default: postgrey)
     --dbdir=PATH        put db files in PATH (default: /var/spool/postfix/postgrey)
     --delay=N           greylist for N seconds (default: 300)
     --max-age=N         delete entries older than N days since the last time
                         that they have been seen (default: 35)
     --retry-window=N    allow only N days for the first retrial (default: 2)
                         append 'h' if you want to specify it in hours
     --greylist-action=A if greylisted, return A to Postfix (default: DEFER_IF_PERMIT)
     --greylist-text=TXT response when a mail is greylisted
                         (default: Greylisted + help url, see below)
     --lookup-by-subnet  strip the last N bits from IP addresses, determined by ipv4cidr and ipv6cidr (default)
     --ipv4cidr=N        What cidr to use for the subnet on IPv4 addresses when using lookup-by-subnet (default: 24)
     --ipv6cidr=N        What cidr to use for the subnet on IPv6 addresses when using lookup-by-subnet (default: 64)
     --lookup-by-host    do not strip the last 8 bits from IP addresses
     --privacy           store data using one-way hash functions
     --hostname=NAME     set the hostname (default: `hostname`)
     --exim              don't reuse a socket for more than one query (exim compatible)
     --whitelist-clients=FILE     default: /etc/postfix/postgrey_whitelist_clients
     --whitelist-recipients=FILE  default: /etc/postfix/postgrey_whitelist_recipients
     --auto-whitelist-clients=N   whitelist host after first successful delivery
                                  N is the minimal count of mails before a client is 
                                  whitelisted (turned on by default with value 5)
                                  specify N=0 to disable.
     --listen-queue-size=N        allow for N waiting connections to our socket
     --x-greylist-header=TXT      header when a mail was delayed by greylisting
                                  default: X-Greylist: delayed <seconds> seconds by postgrey-<version> at <server>; <date>

Note that the --whitelist-x options can be specified multiple times,
 and that per default /etc/postfix/postgrey_whitelist_clients.local is
 also read, so that you can put there local entries.

=head1 DESCRIPTION

Postgrey is a Postfix policy server implementing greylisting.

When a request for delivery of a mail is received by Postfix via SMTP, the
triplet C<CLIENT_IP> / C<SENDER> / C<RECIPIENT> is built. If it is the first
time that this triplet is seen, or if the triplet was first seen less than
I<delay> seconds (300 is the default), then the mail gets rejected with a
temporary error. Hopefully spammers or viruses will not try again later, as it
is however required per RFC.

Note that you shouldn't use the --lookup-by-host option unless you know what
you are doing: there are a lot of mail servers that use a pool of addresses to
send emails, so that they can change IP every time they try again. That's why
without this option postgrey will strip the last byte of the IP address when
doing lookups in the database.

=head2 Installation

=over 4

=item *

Create a C<postgrey> user and the directory where to put the database I<dbdir>
(default: C</var/spool/postfix/postgrey>)

=item *

Write an init script to start postgrey at boot and start it. Like this for example:

postgrey --inet=10023 -d

F<contrib/postgrey.init> in the postgrey source distribution includes a
LSB-compliant init script by Adrian von Bidder for the Debian system.

=item *

Put something like this in /etc/main.cf:

smtpd_recipient_restrictions =
               permit_mynetworks
               ...
               reject_unauth_destination
               check_policy_service inet:127.0.0.1:10023

=item *

Install the provided postgrey_whitelist_clients and
postgrey_whitelist_recipients in /etc/postfix.

=item *

Put in /etc/postfix/postgrey_whitelist_recipients users that do not want
greylisting.

=back

=head2 Whitelists

Whitelists allow you to specify client addresses or recipient address, for
which no greylisting should be done. Per default postgrey will read the
following files:

/etc/postfix/postgrey_whitelist_clients
 /etc/postfix/postgrey_whitelist_clients.local
 /etc/postfix/postgrey_whitelist_recipients

You can specify alternative paths with the --whitelist-x options.

Postgrey whitelists follow similar syntax rules as Postfix access tables.
The following can be specified for B<recipient addresses>:

=over 10

=item domain.addr

C<domain.addr> domain and subdomains.

=item name@

C<name@.*> and extended addresses C<name+blabla@.*>.

=item name@domain.addr

C<name@domain.addr> and extended addresses.

=item /regexp/

anything that matches C<regexp> (the full address is matched).

=back

The following can be specified for B<client addresses>:

=over 10

=item domain.addr

C<domain.addr> domain and subdomains.

=item IP1.IP2.IP3.IP4

IP address IP1.IP2.IP3.IP4. You can also leave off one number, in
which case only the first specified numbers will be checked.

=item IP1.IP2.IP3.IP4/MASK

CIDR-syle network. Example: 192.168.1.0/24

=item /regexp/

anything that matches C<regexp> (the full address is matched).

=back

=head2 Auto-whitelisting clients

With the option --auto-whitelist-clients a client IP address will be
automatically whitelisted if the following conditions are met:

=over 4

=item *

At least 5 successfull attempts of delivering a mail (after greylisting was
done). That number can be changed by specifying a number after the
--auto-whitelist-clients argument. Only one attempt per hour counts.

=item *

The client was last seen before --max-age days (35 per default).

=back

=head2 Greylist Action

To set the action to be returned to postfix when a message fails
postgrey's tests and should be deferred, use the
--greylist-action=ACTION option.

By default, postgrey returns DEFER_IF_PERMIT, which causes postfix to
check the rest of the restrictions and defer the message only if it
would otherwise be accepted.  A delay action of 451 causes postfix to
always defer the message with an SMTP reply code of 451 (temp fail).

See the postfix manual page access(5) for a discussion of the actions
allowed.

=head2 Greylist Text

When a message is greylisted, an error message like this will be sent at the
SMTP-level:

Greylisted, see http://postgrey.schweikert.ch/help/example.com.html

Usually no user should see that error message and the idea of that URL is to
provide some help to system administrators seeing that message or users of
broken mail clients which try to send mails directly and get a greylisting
error. Note that the default help-URL contains the original recipient domain
(example.com), so that domain-specific help can be presented to the user (on
the default page it is said to contact postmaster@example.com)

You can change the text (and URL) with the B<--greylist-text> parameter. The
following special variables will be replaced in the text:

=over 4

=item %s

How many seconds left until the greylisting is over (300).

=item %r

Mail-domain of the recipient (example.com).

=back

=head2 Greylist Header

When a message is greylisted, an additional header can be prepended to the
header section of the mail:

X-Greylist: delayed %t seconds by postgrey-%v at %h; %d

You can change the text with the B<--x-greylist-header> parameter. The
following special variables will be replaced in the text:

=over 4

=item %t

How many seconds the mail has been delayed due to greylisting.

=item %v

The version of postgrey.

=item %d

The date.

=item %h

The host.

=back

=head2 Privacy

The --privacy option enable the use of a SHA1 hash function to store
IPs and emails in the greylisting database.  This will defeat straight
forward attempts to retrieve mail user behaviours.

=head2 SEE ALSO

See L<http://www.greylisting.org/> for a description of what
greylisting is and L<http://www.postfix.org/SMTPD_POLICY_README.html>
for a description of how Postfix policy servers work.

=head1 COPYRIGHT

=head1 LICENSE

This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

=head1 AUTHOR

S<David Schweikert E<lt>david@schweikert.chE<gt>>

=cut

# vi: sw=4 et

${this.title}

Code Editor : postgrey