</box>
</define-tag>
+<define-tag fortune>
+<preserve title source>
+<set-var %attributes>
+
+<if <not <get-var title>> <set-var title="Random Fortune Cookie">>
+
+<format_cookie>
+<div class=fortune>
+<div class=fortune-body>
+<h3 class=fortune-title><get-var title></h3>
+<div class=fortune-content>
+
+<?
+ if (is_file ("<get-var source>")) {
+ $fortune = fopen ("<get-var fortune>", "r");
+ } else {
+ $fortune = popen ("<get-var fortune>", "r");
+ }
+ if ($fortune) {
+ $cookie = array ();
+ while (!feof ($fortune)) {
+ $line = fgets ($fortune, 255);
+ $cookie[] = $line;
+ }
+ if (is_file ("<get-var source>")) {
+ fclose ($fortune);
+ } else {
+ pclose ($fortune);
+ }
+ echo format_cookie ($cookie);
+ } else {
+ echo "<p>No fortune today.</p>";
+ }
+?>
+
+</div>
+</div>
+</div>
+
+<restore title source>
+</define-tag>
+
# Local variables:
# mode: text
# mode: auto-fill