Examples / References
| JumpStart | Demo Pages | WML Itself | Author Refs | User Refs |
Note!
This page has moved to the wiki. The list below may be synchronised from it from time to time but that may not happen regularly.
Feel free to add your own user reference there.
User Reference Page
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 add an entry to 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;
$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); !>