int vi_set_VTS3(){
int rc=LR_PASS;
// Using VTS3 (Virtual Table Service version 3) available since LR 11.52+:
// See blog by its developer at http://h30499.www3.hp.com/t5/HP-LoadRunner-and-Performance/The-New-Virtual-Table-Server-VTS-in-LoadRunner-11-52/ba-p/6069435#.Ukt79rHnb4Y
// HP Support article at http://support.openview.hp.com/selfsolve/document/KM305130
LPCSTR_VTS_Host = lr_get_attrib_string("VTS_Host"); // from Run-time settings Attributes or command line.
if(LPCSTR_VTS_Host==NULL){ // Not specified in Run-Time Settings Attributes or command line.
VTS_Host_string="localhost"; // VTS_Host_default; // such as "localhost";
wi_startPrintingInfo();
lr_output_message(">> Attribute \"VTS_Host\" not specified in command-line or run-time settings. Default to \"%s\"."
,VTS_Host_string
);
wi_stopPrinting();
}else{
sprintf( VTS_Host_string ,"%s",LPCSTR_VTS_Host);
} // if(LPCSTR_VTS_Host==NULL)
LPCSTR_VTS_Port = lr_get_attrib_string("VTS_Port"); // from Run-time settings Attributes or command line.
if(LPCSTR_VTS_Port==NULL){ // Not specified in Run-Time Settings Attributes or command line.
nPort=8787; // nVTS_Port_default; // such as 8787 or 8888;
wi_startPrintingInfo();
lr_output_message(">> Attribute \"VTS_Port\" not specified in command-line or run-time settings. Default to \"%d\"."
,nPort
);
wi_stopPrinting();
}else{
nPort = atoi(LPCSTR_VTS_Port);
} // if(LPCSTR_VTS_Port==NULL)
/// Connect using LoadRunner native functions:
pvci = vtc_connect( VTS_Host_string , nPort , VTOPT_KEEP_ALIVE ); // VTS_Host_string
if( pvci <= 0){
wi_startPrintingDebug();
lr_error_message(">> VTS pvci=%d (non-zero).", pvci);
wi_stopPrinting();
}else{
rc = vtc_get_last_error(pvci);
if( rc != LR_PASS ) {
wi_startPrintingDebug();
lr_error_message(">> rc from vtc_get_last_error(pvci)=%d for VTC connection to %s port .", rc, VTS_Host_string,nPort);
wi_stopPrinting();
return LR_FAIL; // FAIL
}
// Count rows in VTS table:
vtc_column_size(pvci, "web", &nVTS_row_count);
wi_startPrintingInfo();
lr_output_message(">> nVTS_row_count=%d.", nVTS_row_count);
wi_stopPrinting();
}
return rc;
} // vi_set_VTS3()
/*! \brief Detect low disk space situations on the generator and turn all logging off if not enough space is left.
When called, this function will check the amount of space left on the generator's "output" device / directory.
If the percentage of free space is lower than the treshold percentage, it will generate an error transaction "---DISK SPACE LOW IN LOG FOLDER FOR {y_hostname_generator}---" and turn all further logging off until the end of the test, using y_log_turn_off_permanently().
\note Scripts that call lr_debug_message() or the various y_lib() toggle functions to turn the loglevel back up may ignore this restriction.
Loadrunner does not protect the generators' disks from overflowing, even if the test is writing out a lot of information to the logs really quickly.
If a disk fills up on the generator or the disk the controller uses for results collation overflows there is no graceful recovery. Collation will fail and test results may be hard or impossible to recover.
This kind of situation can occur when temporary service disruptions happen (triggering a flood of 'log on error' messages), but also if runtime settings are incorrect and the test was configured to log *everything*.
In order to prevent this from happening scripts should regularly call to both y_disk_space_guard() and y_disk_space_usage_guard() with some reasonable limits.
\param [in] max_free_percentage The amount of free diskspace as a percentage of total space that will cause the logging to turn off.
\author Floris Kraak
*/
void y_disk_space_guard(double max_free_percentage)
{
char* hostname;
static int disk_space_warning_given = 0;
double free_space_percentage;
char* log_folder = lr_get_attrib_string("out");
// check already fired once before.
if( disk_space_warning_given )
{
// guard against accidental re-enablement of the logs by turning them off explicitly.
y_log_turn_off_permanently();
return;
}
free_space_percentage = y_get_free_disk_space_percentage(log_folder);
// data point
hostname = lr_get_host_name();
lr_save_string(hostname, "y_hostname_generator");
lr_user_data_point( lr_eval_string("disk_space_{y_hostname_generator}_free_percentage"), free_space_percentage);
if( free_space_percentage < max_free_percentage )
{
y_setup();
lr_set_transaction(lr_eval_string("---DISK SPACE LOW IN LOG FOLDER FOR {y_hostname_generator}---"), 0, LR_FAIL);
lr_error_message("Diskspace low on %s in folder %s. %.2lf%% remaining, exceeding the limit of %.21f%% Logging turned off for user id %d for the remainder of the test!",
hostname, log_folder, free_space_percentage, max_free_percentage, y_virtual_user_id);
disk_space_warning_given = 1; // turn off further warnings.
y_log_turn_off_permanently();
}
}
int set_gen_QR_attribute(){
LPCSTR_SaveImageYN = lr_get_attrib_string("SaveImageYN"); // from run-time settings or command line.
if(LPCSTR_SaveImageYN==NULL){
LPCSTR_SaveImageYN=SaveImageYN_default; // ="N"; as N=No default.
wi_startPrintingInfo();
lr_output_message(">> Attribute \"SaveImageYN\" not specified. QR image files NOT generated from short URLs by default. [in vuser_init]"
,LPCSTR_SaveImageYN
);
wi_stopPrinting();
}else{
if( stricmp("Y",LPCSTR_SaveImageYN ) == FOUND ){ // Run-time Attribute "SaveImageYN" or command line option "-SaveImageYN"
wi_startPrintingInfo();
lr_output_message(">> Attribute \"SaveImageYN\"=%s. QR image files generated from short URLs. [in vuser_init]"
,LPCSTR_SaveImageYN
);
wi_stopPrinting();
}else{
wi_startPrintingInfo();
lr_output_message(">> Attribute \"SaveImageYN\"=%s. QR image files NOT generated from short URLs. [in vuser_init]"
,LPCSTR_SaveImageYN
);
wi_stopPrinting();
}
}
return LR_PASS;
} // set_gen_QR_attribute()
// This will fetch attributes from the vUser's command line (as set in the scenario!)
// and store them in a parameter.
// See also y_save_attribute()
//
// These attributes are defined in the details of the vUser group
// They take the form "-attributename value"
//
// Arguments:
// - attrib: The name of the attribute to fetch
// - param : The name of the parameter to store the attribute in.
//
// @author: Floris Kraak
// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
// example usage:
// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
y_save_attribute_to_parameter( char* attrib, char* param )
{
char *tmp;
if( (tmp = lr_get_attrib_string(attrib)) != NULL )
{
lr_save_string(tmp, param);
}
}
/*! \brief Detect excessive disk usage by the test and turn all further logging off if more than a specific limit number of mebibytes has been used.
When called, this function will check the amount of space used on the generator's "output" device / directory since the first call to this function.
If the amount of used space exceeds the treshold it will generate an error transaction "---DISK SPACE LOW IN LOG FOLDER FOR {y_hostname_generator}---" and turn all further logging off until the end of the test, using y_log_turn_off_permanently().
\note Scripts that call lr_debug_message() or the various y_lib() toggle functions to turn the loglevel back up may ignore this restriction.
Loadrunner does not protect the generators' disks from overflowing, even if the test is writing out a lot of information to the logs really quickly.
If a disk fills up on the generator or the disk the controller uses for results collation overflows there is no graceful recovery. Collation will fail and test results may be hard or impossible to recover.
This kind of situation can occur when temporary service disruptions happen (triggering a flood of 'log on error' messages), but also if runtime settings are incorrect and the test was configured to log *everything*.
\note Because of the way this measurement is done, it may also trigger if some other process on the same machine starts writing large amounts of data to the same device.
In order to prevent this from happening scripts should regularly call to both y_disk_space_guard() and y_disk_space_usage_guard() with some reasonable limits.
\note The contents of the generator's output folder will be transferred to the controller during collation. If the sum of the output directories for the generators exceed the size of that filesystem collation will fail, even if there is enough space on the generators. Therefore, set this low enough to make sure that if all generators output folders get filled to the limit the controller will still have enough space for it's collation process.
\param [in] limit_mebibytes_used The amount of mebibytes the test is allowed to used on the generator's target directory.
\author Floris Kraak
*/
void y_disk_space_usage_guard(double limit_mebibytes_used)
{
char* hostname;
char* log_folder = lr_get_attrib_string("out");
double free_mebibytes;
static double max_free_mebibytes = -1;
double mebibytes_used;
static int disk_space_warning_given = 0;
// check already fired once before.
if( disk_space_warning_given )
{
// guard against accidental re-enablement of the logs by turning them off explicitly.
y_log_turn_off_permanently();
return;
}
free_mebibytes = y_get_free_disk_space_in_mebibytes(log_folder);
lr_log_message("y_disk_space_usage_guard: current free: %f MB, max free: %f MB, limit: %f MB used in folder: %s",
free_mebibytes, max_free_mebibytes, limit_mebibytes_used, log_folder);
if(max_free_mebibytes < 0)
{
lr_log_message("Storing free space as detected maximum");
max_free_mebibytes = free_mebibytes;
return;
}
else if(max_free_mebibytes < free_mebibytes)
{
lr_output_message("Warning: Free disk space increased from %f to %f, test disk space usage measurements may have become unreliable.", max_free_mebibytes, free_mebibytes);
max_free_mebibytes = free_mebibytes;
return;
}
// Ok, so we used *something*. Now let's see if it exceeds our limit.
mebibytes_used = max_free_mebibytes - free_mebibytes;
// data points
hostname = lr_get_host_name();
lr_save_string(hostname, "y_hostname_generator");
lr_user_data_point( lr_eval_string("disk_space_{y_hostname_generator}_free_mebibytes"), free_mebibytes);
lr_user_data_point( lr_eval_string("disk_space_{y_hostname_generator}_used_mebibytes"), mebibytes_used);
if( mebibytes_used >= limit_mebibytes_used )
{
y_setup();
lr_set_transaction(lr_eval_string("---DISKSPACE USAGE TOO HIGH IN LOG FOLDER FOR {y_hostname_generator}---"), 0, LR_FAIL);
lr_output_message("Disk space used on host %s in folder %s was %f mebibytes, reaching the limit of %f. Logging turned off for user id %d for the remainder of the test!",
hostname, log_folder, mebibytes_used, limit_mebibytes_used, y_virtual_user_id);
disk_space_warning_given = 1; // turn off further warnings.
y_log_turn_off_permanently();
}
}
int vi_set_Verbosity_attribute(){
LPCSTR_Verbosity = lr_get_attrib_string("Verbosity"); // from Run-time settings Attributes or command line.
if(LPCSTR_Verbosity==NULL){ // Not specified in Run-Time Settings Attributes or command line.
iVerbosity=iVerbosity_default; // =default.
wi_startPrintingInfo();
lr_output_message(">> Attribute \"Verbosity\" not specified in command-line or run-time settings. Default to \"%d\"."
,iVerbosity
);
wi_stopPrinting();
// NOTE: Don't return LR_FAIL; // fail here because default can be used.
}else{
iVerbosity=atoi(LPCSTR_Verbosity);
} // if(LPCSTR_Verbosity==NULL)
// TODO: 23. Set each web_set_max_html_param_len based on the largest individual server response detrermined from initial runs.
if( iVerbosity == 1 ){
web_set_max_html_param_len("10240");
}else
if( iVerbosity == 2 ){
web_set_max_html_param_len("10240");
}else
if( iVerbosity == 3 ){
web_set_max_html_param_len("10240");
}else
if( iVerbosity == 4 ){
web_set_max_html_param_len("10240");
}else
if( iVerbosity == 5 ){
web_set_max_html_param_len("20240");
}else{
iVerbosity=iVerbosity_default; // =default.
wi_startPrintingInfo();
lr_output_message(">> Attribute \"Verbosity\" not specified in command-line or run-time settings. Default to \"%d\"."
,iVerbosity
);
wi_stopPrinting();
wi_startPrintingError();
lr_output_message(">> Attribute \"Verbosity\" not recognized as valid value."
,iVerbosity
);
wi_stopPrinting();
}
return LR_PASS;
} // vi_set_Verbosity_attribute()
vi_set_RunType_attribute(){
LPCSTR_RunType = lr_get_attrib_string("RunType"); // from run-time settings Attributes or command line.
if(LPCSTR_RunType==NULL){ // Not specified in Run-Time Settings Attributes or command line.
LPCSTR_RunType="All"; // =default.
wi_startPrintingInfo();
lr_output_message(">> Attribute \"RunType\" not specified in command-line or run-time settings. Default to \"%s\"."
,LPCSTR_RunType
);
wi_stopPrinting();
}else{ // Ensure only acceptable values were input:
if( stricmp("All",LPCSTR_RunType ) == FOUND ){ // Run-time Attribute "RunType" or command line option "-RunType"
wi_startPrintingInfo();
lr_output_message(">> Attribute \"RunType\"=%s."
,LPCSTR_RunType
);
wi_stopPrinting();
}else
if( stricmp("NoOp",LPCSTR_RunType ) == FOUND ){ // Run-time Attribute "RunType" or command line option "-RunType"
wi_startPrintingInfo();
lr_output_message(">> Attribute \"RunType\"=%s for no operation."
,LPCSTR_RunType
);
wi_stopPrinting();
}else{
wi_startPrintingError();
lr_output_message(">> Attribute \"RunType\"=%s not valid. lr_exit() stopping script execution."
,LPCSTR_RunType
);
wi_stopPrinting();
lr_exit(LR_EXIT_VUSER,LR_FAIL);
}
} // if(LPCSTR_RunType==NULL)
return LR_PASS;
} // vi_set_RunType_attribute()
int wi_set_Think_Time(){
char strTemp[48]; double doubleTemp;
LPCSTR LPCSTR_ThinkTimeSecs;
float floatThinkTimeSecs_default = 10.5;
// For use by wi_start_transaction():
static float floatThinkTimeSecs; // numeric.
LPCSTR_ThinkTimeSecs = lr_get_attrib_string("ThinkTimeSecs");
if( LPCSTR_ThinkTimeSecs==NULL){ // Not specified.
floatThinkTimeSecs=floatThinkTimeSecs_default; // Default unless changed for subsequent transactions.
wi_startPrintingDebug();
lr_output_message(">> floatThinkTimeSecs=%8.2f from coded default.", floatThinkTimeSecs);
wi_stopPrinting();
}else{ // use value from command attribute: // floats have 24 significant bits, double 52.
// Not using strtof() per http://pubs.opengroup.org/onlinepubs/009695399/functions/strtod.html
floatThinkTimeSecs= atof(LPCSTR_ThinkTimeSecs); // atof() requires definition at top of file.
wi_startPrintingDebug();
lr_output_message(">> Attribute floatThinkTimeSecs=%8.3f.", floatThinkTimeSecs );
wi_stopPrinting();
} // For ftoa see http://www.performancecompetence.com/wordpress/?p=318
return LR_PASS;
} // wi_set_Think_Time()
vi_set_URLSource_attribute(){
int rc=LR_PASS;
LPCSTR_URLSource = lr_get_attrib_string("URLSource"); // from run-time settings Attributes or command line "-URLSource".
if(LPCSTR_URLSource==NULL){ // Not specified in Run-Time Settings Attributes or command line.
iURLSource_setting=iURLSource_default;
wi_startPrintingInfo();
lr_output_message(">> Attribute \"URLSource\" not specified in command-line or run-time settings. Default to \"%d\".", iURLSource_setting );
wi_stopPrinting();
}else{ // Ensure only acceptable values were input:
if( stricmp("All",iURLSource_setting ) == FOUND ){ // Run-time Attribute "URLSource" or command line option "-URLSource"
wi_startPrintingInfo();
lr_output_message(">> Attribute \"URLSource\"=%s."
,iURLSource_setting
);
wi_stopPrinting();
}else
if( iURLSource_setting == 1 ){
wi_startPrintingInfo();
lr_output_message(">> Attribute \"URLSource\"=%s for using file URLtoShorten.dat in script folder." ,iURLSource_setting );
wi_stopPrinting();
#ifdef USE_VTS
}else
if( iURLSource_setting == 2 ){
wi_startPrintingInfo();
lr_output_message(">> Attribute \"URLSource\"=%s for using VTS." ,iURLSource_setting);
wi_stopPrinting();
#endif // USE_VTS
}else{
wi_startPrintingError();
lr_output_message(">> Attribute \"URLSource\"=%s not valid. lr_exit() stopping script execution." ,iURLSource_setting );
wi_stopPrinting();
lr_exit(LR_EXIT_VUSER,LR_FAIL);
}
} // if(iURLSource_setting==NULL)
// Regardless of iURLSource_setting selection,
// define number of records in file (for all iURLSource_setting options because this is the fall-back):
nURLtoShorten_file_recs = vi_set_pURLtoShorten_file_recs();
if( nURLtoShorten_file_recs == -1 ){
lr_error_message("> vi_set_pURLtoShorten_file_recs() nURLtoShorten_file_recs=%d",nURLtoShorten_file_recs);
}else{
wi_startPrintingInfo();
lr_output_message(">> nURLtoShorten_file_recs=%d.", nURLtoShorten_file_recs);
wi_stopPrinting();
}
#ifdef USE_VTS
if( iURLSource_setting == 2 ){
rc=vi_set_VTS3(); // Find the count of records in VTS table into nVTS_row_count.
if( rc != LR_PASS ){
// TODO: 12. If you prefer, if VTS cannot be used, change coding to error out instead of falling back if records were found earlier:
if( nURLtoShorten_file_recs > 0 ){ // if records were found earlier?
iURLSource_setting = 1; // use local data source
wi_startPrintingInfo();
lr_output_message(">> rc=%d fall-back to local data source with nURLtoShorten_file_recs=%f when iURLSource_setting=%d.", rc, nURLtoShorten_file_recs, iURLSource_setting);
wi_stopPrinting();
}
}else{
// Add column "shorturl" to VTS for holding output from Google API calls:
rc = vtc_create_column (pvci, "shorturl", &status); // status=1 is success.
wi_startPrintingDebug();
lr_output_message(">> rc=%d from vi_set_VTS3() with status=%d (should=1) when iURLSource_setting=%d.", rc, status, iURLSource_setting);
wi_stopPrinting();
if( status == 1 ){
iUpdate_shorturl_in_VTS = 1; // 1=Yes
wi_startPrintingInfo();
lr_output_message(">> rc=%d with status=%d (should=1), so iUpdate_shorturl_in_VTS =%d (1=1Yes).", rc, status, iUpdate_shorturl_in_VTS );
wi_stopPrinting();
}else{
iUpdate_shorturl_in_VTS = 0; // 0=No
wi_startPrintingInfo();
lr_output_message(">> rc=%d with status=%d (should=1), so iUpdate_shorturl_in_VTS =%d (0=NO).", rc, status, iUpdate_shorturl_in_VTS );
wi_stopPrinting();
}
}
}
#endif // USE_VTS
return LR_PASS;
} // vi_set_URLSource_attribute()
