| Current Path : /var/www/web-klick.de/dsh/10_customer2017/1205__valeo/tests/AEntry2/ |
Linux ift1.ift-informatik.de 5.4.0-216-generic #236-Ubuntu SMP Fri Apr 11 19:53:21 UTC 2025 x86_64 |
| Current File : /var/www/web-klick.de/dsh/10_customer2017/1205__valeo/tests/AEntry2/Ticket.pm |
package AEntry::TS;
use strict;
use vars qw(@ISA $PKG);
$PKG = __PACKAGE__;
while ($PKG =~ s/^(.*)\:\:(.*)$/$1/) { eval("use $PKG"); last if (!$@); }
@ISA = ($PKG);
sub run {
my $self = shift;
my $text = shift;
$text = eval( "{" . $text . "}" );
my $erg = <<'TEXT';
text => This is a new task assigned to you from ---OWNER---
Please give an estimation for get it ready:
task =>
return(["___WAIT5___","run1"]);
}
sub run1 {
my $self = shift;
$self->{'log'} = "ENDE";
$self->test_end();
}
#**********************************************************************
1;