contrib/dialog/samples/copifuncs/copi.ifreq1

   1 #!/usr/bin/perl
   2 $ver = "0.4";
   3 #
   4 # this perl script is designed for the ifmail package by eugene grosser.
   5 #
   6 # request a file (first argument) from a fido-node (second argument),
   7 # don't forget to quote if you use wildcards, e.g.:
   8
   9 #      ifreq 'files*' 2:2410/305
  10 # or
  11 #      ifreq 'files newfile' 2:2410/305
  12 #
  13 # this perl script does only add an entry to the corresponding flo-file,
  14 # the mailer ifcico is not started!
  15 #
  16 # rasca, berlin 1994 (rasca@marie.physik.tu-berlin.de, 2:2410/305.4)
  17 #
  18 # multi-zone support added by
  19 # Roland Rosenfeld 15.05.1994 (roland@p13.flokiste.fido.de, 2:2450/300.13)
  20