home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / MISC / IPADMGR.ZIP / SOURCE.ZIP / TROUBLE.PRG < prev    next >
Text File  |  1995-12-12  |  5KB  |  161 lines
  1. *:*****************************************************************************
  2. *:
  3. *:        Program: D:\IPADMGR\SOURCE\TROUBLE.PRG
  4. *:
  5. *:         System: IPADEDIT
  6. *:         Author: Jeff Johnson
  7. *:      Copyright (c) 1996, BBS Consultants, Inc.
  8. *:  Last modified: 12/12/95      9:40
  9. *:
  10. *:      Called by: IPADEDIT.PRG                      
  11. *:
  12. *:           Uses: IPADCFG.DBF        
  13. *:               : TRASHCAN.DBF       
  14. *:               : IPADFEES.DBF       
  15. *:               : STATS.DBF          
  16. *:               : IPADMGR.DBF        
  17. *:
  18. *:        Indexes: TRASHCAN.NX1       
  19. *:               : TRASHCAN.NX2       
  20. *:               : STATS.NX1          
  21. *:               : IPADMGR.NX1        
  22. *:               : IPADMGR.NX2        
  23. *:               : IPADMGR.NX3        
  24. *:               : IPADMGR.NX4        
  25. *:               : IPADMGR.NX5        
  26. *:               : IPADMGR.NX6        
  27. *:
  28. *:    Other Files: TEMP.MSG
  29. *:
  30. *:      Documented 10/01/96 at 13:17                SNAP!  version 5.02
  31. *:*****************************************************************************
  32. SELECT 2
  33. IF .NOT. Empty(Message)
  34.    FCREATE fo temp.msg 13
  35.    FOPEN fo temp.msg 13
  36.    STORE "F:Ipad Manager " + Chr(13) + Chr(10) TO line
  37.    FLWRITE fo size line
  38.    STORE "T:jeff.johnson@rockbbs.com" + Chr(13) + Chr(10) TO line
  39.    FLWRITE fo size line
  40.    STORE "S:Ipad Manager Transmission" + Chr(13) + Chr(10) TO line
  41.    FLWRITE fo size line
  42.    STORE "P:" + Chr(13) + Chr(10) TO line
  43.    FLWRITE fo size line
  44.    STORE "W:" + Chr(13) + Chr(10) TO line
  45.    FLWRITE fo size line
  46.    STORE Chr(13) + Chr(10) TO line
  47.    FLWRITE fo size line
  48.    STORE "Transmission of data " + Version + " on " + Dtoc(Date()) + " at " + Time() + Chr(13) + Chr(10) TO line
  49.    FLWRITE fo size line
  50.    STORE "Dns name: " + dns + Chr(13) + Chr(10) TO line
  51.    FLWRITE fo size line
  52.    STORE "Key name: " + serv_name + Chr(13) + Chr(10) TO line
  53.    FLWRITE fo size line
  54.    STORE "Logon name of person transmitting data : " + Rtrim(Uname()) + Chr(13) + Chr(10) TO line
  55.    FLWRITE fo size line
  56.    STORE "Database: Ipadcfg.dbf" + Chr(13) + Chr(10) TO line
  57.    FLWRITE fo size line
  58.    STORE 1 TO COUNT
  59.    DO WHILE .T.
  60.       STORE "Field(" + Ltrim(Str(COUNT,3)) + ")" TO Field
  61.       IF .NOT. Empty(&field)
  62.          STORE Str(COUNT,3) + "  "  + &field + Chr(13) + Chr(10) TO line
  63.          FLWRITE fo size line
  64.          STORE COUNT + 1 TO COUNT
  65.          LOOP
  66.       ELSE
  67.          EXIT
  68.       ENDIF
  69.    ENDDO
  70.    SELECT 1
  71.    STORE "Database: Ipadmgr.dbf" + Chr(13) + Chr(10) TO line
  72.    FLWRITE fo size line
  73.    STORE 1 TO COUNT
  74.    DO WHILE .T.
  75.       STORE "Field(" + Ltrim(Str(COUNT,3)) + ")" TO Field
  76.       IF .NOT. Empty(&field)
  77.          STORE Str(COUNT,3) + "  "  + &field + Chr(13) + Chr(10) TO line
  78.          FLWRITE fo size line
  79.          STORE COUNT + 1 TO COUNT
  80.          LOOP
  81.       ELSE
  82.          EXIT
  83.       ENDIF
  84.    ENDDO
  85.    SELECT 3
  86.    STORE "Database: Ipadfees.dbf" + Chr(13) + Chr(10) TO line
  87.    FLWRITE fo size line
  88.    STORE 1 TO COUNT
  89.    DO WHILE .T.
  90.       STORE "Field(" + Ltrim(Str(COUNT,3)) + ")" TO Field
  91.       IF .NOT. Empty(&field)
  92.          STORE Str(COUNT,3) + "  "  + &field + Chr(13) + Chr(10) TO line
  93.          FLWRITE fo size line
  94.          STORE COUNT + 1 TO COUNT
  95.          LOOP
  96.       ELSE
  97.          EXIT
  98.       ENDIF
  99.    ENDDO
  100.    SELECT 4
  101.    STORE "Database: Trashcan.dbf" + Chr(13) + Chr(10) TO line
  102.    FLWRITE fo size line
  103.    STORE 1 TO COUNT
  104.    DO WHILE .T.
  105.       STORE "Field(" + Ltrim(Str(COUNT,3)) + ")" TO Field
  106.       IF .NOT. Empty(&field)
  107.          STORE Str(COUNT,3) + "  "  + &field + Chr(13) + Chr(10) TO line
  108.          FLWRITE fo size line
  109.          STORE COUNT + 1 TO COUNT
  110.          LOOP
  111.       ELSE
  112.          EXIT
  113.       ENDIF
  114.    ENDDO
  115.    SELECT 5
  116.    STORE "Database: Stats.dbf" + Chr(13) + Chr(10) TO line
  117.    FLWRITE fo size line
  118.    STORE 1 TO COUNT
  119.    DO WHILE .T.
  120.       STORE "Field(" + Ltrim(Str(COUNT,3)) + ")" TO Field
  121.       IF .NOT. Empty(&field)
  122.          STORE Str(COUNT,3) + "  "  + &field + Chr(13) + Chr(10) TO line
  123.          FLWRITE fo size line
  124.          STORE COUNT + 1 TO COUNT
  125.          LOOP
  126.       ELSE
  127.          EXIT
  128.       ENDIF
  129.    ENDDO
  130.    FCLOSE fo
  131.    SELECT 2
  132.    STORE Rtrim(Message) + " /C:" + Homepath() + "Temp.msg" TO mvar
  133.    DOTBBS Type 7 Optdata "&Mvar"
  134.    ERASE temp.msg
  135.    SELECT 2
  136.    USE ipadcfg
  137.    STORE Ltrim(Rtrim(slipusers)) TO slip_path
  138.    STORE Ltrim(Rtrim(ftpusers)) TO ftp_path
  139.    STORE Ltrim(Rtrim(popusers)) TO pop_path
  140.    STORE Ltrim(Rtrim(popheader)) TO header
  141.    STORE Ltrim(Rtrim(popmails)) TO mpop_dir
  142.    STORE Ltrim(Rtrim(logfile)) TO clog
  143.    IF Right(mpop_dir,1) = "\"
  144.    ELSE
  145.       STORE Ltrim(Rtrim(popmails)) + "\" TO mpop_dir
  146.    ENDIF
  147.    STORE Ltrim(Rtrim(dns)) TO domain
  148.    STORE exp_days TO expire
  149.    STORE force_bill TO mforce
  150.    SELECT 4
  151.    USE trashcan INDEX trashcan.nx1, trashcan.nx2
  152.    SELECT 3
  153.    USE ipadfees
  154.    SELECT 5
  155.    USE stats INDEX stats.nx1
  156.    SELECT 1
  157.    USE ipadmgr INDEX ipadmgr.nx1, ipadmgr.nx2, ipadmgr.nx3, ipadmgr.nx4, ipadmgr.nx5, ipadmgr.nx6
  158. ENDIF
  159. RETURN
  160. *: EOF: TROUBLE.PRG
  161.