char *replace_str(char *str, const char *orig, const char *rep)
{
    size_t buf_index = 0;
    static char buffer[10000];
 
    if (!strstr(str, orig))  // Is 'orig' even in 'str'?
    {
        return str;
    }
 
    buffer[0] = 0;
    for(;;)
    {        
        char *p;
 
        if (!(p = strstr(str, orig)))  
        {
           strcpy(buffer + buf_index, str);
           return buffer;
        }
        strncpy(buffer + buf_index, str, p - str);
        strcpy(buffer + buf_index + (p - str), rep);
        buf_index += (p-str) + strlen(rep);
        str = p + strlen(orig);
    }
    return buffer;
}

_otpUrlPtr = replace_str(lr_eval_string("{urlRedirect_3}"), "&", "&");

'Email Config.....
Const fromEmail	= "email_sender@gmail.com"
Const password	= "password"
 
Dim emailObj, emailConfig
Set emailObj      = CreateObject("CDO.Message")
emailObj.From     = fromEmail
emailObj.To       = WScript.Arguments.Item(0)
emailObj.Subject  = WScript.Arguments.Item(1)
emailObj.TextBody = WScript.Arguments.Item(2)
If WScript.Arguments.Count > 3 Then
	emailObj.AddAttachment WScript.Arguments.Item(3)
End If
Set emailConfig = emailObj.Configuration
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver")       = "smtp.gmail.com"
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")   = 465
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing")        = 2
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl")       = true
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername")     = fromEmail
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword")     = password
emailConfig.Fields.Update
emailObj.Send
Set emailobj	= nothing
Set emailConfig	= nothing

cscript c:\sendemail.vbs example@gmail.com "test subject line" "test email body"

cscript c:\sendemail.vbs example@gmail.com "test subject line" "test email body" "c:\ScriptName\mdrv.log"

char command [1024]
sprintf (command, "cscript c:\\email.vbs example@gmail.com \"Error with Script\" \"Your Performance Testing skills are clearly inadequate, either find a new job, or learn how to code....Script XXX has failed....that is all master.\"");
system(command);

SELECT usergroup, count(*) AS cnt FROM users
 WHERE usergroup LIKE '%GRP%' GROUP BY usergroup HAVING count(*) < 101

@echo off
SET DIFFA=%1
SET DIFFB=%2
java -Xms128m -Xmx512m -jar C:\daisydiff\daisydiff.jar %1 %2 --type=tag
C:\daisydiff\daisydiff.htm
pause

SELECT trunc(percentile_cont(0.95) WITHIN GROUP (ORDER BY ((bt2.logtime - bt1.logtime) * 24 * 3600 )),1),count(bt1.trans_num)
        FROM AUDIT_LOG bt1, AUDIT_LOG bt2, 
        WHERE bt1.TRANS_NUM = bt2.TRANS_NUM
        AND bt1.STATUS IN ('SUBMITTED')
        AND bt2.STATUS IN ('APPROVED')
        AND at.LOG_TIMESTAMP > TO_DATE('"+datetimefrom +"','YYYY-MM-DD HH24:MI:SS')
        AND at.LOG_TIMESTAMP < TO_DATE('"+datetimeto +"','YYYY-MM-DD HH24:MI:SS')

require 'OCI8'
require 'rubygems'
 
def function(name,datetimefrom,datetimeto)
  case name
       when "submit_payment"
              $nfr_name = "Submit Payment"
              $query="select trunc(percentile_cont(0.95) WITHIN GROUP (ORDER BY ((bt2.logtime - bt1.logtime) * 24 * 3600 )),1),count(bt1.trans_num)
        FROM AUDIT_LOG bt1, AUDIT_LOG bt2, 
        WHERE bt1.TRANS_NUM = bt2.TRANS_NUM
        AND bt1.STATUS in ('SUBMITTED')
        AND bt2.STATUS in ('APPROVED')
        AND at.LOG_TIMESTAMP > TO_DATE('"+datetimefrom +"','YYYY-MM-DD HH24:MI:SS')
        AND at.LOG_TIMESTAMP < TO_DATE('"+datetimeto +"','YYYY-MM-DD HH24:MI:SS')"
   end
end

require 'OCI8'
require 'rubygems'
require 'date.rb'
require 'sql.rb'
require 'time'
require 'functions.rb'
 
#get the current time
t= Time.now
 
datetimefrom = ARGV[0]
datetimeto = ARGV[1]
filename = ARGV[2]
full_filename = "c:\\wamp\\www\\reports\\"" +filename+ ".csv"
 
#put the headers of the file in first
 
File.open(full_filename,"a") do |the_file|
  the_file.puts "Group,Transaction,Date/Time From, Date/Time To,RT,95th Percentile,Sample Size"
  the_file.close
end  
 
#add the function names into the array
class Nfrlist <
 
 Struct.new(:group, :transaction, :rt, :function)
 
end
# define new array to hold the records
nfr = Array.new
 
# open the csv file
f = File.open("nfrs.csv", "r")
 
