git.infodrom.org Git - infodrom.org/www.infodrom.org/blob - src/Linux/submitit.wml

   1 #include <infodrom.style>
   2 #include <linux.style>
   3
   4 <page title="Upcoming Events Calendar">
   5
   6 <h1 align=center>Upcoming Events Calendar</h1>
   7
   8 <?
   9   if ((strlen ($email) > 0)
  10     &&(strlen ($name) > 0)
  11     &&(strlen ($event) > 0)
  12     &&(strlen ($url) > 0)) {
  13
  14     $header = "From: $name <$email>";
  15     $header = strtr($header, "\015\012", '  ');
  16 <protect>
  17     $body = "Event      : " . $event . "\n"
  18            ."URL        : " . $url . "\n"
  19            ."Description: " . $description . "\n"
  20            ."\n"
  21            ."HTTP_USER_AGENT: " . $HTTP_USER_AGENT . "\n"
  22            ."REMOTE_ADDR    : " . $REMOTE_ADDR . "\n"
  23            ."REMOTE_HOST    : " . $REMOTE_HOST . "\n";
  24 </protect>
  25     mail ("joey@infodrom.org", "New event", $body, $header);
  26     echo ("<p>Thanks for the note.</p><p>It'll be procesdsed soon.</p>");
  27   } else {
  28     echo ("<p><b>You haven't completed the form.</b></p><p>Please go back and fill out all fields.</p>.");
  29   }
  30 ?>
  31
  32 <p>Download <a href="calendar.ics">iCal</a> or <a href="calendar.rdf">RSS</a> calendar file.</p>
  33
  34 </page>
  35
  36 # Local variables:
  37 # mode: indented-text
  38 # mode: auto-fill
  39 # end: