#!/usr/local/bin/perl -w use CGI; $query = new CGI; @fields = qw (Contact_FirstName Contact_LastName Contact_Email country least most skill); $your_email="craig\@redarrowproductions.com"; $where_sendmail="/bin/sendmail"; print $query->header(); print $query->start_html(-title=>'Rising Sun PBEM Opponents Wanted', -background=>'./images/Bkgrnd.gif'); previo(); if ($query->param){ if(!$query->param("test")) { for ($i=0;$i<=$#fields;$i++) { if ($fields[$i] ne "ICQ" &&(!$query->param($fields[$i]) || $query->param($fields[$i]) eq "")){ error_msg($fields[$i]);exit;} } open (OUTPUT,">>data/ROpWtd.dat"); open(SENDMAIL, "|$where_sendmail -oi -t -odq"); $mail = "From: RS Website\n"; $mail = $mail."To: $your_email\n"; $mail = $mail."Subject: Rising Sun PBEM Opponents Wanted\n\n"; for ($i=0;$i<=$#fields;$i++) { print OUTPUT $query->param($fields[$i]); $tmp_test=$query->param($fields[$i]); $mail = $mail."$fields[$i]: $tmp_test\n"; print OUTPUT "%%"; } print OUTPUT "\n"; print SENDMAIL "$mail"; close (OUTPUT); close (SENDMAIL); } } # Aqui vendra todo lo de que lea de la lista open (INPUT, "data/ROpWtd.dat"); $beg=""; $int=""; $adv=""; while () { @campos = split (/%%/); $tmp="

$campos[0] $campos[1]

$campos[2]

$campos[3]

$campos[4]

$campos[5]

$campos[6]

"; if ($campos[6] eq "Beginner") { $beg = $beg.$tmp; } elsif ($campos[6] eq "Intermediate") { $int = $int.$tmp; } elsif ($campos[6] eq "Advanced") { $adv = $adv.$tmp; } } print "

Beginning Players<\/BIG><\/FONT><\/P>"; pretable(); print "$beg"; posttable(); print "

Intermediate Players<\/BIG><\/FONT><\/P>"; pretable(); print "$int"; posttable(); print "

Advanced Players<\/BIG><\/FONT><\/P>"; pretable(); print "$adv"; posttable(); post(); print $query->end_html(); sub error_msg(){ print "

Sorry, player not added, some required data wasn\'t filled.<\/B>
"; post2(); } sub previo() { print <

                    Craig H. Foster's

                                    Campaign Series Resource Center

 

Rising Sun Home
What's New
Resources
Scenarios
PBEM Opponents
NetPlay Opponents
Scenario Ratings
Charlie Awards
RS Links
Other Links
Guest 
Library

CSRC Home
East Front Home
West Front Home
Rising Sun Home
Hot War Home
Designers Guild

PBEM Opponents Wanted*

 

EOF } sub pretable(){ print <
EOF } sub posttable(){ print <

Name

Email Address

Preferred Country

Complexity          From:

Complexity            To:

Skill
Level

EOF } sub post(){ print <* In order to maximize exposure to potential opponents, fellow EF/WF playtester Tim Powers and I are sharing all submitted names. This should result in a broader circle of PBEM players!!!

Names appearing here will also appear at Tim Power's Command Center.

Home

Send Me Your PBEM Preferences

Player Information:

First Name

Last Name

E-Mail

Which country do you prefer to command?


What is the LEAST complex scenario you want to play?


What is the MOST complex scenario you want to play?


What is your skill level?


 

Home

Email me: craig\@redarrowproductions.com

Sign up for the Campaign Series Resource Center Newsletter

Enter your email address below,
then click the 'Join List' button:

Subscribe Unsubscribe
Powered by ListBot

Click to receive email
when this page changes

• Powered by NetMind •

A few words on ownership: This site and it's contents are mine. Feel free to copy or use them as you please. To the extent you wish to include things I have   created in a website of your own, please link to this site, do not repost. To the extent you modify my various files, I'd very much like a copy. I'm sure they can be made   much better. Please think of this as a team effort.

The names "East Front", "West Front" and the pictures on this page are copyright Talonsoft. "MS", "Excel 5.0" 'Word 5.0" and "Access 97" are copyright Microsoft. The  "Glenn Saunders/Charlie Kibler" files are used by permission as are the "Bob Dalton" files.

This site is done in good faith. If anyone has good reason why I have erred, please let me know and I will correct the problem.

EOF } sub post2(){ print <* In order to maximize exposure to potential opponents, fellow EF/WF playtester Tim Powers and I are sharing all submitted names. This should result in a broader circle of PBEM players!!!

Names appearing here will also appear at Tim Power's Command Center.

Home

Send Me Your PBEM Preferences

Player Information:

First Name

EOF print ""; print <

Last Name

EOF print ""; print <

E-Mail

EOF print ""; print <

Which country do you prefer to command?


What is the LEAST complex scenario you want to play?


What is the MOST complex scenario you want to play?


What is your skill level?


 

Home

Email me: craig\@redarrowproductions.com

Sign up for the Campaign Series Resource Center Newsletter

Enter your email address below,
then click the 'Join List' button:

Subscribe Unsubscribe
Powered by ListBot

Click to receive email
when this page changes

• Powered by NetMind •

A few words on ownership: This site and it's contents are mine. Feel free to copy or use them as you please. To the extent you wish to include things I have   created in a website of your own, please link to this site, do not repost. To the extent you modify my various files, I'd very much like a copy. I'm sure they can be made   much better. Please think of this as a team effort.

The names "East Front", "West Front" and the pictures on this page are copyright Talonsoft. "MS", "Excel 5.0" 'Word 5.0" and "Access 97" are copyright Microsoft. The  "Glenn Saunders/Charlie Kibler" files are used by permission as are the "Bob Dalton" files.

This site is done in good faith. If anyone has good reason why I have erred, please let me know and I will correct the problem.

EOF }