Simtel MSDOS 1992 June/SIMTEL_0692.cdr/msdos/info/info_pc.arc/mkind

Text File | 1990-08-22 | 1KB | 40 lines

#! /usr/bin/perl
$newdigest = 1 ;
while (<>)
    {
    $instr[0] = $_ ;
    @whitegrep = grep (/^[ \t\n]*$/, @instr);
    if ($#whitegrep >= 0)
        {
        if ($newdigest)
            {
            $volser = $possible_volser;
            }
        $newdigest = 0;
        if (length ($subjtext) > 0)
            {
            print $ARGV , " ", $volser , ": " , $subjtext ;
            }
        $subjtext = "";
        }
    @grepstr = grep (/^From:.*[iI][nN][fF][oO].*[pP][cC]/, @instr) ;
    @grepstr2 = grep (/^From:.*Gillmann/, @instr);
    if ($#grepstr >= 0 || $#grepstr2 >= 0)
        {
        $newdigest = 1 ;
        }
    @subjgrep = grep (/^Subject:.*Digest.*V.*#/, @instr) ;
    if ($#subjgrep >= 0)
        {
        $subjgrep[0] =~ s/V[0-9]* *#[0-9]*/\\\\$&\\\\/ ;
        @grepsplit = split (/\\\\/, $subjgrep[0]);
        $possible_volser = $grepsplit[1];
        }
    @grepstr = grep (/^Subject:/, @instr) ;
    if ($#grepstr >= 0)
        {
        $subjtext = $instr[0];
        $subjtext =~ s/^Subject:// ;
        }
    }