| Current Path : /var/www/web-klick.de/dsh/90_akt/PPLTest.old/ |
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/90_akt/PPLTest.old/AutoTestGUI.pm |
sub choose_login {
my $self = shift;
my $mode = shift;
my $text = shift;
my @pars = @_;
$text = <<'TEXT_ENDE';
<HTML><BODY>
<P>
<FORM ACTION="---URL---" METHOD="get">
<INPUT TYPE="HIDDEN" NAME="session" VALUE="---SESSION---">
<INPUT TYPE="HIDDEN" NAME="par1" VALUE="---FUNC---">
<INPUT TYPE="HIDDEN" NAME="par2" VALUE="u">
<TABLE>
<TR>
<TD>Account:</TD>
<TD><INPUT TYPE="TEXT" NAME="par3" VALUE=""></TD>
</TR>
<TR>
<TD>Password:</TD>
<TD><INPUT TYPE="TEXT" NAME="par4" VALUE=""></TD>
</TR>
<TR>
<TD><INPUT TYPE="SUBMIT" VALUE="Log In"></TD>
</TR>
</TABLE>
</FORM>
</BODY></HTML>
TEXT_ENDE
$text =~ s/---FUNC---/$pars[0]/;
return([$text]);
}
#***********************************************************************
sub choose_loginok {
my $self = shift;
my $mode = shift;
my $text = shift;
my @pars = @_;
$text = <<'TEXT_ENDE';
<HTML><BODY>
<P>
<H3>---USER---</H3>
</BODY></HTML>
TEXT_ENDE
$text =~ s/---USER---/$pars[1]/;
$text =~ s/\[QUERY.*?\]//gs;
return([$text]);
}
#***********************************************************************
sub choose_filter_pattern {
my $self = shift;
my $mode = shift;
my $text = shift;
my @pars = @_;
$text = <<'TEXT_ENDE';
<HTML><BODY>
<P>
<H3>Filter pattern:</H3>
<FORM ACTION="---URL---" METHOD="get">
<INPUT TYPE="HIDDEN" NAME="par1" VALUE="---FUNC---">
<INPUT TYPE="TEXT" NAME="par2" VALUE="---FILTER---">
<INPUT TYPE="SUBMIT" VALUE="Speichern">
</FORM>
</BODY></HTML>
TEXT_ENDE
$text =~ s/---FUNC---/$pars[0]/;
$text =~ s/---FILTER---/$pars[2]/;
$text =~ s/\[QUERY.*?\]//gs;
return([$text]);
}
#***********************************************************************
sub choose_testlist {
my $self = shift;
my $mode = shift;
my $text = shift;
my @pars = @_;
$pars[1] =~ s/^(.*?)(ROOT)(.*)$/$2$3/s;
my @ee = split(/\n/,$pars[1]);
my $root = shift(@ee);
$root =~ s/^ROOT\: +//;
my $o = "";
my $o1 = "";
$root = [split(/,/,$root)];
if ($root->[0]) {
$o = "<A HREF=\"---URLYY---$root\">$root->[0]</A>";
}
if ($root->[0] =~ /^(.*)\_\_(.*)$/) {
$o1 = " --- <A HREF=\"---URLXX---$1\">up</A>";
}
$text = "<HTML><BODY>\n<P>\n<H3>$o$o1</H3>\n<TABLE style=\"border:dotted #0081C1 1px; width: 100%;\">";
$text = $text . <<'TEXT_ENDE';
<TR>
<TD>Test-Item</TD>
<TD style="text-align:right">Result</TD>
<TD style="text-align:right">Severity</TD>
<TD>Remark</TD>
</TR>
TEXT_ENDE
# 0. name
# 1. gesresult
# 2. gesgewicht
# 3. sleep
# 4. result
# 5. remark
# 6. weight
# 7. user
# 8. info
# 9. status
my $zeile; my @ee1;
foreach $o (@ee) {
@ee1 = split(/,/,$o);
my $color = "color:green";
my $color1 = "";
if ($ee1[1] > 1) {
$color = "background-color:yellow;color:black";
}
if ($ee1[1] > 999) {
$color = "background-color:red;color:black";
}
$zeile = <<'TEXT_ENDE';
<TR>
<TD><A style="---COLOR---" HREF="---URLXX------NAME---">---NAME---</A></TD>
<TD style="text-align:right---COLOR1---">---GESRESULT---</TD>
<TD style="text-align:right">---GESWEIGHT---</TD>
<TD>---REMARK---</TD>
</TR>
TEXT_ENDE
$zeile =~ s/---NAME---/$ee1[0]/g;
if (!($ee1[1]) and $ee1[3] > 0) {
$ee1[1] = "sleep " . $ee1[3];
$color1 = ";background-color:grey;color:black";
}
elsif (!($ee1[1])) {
$ee1[1] = "<A HREF";
$color1 = ";background-color:grey;color:black";
}
$zeile =~ s/---GESRESULT---/$ee1[1]/g;
$ee1[2] = sprintf("%4.1f",0.1*$ee1[2]) . " %";
$zeile =~ s/---GESWEIGHT---/$ee1[2]/g;
$zeile =~ s/---REMARK---/$ee1[5]/g;
$zeile =~ s/---COLOR---/$color/g;
$zeile =~ s/---COLOR1---/$color1/g;
$text = $text . $zeile;
}
$text = $text . "</TABLE>\n</BODY></HTML>\n";
$text =~ s/---URLXX---/---URL---\?par1=PPLTest::AutoTest::test\&par2=/g;
return([$text]);
}
1;