Update of /cvsroot/net-script/netscript2/src/perl/NetScript
In directory usw-pr-cvs1:/tmp/cvs-serv31665
Modified Files:
Interpreter.pm
Log Message:
* added ID-generator
Index: Interpreter.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Interpreter.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** Interpreter.pm 26 Oct 2002 21:09:35 -0000 1.13
--- Interpreter.pm 26 Oct 2002 22:03:52 -0000 1.14
***************
*** 16,23 ****
# registered.
#
! # The interpreter delivers two global variables:
# <pre>
# $(SYS.interpreterURL) - URL of the interpreter
# $(SYS.scriptURL) - URL of the currently executed script
# </pre>
#
--- 16,26 ----
# registered.
#
! # The interpreter delivers three global variables:
# <pre>
# $(SYS.interpreterURL) - URL of the interpreter
# $(SYS.scriptURL) - URL of the currently executed script
+ # $(SYS.nextID) - contains always a unique ID, which can
+ # be used for any purpose. Note that this
+ # id is not numerical.
# </pre>
#
***************
*** 206,209 ****
--- 209,213 ----
$systemWrapper -> setMember( '^interpreterURL$', undef, "getInterpreterURL" );
$systemWrapper -> setMember( '^scriptURL$', undef, "getScriptURL" );
+ $systemWrapper -> setMember( '^nextID$', undef, "getUID" );
# register the SYS-object
|
