/////////////////////////////////////////////////////////////////////////
//          CAPTURE.SLT  -  by Terry Robertson (October 1988)          //
// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ //
//                                                                     //
//  This script automatically creates a capture file for each log-on   //
//  and allocates a filename based on the name of the host system and  //
//  the current date. This enables you to review your online activity  //
//  knowing exactly what data belongs to which board and when.         //
//  For the script to work properly you should make sure that the      //
//  first FOUR characters of each name in your dialling directory are  //
//  acceptable to DOS when contained in filenames, eg do NOT include   //
//  spaces and such characters as "." and "\".                         //
//  This script may be "called" from a log-on script or "attached" to  //
//  a function key for automatic execution.                            //
//                                                                     //
/////////////////////////////////////////////////////////////////////////





str cappath[64];                   //
str capext[]=".cap";               // extension ".cap"
str capname[8];                    // 8 character filename
str dt[8];                         // the date variable

str s[64];
str n[50];



main()

{                                                                                                         //                                     \/
capture("*CLOSE*");                // if open, close old capture file


s = (_capture_fname);              // get NORMAL capture file name
fnstrip(s, 12, n);                 // strip filename; retain path


cappath = (n);                     // set capture file PATH


substr(_entry_name,0,4,capname);  // set file name to first 4 chars of
                                  //    dialing directory name

date(curtime(), dt);              // get system date
delchrs(dt, 5, 3);                // and strip non essential chars
delchrs(dt, 2, 1);                // to reduce to 4 char shortform date

strcat(capname,dt);               // adds shortform date to filename
strcat(cappath,capname);          // adds the name to the path
strcat(cappath,capext);           // adds the file ext.
capture(cappath);                 // opens new capture file
 
}