Return to prmail.sh CVS log

Up to [CSRG BSD Unix] / 3BSD / cmd

Annotation of 3BSD/cmd/prmail.sh, revision 1.1

1.1     ! root        1: # print mail file
        !             2: cd /usr/spool/mail
        !             3: set multi=$#argv
        !             4: if ($#argv == 0) then
        !             5:        set me=`whoami`
        !             6:        if (! -r $me) then
        !             7:                echo No mail.
        !             8:                exit(1)
        !             9:        endif
        !            10:        /usr/ucb/more $me
        !            11:        echo 'Remove this mail [yn] ? \c'
        !            12:        if (`gets n` == y) then
        !            13:                rm -f $me
        !            14:        endif
        !            15: else
        !            16:        while ($#argv > 0)
        !            17:                if (! -e $argv[1] || -z $argv[1]) then
        !            18:                        echo No mail for $argv[1]
        !            19:                else
        !            20:                        echo '>>>' $argv[1] '<<<'
        !            21:                        /usr/ucb/more $argv[1]
        !            22: # Removed per RJ Fateman
        !            23: #                      if { /usr/ucb/more $argv[1] } then
        !            24: #                              echo 'Remove this mail [yn] ? \c'
        !            25: #                              if (`gets n` == y) then
        !            26: #                                      rm -f $argv[1]
        !            27: #                              endif
        !            28: #                      endif
        !            29:                endif
        !            30:                shift argv
        !            31:                if ($#argv > 0) then
        !            32:                        echo '-----\n\n'
        !            33:                endif
        !            34:        end
        !            35: endif

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.