home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / VRAC / PM301.ZIP / RESOURCE.ZIP / REMINDER.R < prev    next >
Encoding:
Text File  |  1993-08-02  |  7.3 KB  |  210 lines
  1. #
  2. #   REMINDER.R
  3. #   Sample programmable mail form for Pegasus Mail v3.0
  4. #   Copright (c) 1993, David Harris, All Rights Reserved.
  5. #
  6. #   You are granted the right to modify and distribute this
  7. #   form in any way you wish provided you do not sell it or
  8. #   any derivative either on its own or as part of any other
  9. #   package.
  10. #
  11. #   By using this form you agree to hold the author blameless
  12. #   for all or any damages or losses resulting from its use.
  13. #
  14. #   This form provides an interface to an undocumented feature
  15. #   in the Mercury Mail Transport System which can send reminder
  16. #   notifications in response to a message.
  17. #
  18.  
  19. include defines.rh
  20. include forms.rh
  21.  
  22. string form_title     "Basic Message Editor";
  23.  
  24. window fwindow    # The window in which the form appears
  25.    {
  26.    45, 6, 32, 12, BBLUE | LIGHTGREY | wzip | wshadow,
  27.    BBLUE | LIGHTGREY, ' ', BSINGLE,
  28.    " Reminder request "
  29.    };
  30.  
  31. box mbox
  32.    {
  33.    1, 8, 29, 2, BSINGLE, BBLUE | LIGHTGREY
  34.    };
  35.  
  36. block field_text
  37.    {
  38.    3, 2, BBLUE | LIGHTGREY,
  39.    "Year          :",
  40.    "Month (1-12)  :",
  41.    "Day (1-31)    :",
  42.    "Hour (0-23)   :",
  43.    "Minute (0-59) :",
  44.    "",
  45.    " Message "
  46.    };
  47.  
  48. data year
  49.    {
  50.    21, 2, 2, 2, 0, 0, 0, GT_INTEGER, 0
  51.    };
  52.  
  53. data month
  54.    {
  55.    21, 3, 2, 2, 0, 0, 0, GT_INTEGER, 0
  56.    };
  57.  
  58. data day
  59.    {
  60.    21, 4, 2, 2, 0, 0, 0, GT_INTEGER, 0
  61.    };
  62.  
  63. data hour
  64.    {
  65.    21, 5, 2, 2, 0, 0, 0, GT_INTEGER, 0
  66.    };
  67.  
  68. data minute
  69.    {
  70.    21, 6, 2, 2, 0, 0, 0, GT_INTEGER, 0
  71.    };
  72.  
  73. data message
  74.    {
  75.    3, 9, 25, 25, 0, 0, 0, GT_STRING, 0
  76.    };
  77.  
  78. text fformat
  79.    {
  80.    "notify me {field 7}-{field 8}-{field 9} {field 10}:{field 11} {field 12}\n"
  81.    };
  82.  
  83. text hlp_year
  84.    {
  85.    " Reminder interface: YEAR \n",
  86.    "This form provides an interface to an undocumented feature\n",
  87.    "of the Mercury Mail Transport System which allows you to\n",
  88.    "schedule reminder messages to be sent at particular times.\n",
  89.    "For this form to work correctly, you must be using the\n",
  90.    "Mercury System with the Mail Server function enabled.\n",
  91.    "\n",
  92.    "The Year field: enter here the year when the notification\n",
  93.    "should occur, expressed as two digits (eg \"93\"). The default\n",
  94.    "value is the current year.\n",
  95.    "\n",
  96.    "You can move between fields using the arrow keys. Press\n",
  97.    "<Ctrl-Enter> when you are ready to set the reminder.",
  98.    }
  99.  
  100. text hlp_month
  101.    {
  102.    " Reminder interface: MONTH \n",
  103.    "This form provides an interface to an undocumented feature\n",
  104.    "of the Mercury Mail Transport System which allows you to\n",
  105.    "schedule reminder messages to be sent at particular times.\n",
  106.    "For this form to work correctly, you must be using the\n",
  107.    "Mercury System with the Mail Server function enabled.\n",
  108.    "\n",
  109.    "The Month field: enter here the month when the reminder\n",
  110.    "should occur, as digits (eg \"8\" or \"08\"). The default value\n",
  111.    "is the current month.\n",
  112.    "\n",
  113.    "You can move between fields using the arrow keys. Press\n",
  114.    "<Ctrl-Enter> when you are ready to set the reminder.",
  115.    }
  116.  
  117. text hlp_day
  118.    {
  119.    " Reminder interface: DAY \n",
  120.    "This form provides an interface to an undocumented feature\n",
  121.    "of the Mercury Mail Transport System which allows you to\n",
  122.    "schedule reminder messages to be sent at particular times.\n",
  123.    "For this form to work correctly, you must be using the\n",
  124.    "Mercury System with the Mail Server function enabled.\n",
  125.    "\n",
  126.    "The Day field: enter here the day when the reminder message\n",
  127.    "should occur, as digits (eg \"3\" or \"03\"). The default value\n",
  128.    "is the current day.\n",
  129.    "\n",
  130.    "You can move between fields using the arrow keys. Press\n",
  131.    "<Ctrl-Enter> when you are ready to set the reminder.",
  132.    }
  133.  
  134. text hlp_hour
  135.    {
  136.    " Reminder interface: HOUR \n",
  137.    "This form provides an interface to an undocumented feature\n",
  138.    "of the Mercury Mail Transport System which allows you to\n",
  139.    "schedule reminder messages to be sent at particular times.\n",
  140.    "For this form to work correctly, you must be using the\n",
  141.    "Mercury System with the Mail Server function enabled.\n",
  142.    "\n",
  143.    "The Hour field: enter here the hour when the notification\n",
  144.    "should occur, as digits (eg \"8\" or \"08\") using the 24-hour\n",
  145.    "Clock. The default value for this field is 0 (midnight)\n",
  146.    "\n",
  147.    "You can move between fields using the arrow keys. Press\n",
  148.    "<Ctrl-Enter> when you are ready to set the reminder.",
  149.    }
  150.  
  151. text hlp_min
  152.    {
  153.    " Reminder interface: MINUTE \n",
  154.    "This form provides an interface to an undocumented feature\n",
  155.    "of the Mercury Mail Transport System which allows you to\n",
  156.    "schedule reminder messages to be sent at particular times.\n",
  157.    "For this form to work correctly, you must be using the\n",
  158.    "Mercury System with the Mail Server function enabled.\n",
  159.    "\n",
  160.    "The Minute field: enter here the minute when the reminder\n",
  161.    "should occur, as digits (eg \"8\" or \"08\") from 0 to 60. The\n",
  162.    "default value for this field is 0 (top of the hour)\n",
  163.    "\n",
  164.    "You can move between fields using the arrow keys. Press\n",
  165.    "<Ctrl-Enter> when you are ready to set the reminder.",
  166.    }
  167.  
  168. text hlp_message
  169.    {
  170.    " Reminder interface: MESSAGE \n",
  171.    "This form provides an interface to an undocumented feature\n",
  172.    "of the Mercury Mail Transport System which allows you to\n",
  173.    "schedule reminder messages to be sent at particular times.\n",
  174.    "For this form to work correctly, you must be using the\n",
  175.    "Mercury System with the Mail Server function enabled.\n",
  176.    "\n",
  177.    "The Message field: enter here the text which should appear\n",
  178.    "in the broadcast message which is sent when the reminder\n",
  179.    "falls due. You can enter any text you wish in this field -\n",
  180.    "there is no default value.\n",
  181.    "\n",
  182.    "You can move between fields using the arrow keys. Press\n",
  183.    "<Ctrl-Enter> when you are ready to set the reminder.",
  184.    }
  185.  
  186. string maiser_dflt             "IN:MAISER";
  187. string subject_dflt            "Notification request";
  188. string year_dflt               "{year_2}";
  189. string month_dflt              "{nmonth}";
  190. string day_dflt                "{nday}";
  191.  
  192. formtable formdata
  193.    {
  194. #  Name........ Correlation. Help text.... Validation... Status...... Default
  195.    fwindow,     F_WINDOW,    0,            0,            0,           0,
  196.    0,           F_TO,        0,            0,            0,           maiser_dflt,
  197.    0,           F_SUBJECT,   0,            0,            0,           subject_dflt,
  198.    0,           F_NOSIG,     0,            0,            0,           1,
  199.    fformat,     F_SMTP_TEMPLATE, 0         0,            0,           0,
  200.    mbox,        0,           0,            0,            0,           0,
  201.    field_text,  0,           0,            0,            0,           0,
  202.    year,        F_INTEGER,   hlp_year,     0,            0,           year_dflt,
  203.    month,       F_INTEGER,   hlp_month,    0,            0,           month_dflt,
  204.    day,         F_INTEGER,   hlp_day,      0,            0,           day_dflt,
  205.    hour,        F_INTEGER,   hlp_hour,     0,            0,           0,
  206.    minute,      F_INTEGER,   hlp_min,      0,            0,           0,
  207.    message,     F_STRING,    hlp_message,  0,            0,           0
  208.    };
  209.  
  210.