Return to prmail.sh CVS log

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

Annotation of 3BSD/cmd/prmail.sh, revision 1.1.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.