#!"D:\Apps\Perl\bin\perl.exe"
package CheckPagesMain_new;
use HTML::Template;
use PerlMain; 
use base 'CGI::Application';
use CGI;
use warnings;
use threads;


my $runHandler = PerlMain->new();
my $tmpl = ();

my $processStatus = 0;

sub setup{
    my ($self) = @_;

    $self->start_mode( 'statusProcess' );
    $self->mode_param( 'rm' );
    $self->run_modes(
        AUTOLOAD => \&seite1,
        statusProcess => \&statusProcess,
        urlLoeschen => \&urlLoeschen,
        seite1 => \&seite1,
        editUrlTargets => \&editUrlTargets,
    );
    
    $tmpl = $self->load_tmpl( 'D:/Apps/xampp/htdocs/myProjekt/page.html' );   
    
}

sub statusProcess{
  my ($self) = @_; 
     
  my $cgi=CGI->new(); 
       
  my $tmpl = $self->load_tmpl( 'D:/Apps/xampp/htdocs/myProjekt/page.html' );
  my $body = $self->load_tmpl( 'D:/Apps/xampp/htdocs/myProjekt/statusProcess.html' );
    
    
  my %params = $cgi->Vars(); # Parameter auslesen
    my $button = $params{button};    
 
    if ($button eq "Start"){
        $tmpl->param( SEITE => 'startProcess' );
       -->;THREAD STARTEN
        
    }
    if ($button eq "Stop"){
        $tmpl->param( SEITE => 'stopProcess' );
         -->;THREAD STOPEN
   }  
    
    
   my $body_string = $body->output();    
   $tmpl->param(body => $body_string); 
   return $tmpl->output;
}