home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / inetlg71.zip / inetsmp.cmd < prev    next >
OS/2 REXX Batch file  |  2000-02-09  |  5KB  |  102 lines
  1. /*
  2. inetsmp.cmd
  3. Copyright 2000 by Chuck McKinnis,  Sandia Park, NM (USA) 04 Feb 2000
  4. mckinnis@attglobal.net
  5.  
  6. REXX Program to set sample data for inetcfg.cmd, inetlog.cmd, and ijoylog.cmd
  7. */
  8. Trace 'N'
  9. Parse Upper Arg type
  10.  
  11. data_queue = Rxqueue('Create')
  12. old_queue = Rxqueue('Set', data_queue)
  13.  
  14. Do While queued()
  15.    Parse Pull .
  16. End
  17.  
  18. Select
  19.    When type = 'CONFIG' Then
  20.       Do
  21.          Queue ';Inetlog configuration file'
  22.          Queue ';   This file is read at startup to provide parameters'
  23.          Queue ';   for the inetlog.cmd and the ijoylog.cmd'
  24.          Queue '[COMMON]'
  25.          Queue '; process IBM dialer logs (1 = yes, 0 = no)'
  26.          Queue 'ibm_dialer ='
  27.          Queue '; process InJoy dialer logs (1 = yes, 0 = no)'
  28.          Queue 'injoy_dialer ='
  29.          Queue '; path to data files - normally x:\inetlog\data'
  30.          Queue 'data_path ='
  31.          Queue '; display daily reports (1 = yes, 0 = no)'
  32.          Queue 'daily_report = 0'
  33.          Queue '; pause as the screen fills (1 = yes, 0 = no)'
  34.          Queue 'one_screen_at_a_time = 1'
  35.          Queue '; warn if the IBM dialer log exceeds this percentage of the size'
  36.          Queue 'warn_pct = 85'
  37.          Queue '; Leading digits for connects, minutes, hours per day or month'
  38.          Queue ';    You should not need to change these.  If you exceed 9,999'
  39.          Queue ';    connects, 9,999,999 minutes, or 999,999 hours per period'
  40.          Queue ';    you will crash, but then I think you have other problems'
  41.          Queue '; significant digits for connects/day or conects/month'
  42.          Queue 'sig_x = 4'
  43.          Queue '; ... for minutes/day or minutes/month'
  44.          Queue 'sig_min = 7'
  45.          Queue '; ... for hours/day or hours/month'
  46.          Queue 'sig_hr = 6'
  47.          Queue '[INETLOG]'
  48.          Queue '; name of the IBM dialer ini file'
  49.          Queue 'ibm_dialer_ini_file ='
  50.          Queue '; output file for IBM dialer detail report'
  51.          Queue 'ibm_output_file = inetlog.log'
  52.          Queue '; output file for IBM dialer summary report'
  53.          Queue 'ibm_summary_file = inetsum.log'
  54.          Queue '; time stamp for last processed record of IBM dialer log'
  55.          Queue 'ibm_last_time_stamp = T00000000000000'
  56.          Queue '[IJOYLOG]'
  57.          Queue '; path(s) to the InJoy dialer log file(s)'
  58.          Queue 'injoy_logs ='
  59.          Queue '; account(s) for the InJoy dialer log file(s)'
  60.          Queue 'injoy_accts ='
  61.          Queue '; users(s) for the InJoy dialer log file(s)'
  62.          Queue 'injoy_users ='
  63.          Queue '; time stamp(s) for the InJoy dialer log file(s)'
  64.          Queue 'injoy_times ='
  65.          Queue '; output file for InJoy dialer detail report'
  66.          Queue 'injoy_output_file = ijoylog.log'
  67.          Queue '; output file for InJoy dialer summary report'
  68.          Queue 'injoy_summary_file = ijoysum.log'
  69.       End
  70.    When type = 'SUMMARY' Then
  71.       Do
  72.          Queue '* The purpose of this file is to maintain monthly summaries across'
  73.          Queue '* pruning of the connection log'
  74.          Queue '*'
  75.          Queue '* The format of the file is:'
  76.          Queue '*'
  77.          Queue '*     account userid * year month time-stamp sessions minutes'
  78.          Queue '*     for example: usinet chmckin * 1995 01 T19950131235959 1 1.00'
  79.          Queue '*        (the time-stamp is in the form'
  80.          Queue '*         year || month || day || hour || minute || second'
  81.          Queue '*         prefixed by a "T" to'
  82.          Queue '*         force character compares)'
  83.          Queue '*'
  84.          Queue '* An "*" in column 1 indicates a comment. Comments and blank lines will'
  85.          Queue '* not be processed'
  86.          Queue '*'
  87.          Queue '* If your first run of INETLOG does not provide the monthly summaries that'
  88.          Queue '* you want, you may want to re-format monthly entries from the old'
  89.          Queue '* inetlog file, normally called inetlog.$$$, into this file.  If the'
  90.          Queue '* month has ended set the time stamp to the highest possible timestamp'
  91.          Queue '* value for that month as shown below.'
  92.          Queue '*'
  93.          Queue '* 1995 Dec   15X     131.63 mins        2:11:37      2.19 hrs - Ave =  9 mins'
  94.          Queue '* unknown unknown * 1995 12 T19951231235959 15 131.63'
  95.          Queue '* 1996 Jan  178X    2341.83 mins       39:01:49     39.03 hrs - Ave = 13 mins'
  96.          Queue '* unknown unknown * 1996 01 T19960131235959 178 2342.83'
  97.       End
  98.    Otherwise Nop
  99. End
  100.  
  101. Return data_queue
  102.