aboutsummaryrefslogtreecommitdiffstats
path: root/trio/doc/header.html
blob: fd2edd1b905db0b1fdda737291ab46958d9c3f43 (plain)
1
2
3
4
5
6
7
8
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
 <meta http-equiv="Content-Type" content="text/html;charset=iso-8859-1">
 <title>TRIO</title>
 <link href="trio.css" rel="stylesheet" type="text/css">
</head>
<body>
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);