| Server IP : 85.214.239.14 / Your IP : 3.12.155.6 Web Server : Apache/2.4.62 (Debian) System : Linux h2886529.stratoserver.net 4.9.0 #1 SMP Tue Jan 9 19:45:01 MSK 2024 x86_64 User : www-data ( 33) PHP Version : 7.4.18 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals,pcntl_unshare, MySQL : OFF | cURL : OFF | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : OFF Directory : /proc/3/root/proc/2/task/2/root/proc/2/root/usr/share/doc/fetchmail/contrib/ |
Upload File : |
#!/usr/bin/perl
# fetchmail -> procmail pretti-fier proxy thingamajig
# ver. 2000-04-01
#
# John Lim Eng Hooi <jleh@mail.com>
#
# Where's procmail located?
$proc_path = '/usr/bin/procmail';
# Define your ANSI color codes here, I've only bothered to define
# those I use :)
$ANSI_green = "\e[0;32m";
$ANSI_b_white = "\e[1;37m";
$ANSI_normal = "\e[0;39m";
# Open up procmail
open (PROCPIPE, "|$proc_path") || die "Can't open procmail pipe!";
# Analyze the message line by line
while (<STDIN>) {
# Suck up the lines we want, in this case I just want From: and Subject:
if (/^From:/) {
$from = $_;
}
if (/^Subject:/) {
$subj = $_;
}
# Stuff it out to the pipe too
print PROCPIPE;
}
# Print it out
print "\n";
print $ANSI_green, " ", $from;
print $ANSI_b_white, " ", $subj, $ANSI_normal;
# fetchmail's status is appended after this
print " -->";
# We're done
close (PROCPIPE);