home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / f / finet93a.zip / SCRIPTS.ZIP / FINET1.SLT next >
Text File  |  1993-01-01  |  4KB  |  132 lines
  1. //  this is provided by one of FINET's nodes
  2. //  REPLACE occurences of the word "node" with your node id.
  3.  
  4. // used by showname():
  5. //
  6. int       statline =  49;                     // Telix status line row
  7. int       statback =   4;                     // status line background color
  8. int       statfore =  14;                     // status line foreground color
  9.  
  10. str node_path[] = "C:\TRANSFER\NODE.RLY";
  11. str number_to_dial[] = "29";
  12. int times_to_dial = 5;
  13. str capfile[] = "ON";
  14. str cap_filename[] = "FINET.CAP";
  15. str usefile[] = "ON";
  16. str use_filename[] = "FINET.USE";
  17.  
  18. str       failed[] = "Logon failed.";
  19.  
  20. main()
  21. { 
  22. // make backup copy of mail upload packet, "NODE.rly"
  23. dos("copy c:\transfer\NODE.rly d:\pcrelay\fibak\rly.sav",0);
  24.         dial_hub();
  25.         logon();
  26.         backup();
  27. } 
  28.  
  29. dial_hub()
  30. {
  31.         if (capfile=="ON") capture(cap_filename);
  32.         if (usefile=="ON") usagelog(use_filename);
  33.         dial(number_to_dial,times_to_dial,1);
  34.         if (carrier())
  35.                 {
  36.                 return;
  37.                 }
  38.         else
  39.                 {
  40.                 status_wind("Unable to connect",50);
  41.                 hangup();
  42.                 exittelix();
  43.                 }
  44. }
  45. //  main routine
  46. //
  47.  
  48. logon()
  49.  
  50. {
  51.   alarm(1);
  52.   showname();
  53.  
  54.   if (! waitfor("RST name?", 60))
  55.   {
  56.     prints(failed);
  57.     return;
  58.   }
  59.   delay(2);
  60.   cputs("fname;lname;password;!;D;FIHUB;/G^M");
  61.  
  62.   if (! waitfor("fe64", 60))
  63.   {
  64.     prints(failed);
  65.     return;
  66.   }
  67.     delay(2);
  68.     status_wind("Sending Packet",10);
  69.     send('Z',node_path);
  70.  
  71.   if (! waitfor("**", 800))
  72.   {
  73.     prints(failed);
  74.     return;
  75.   }
  76.     delay(2);
  77.     status_wind("Receiving Packet",10);
  78.     receive('Z',"");
  79.     return;
  80. }
  81.  
  82. backup()
  83. {
  84.  
  85. //        make backup of old in.rly packet, if exists
  86. // we assume that dsz is used and overwrite is enable of new file over
  87. // old file in.rly.
  88.       status_wind("making backup of in.rly packets",20);
  89.       dos("if exist d:\pcrelay\fibak\in.2 copy d:\pcrelay\fibak\in.2 d:\pcrelay\fibak\in.3",0);
  90.       dos("if exist d:\pcrelay\fibak\in.2 del d:\pcrelay\fibak\in.2",0);
  91.       dos("if exist d:\pcrelay\fibak\in.1 ren d:\pcrelay\fibak\in.1 d:\pcrelay\fibak\in.2",0);
  92. //        make backup of present in.rly packet
  93.       dos("copy c:\transfer\in.rly d:\pcrelay\fibak\in.1",0);
  94.       hangup();
  95.       exittelix();
  96.       return;
  97. }
  98.  
  99. //  Function:     showname
  100. //  Description:  Displays the name of the system you're connected to, or
  101. //                "Alt-Z for Help" if you're not connected to anything.
  102. //
  103. //                You can plug this into ANY logon script file, just call it
  104. //                as shown in main().
  105. //
  106. //                This routine will overwrite the "Alt-Z for Help" message,
  107. //                but I think it's worth it.  If you don't like this feature,
  108. //                set the Anonymous option in SLCONFIG to 'y' (YES).
  109. //  Parameters:   none
  110. //  Returns:      nothing
  111. //
  112. showname()
  113. {
  114.   str       name[14];                         // name to display
  115.   int       x, y;                             // old cursor position
  116.  
  117.   x = getx();                                 // save current position
  118.   y = gety();                                 //
  119.  
  120.   substr(_entry_name, 0, 14, name);           // get the current BBS name
  121.   if ((strlen(name) == 0) || (! carrier()))   // no name or not connected?
  122.     name = "Alt-Z for Help";                  //   then display help message
  123.  
  124.   strcat(name, "              ");             // pad name with spaces
  125.  
  126.   pstraxy( name, 1, statline,                 // display it
  127.            (statback * 16) + statfore
  128.          );
  129.  
  130.   gotoxy(x, y);                               // return to saved position
  131. }
  132.