Offer a means to add a date
[infodrom.org/www.infodrom.org] / 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 ($date) > 0)
13     &&(strlen ($url) > 0)) {
14
15     $header = "From: $name <$email>";
16     $header = strtr($header, "\015\012", '  ');
17 <protect>
18     $body = "Event      : " . $event . "\n"
19            ."Date       : " . $date . "\n"
20            ."URL        : " . $url . "\n"
21            ."Description: " . $description . "\n"
22            ."\n"
23            ."HTTP_USER_AGENT: " . $HTTP_USER_AGENT . "\n"
24            ."REMOTE_ADDR    : " . $REMOTE_ADDR . "\n"
25            ."REMOTE_HOST    : " . $REMOTE_HOST . "\n";
26 </protect>
27     mail ("joey@infodrom.org", "New event", $body, $header);
28     echo ("<p>Thanks for the note.</p><p>It'll be procesdsed soon.</p>");       
29   } else {
30     echo ("<p><b>You haven't completed the form.</b></p><p>Please go back and fill out all fields.</p>.");      
31   }
32 ?>
33
34 <p>Download <a href="calendar.ics">iCal</a> or <a href="calendar.rdf">RSS</a> calendar file.</p>
35
36 </page>
37
38 # Local variables:
39 # mode: indented-text
40 # mode: auto-fill
41 # end: