Server IP : 85.214.239.14 / Your IP : 3.145.92.96 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/self/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);