IF Metacommand in Embperl

[- $a = 1; $b = 0; $c = 5; $d = 'txt' -] a1 [$if $a$] a
[$ endif$] a2 [$if $a $] a
[$else$] not a
[$ endif $] a3 [$if $a
$] a
[$else
$] not a
[$ endif
$] a4 [# [$
if $a $] a
[$
else
$] not a
[$
endif $] #] a5 [$ if $a$] a
[$if $b == 0$] b is null
[$else$] b is not null
[$endif$] [$ else$] not a
[$ endif $] [$ if $a$] a
[$if $b == 0$] b is null
[$else$] b is not null
[$endif$] [$ else$] not a
[$if $b == 0$] b is null
[$else$] b is not null
[$endif$] [$ endif $] [$ if !$a$] not a
[$if $b == 0$] b is null
[$else$] b is not null
[$endif$] [$ else$] a
[$if $b == 0$] b is null
[$else$] b is not null
[$endif$] [$ endif $] [$ if $a$] a
[$if $b == 0$] b is null
[$elsif $c == 5 $] b is not null and c is 5
[$elsif $d eq 'txt'$] b is not null and c is not 5, but d is 'txt'
[$else$] b is not null and c is not 5 and d is not 'txt'
[$endif$] [$ else$] not a
[$ endif $] [$ if $a$] a
[$if $b == 0$] b is null
[$elsif $c == 5 $] b is not null and c is 5
[$elsif $d eq 'txt'$] b is not null and c is not 5, but d is 'txt'
[$else$] b is not null and c is not 5 and d is not 'txt'
[$endif$] [$ else$] not a
[$if $b == 0$] b is null
[$elsif $c == 5 $] b is not null and c is 5
[$elsif $d eq 'txt'$] b is not null and c is not 5, but d is 'txt'
[$else$] b is not null and c is not 5 and d is not 'txt'
[$endif$] [$ endif $] [$ if $a == 0 $] a is null
[$if $b != 0$] b not is null
[$elsif $c == 5 $] b is null and c is 5
[$elsif $d eq 'txt'$] b is null and c is not 5, but d is 'txt'
[$else$] b is null and c is not 5 and d is not 'txt'
[$endif$] [$ else$] a is not null
[$if $b != 0$] b is not null
[$elsif $c == 5 $] b is null and c is 5
[$elsif $d eq 'txt'$] b is null and c is not 5, but d is 'txt'
[$else$] b is null and c is not 5 and d is not 'txt'
[$endif$] [$ endif $] [$ if $a == 0 $] a is null
[$if $b != 0$] b not is null
[$elsif $c == 5 $] b is null and c is 5
[$elsif $d eq 'txt'$] b is null and c is not 5, but d is 'txt'
[$else$] b is null and c is not 5 and d is not 'txt'
[$endif$] [$ else$] a is not null
[$if $b != 0$] b is not null
[$elsif $c != 5 $] b is null and c is not 5
[$elsif $d ne 'txt'$] b is null and c is not 5, but d is not 'txt'
[$else$] b is null and c is 5 and d is 'txt'
[$endif$] [$ endif $] [$ if $a == 0 $] a is null
[$if $b != 0$] b not is null
[$elsif $c == 5 $] b is null and c is 5
[$elsif $d eq 'txt'$] b is null and c is not 5, but d is 'txt'
[$else$] b is null and c is not 5 and d is not 'txt'
[$endif$] [$ else$] a is not null
[$if $b != 0$] b is not null
[$elsif $c != 5 $] b is null and c is not 5
[$elsif $d ne 'txt'$] b is null and c is not 5, but d is not 'txt'
[$else$] b is null and c is 5 and d is 'txt'
[$if $b != 0$] b is not null
[$elsif $c != 5 $] b is null and c is not 5
[$elsif $d eq 'txt'$] b is null and c is not 5, but d is 'txt'
[$if $d eq 'txt'$] If we get to here it looks good with the tests
[$else$] No not go to here, something is wrong!
[$endif$] [$else$] b is null and c is 5 and d is 'txt'
[$endif$] [$endif$] [$ endif $] [$ if $a == 0 $] a is null
[$if $b != 0$] b not is null
[$elsif $c == 5 $] b is null and c is 5
[$elsif $d eq 'txt'$] b is null and c is not 5, but d is 'txt'
[$else$] b is null and c is not 5 and d is not 'txt'
[$endif$] [$ else$] a is not null
[$if $b != 0$] b is not null
[$if $d eq 'txt'$] No not go to here, something is wrong! (a)
[$else$] No not go to here, something is wrong! (b)
[$endif$] [$elsif $c != 5 $] b is null and c is not 5
[$if $d eq 'txt'$] No not go to here, something is wrong! (a)
[$else$] No not go to here, something is wrong! (b)
[$endif$] [$elsif $d ne 'txt'$] b is null and c is not 5, but d is not 'txt'
[$if $d eq 'txt'$] No not go to here, something is wrong! (a)
[$else$] No not go to here, something is wrong! (b)
[$endif$] [$else$] b is null and c is 5 and d is 'txt'
[$if $b != 0$] b is not null
[$if $d eq 'txt'$] No not go to here, something is wrong! (a)
[$else$] No not go to here, something is wrong! (b)
[$endif$] [$elsif $c != 5 $] b is null and c is not 5
[$if $d eq 'txt'$] No not go to here, something is wrong! (a)
[$else$] No not go to here, something is wrong! (b)
[$endif$] [$elsif $d eq 'txt'$] b is null and c is not 5, but d is 'txt'
[$if $d eq 'txt'$] If we get to here it looks good with the tests
[$else$] No not go to here, something is wrong!
[$endif$] [$else$] b is null and c is 5 and d is 'txt'
[$if $d eq 'txt'$] No not go to here, something is wrong! (a)
[$else$] No not go to here, something is wrong! (b)
[$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 Ignored, ok! Not ignored, ERROR!

[$ if ($badge eq "iit") $] [$ else $] [$ endif $]

[- $cookie_badge = "iit" ; $server_type = "iii.co.uk" ; $icon_width = 1 ; $icon_height=2; -]

[$ if ($badge eq "iit") $] [$ else $] [$ endif $]

[- $icon_width = 5 ; $icon_height=10; -] [- $icon_width = 6 ; $icon_height=11; $server_type="iii" ; $badge = "iit" -]