home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #7 / amigamamagazinepolishissue1998.iso / www / amigasoc / orig / cgi-bin / usergroup.pl < prev   
Perl Script  |  1997-12-12  |  4KB  |  88 lines
  1. #!/usr/local/mbin/perl
  2.  
  3. require "cgi-lib";
  4.  
  5. &ReadParse;
  6.  
  7. #check for existance of URL
  8. if ($in{homepage} =~/http:\/\/$/) {
  9.     $groupname=$in{groupname};
  10.     }
  11. else {
  12.     $groupname=qq|<a href="$in{homepage}">$in{groupname}</a>|;
  13.     }
  14.  
  15. #check to see if primary contact has an email address
  16. if ($in{primaryemail} ne "") {
  17.     $primecontact=qq|<a href="mailto:$in{primaryemail}">$in{primarycontactname}</a>|;
  18.     }
  19. else {
  20.     $primecontact=$in{primarycontactname};
  21.     }
  22.  
  23. #check to see if secondary contact has an email address
  24. if ($in{secemail} ne "") {
  25.     $seccontact=qq|<a href="mailto:$in{secemail}">$in{seccontactname}</a>|;
  26.     }
  27. else {
  28.     $seccontact=$in{seccontactname};
  29.     }
  30.  
  31. #Header
  32. print "Content-type:text/html\n\n";
  33. print "<title>Thank you for registering</title>";
  34. print qq{<body background="../images/paletile.gif">};
  35. print qq{<center><img src="../images/logo.gif"></center><br><br>};
  36. print "<strong>$in{groupname}</strong>, thank you for registering. ";
  37. print "Your usergroup entry will be added as soon as it has been checked.<br>";
  38. print "A preview of your entry has been created below.<br>";
  39. print qq{<img src="../images/amigasocsig.gif"><br><br>};
  40. #Entry Generation
  41. print qq|<table><tr><td colspan=8><font size="5">$groupname</font><br></td></tr>|;
  42. print "<tr><td colspan=2><strong>MEETINGS</strong><br><hr width=100%></td><td width=5></td>";
  43. print "<td colspan=5><strong>CONTACT INFORMATION<strong><br><hr width=100%></td></tr>";
  44. print "<tr><td align=right valign=top><strong>Venue:</strong></td><td valign=top>$in{venue}<br>$in{location}</td>";
  45. print "<td></td><td valign=top align=right><strong>Contact 1:</strong></td>";
  46. print "<td valign=top>$primecontact<br>";
  47. print "$in{primadd1}<br>$in{primadd2}<br>$in{primadd3}<br>$in{primadd4}</td>";
  48. print "<td width=5></td><td valign=top align=right><strong>Contact 2:</strong></td>";
  49. print "<td valign=top>$seccontact<br>";
  50. print "$in{secadd1}<br>$in{secadd2}<br>$in{secadd3}<br>$in{secadd4}</td></tr>";
  51. print "<tr><td colspan=6></td></tr>";
  52. print "<tr><td valign=top align=right><strong>Time:</strong></td><td valign=top>$in{freq}";
  53. print "<br>$in{time}</td> <td></td><td align=right valign=top><strong>Telephone:</strong></td>";
  54. print "<td valign=top>$in{dayphone1}<br>$in{evephone1}</td>";
  55. print "<td></td><td align=right valign=top><strong>Telephone:</strong></td>";
  56. print "<td valign=top>$in{dayphone2}<br>$in{evephone2}</td></tr>";
  57. print "<tr><td colspan=2><hr width=100%></td><td></td><td colspan=5><hr width=100%></td></tr></table>";
  58. print "$in{Description}";
  59. print "</body></html>";
  60.  
  61. #Mail the generated html and the contents of the form to me
  62. open(MAIL,"|mail chrisl\@cursci.co.uk");
  63. print MAIL "Subject: UserGroup Form\n";
  64. print MAIL qq|<table><tr><td colspan=8><font size="5">$groupname</font><br></td></tr>\n|;
  65. print MAIL "<tr><td colspan=2><strong>MEETINGS</strong><br><hr width=100%></td><td width=5></td>\n";
  66. print MAIL "<td colspan=5><strong>CONTACT INFORMATION<strong><br><hr width=100%></td></tr>\n";
  67. print MAIL "<tr><td align=right valign=top><strong>Venue:</strong></td><td valign=top>$in{venue}<br>$in{location}</td>\n";
  68. print MAIL "<td></td><td valign=top align=right><strong>Contact 1:</strong></td>\n";
  69. print MAIL "<td valign=top>$primecontact<br>\n";
  70. print MAIL "$in{primadd1}<br>$in{primadd2}<br>$in{primadd3}<br>$in{primadd4}</td>\n";
  71. print MAIL "<td width=5></td><td valign=top align=right><strong>Contact 2:</strong></td>\n";
  72. print MAIL "<td valign=top>$seccontact<br>\n";
  73. print MAIL "$in{secadd1}<br>$in{secadd2}<br>$in{secadd3}<br>$in{secadd4}</td></tr>\n";
  74. print MAIL "<tr><td colspan=6></td></tr>\n";
  75. print MAIL "<tr><td valign=top align=right><strong>Time:</strong></td><td valign=top>$in{freq}\n";
  76. print MAIL "<br>$in{time}</td> <td></td><td align=right valign=top><strong>Telephone:</strong></td>\n";
  77. print MAIL "<td valign=top>$in{dayphone1}<br>$in{evephone1}</td>\n";
  78. print MAIL "<td></td><td align=right valign=top><strong>Telephone:</strong></td>\n";
  79. print MAIL "<td valign=top>$in{dayphone2}<br>$in{evephone2}</td></tr>\n";
  80. print MAIL "<tr><td colspan=2><hr width=100%></td><td></td><td colspan=5><hr width=100%></td></tr></table>\n";
  81. print MAIL "$in{Description}\n\n\n";
  82.  
  83. foreach $i (keys(%in))
  84. {
  85.     print MAIL "$i = $in{$i}\n";
  86. }
  87. close (MAIL);
  88.