/contrib/dialog/samples/copifuncs/copi.ifreq1

https://bitbucket.org/freebsd/freebsd-head/ · Perl · 20 lines · 1 code · 2 blank · 17 comment · 0 complexity · 735333d63abf04085158b92d7d0fc060 MD5 · raw file 

    

  1. #!/usr/bin/perl
    2. 

  2. $ver = "0.4";
    3. 

  3. #
    4. 

  4. # this perl script is designed for the ifmail package by eugene grosser.
    5. 

  5. #
    6. 

  6. # request a file (first argument) from a fido-node (second argument),
    7. 

  7. # don't forget to quote if you use wildcards, e.g.:
    8. 

    9. 

  9. #      ifreq 'files*' 2:2410/305
    10. 

  10. # or
    11. 

  11. #      ifreq 'files newfile' 2:2410/305
    12. 

  12. #
    13. 

  13. # this perl script does only add an entry to the corresponding flo-file,
    14. 

  14. # the mailer ifcico is not started!
    15. 

  15. #
    16. 

  16. # rasca, berlin 1994 (rasca@marie.physik.tu-berlin.de, 2:2410/305.4)
    17. 

  17. #
    18. 

  18. # multi-zone support added by
    19. 

  19. # Roland Rosenfeld 15.05.1994 (roland@p13.flokiste.fido.de, 2:2450/300.13)
    20.