home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / acmg_016.zip / migrate.cmd < prev    next >
OS/2 REXX Batch file  |  2000-08-06  |  2KB  |  49 lines
  1. /* migrate.cmd
  2.  
  3.    Account Manager - Migrate utility
  4.    ---------------------------------
  5.    Simple REXX script to migrate data from version 0.10
  6.  
  7.    This script makes an ascii file to use with import option of Account Manager
  8.  
  9.    INPUT.: no input is required
  10.    OUTPUT: "migrate.txt" (ascii file)
  11.  
  12. */
  13. call rxfuncadd 'IniLoadFuncs', 'REXXINI', 'IniLoadFuncs'
  14. call IniLoadFuncs
  15. '@del migrate.txt > NUL 2>&1'
  16.  
  17. sep=";"
  18. file_name="migrate.txt"
  19. head='"Account Name";"User ID";"Password";"Account Type";"URL";"First Name";"Last Name";"Address";"Zip Code";"City";"State";"E-Mail"'
  20.  
  21. call lineout file_name, head
  22.  
  23.  
  24. /* count the sections */
  25. call IniEnumSections Section, "account.db"    
  26.  
  27. do i = 1 to Section.0
  28.     handle=IniOpen(section.i, "account.db")
  29.     say "Elaborating..... "section.i
  30.     _url=IniGet(URL,handle)
  31.     _userid=IniGet(USERID, handle)
  32.     _passwd=IniGet(PASSWORD, handle)
  33.     _fname=IniGet(FNAME, handle)
  34.     _lname=IniGet(LNAME, handle)
  35.     _address=IniGet(ADDRESS, handle)
  36.     _zip=IniGet(ZIP,handle)
  37.     _city=IniGet(CITY, handle)
  38.     _state=IniGet(STATE, handle)
  39.     _email=IniGet(EMAIL, handle)
  40.     _category=IniGet(TYPE, handle)
  41.     call lineout file_name, d2c(34)||section.i||d2c(34)||sep||d2c(34)||_userid||d2c(34)||sep||d2c(34)||_passwd||d2c(34)||sep||d2c(34)||_category||d2c(34)||sep||d2c(34)||_url||d2c(34)||sep||d2c(34)||_fname||d2c(34)||sep||d2c(34)||_lname||d2c(34)||sep||d2c(34)||_address||d2c(34)||sep||d2c(34)||_zip||d2c(34)||sep||d2c(34)||_city||d2c(34)||sep||d2c(34)||_state||d2c(34)||sep||d2c(34)||_email||d2c(34)
  42.  
  43. end /* do */
  44. call lineout file_name
  45. say ''
  46. say "Done!"
  47. say ''
  48. say "Please, check the file migrate.txt!"
  49.