aboutsummaryrefslogtreecommitdiffstats
path: root/dist-tools/shipper/README
blob: c06f813adc4a318664650ba6f2d97eb7e92cab96 (plain)
1
2
3
4
5
6
7
		README for shipper

shipper automates the tedious process of shipping a software release to
several standard places, including ibiblio, the Red Hat submission directory,
and your own hosted website.  It also knows how to post a release announcement
to freshmeat.net via freshmeat-submit.  Two auxiliary tools, buildrpms and 
rpm2lsm, build RPMs and generate LSM files from them respectively.
.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);