<html>
<head>
<title>IF Metacommand in Embperl</title>
</head>
<body>
[- $a = 1; $b = 0; $c = 5; $d = 'txt' -]
a1
[$if $a$]
a <br>
[$ endif$]
a2
[$if $a $]
a <br>
[$else$]
not a<br>
[$ endif $]
a3
[$if $a<br> $]
a <br>
[$else<br>$]
not a<br>
[$ endif <br>$]
a4
[#
[$<br>if $a $]
a <br>
[$ <br> else<br>$]
not a<br>
[$ <br>endif $]
#]
a5
[$ if $a$]
a <br>
[$if $b == 0$]
b is null <br>
[$else$]
b is not null <br>
[$endif$]
[$ else$]
not a<br>
[$ endif $]
[$ if $a$]
a <br>
[$if $b == 0$]
b is null <br>
[$else$]
b is not null <br>
[$endif$]
[$ else$]
not a<br>
[$if $b == 0$]
b is null <br>
[$else$]
b is not null <br>
[$endif$]
[$ endif $]
[$ if !$a$]
not a <br>
[$if $b == 0$]
b is null <br>
[$else$]
b is not null <br>
[$endif$]
[$ else$]
a<br>
[$if $b == 0$]
b is null <br>
[$else$]
b is not null <br>
[$endif$]
[$ endif $]
[$ if $a$]
a <br>
[$if $b == 0$]
b is null <br>
[$elsif $c == 5 $]
b is not null and c is 5 <br>
[$elsif $d eq 'txt'$]
b is not null and c is not 5, but d is 'txt' <br>
[$else$]
b is not null and c is not 5 and d is not 'txt' <br>
[$endif$]
[$ else$]
not a<br>
[$ endif $]
[$ if $a$]
a <br>
[$if $b == 0$]
b is null <br>
[$elsif $c == 5 $]
b is not null and c is 5 <br>
[$elsif $d eq 'txt'$]
b is not null and c is not 5, but d is 'txt' <br>
[$else$]
b is not null and c is not 5 and d is not 'txt' <br>
[$endif$]
[$ else$]
not a<br>
[$if $b == 0$]
b is null <br>
[$elsif $c == 5 $]
b is not null and c is 5 <br>
[$elsif $d eq 'txt'$]
b is not null and c is not 5, but d is 'txt' <br>
[$else$]
b is not null and c is not 5 and d is not 'txt' <br>
[$endif$]
[$ endif $]
[$ if $a == 0 $]
a is null <br>
[$if $b != 0$]
b not is null <br>
[$elsif $c == 5 $]
b is null and c is 5 <br>
[$elsif $d eq 'txt'$]
b is null and c is not 5, but d is 'txt' <br>
[$else$]
b is null and c is not 5 and d is not 'txt' <br>
[$endif$]
[$ else$]
a is not null <br>
[$if $b != 0$]
b is not null <br>
[$elsif $c == 5 $]
b is null and c is 5 <br>
[$elsif $d eq 'txt'$]
b is null and c is not 5, but d is 'txt' <br>
[$else$]
b is null and c is not 5 and d is not 'txt' <br>
[$endif$]
[$ endif $]
[$ if $a == 0 $]
a is null <br>
[$if $b != 0$]
b not is null <br>
[$elsif $c == 5 $]
b is null and c is 5 <br>
[$elsif $d eq 'txt'$]
b is null and c is not 5, but d is 'txt' <br>
[$else$]
b is null and c is not 5 and d is not 'txt' <br>
[$endif$]
[$ else$]
a is not null <br>
[$if $b != 0$]
b is not null <br>
[$elsif $c != 5 $]
b is null and c is not 5 <br>
[$elsif $d ne 'txt'$]
b is null and c is not 5, but d is not 'txt' <br>
[$else$]
b is null and c is 5 and d is 'txt' <br>
[$endif$]
[$ endif $]
[$ if $a == 0 $]
a is null <br>
[$if $b != 0$]
b not is null <br>
[$elsif $c == 5 $]
b is null and c is 5 <br>
[$elsif $d eq 'txt'$]
b is null and c is not 5, but d is 'txt' <br>
[$else$]
b is null and c is not 5 and d is not 'txt' <br>
[$endif$]
[$ else$]
a is not null <br>
[$if $b != 0$]
b is not null <br>
[$elsif $c != 5 $]
b is null and c is not 5 <br>
[$elsif $d ne 'txt'$]
b is null and c is not 5, but d is not 'txt' <br>
[$else$]
b is null and c is 5 and d is 'txt' <br>
[$if $b != 0$]
b is not null <br>
[$elsif $c != 5 $]
b is null and c is not 5 <br>
[$elsif $d eq 'txt'$]
b is null and c is not 5, but d is 'txt' <br>
[$if $d eq 'txt'$]
If we get to here it looks good with the tests <br>
[$else$]
No not go to here, something is wrong! <br>
[$endif$]
[$else$]
b is null and c is 5 and d is 'txt' <br>
[$endif$]
[$endif$]
[$ endif $]
[$ if $a == 0 $]
a is null <br>
[$if $b != 0$]
b not is null <br>
[$elsif $c == 5 $]
b is null and c is 5 <br>
[$elsif $d eq 'txt'$]
b is null and c is not 5, but d is 'txt' <br>
[$else$]
b is null and c is not 5 and d is not 'txt' <br>
[$endif$]
[$ else$]
a is not null <br>
[$if $b != 0$]
b is not null <br>
[$if $d eq 'txt'$]
No not go to here, something is wrong! (a) <br>
[$else$]
No not go to here, something is wrong! (b) <br>
[$endif$]
[$elsif $c != 5 $]
b is null and c is not 5 <br>
[$if $d eq 'txt'$]
No not go to here, something is wrong! (a) <br>
[$else$]
No not go to here, something is wrong! (b) <br>
[$endif$]
[$elsif $d ne 'txt'$]
b is null and c is not 5, but d is not 'txt' <br>
[$if $d eq 'txt'$]
No not go to here, something is wrong! (a) <br>
[$else$]
No not go to here, something is wrong! (b) <br>
[$endif$]
[$else$]
b is null and c is 5 and d is 'txt' <br>
[$if $b != 0$]
b is not null <br>
[$if $d eq 'txt'$]
No not go to here, something is wrong! (a) <br>
[$else$]
No not go to here, something is wrong! (b) <br>
[$endif$]
[$elsif $c != 5 $]
b is null and c is not 5 <br>
[$if $d eq 'txt'$]
No not go to here, something is wrong! (a) <br>
[$else$]
No not go to here, something is wrong! (b) <br>
[$endif$]
[$elsif $d eq 'txt'$]
b is null and c is not 5, but d is 'txt' <br>
[$if $d eq 'txt'$]
If we get to here it looks good with the tests <br>
[$else$]
No not go to here, something is wrong! <br>
[$endif$]
[$else$]
b is null and c is 5 and d is 'txt' <br>
[$if $d eq 'txt'$]
No not go to here, something is wrong! (a) <br>
[$else$]
No not go to here, something is wrong! (b) <br>
[$endif$]
[$endif$]
[$endif$]
[$ endif $]
[- $ttrue = 'true'; $tfalse = '' -]
[$if $ttrue $]
ttrue = true
[$else$]
ttrue = false
[$endif$]
[$if $tfalse $]
tfalse = true
[$else$]
tfalse = false
[$endif$]
The following HTML tags schould be ignored by Embperl
<if 0>
Ignored, ok!
<else>
Not ignored, ERROR!
<endif>
<TABLE WIDTH="530" BORDER="0">
<TR>
<TD ALIGN="LEFT">
[$ if ($badge eq "iit") $]
<A HREF="/iit/">
[$ else $]
<A HREF="/">
[$ endif $]
<IMG SRC="[$ if (($server_type eq "iii.co.uk")) $]/i/www.[+ $server_type +]/[+ $badge || "iiilogo_narrow" +].gif[$ else $]/icons/[+ $badge || "iiilogo_narrow" +].gif[$ endif $]"
WIDTH="[+ $icon_width +]" HEIGHT="[+ $icon_height +]" BORDER="0"
[$ if ($badge eq "iit") $]
ALT="iit logo"
[$ else $]
ALT="iii logo"
[$ endif $]
[$ if (($badge eq "iit") && ($badge ne $cookie_badge) && !$cookie_to) $]
onload="window.open('/iit/welcometoiit.epl','dis','status=no,scrollbars=no,resizable=yes,width=390,height=410,screenX=50,screenY=50,top=50,left=50'); return false"
[$ elsif (($badge eq "") && ($cookie_badge eq "iit") && !$cookie_from) $]
onload="window.open('/iit/leavingiit.epl','dis','status=no,scrollbars=no,resizable=yes,width=370,height=320,screenX=100,screenY=100,top=100,left=100'); return false"
[$ endif $] qqq >
</TD>
</TR>
</TABLE>
[- $cookie_badge = "iit" ;
$server_type = "iii.co.uk" ;
$icon_width = 1 ;
$icon_height=2; -]
<TABLE WIDTH="530" BORDER="0">
<TR>
<TD ALIGN="LEFT">
[$ if ($badge eq "iit") $]
<A HREF="/iit/">
[$ else $]
<A HREF="/">
[$ endif $]
<IMG SRC="[$ if (($server_type eq "iii.co.uk")) $]/i/www.[+ $server_type +]/[+ $badge || "iiilogo_narrow" +].gif[$ else $]/icons/[+ $badge || "iiilogo_narrow" +].gif[$ endif $]"
WIDTH="[+ $icon_width +]" HEIGHT="[+ $icon_height +]" BORDER="0"
[$ if ($badge eq "iit") $]
ALT="iit logo"
[$ else $]
ALT="iii logo"
[$ endif $]
[$ if (($badge eq "iit") && ($badge ne $cookie_badge) && !$cookie_to) $]
onload="window.open('/iit/welcometoiit.epl','dis','status=no,scrollbars=no,resizable=yes,width=390,height=410,screenX=50,screenY=50,top=50,left=50'); return false"
[$ elsif (($badge eq "") && ($cookie_badge eq "iit") && !$cookie_from) $]
onload="window.open('/iit/leavingiit.epl','dis','status=no,scrollbars=no,resizable=yes,width=370,height=320,screenX=100,screenY=100,top=100,left=100'); return false"
[$ endif $]>
</TD>
</TR>
</TABLE>
[- $icon_width = 5 ; $icon_height=10; -]
<IMG
[$ if (($server_type eq "iii")) $]
SRC="/i/www.[+ $server_type +]/[+ $badge || "iiilogo_narrow_if" +].gif" WIDTH="[+ $icon_width +]" HEIGHT="[+ $icon_height +]" BORDER="0"
[$ else $]
SRC="/icons/[+ $badge || "iiilogo_narrow_else" +].gif" WIDTH="[+ $icon_width +]" HEIGHT="[+ $icon_height +]" BORDER="0"
[$ endif $]
[$ if ($badge eq "iit") $]
ALT="iit logo"
[$ else $]
ALT="iii logo"
[$ endif $]>
[- $icon_width = 6 ; $icon_height=11; $server_type="iii" ; $badge = "iit" -]
<IMG
[$ if (($server_type eq "iii")) $]
SRC="/i/www.[+ $server_type +]/[+ $badge || "iiilogo_narrow_if" +].gif" WIDTH="[+ $icon_width +]" HEIGHT="[+ $icon_height +]" BORDER="0"
[$ else $]
SRC="/icons/[+ $badge || "iiilogo_narrow_else" +].gif" WIDTH="[+ $icon_width +]" HEIGHT="[+ $icon_height +]" BORDER="0"
[$ endif $]
[$ if ($badge eq "iit") $]
ALT="iit logo"
[$ else $]
ALT="iii logo"
[$ endif $]>
<IMG
[$ if (($server_type eq "iii")) $]
SRC="/i/www.[+ $server_type +]/[+ $badge || "iiilogo_narrow_if" +].gif" WIDTH="[+ $icon_width +]" HEIGHT="[+ $icon_height +]" BORDER="0"
[$ else $]
SRC="/icons/[+ $badge || "iiilogo_narrow_else" +].gif" WIDTH="[+ $icon_width +]" HEIGHT="[+ $icon_height +]" BORDER="0"
[$ endif $]
[$ if ($badge eq "iit") $]
ALT="iit logo"
[$ else $]
ALT="iii logo"
[$ endif $]
qqq>
</body>
</html>