Schedule a session in X minutes

Schedule a RemoteWare session to run X minutes from now by adding the date to a calendar session. Builds an Sessions ECF file to add a date time X minutes from now to schedule the specified session name. A delete dates Session ECF is also built to remove the scheduled dates. This is useful if you need to schedule sessions that have other sessions dependent on them.

&sessdate("Sess Name", 5, "c:\\test", OutFile); #-----------------------------------------------------------------------# # USAGE: &dttm(min) # # REQUIRES: None # # # # Return Codes: None # # This subroutine returns the current date and time plus the number of # # minutes in the following format: mm/dd/yy hh:mm:ss 06/04/00 12:30:45 # # one input parameter is required the number of minutes in the future # #-----------------------------------------------------------------------# sub dttm{ ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time+($_[0] * 60)); return sprintf("%2.2d/%2.2d/%2.2d %2.2d:%2.2d:%2.2d",$mon+1,$mday,$year-100,$hour,$min,$sec); } #-----------------------------------------------------------------------# # USAGE: &sessdate(Sessions, Minutes, Path, File_Name) # # &sessdate("Out Session", 5, "c:\ecf", OutSess); # # creates files c:\ecf\AddOutSess.ecn, # # c:\ecf\DelOutSess.ecn, c:\ecf\Outsess.flg # # REQUIRES: dttm # # This subroutine writes two "Session" ECFs. 1. will schedule the # # Session to run at "Minutes" in the future and 2 deletes the # # Date and time added by the first ecf. Several output files # # are created. Each is named "???File_Name" and some extension # # 1. AddFile_Name.ecn - ecf file to add the new date for the sess # # 2. DelFile_Name.ecn - ecf file to del the date for the session # # 4. File_Name.Flg - flag file used to indicate process is complet# # Return Codes: # # 0 = no errors # # 1 = Could not open file # # 2 = bad usage # #-----------------------------------------------------------------------# sub sessdate { if ($#_ != 3) { #verify proper usage print "Bad Usage:\n"; #Print bad usage message print "&sessdate(Session, minutes, path, file_name)\n"; print "&sessdate(Out Sess, 5, c:\\ECF, outsess)\n"; return 2; #incorrect usage } unless (open (ADDOUT, ">$_[2]\\Add$_[3].ecn") ) { #Open Add ECF print "Could not open $_[2]\\Add$_[3].ecn\n"; return 1; #Open failed } unless (open (DELOUT, ">$_[2]\\Del$_[3].ecn") ) { #Open Del Command print "Could not open $_[2]\\Del$_[3].ecn\n"; close ADDOUT; return 1; #Open failed } $Dte = &dttm(5); #Get Date time 5 min from now print ADDOUT "TYPE = SESSION\n"; #Write Add ECF print ADDOUT "SESSIONS = ", $_[0], "\n"; print ADDOUT "ACTION = UPDATE\n"; print ADDOUT "STATUS = ENABLE\n"; print ADDOUT "ADD_DATES = ", $Dte, "\n"; close ADDOUT; print DELOUT "TYPE = SESSION\n"; #Write Del ECF print DELOUT "SESSIONS = ", $_[0], "\n"; print DELOUT "ACTION = UPDATE\n"; print DELOUT "STATUS = DISABLE\n"; print DELOUT "DELETE_DATES = ", $Dte, "\n"; close DELOUT; unless (open (FLGOUT, ">$_[2]\\$_[3].flg") ) { #Write Flag file print "Could not open $_[2]\\$_[3].flg\n"; return 1; #Open failed } print FLGOUT $Dte; #Write Date to Flag File close FLGOUT; return 0; }

Copyright © 2002 Booshway Enterprises, Inc.
You have a royalty-free right to use, modify, reproduce and distribute the Sample Application Files (and/or any modified version) in any way you find useful, provided that you agree that The Booshway Enterprises, Inc. has no warranty, obligations or liability.