diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

http package (only partially working)

Browse Source
This commit is contained in:
Vítor Santos Costa
2010-06-23 11:52:34 +01:00
parent 6e956b879a
commit 4694a50fa5
98 changed files with 20952 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
packages/http/examples/pwp/index.pwp Normal file
View File

@@ -0,0 +1,25 @@
<?xml version="1.0"?>
<!DOCTYPE html>
<html xmlns:pwp="http://www.cs.otago.ac.nz/staffpriv/ok/pwp.pl">
<head>
<title>Index for PWP demos</title>
</head>
<body pwp:ask="atom_concat(SCRIPT_DIRECTORY, /, Prefix),
atom_concat(Prefix, '*.pwp', Pattern),
expand_file_name(Pattern, Paths),
maplist(atom_concat(Prefix), Files, Paths)">
<h1>PWP scripts in this directory</h1>
<ul>
<li pwp:ask="member(F, Files), F \== 'index.pwp'">
<a pwp:use="F" pwp:att="$" href="$(F)$"/>
<a pwp:att="$" href="$(F)$?view=source">source</a>
</li>
</ul>
</body>
</html>