/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