fetchmailconf.wmconfig « rh-config - fetchmail - [fork] set imap idle timeout to 600s, some servers don't follow rfc recommendations

about summary refs log tree commit diff stats

path: root/rh-config/fetchmailconf.wmconfig

blob: c69061d9ab6dc3c264a2080714caa163fb440589 (plain)

fetchmailconf name "Fetchmail Configuration"
fetchmailconf description "A graphical configuration tool for Fetchmail"
fetchmailconf exec "fetchmailconf &"
fetchmailconf group Administration

light .ss { color: #aa6600; background-color: #fff0f0 } /* Literal.String.Symbol */ .highlight .bp { color: #003388 } /* Name.Builtin.Pseudo */ .highlight .fm { color: #0066bb; font-weight: bold } /* Name.Function.Magic */ .highlight .vc { color: #336699 } /* Name.Variable.Class */ .highlight .vg { color: #dd7700 } /* Name.Variable.Global */ .highlight .vi { color: #3333bb } /* Name.Variable.Instance */ .highlight .vm { color: #336699 } /* Name.Variable.Magic */ .highlight .il { color: #0000DD; font-weight: bold } /* Literal.Number.Integer.Long */

#!/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);