contrib/dialog/samples/copifuncs/copi.ifman1

   1 #! /usr/bin/perl
   2 #
   3 # This is a utility script to manipulate Fidonet-related issues
   4 # using Eugene Crosser's ifmail package
   5 #
   6 # Version 0.1
   7 #
   8 # (C) Michael Bravo and The Communication Tube, 1994
   9 #
  10 # You can do whatever you want with this script. I take no responsibility
  11 # whatsoever in anything related to this script. If you make some useful
  12 # additions to this, please think of sending them to me so I could partake
  13 # of your wisdom.
  14 #
  15 # This script was written to help attaching and requesting files from the
  16 # commandline, much like you do with Squish under DOS or OS/2. It is certainly
  17 # not perfect - I used it as an exercise in Perl. It also probably lacks
  18 # some other useful features, like ability to specify trunc/sent or kill/sent
  19 # attributes etc etc. If you really want this or some other features
  20 # implemented, write me at mbravo@tctube.spb.su or mbravo@octopus.spb.su
  21 # and I will try to do what I can.
  22 #
  23 # Note - files don't get copied to any spool dir, so if you move attached
  24 # files somewhere, they won't get sent.
  25 #
  26 # This script is supposed to read ifmail's config to determine where outbound
  27 # directory and logfile are. The only two parameters to modify in most cases
  28 # are below.
  29