home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1997 April / PCO_04_97.ISO / filesbbs / os2 / dialip14.arj / DIALIP14.ZIP / showini.cmd < prev    next >
Encoding:
Text File  |  1996-11-15  |  1.0 KB  |  40 lines
  1. /**/
  2. /* run with 1 argument = ini file to look at */
  3. /* for example: showini c:\mptn\etc\tcpos2.ini          - Internet 'Other' dialer info. */
  4. /* for example: showini d:\spllmstr\spllmstr.ini */
  5.  
  6. parse arg inifile
  7. if ( inifile = '' ) then
  8.     Do
  9.     say 'Run with 1 argument (name of an *.ini file) to show'
  10.     exit
  11.     End
  12.  
  13. call sysini inifile, 'ALL:', 'apps.'
  14. say "apps.0 ="apps.0
  15. if ( result \= 'ERROR:' ) then
  16.     Do i = 1 to apps.0
  17.     call sysini inifile, apps.i, 'ALL:', 'keys'
  18.     say "keys.0 ="keys.0
  19.     do c = 1 to keys.0
  20.         say apps.i"["i"]"keys.c"["c"] =" sysini( inifile, apps.i, keys.c )"="
  21.     end /* do */
  22.  
  23. /** Uncommenting out the lines below will let you delete ini file items!
  24.       VERY DANGEROUS unless you know what you are doing
  25. **/
  26. /**    say 'Delete whole app.' apps.i '?'**/
  27.     say 'hit return'
  28.     parse pull ans
  29. /**
  30.     if ( ans ='Y' ) then
  31.         Do
  32.         say 'Deleting whole app.'
  33.         call sysini inifile, apps.i, 'DELETE:'
  34.         End
  35. **/
  36.     end
  37.  
  38. RETURN
  39.  
  40.