$main->AddProgressBar(-name =>'pbar',
                          -height=>20,
                          -width =>175,
                          -pos => [5,550],
                          );

       $main->AddTimer('T1', 1000);
       $main->T1->Interval(0);
       
       sub T1_Timer{
        $main->pbar->DeltaPos(1);
       }



    sub btnFindLogs_Click
    {#start sub
        ##Start Timer
        $main->pbar->Interval(1)
            
        $CaseNumber = $main->CaseNumber->Text;
        $EmailAddress = $main->EmailAddress->Text;
        #$main->CaseSearchResults->Reset();
        if ($CaseNumber eq "" || $EmailAddress eq "")
        {
          $main->CaseSearchResults->Append("No case number was entered or email address was provided.  Please try again. \r\r\n");
        }else
        {
         my @ep = split ("@",$EmailAddress);
        $userName = $ep[0];
        
        opendir(my $dir, $logSite) or die "Can't open '$logSite': $!";
        for my $file (readdir($dir))
            {
            
              for my $pattern ($CaseNumber)
            {
              if ($file =~ /$pattern/)
            {
            push @return, $file;
            # This avoids having the file in the result twice
            last;
            }
      }
    }
     @return = sort (@return);
     $size = @return;
     
    #end sub
    
    ##Populate text box with the serach resutls.
        foreach(@return)
        {
            
            $main->CaseSearchResults->Append($_."\r\r\n");}
 
        }#end of else
        
           if ($size > 0)
            {
            #if the size of the array is bigger then zero, then enable the check boxes, if not, print that no logs were found.    
           $main->chkCpRimNet->Enable();$main->cpLogsLocal->Enable(); $main->chkSubmitHct->Enable();
           #$main->btnClearLogs->Enable();
            }else{$main->CaseSearchResults->Append("No Logs were found\r\r\n");}
    }