2 Einträge, 1 Seite |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59
#!"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; }
2 Einträge, 1 Seite |