#!/usr/bin/perl
-# $Id: process.in,v 1.3 1999/09/16 07:16:47 gecko Exp $
+# $Id: process.in,v 1.4 1999/09/16 19:42:50 gecko Exp $
#
# Usage: process nn
# Temps: incoming/Pnn
#remove blank lines
while ($i <= $#msg && !length($msg[$i])) { $fwd .= "\n"; $i++; }
+
+#skips the "this is mime" message and any blank space after it
+if ( $msg[$i] =~ /^This is a multi-part message in MIME format./ )
+{
+ while ( $i <= $#msg && length( $msg[$i] ) ) { $fwd .= $msg[$i] . "\n"; $i++; }
+ while ( $i <= $#msg && !length( $msg[$i] ) ) { $fwd .= "\n"; $i++; }
+}
+#if the lines starts with -- or is nothing but blank space...
+#skip to the next blank line(s) then skip past the blank line(s)
if ( $msg[$i] =~ /^--/ || $msg[$i] =~ /^\s*$/ )
{
- while ( $i <= $#msg && length( $msg[$i] ) ) { $fwd .= $msg[$i]; $i++; }
+ while ( $i <= $#msg && length( $msg[$i] ) ) { $fwd .= $msg[$i] . "\n"; $i++; }
while ( $i <= $#msg && !length( $msg[$i] ) ) { $fwd .= "\n"; $i++; }
}
#!/usr/bin/perl -w
-# $Id: service.in,v 1.4 1999/09/16 07:16:47 gecko Exp $
+# $Id: service.in,v 1.5 1999/09/16 19:42:50 gecko Exp $
#
# Usage: service <code>.nn
# Temps: incoming/P<code>.nn
print DEBUG "###\n",join("##\n",@msg),"\n###\n";
-chop($tdate= `date -u '+%a, %d %h 19%y %T GMT'`);
+chop($tdate= `date -u '+%a, %d %h %Y %T GMT'`);
$fwd= <<END;
Received: via spool for service; $tdate
END
-# $Id: text.in,v 1.5 1999/09/14 22:33:48 gecko Exp $
+# $Id: text.in,v 1.6 1999/09/16 19:42:50 gecko Exp $
############################################################################
# Here is a blurb to point people to ftp archive of directions. It is
############################################################################
# shows up at the end of (most) html pages. You shouldn't have
############################################################################
-$gHTMLTail = "<HR><ADDRESS><A HREF=\"$gMaintainerWebpage\">$gMaintainer</A> /
+$gHTMLTail = "<HR><ADDRESS>$gMaintainer /
<A HREF=\"mailto:$gMaintainerEmail\">$gMaintainerEmail</A>. Last modifed:
<!--timestamp-->
SUBSTITUTE_DTIME
<P>
Debian $gBug tracking system<BR>
- copyright 1997 nCipher Corporation Ltd,<BR>
- copyright 1994-1997 Ian Jackson,<BR>
- copyright 1995 Steven Brenner.<BR>
+ copyright 1999 Darren O. Benham,
+ 1997 nCipher Corporation Ltd,
+ 1994-7 Ian Jackson,
+ 1995 Steven Brenner.<BR>
<A HREF=\"http://www.chiark.greenend.org.uk/~ian/debbugs/\">
Available under the GPL.</A>
</ADDRESS>