Examples / References
| Demo Pages | Referencess |
References
Here you can find the list of known Webpages, Webareas and Websites other people have created by the help of Website Meta Language. If you have created something yourself via WML too or at least know someone who has, please contact us for being included in this list:
In the list below, square items are used when wml source files
are available, replacing the file suffix by .wml.
____________________
-
) {
next if (m|^\s*$|);
next if (m|^\s*#.*$|);
s/::\s*$//;
$_ = CGI::escapeHTML($_);
if (m|^(.+?)::(.+?)::(.+?)::(.+?)::(.+?)$|) {
($url, $descr, $name, $email, $tmpl) = ($1, $2, $3, $4, $5);
} elsif (m|^(.+?)::(.+?)::(.+?)::(.+?)$|) {
($url, $descr, $name, $email, $tmpl) = ($1, $2, $3, $4, '');
} elsif (m|^(.+?)::(.+?)::(.+?)$|) {
($url, $descr, $name, $email, $tmpl) = ($1, $2, $3, '', '');
} else {
next;
}
if ($tmpl eq '') {
$li_type = "disc";
} else {
$li_type = "square";
}
$url =~ s/HTTP:/http:/;
$urltxt = $url;
$url =~ s|^http://|/exit/track/http/|;
$tmpl =~ s|^http://|/exit/track/http/| if ($tmpl ne '');
$urltxt =~ s|^http://||;
$urltxt =~ s|/$||;
print "<"."li class=\"$li_type\">";
print "<"."a href=\"$url\">$urltxt\n";
print " <"."a href=\"$tmpl\">(Templates)\n"
if ($tmpl ne '');
print "
$name"; print ", <"."a href=\"mailto:$email\" class=\"email\">"."$email" if ($email ne ''); print "
\n"; print "$descr\n"; print "\n"; } close(FP); !>