# loop through each record in the csv file, adding
# each record to our array.
f.each_line { |line|
 
  # each line has fields separated by commas, so split those fields
  fields = line.split(',')
 
  # create a new Person
  p = Nfrlist.new
 
  # do a little work here to get rid of double-quotes and blanks
    p.group = fields[0].tr_s('"', '').strip
    p.transaction = fields[1].tr_s('"', '').strip
    p.rt = fields[2].tr_s('"', '').strip
    p.function = fields[3].tr_s('"', '').strip
    nfr.push(p)   
 
 
    #array declreation inside loop to clear the array on each iteration in the loop.
    $lines= []
    $nfr=[]
    $blah=[]
    $percentile=[]
    $query=""
 
    #call the function from the other .rb file
    function(p.function,datetimefrom,datetimeto)  
 
      #if the name of the function starts with CPR connect to the cpr database,   otherwise go to BTR
      if( /^cpr+.\w+$/).match(p.function)  then
         conn = OCI8.new('login', 'password', 'database1.world') 
      else
          conn = OCI8.new('login', 'password', 'database2.world')
      end    
    #execute the sql query
    #if the query is blank(for items that are not required for the db, but need to have a line item in the rrport) then skip this bit...
 
   if $query != "" then
    cursor = conn.exec($query)
      while r = cursor.fetch()
       #add each row to the lines array, separate by tab.
       $lines <<p.group + "," + p.transaction + "," + datetimefrom + "," + datetimeto + "," + p.rt + "," + r.join(",")
      end
    cursor.close
  end 
 
    $percentile << $lines
 
 
#now write it to a file. 
File.open(full_filename,"a") do |the_file|
  the_file.puts $percentile
end  
}

<head>
<script language="javascript" src="calendar.js"></script>
</head>
<html>
<body>
<form action="somewhere.php" method="post">
<?php
set_time_limit(0);
//get class into the page
require('tc_calendar.php');
 
//instantiate class and set properties
$dateFrom = new tc_calendar("date1", true);
$dateFrom->setIcon("images/iconCalendar.gif");
$dateFrom->setDate(date('d'), date('m'), date('Y'));
 
echo "Time From (HH24:MI:SS): <input type=\"text\" name=\"timefrom\" /><br />";
//output the calendar
$dateFrom->writeScript();	 
 
echo "<P>";
$dateTo = new tc_calendar("date2", true);
$dateTo->setIcon("images/iconCalendar.gif");
$dateTo->setDate(date('d'), date('m'), date('Y'));
echo "Time To (HH24:MI:SS): <input type=\"text\" name=\"timeto\" /><br />";
 
//output the calendar
$dateTo->writeScript();	  
 
?>
<p>
<input type="checkbox" name="throughput" value="Yes"> Throughput Report <br>
<input type="checkbox" name="responsetime" value="Yes"> Response Time Report <br>
 
<input type="submit" value="Send it!"></p>
 
</form>
</body>
</html>

<?php
set_time_limit(0);
date_default_timezone_set("Australia/Sydney");
$filenameDate=date("dmy_His");
$datefrom = isset($_REQUEST["date1"]) ? $_REQUEST["date1"] :"";
$timefrom=($_REQUEST["timefrom"]);
 
$dateto = isset($_REQUEST["date2"]) ? $_REQUEST["date2"] : "";
$timeto=($_REQUEST["timeto"]);
 
if (isset($_POST['responsetime'])) 
	{
    exec("responsetime.rb \"$datefrom $timefrom\" \"$dateto $timeto\" \"ResponseTime_$filenameDate");
    $file= "ResponseTime_$filenameDate.csv";
    echo "<a href='http://localhost/reports/ResponseTime_" .$filenameDate.".csv'>Get Response Time Report</a>";
  }
if (isset($_POST['throughput'])) 
	{
    exec("throughput.rb \"$datefrom $timefrom\" \"$dateto $timeto\" \"Throughput_$filenameDate");
    $file2= "Throughput_$filenameDate.csv";
    echo "<br><a href='http://localhost/reports/Throughput_" .$filenameDate.".csv'>Get Throughput Report</a>";
 
	}
?>

c:\>gem install mysql --no-ri --no-rdoc

query = "select columnA, ColumnB from table"
begin
     dbh = Mysql.real_connect("localhost", "login", "password", "databaseName")
     # get server version string and display it
     puts "Server version: " + dbh.get_server_info
   rescue Mysql::Error => e
     puts "Error code: #{e.errno}"
     puts "Error message: #{e.error}"
     puts "Error SQLSTATE: #{e.sqlstate}" if e.respond_to?("sqlstate")
   ensure
      res = dbh.query(query)
   while row = res.fetch_row do
      puts row[0]
      puts row[1]
   end
   puts "Number of rows returned: #{res.num_rows}"
   res.free
     # disconnect from server
     dbh.close if dbh
end

    def teardown
		@selenium.close
		@selenium.stop
    assert_equal [], @verification_errors
  end

double atof (const char *string);
typedef struct _SYSTEMTIME {
  WORD wYear;
  WORD wMonth;
  WORD wDayOfWeek;
  WORD wDay;
  WORD wHour;
  WORD wMinute;
  WORD wSecond;
  WORD wMilliseconds;
}SYSTEMTIME, *PSYSTEMTIME;
vuser_init()
{
   lr_load_dll("kernel32.dll");
   return 0;
}

Action()
{
   SYSTEMTIME st;
   st.wYear = 2000;
   st.wMonth = 5;
   st.wDay = 12;
   st.wHour = 16;
   st.wMinute = 8;
   st.wSecond = 31;
   st.wMilliseconds = 55;
 
   //call the function for the dll, parsing the input value of st paramater
   SetSystemTime(&st);
 
   return 0;
}