#use wml::std::box

# <quotebox [lang={deutsch|english}] [type={linux|infodrom|general}]>
#
<define-tag quotebox>
  <preserve lang type btitle error fortune>
  <set-var %attributes>
  <if <not <get-var lang>>  <set-var lang=deutsch>>
  <if <not <get-var type>>  <set-var type=general>>

  <ifeq "<get-var lang>" "deutsch"  "<set-var btitle="Zitat des Tages">">
  <ifeq "<get-var lang>" "english"  "<set-var btitle="Quote of the day">">

  <ifeq "<get-var lang>" "deutsch"  "<set-var error="Leider heute kein Zitat.">">
  <ifeq "<get-var lang>" "english"  "<set-var error="Sorry, no quote today.">">

  <ifeq "<get-var type>" "infodrom"  "<set-var fortune="<root_prefix>fortune-infodrom.html">">
  <ifeq "<get-var type>" "linux"     "<set-var fortune="<root_prefix>fortune-linux.html">">

  <ifeq "<get-var type>" "general"
    <ifeq "<get-var lang>" "english"
      "<set-var fortune="<root_prefix>fortune-general-en.html">"
      "<set-var fortune="<root_prefix>fortune-general.html">"
    >
  >

  <center><box header="<ifont><font size=-1 color="#<box-fgcolor>"><b><get-var btitle></b></font></ifont>"
	bdcolor="#<box-bdcolor>" bdwidth=1 bdspace=10 width=100
	bgcolor="#<box-bgcolor>">
    <ifont><font size=-1 color="#<box-fgcolor>">
    <?
      # FIXME: Was gibt fopen() zurück, wenn die Datei nicht geöffnet werden konnte?
      if (is_file ("<get-var fortune>") && (($fortune = fopen ("<get-var fortune>", "r")) !== false)) {
	while (!feof ($fortune)) {
	  $line = fgets ($fortune, 255);
	  echo $line;
	}
	fclose ($fortune);
      } else {
	echo "<get-var error>";
      }
    ?>
    </font></ifont>
  </box></center>
  <restore lang type btitle error fortune>
</define-tag>






# -- [ Old ] -----------------------------------------------------------
#
# Quote of the day boxes
#
# quotebox-de-shtml
# quotebox-en-shtml
# quotebox-de-php
# quotebox-en-php
#

# FIXME: Schöner wäre es, wenn ich %0 == "" -> .fortune, sonst %0 abfragen könnte

<define-tag quotebox-de-shtml whitespace=delete>
  <box header="<ifont><font size=-1 color="#<box-bdcolor>"><b>Zitat des Tages</b></font></ifont>"
       bdcolor="#<box-bdcolor>" bdwidth=2 bdspace=10
       bgcolor="#<box-bgcolor>"
       width=500>
    <font face="helvetica,arial" size=-1 color="#<box-fgcolor>">
    <!--#include file="%0"-->
    </font>
  </box>
</define-tag>

<define-tag quotebox-en-shtml whitespace=delete>
  <box header="<ifont><font size=-1 color="#<box-fgcolor>"><b>Quote of the day</b></font></ifont>"
       bdcolor="#<box-bdcolor>" bdwidth=2 bdspace=10
       bgcolor="#<box-bgcolor>">
    <font face="helvetica,arial" size=-1 color="#<box-fgcolor>">
    <!--#include file="%0"-->
    </font>
  </box>
</define-tag>

<define-tag quotebox-en-php whitespace=delete>
  <box header="<ifont><font size=-1 color="#<box-fgcolor>"><b>Zitat des Tages</b></font></ifont>"
       bdcolor="#<box-bdcolor>" bdwidth=2 bdspace=10
       bgcolor="#<box-bgcolor>">
    <font face="helvetica,arial" size=-1 color="#<box-fgcolor>">
<?
  if (($fortune = fopen ("index-fortune.html", "r")) !== false) {
    while (!feof ($fortune)) {
      $line = fgets ($fortune, 255);
      echo $line;
    }
    fclose ($fortune);
  }
?>
    </font>
  </box>
</define-tag>

<define-tag quotebox-en-php whitespace=delete>
  <box header="<ifont><font size=-1 color="#<box-fgcolor>"><b>Quote of the day</b></font></ifont>"
       bdcolor="#<box-bdcolor>" bdwidth=2 bdspace=10
       bgcolor="#<box-bgcolor>">
    <font face="helvetica,arial" size=-1 color="#<box-fgcolor>">
<?
  if (($fortune = fopen ("index-fortune.html", "r")) !== false) {
    while (!feof ($fortune)) {
      $line = fgets ($fortune, 255);
      echo $line;
    }
    fclose ($fortune);
  }
?>
    </font>
  </box>
</define-tag>

<define-tag format_cookie>
<?php
  function format_cookie ($cookie, $bg)
  {
    $pre = 0;
    $fsource = "<div class=\"fortune-attribution\"><span style=\"display: none;\">-- </span>%s</div>";
    $attribution = 0;

    $result = '<div class="fortune_'.$bg.'">';
    $firstchar = substr ($cookie[0], 0, 1);
    if ( ($firstchar == "<")
      || ($firstchar == ">")
      || ($firstchar == "*")
      || ($firstchar == " ")
      || ($firstchar == "[") ) {
      $pre = 1;
      $result .= "<pre class=\"smallfont\">\n";
    } else {
      $result .= "<p>\n";
    }

    for ($i=0; $i < count ($cookie); $i++) {
      $line = $cookie[$i];
      $line = str_replace (array("<", ">"), 
			   array("&lt;", "&gt;"),
			   $line);

      if (preg_match('/^\t\t?-- (.*)/', $line, $matches)) {
	$line = rtrim($matches[1]);
	if ($pre) {
	  $pre = 0;
	  $result .= "</pre>\n";
	} else {
	  $result .= "</p>\n";
	}
	$result .= sprintf ($fsource, $line);
	$attribution = 1;
      } else {
        if (!$pre && substr($line, 0, 1) == ' ')
	  $result .= "<br>";
	$result .= $line;
      }
    }
    if (!$attribution) {
      if ($pre) {
	$pre = 0;
	$result .= "</pre>\n";
      } else {
	$result .= "</p>\n";
      }
    }
    $result .= "</div>\n";

    return $result;
  }
?>
</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 id=fortune>

<?
  if (is_file ("<get-var source>")) {
    $fortune = fopen ("<get-var source>", "r");
  } else {
    $fortune = popen ("<get-var source>", "r");
  }
  if ($fortune !== false) {
    $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, 0);
  } else {
    echo "<p>No fortune today.</p>";
  }  
?>

</div>
</div>
</div>

<restore title source>
</define-tag>

# Local variables:
# mode: text
# mode: auto-fill
# end: