User:Thraxis Epsilon/controller.controller
<lsl> /////////////////////////////////////////////////////////////////////////////////// /////// /////// /////// /////// Controller_Controller /////// /////// /////// /////// This is the main script of the controller. It manages communication with /////// the coordinator, controlling the user interface. /////// /////// //////////////////////////////////////////////////////////////////////////////////////
//Controller_Controller .1 -> initial framework 7.01.2007
////////////////////////////////////////////////////////////////////////////////////////
// General Specification for Controller from https://wiki.secondlife.com/wiki/LSLTest
////////////////////////////////////////////////////////////////////////////////////////
// * The controller must be separate from the coordinator -- not the same script, nor required to be in the same linked set. // * The controller does not need to be a single lsl script. // * The controller must provide avatar controller interface. // o An avatar can control the tests through a series of dialog menus or prompted typed commands. // o The controller should activate when an avatar touches it. // o There should be a shiny red button inviting the touch. :) // * The controller knows enough of the coordinator protocol to initiate a set of tests. // * The controller must be able to initiate: // o A single test unit // o A test group // o All tests // * The controller can assume that only one coordinator is available to run tests // * The controller should allow specification of test results endpoint: // o llSay on channel 0 // o email to a specified address // o http
//////////////////////////////////////////////////////////////////////////////////////
//
// Command Protocol
//
//////////////////////////////////////////////////////////////////////////////////////
//
// All commmands, input,output,chat, or linked message will be :: separated
// lists in string form.
//
//////////////////////////////////////////////
// CHAT commands
//////////////////////////////////////////////
//
// Chat commands will be on the specified controlChannel
//
//////// INPUT ///////////
//
// RegistrationComplete - notification that the registration process is complete
// format example -> RegistrationComplete
//
// TestComplete - notification that the test phase is complete
// format example -> TestComplete
//
// ReportComplete - notification that the report phase is complete
// format example -> ReportComplete
//
//
//////// OUTPUT ///////////
//
// Reset - sends message to test units calling for a reset of test units
// format example -> ALL::Reset
//
// ActivateRegistration - initate the registration process
// format example -> ActivateRegistration
//
// SetTestSelected - specify test to be run. ALL, a specific unitName, or a groupName
// format example -> SetTestSelected::ALL
//
// SetControlChannel - channel for chat communication amoung elements in the system
// format example -> SetControlChannel::-1234
//
// SetBroadcastChannel - chat channel to output reports on
// format example -> SetBroadcastChannel::0
//
// ActivateTest - command to begin testing process
// format example -> ActivateTest
//
// SetReportType - specify report type. NORMAL, QUITE, VERBOSE, STATS
// format example -> SetReportType::NORMAL
//
// SetReportMethod - CHAT, EMAIL, HTTP
// format example -> SetReportMethod::CHAT::channel::0
// -> SetReportMethod::EMAIL::address::you@lindenlabs.com
// -> SetReportMethod::HTTP::url::www.yoururl.com
//
// ActivateReport - initiate the report process
// format example -> ActivateReport
//
//////////////////////////////////////////////
// LINK MESSAGE commands
//////////////////////////////////////////////
//
// link message commands will be sent out and recieved on the toAllChannel
//
//////// INPUT ///////////
//
//
//
//////// OUTPUT ///////////
//
// Reset - resets this script
// format example -> Reset
//
// RegistrationComplete - notification that the registration process is complete
// format example -> RegistrationComplete
//
// TestComplete - notification that the test phase is complete
// format example -> TestComplete
//
// ReportComplete - notification that the report phase is complete
// format example -> ReportComplete
//
//
/////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Global Variables
integer toAllChannel = -254; // general channel - linked message integer fromAllChannel = -255;
integer broadcastChannel = 0; // report broadcast channel - chat integer controlChannel = 1234; // command communication channel - chat
integer controlChannelListen; // handler for the listener event
integer debug = 0; // level of debug message integer debugChannel = DEBUG_CHANNEL; // output channel for debug messages
string testSelected = "ALL"; // specifies what units to test. ALL, a specific unitName, or a group
string reportType = "NORMAL"; // determines length and content of report type
// NORMAL - failures and summary information
// QUITE - summary information only
// VERBOSE - everything
string reportMethod = "CHAT::channel::0"; // determines output method of report
// CHAT::channel::0
// EMAIL::address::you@lindenlabs.com
// HTTP::url::www.yoururl.com
////////////////////////////////////////////////////////////////////////////////////////////////// ////////// ////////// Function: ParseCommand ////////// ////////// Input: string message - command to be parsed ////////// ////////// Output: no return value ////////// ////////// Purpose: This function calls various other functions or sets globals ////////// depending on message string. Allows external command calls ////////// from chat controlChannel and linked messages ////////// ////////// Issues: no known issues ////////// ////////// ///////////////////////////////////////////////////////////////////////////////////////////////// ParseCommand(string message) {
if(debug > 1)llSay(debugChannel, llGetScriptName()+ "->ParseCommand: " + message);
//reset all scripts
if(message == "reset")
{
//notify to all system objects reset command
llSay( controlChannel , "reset" );
llSay( controlChannel , "ALL::reset" );
//broadcast to other scripts reset command
llMessageLinked(LINK_THIS, toAllChannel, "reset", NULL_KEY);
//reset this script as well
llResetScript();
}
// RegistrationComplete()
// format example -> RegistrationComplete
else if(message == "RegistrationComplete")
{
//notify other scripts
llMessageLinked(LINK_THIS, toAllChannel, "RegistrationComplete", NULL_KEY);
}
// TestComplete()
// format example -> TestComplete
else if(message == "TestComplete")
{
//notify other scripts
llMessageLinked(LINK_THIS, toAllChannel, "TestComplete", NULL_KEY);
}
// ReportComplete()
// format example -> ReportComplete
else if(message == "ReportComplete")
{
//notify other scripts
llMessageLinked(LINK_THIS, toAllChannel, "ReportComplete", NULL_KEY);
}
// ActivateRegistration()
// format example -> ActivateRegistration
else if(message == "ActivateRegistration")
{
//notify coordinator
llSay( controlChannel, "ActivateRegistration");
}
// SetTestSelected()
// format example -> SetTestSelected::ALL
else if(llSubStringIndex(message, "SetTestSelected::ALL") != -1)
{
//set testSelected variable
testSelected = llDeleteSubString( message, 0 , llSubStringIndex( message, "::") + 1 );
//notify coordinator
llSay( controlChannel, message);
}
// broadcastChannelButton()
// format example -> broadcastChannelButton
else if(llSubStringIndex(message, "broadcastChannelButton") != -1)
{
//send out instructions
llSay(0, "**************************************************************************************************************************");
llSay(0, "To Select a broadcastChannel ...");
llSay(0, "Copy from your chat history the line between the \" \" below, paste it into the chat bar, and replace the VALUE with the channel to be used.");
llSay(0, " \"/" + (string)controlChannel + " SetBroadcastChannel::VALUE\"");
llSay(0, "**************************************************************************************************************************");
}
// controlChannelButton()
// format example -> controlChannelButton
else if(llSubStringIndex(message, "controlChannelButton") != -1)
{
//send out instructions
llSay(0, "**************************************************************************************************************************");
llSay(0, "To Select a controlChannel ...");
llSay(0, "Copy from your chat history the line between the \" \" below, paste it into the chat bar, and replace the VALUE with the channel to be used.");
llSay(0, " \"/" + (string)controlChannel + " SetControlChannel::VALUE\"");
llSay(0, "**************************************************************************************************************************");
}
// TestSelectedButton()
// format example -> SetTestSelected::GROUP
else if(llSubStringIndex(message, "TestSelectedButton::") != -1)
{
//send out instructions
llSay(0, "**************************************************************************************************************************");
llSay(0, "To Select a " + llDeleteSubString( message, 0 , llSubStringIndex( message, "::") + 1 ));
llSay(0, "Copy from your chat history the line between the \" \" below, paste it into the chat bar, and replace the NAME with the "
+ llDeleteSubString( message, 0 , llSubStringIndex( message, "::") + 1 ) + "Name to be tested.");
llSay(0, " \"/" + (string)controlChannel + " SetTestSelected::NAME\"");
llSay(0, "**************************************************************************************************************************");
}
// ReportMethodButton()
// format example -> ReportMethodButton::EMAIL
else if(llSubStringIndex(message, "ReportMethodButton::") != -1)
{
//parse from the message the method selected
string method = llDeleteSubString( message, 0 , llSubStringIndex( message, "::") + 1 );
//send out instructions
llSay(0, "**************************************************************************************************************************");
llSay(0, "To select " + method + " as the report method");
llSay(0, "Copy from your chat history the line between the \" \" below, paste it into the chat bar, and replace ");
if( method == "CHAT")
{
llSay( 0, "ENTER_VALUE with the broadcast channel you would like to use.");
llSay(0, " \"/" + (string)controlChannel + " SetReportMethod::CHAT::channel::ENTER_VALUE\"");
}
else if( method == "EMAIL")
{
llSay( 0, "ENTER_VALUE with the email address you would like to use.");
llSay(0, " \"/" + (string)controlChannel + " SetReportMethod::EMAIL::address::ENTER_VALUE\"");
}
else if( method == "HTTP")
{
llSay( 0, "ENTER_VALUE with the url you would like to use.");
llSay(0, " \"/" + (string)controlChannel + " SetReportMethod::HTTP::url::ENTER_VALUE\"");
}
llSay(0, "**************************************************************************************************************************");
}
// SetControlChannel()
// format example -> SetControlChannel::-1234
else if(llSubStringIndex(message, "SetControlChannel::") != -1)
{
//notify coordinator
llSay( controlChannel, message);
//set controlChannel variable
controlChannel = (integer)llDeleteSubString( message, 0 , llSubStringIndex( message, "::") + 1 );
//reset listener
Initialize();
}
// SetBroadcastChannel()
// format example -> SetBroadcastChannel::0
else if(llSubStringIndex(message, "SetBroadcastChannel::") != -1)
{
//set boradcastChannel variable
broadcastChannel = (integer)llDeleteSubString( message, 0 , llSubStringIndex( message, "::") + 1 );
//notify coordinator
llSay( controlChannel, message);
}
// ActivateTest()
// format example -> ActivateTest
else if(message == "ActivateTest")
{
//notify coordinator
llSay( controlChannel, "ActivateTest");
}
// SetReportType()
// format example -> SetReportType::NORMAL
else if(llSubStringIndex(message, "SetReportType::") != -1)
{
//set reportType variable
reportType = llDeleteSubString( message, 0 , llSubStringIndex( message, "::") + 1 );
//notify coordinator
llSay( controlChannel, message);
}
// SetReportMethod()
// format example -> SetReportMethod::CHAT::channel::0
// -> SetReportMethod::EMAIL::address::you@lindenlabs.com
// -> SetReportMethod::HTTP::url::www.yoururl.com
else if(llSubStringIndex(message, "SetReportMethod::") != -1)
{
//set reportMethod variable
reportMethod = llDeleteSubString( message, 0 , llSubStringIndex( message, "::") + 1 );
//notify coordinator
llSay( controlChannel, message);
}
// ActivateReport()
// format example -> ActivateReport
else if(message == "ActivateReport")
{
//notify coordinator
llSay( controlChannel, message);
}
} //end ParseCommand
//////////////////////////////////////////////////////////////////////////////////////////////////
//////////
////////// Function: Initialize
//////////
////////// Input: no input paramaters
//////////
////////// Output: no return value
//////////
////////// Purpose: This function initializes any variables or functions necessary
////////// to get us started
//////////
////////// Issues: no known issues
//////////
//////////
/////////////////////////////////////////////////////////////////////////////////////////////////
Initialize()
{
//remove possible listeners llListenRemove(controlChannel); //create new listeners controlChannelListen = llListen(controlChannel,"",NULL_KEY,"");
}
///////////////////////////////////////////////////////////////////////////////////////
//STATE STATE STATE STATE STATE STATE STATE STATE STATE STATE STATE STATE STATE STATE//
///////////////////////////////////////////////////////////////////////////////////////
// //
// //
// DEFAULT STATE //
// //
// //
///////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////
default
{
///////////////////////////////////////////////////////
// State Entry of default state //
///////////////////////////////////////////////////////
state_entry()
{
Initialize();
}
//////////////////////////////////////////////////////// // On Rez of default state // ////////////////////////////////////////////////////////
on_rez(integer start_param)
{
Initialize();
}
/////////////////////////////////////////////////////// // Listen of default state // ///////////////////////////////////////////////////////
listen(integer channel, string name, key id, string message)
{
if(debug > 0){llSay(debugChannel, llGetScriptName()+ ":listen:" + message);}
if(debug > 0){llSay(debugChannel, llGetScriptName()+ ":channel:" + (string)channel);}
//from coordinator
if(channel == controlChannel)
{
//if it is a status indication from the coordinator
if( (llSubStringIndex( message, "Complete" ) != -1) || (llSubStringIndex( message, "SetControlChannel" ) != -1) )
{
//not a state specific command, so send to general command parse
ParseCommand ( message );
}
}
} //end of listen
/////////////////////////////////////////////////////// // Link Message of default state // ///////////////////////////////////////////////////////
link_message(integer sender_number, integer number, string message, key id)
{
//if link message is on the correct channel
if(number == fromAllChannel)
{
llOwnerSay(llGetScriptName() + ":" + message);
//not a state specific command, so send to general command parse
ParseCommand( message );
}
} //end of link message
} // end default </lsl>