#!/usr/local/bin/perl

$testdir = 'c:/www/siteman/client/nyucfp/website/cfp20001';
$livedir = '/usr/local/ns-home/cfpweb';
$basehref = "http://$ENV{SERVER_NAME}$ENV{SCRIPT_NAME}";
$basehref =~ s/cgi\-bin\/[\x00-\xff]+//;
$basehref =~ s/[\/]+$/\//;

read (STDIN,$buffer,$ENV{CONTENT_LENGTH});

($cmd,@param) = split(/\,/,$ENV{QUERY_STRING});

$out = "<span class=\"pagehead\">BULLETIN REQUEST</span><p>\n";

if ($param[0] eq 'submit') {
	@pairs = split(/&/, $buffer);
	foreach $pair (@pairs) {
	  ($name, $value) = split(/=/, $pair);
	  $value =~ tr/+/ /;
	  $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	  $form{$name} = $value;
	}
	$reqdata = "";
	$reqdata .= "\nBulletin Request\n\n";
	$reqdata .= "\nFirst Name:  $form{firstname}";
	$reqdata .= "\nLast Name:  $form{lastname}";
	$reqdata .= "\nStreet Address:  $form{address1}";
	$reqdata .= "\nStreet Address 2:  $form{address2}";
	$reqdata .= "\nCity:  $form{city}";
	$reqdata .= "\nState:  $form{state}";
	$reqdata .= "\nZip Code:  $form{zip1} $form{zip2}";
	$reqdata .= "\nE-mail:  $form{email}";
	$reqdata .= "\nHome Phone:  $form{homephone}";
	$reqdata .= "\nWork Phone:  $form{workphone}";

	@reqdata1=($form{firstname},$form{lastname},$form{address1},$form{address2},$form{city},$form{state},$form{zip},$form{email});

	$writeUIDC = 0;
	$maxDelay = 15;
	$binfo = '';

	if ($form{bulletins} =~ /SCPS/) {
		replyMail("SCPS");
		$writeUIDC = 1;	
		$binfo .= 'WBUL    ';
		$scpsuidc = "WBUL";
	}
	if ($form{bulletins} =~ /ADSD/) {
		replyMail("Adult Undergraduate Degree");
		$writeUIDC = 1;	
		$binfo .= "ADSDWS  ";
		$adsduidc = "ADSDWS";
	}
#	if ($form{bulletins} =~ /WFTI/) {
#		replyMail("Fast-Track Intensives");
#		$writeUIDC = 1;	
#		$binfo .= "WFTI    ";
		$wftiuidc = "WFTI";
#	}
	if ($form{bulletins} =~ /MSDM/) {
		replyMail("MS Direct Marketing");
		$writeUIDC = 1;	
		$binfo .= "DMWBDM  ";
		$ms1 = "DMWBDM";
	}
	if ($form{bulletins} =~ /MSMS/) {
		replyMail("MS Management and Systems");
		$writeUIDC = 1;	
		$binfo .= "V1WBMS  ";
		$ms2 = "V1WBMS";
	}
	if ($form{bulletins} =~ /WEBU/) {
		replyMail("E-Business Brochure");
		$writeUIDC = 1;	
		$binfo .= "WEBU    ";
		$ms9 .= "WEBU";
	}
	if ($form{bulletins} =~ /MSTTM/) {
		replyMail("MS Travel and Tourism Management");
		$writeUIDC = 1;	
		$binfo .= "R6WBTT  ";
		$ms3 = "R6WBTT";
	}
	if ($form{bulletins} =~ /MSHIS/) {
		replyMail("MS Hospitality Industry Studies");
		$writeUIDC = 1;	
		$binfo .= "R7WBHS  ";
		$ms4 = "R7WBHS";
	} 
	if ($form{bulletins} =~ /MSPub/)
	{
		replyMail("MS Publishing");
		$writeUIDC = 1;	
		$binfo .= "R9PUBWS ";
		$ms5 = "R9PUBWS";
	}
	if ($form{bulletins} =~ /MSRE/) {
		replyMail("MS Real Estate");
		$writeUIDC = 1;	
		$binfo .= "R3WBMR  ";
		$ms6 = "R3WBMR";
	}
	if ($form{bulletins} =~ /APCRE/) {
		replyMail("Advanced Professional Certificate:Real Estate");
		$writeUIDC = 1;	
		$binfo .= "R4ACREWS";
		$ms7 = "R4ACREWS";
	}
	if ($form{bulletins} =~ /APCIT/) {
		replyMail("Advanced Professional Certificate:Information Technology");
		$writeUIDC = 1;	
		$binfo .= "V2WBIT  ";
		$ms8 = "V2WBIT";
	}
	if ($form{bulletins} =~ /Online/) {
		replyMail("On-line Courses");
		$writeUIDC = 1;
		$binfo .= "WOLB    ";
		$onlineuidc = "WOLB";
	}
	if ($form{bulletins} =~ /short/) {
		delayWrite("/usr/local/docs/marketing/short/shortreq");
		replyMail("Short Course");
	}
	if ($form{bulletins} =~ /BSRL/) {
		sendMail("scps.sportsbs\@nyu.edu");
		replyMail("B.S. Recreation & Leisure");
	}
	if ($form{bulletins} =~ /BSCT/) {
	        sendMail("scps.comtech\@nyu.edu");
	        replyMail("B.S. Communications Technologies");
	}
	if ($form{bulletins} =~ /BSTT/) {
		sendMail("scps.bshosp\@nyu.edu");
		replyMail("B.S. Travel & Tourism");
	}

	if ($writeUIDC) {
		if ($param[1] eq 'domestic') {
			$form{homephone} =~ s/\D//g;
			$form{workphone} =~ s/\D//g;
			@firstname = split (//,$form{firstname});
			@middleinit = split (//,$form{middleinit});
			@lastname = split (//,$form{lastname});
			@address1 = split (//,$form{address1});
			@address2 = split (//,$form{address2});
			@city = split (//,$form{city});
			@state = split (//,$form{state});
			@zip1 = split (//,$form{zip1});
			if ($form{zip2} eq '0000') {$form{zip2} = '    ';}
			@zip2 = split (//,$form{zip2});
			@country = split (//,$form{country});
			@email = split (//,$form{email});
			@homephone = split (//,$form{homephone});
			@workphone = split (//,$form{workphone});
			foreach $spot (0..17) {$bullinfo[$spot] = $firstname[$spot];}
			$bullinfo[18] = $middleinit[0];
			foreach $spot (0..17) {$bullinfo[$spot + 19] = $lastname[$spot];}
			foreach $spot (0..29) {$bullinfo[$spot + 37] = $address1[$spot];}
			foreach $spot (0..29) {$bullinfo[$spot + 67] = $address2[$spot];}
			foreach $spot (0..17) {$bullinfo[$spot + 97] = $city[$spot];}
			foreach $spot (0..1) {$bullinfo[$spot + 115] = $state[$spot];}
			foreach $spot (0..4) {$bullinfo[$spot + 117] = $zip1[$spot];}
			foreach $spot (0..3) {$bullinfo[$spot + 122] = $zip2[$spot];}
			foreach $spot (0..49) {$bullinfo[$spot + 126] = $email[$spot];}
			foreach $spot (0..9) {$bullinfo[$spot + 176] = $homephone[$spot];}
			foreach $spot (0..9) {$bullinfo[$spot + 186] = $workphone[$spot];}
			foreach $spot (0..195) {
				if (($bullinfo[$spot] eq '') || ($bullinfo[$spot] eq '\n') || ($bullinfo[$spot] eq '\r')) {
					$bullinfo[$spot] = ' ';
				}
			}
			$bullinfo = join ('',@bullinfo);

			if ($form{hearabout} eq 'nkw3') {$hearabout = 'nkw3  ';}
			elsif ($form{hearabout} eq 'nytw') {$hearabout = 'nytw  ';}
			elsif ($form{hearabout} eq 'otherw') {$hearabout = 'otherw';}
			elsif ($form{hearabout} eq 'newsw') {$hearabout = 'newsw ';}
			elsif ($form{hearabout} eq 'magw') {$hearabout = 'magw  ';}
			elsif ($form{hearabout} eq 'outadw') {$hearabout = 'outadw';}

			@binfo = split(//,$binfo);
			for (0..87) {
				if ($binfo[$_] eq '') {
					$binfo[$_] = ' ';
				}
			}
			$binfo = join('',@binfo);

			$bullinfo .= "$binfo$hearabout$form{mcgheesub}";
			$bullinfo =~ s/[\n\r]//g;
			open (UFILE,">>/usr/local/bullforms/uidcfile.dat");
			print UFILE "$bullinfo\n";
			close UFILE;print $!;

		}
		elsif ($param[1] eq 'inter') {
			$bullinfo = "\"$form{givenname}\"";
			foreach $fvalue ('familyname','businessname','title','address1','address2','address3','address4','city','state','zip1','country','email','hearabout') {
				$bullinfo .= ",\"$form{$fvalue}\"";
			}
			$bullinfo .= ",\"$scpsuidc\",\"$adsduidc\",\"$onlineuidc\",\"$ms1\",\"$ms2\",\"$ms3\",\"$ms4\",\"$ms5\",\"$ms6\",\"$ms7\",\"$ms8\",\"$ms9\",\"$form{mcgheesub}\"";
			open (UFILE,">>/usr/local/bullforms/interfile.dat");
			print UFILE "$bullinfo\n";
			close UFILE;
		}
	}
	$out .= "<span class=\"name\">Thank you for your order. You will receive an e-mail confirmation within 24 hours. If you have any further questions, please call us at (212) 998-7080.</span><p>\n";
}

elsif ($param[0] eq 'getzip') {
	@pairs = split(/&/, $buffer);
	foreach $pair (@pairs)
	{
	  ($name, $value) = split(/=/, $pair);
	  $value =~ tr/+/ /;
	  $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	  $value =~ s/\'/\'\'/g;
	  $form{$name} = $value;
	  if ($name eq "zipcode") {$zipcode = substr($value,0,5);}
	  elsif ($name eq "mcgheesub") {$mcghee = $value;}
	  else {$bulletins .= "$name;;";}
	}
	$foundzip = 0;
	$locale = 'inter';
	if ($zipcode =~ /\d\d\d\d\d/) {
		open (ZFILE,"$testdir/datafiles/zip99.txt") || (ZFILE,"$livedir/datafiles/zip99.txt") || die("can't open zipcode file!");
		while ($nextline = <ZFILE>) {
			if ($nextline =~ /$zipcode/) {
				@nextline = split (/\,/,$nextline);
				if ($nextline[2] =~ /$zipcode/) {
					$city = $nextline[0];
					$city =~ s/\"//g;
					$citylist .= "<option value=\"$city\">$city\n";
					$state = $nextline[1];
					$foundzip++;
					$locale = 'domestic';
				}
			}
		}
		close ZFILE;
		$state =~ s/\"//g;
	}
	$out .= "<script>\ndocument.forms[0].action = \"$basehref/cgi-bin/bullreq.pl?$cmd,submit,$locale\";\ndocument.forms[0].method='POST';\n</script>\n";
	$out .= "<input type=\"hidden\" name=\"bulletins\" value=\"$bulletins\">\n";
	$out .= "<input type=\"hidden\" name=\"mcgheesub\" value=\"$mcghee\">\n";


	if ($locale eq 'domestic') {
		$out .= "<span class=\"name\">Please fill out the following information to receive your bulletins:</span>
			<p>
			<table border=0 cellpadding=2 cellspacing=0 width=100%>
			<tr>
			  <td><span class=\"name\">First Name:</span></td>
			  <td><input name=\"firstname\" size=18 maxlength=18></td>
			</tr>
			<tr>
			  <td><span class=\"name\">Middle Initial:</span></td>
			  <td><input name=\"middleinit\" size=1 maxlength=1></td>
			</tr>
			<tr>
			  <td><span class=\"name\">Last Name:</span></td>
			  <td><input name=\"lastname\" size=18 maxlength=18></td>
			</tr>
			<tr>
			  <td><span class=\"name\">Company/Apartment:</span></td>
			  <td><input name=\"address1\" size=20 maxlength=30></td>
			</tr>
			<tr>
			  <td><span class=\"name\">Street Address</span></td>
			  <td><input name=\"address2\" size=30 maxlength=30></td>
			</tr>
			<tr>
			  <td><span class=\"name\">City:</span><br><span class=\"copy\">Please choose correct location from pull-down menu.</span></td>
			  <td><select name=\"city\">$citylist</select></td>
			</tr>
			<tr>
			  <td><span class=\"name\">State/Province:</span></td>
			  <td>
			      <input name=\"state\" size=2 maxlength=2 value=\"$state\">
			      <span class=\"name\">Zip:</span>
			      <input name=\"zip1\" size=5 maxlength=5 value=\"$zipcode\">-<input name=\"zip2\" size=4 maxlength=4>
			  </td>
			</tr>
			<tr>
			  <td><span class=\"name\">E-mail:</b></span></td>
			  <td><input name=\"email\" size=20 maxlength=50></td>
			</tr>
			<tr>
			  <td><span class=\"name\">Home Phone:</span></td>
			  <td><input name=\"homephone\" size=12 maxlength=12></td>
			</tr>
			<tr>
			  <td><span class=\"name\">Work Phone:</span></td>
			  <td><input name=\"workphone\" size=12 maxlength=12></td>
			</tr>
		";
	}
	else {
		$out .= "<span class=\"name\">Your zip/postal was not found within the United States. Please fill in the following international request form or click <a href=\"javascript:history.back()\">HERE</a>  to re-try your zip code</a>.
			<table border=\"0\" cellpadding=\"2\" cellspacing=\"0\" width=\"100%\">
			<tr>
			  <td><span class=\"name\">Given Name:<span class=\"name\"></td>
			  <td><input name=\"givenname\" size=25 maxlength=25></td>
			</tr>
			<tr>
			  <td><span class=\"name\">Family Name:<span class=\"name\"></td>
			  <td><input name=\"familyname\" size=25 maxlength=25></td>
			</tr>
			<tr>
			  <td><span class=\"name\">Business Name:<span class=\"name\"></td>
			  <td><input name=\"businessname\" size=25 maxlength=25></td>
			</tr>
			<tr>
			  <td><span class=\"name\">Title:<span class=\"name\"></td>
			  <td><input name=\"title\" size=25 maxlength=25></td>
			</tr>
			<tr>
			  <td><span class=\"name\">Street Address:<span class=\"name\"></td>
			  <td><input name=\"address1\" size=25 maxlength=30></td>
			</tr>
			<tr><td>&nbsp;</td><td><input name=\"address2\" size=25 maxlength=25></td></tr>
			<tr><td>&nbsp;</td><td><input name=\"address3\" size=25 maxlength=25></td></tr>
			<tr><td>&nbsp;</td><td><input name=\"address4\" size=25 maxlength=25></td></tr>
			<tr>
			  <td><span class=\"name\">City:<span class=\"name\"></td>
			  <td><input name=\"city\" size=25 maxlength=30></td>
			</tr>
			<tr>
			  <td><span class=\"name\">State/Province:<span class=\"name\"></td>
			  <td><input name=\"state\" size=25 maxlength=30></td>
			</tr>
			<tr>
			  <td><span class=\"name\">Postal Code:<span class=\"name\"></td>
			  <td><input name=\"zip1\" size=15 maxlength=20 value=\"$zipcode\"></td>
			</tr>
			<tr>
			  <td><span class=\"name\">Country:<span class=\"name\"></td>
			    <td><select name=\"country\">
			    <option>AFGHANISTAN
			    <option>ALBANIA
			    <option>ALGERIA
			    <option>AMERICAN SAMOA
			    <option>ANDORRA
			    <option>ANGOLA
			    <option>ANGUILLA
			    <option>ANTARCTICA
			    <option>ANTIGUA AND BARBUDA
			    <option>ARGENTINA
			    <option>ARMENIA
			    <option>ARUBA
			    <option>AUSTRALIA
			    <option>AUSTRIA
			    <option>AZERBAIJAN
			    <option>BAHAMAS, THE
			    <option>BAHRAIN
			    <option>BANGLADESH
			    <option>BARBADOS
			    <option>BELARUS
			    <option>BELGIUM
			    <option>BELIZE
			    <option>BENIN
			    <option>BERMUDA
			    <option>BHUTAN
			    <option>BOLIVIA
			    <option>BOSNIA AND HERZEGOVINA
			    <option>BOTSWANA
			    <option>BOUVET ISLAND
			    <option>BRAZIL
			    <option>BRITISH INDIAN OCEAN TERRITORY
			    <option>BRUNEI
			    <option>BULGARIA
			    <option>BURKINA FASO
			    <option>BURUNDI
			    <option>CAMBODIA
			    <option>CAMEROON
			    <option>CANADA
			    <option>CAPE VERDE
			    <option>CAYMAN ISLANDS
			    <option>CENTRAL AFRICAN REPUBLIC
			    <option>CHAD
			    <option>CHILE
			    <option>CHINA
			    <option>CHRISTMAS ISLAND
			    <option>COCOS (KEELING) ISLANDS
			    <option>COLOMBIA
			    <option>COMOROS
			    <option>CONGO
			    <option>COOK ISLANDS
			    <option>COSTA RICA
			    <option>COTE D'IVOIRE
			    <option>CROATIA
			    <option>CUBA
			    <option>CYPRUS, REPUBLIC OF
			    <option>CYPRUS, TURKISH REPUBLIC OF NORTHERN
			    <option>CZECH REPUBLIC
			    <option>DENMARK
			    <option>DJIBOUTI
			    <option>DOMINICA
			    <option>DOMINICAN REPUBLIC
			    <option>ECUADOR
			    <option>EGYPT
			    <option>EL SALVADOR
			    <option>EQUATORIAL GUINEA
			    <option>ERITREA
			    <option>ESTONIA
			    <option>ETHIOPIA
			    <option>FALKLAND ISLANDS
			    <option>FAROE ISLANDS
			    <option>FIJI
			    <option>FINLAND
			    <option>FRANCE
			    <option>FRANCE, METROPOLITAN
			    <option>FRENCH GUIANA
			    <option>FRENCH POLYNESIA
			    <option>FRENCH SOUTHERN TERRITORIES
			    <option>GABON
			    <option>GAMBIA, THE
			    <option>GAZA STRIP
			    <option>GEORGIA
			    <option>GERMANY
			    <option>GHANA
			    <option>GIBRALTAR
			    <option>GREECE
			    <option>GREENLAND
			    <option>GRENADA
			    <option>GUADELOUPE
			    <option>GUAM
			    <option>GUATEMALA
			    <option>GUINEA
			    <option>GUINEA-BISSAU
			    <option>GUYANA
			    <option>HAITI
			    <option>HEARD AND MC DONALD ISLANDS
			    <option>HONDURAS
			    <option>HONG KONG
			    <option>HUNGARY
			    <option>ICELAND
			    <option>INDIA
			    <option>INDONESIA
			    <option>IRAN
			    <option>IRELAND
			    <option>ISRAEL
			    <option>ITALY
			    <option>JAMAICA
			    <option>JAPAN
			    <option>JERICHO AREA
			    <option>JORDAN
			    <option>KAZAKHSTAN
			    <option>KENYA
			    <option>KIRIBATI
			    <option>KOREA, DEMOCRATIC PEOPLE'S REPUBLIC OF
			    <option>KOREA, REPUBLIC OF
			    <option>KUWAIT
			    <option>KYRGYZSTAN
			    <option>LAOS
			    <option>LATVIA
			    <option>LEBANON
			    <option>LESOTHO
			    <option>LIBERIA
			    <option>LIBYA
			    <option>LIECHTENSTEIN
			    <option>LITHUANIA
			    <option>LUXEMBOURG
			    <option>MACAU
			    <option>MACEDONIA
			    <option>MADAGASCAR
			    <option>MALAWI
			    <option>MALAYSIA
			    <option>MALDIVES
			    <option>MALI
			    <option>MALTA
			    <option>MARSHALL ISLANDS
			    <option>MARTINIQUE
			    <option>MAURITANIA
			    <option>MAURITIUS
			    <option>MAYOTTE
			    <option>MEXICO
			    <option>MICRONESIA, FEDERATED STATES OF
			    <option>MOLDOVA
			    <option>MONACO
			    <option>MONGOLIA
			    <option>MONTSERRAT
			    <option>MOROCCO
			    <option>MOZAMBIQUE
			    <option>MYANMAR (BURMA)
			    <option>NAMIBIA
			    <option>NAURU
			    <option>NEPAL
			    <option>NETHERLANDS, THE
			    <option>NETHERLANDS ANTILLES
			    <option>NEW CALEDONIA
			    <option>NEW ZEALAND
			    <option>NICARAGUA
			    <option>NIGER
			    <option>NIGERIA
			    <option>NIUE
			    <option>NORFOLK ISLAND
			    <option>NORTHERN MARIANA ISLANDS
			    <option>NORWAY
			    <option>OMAN
			    <option>PAKISTAN
			    <option>PALAU
			    <option>PANAMA
			    <option>PAPUA NEW GUINEA
			    <option>PARAGUAY
			    <option>PERU
			    <option>PHILIPPINES
			    <option>PITCAIRN ISLAND
			    <option>POLAND
			    <option>PORTUGAL
			    <option>PUERTO RICO
			    <option>QATAR
			    <option>R&Eacute;UNION
			    <option>ROMANIA
			    <option>RUSSIA
			    <option>RWANDA
			    <option>SAINT HELENA
			    <option>SAINT KITTS AND NEVIS
			    <option>SAINT LUCIA
			    <option>SAINT PIERRE AND MIQUELON
			    <option>SAINT VINCENT AND THE GRENADINES
			    <option>SAN MARINO
			    <option>SAO TOMEAND PRINCIPE
			    <option>SAUDI ARABIA
			    <option>SENEGAL
			    <option>SEYCHELLES
			    <option>SIERRA LEONE
			    <option>SINGAPORE
			    <option>SLOVAKIA
			    <option>SLOVENIA
			    <option>SOLOMON ISLANDS
			    <option>SOMALIA
			    <option>SOUTH AFRICA
			    <option>SPAIN
			    <option>SRI LANKA
			    <option>SUDAN, THE
			    <option>SURINAME
			    <option>SVALBARD AND JAN MAYEN ISLANDS
			    <option>SWAZILAND
			    <option>SWEDEN
			    <option>SWITZERLAND
			    <option>SYRIA
			    <option>TAIWAN
			    <option>TAJIKISTAN
			    <option>TANZANIA
			    <option>THAILAND
			    <option>TOGO
			    <option>TOKELAU
			    <option>TONGA
			    <option>TRINIDAD AND TOBAGO
			    <option>TUNISIA
			    <option>TURKEY
			    <option>TURKMENISTAN
			    <option>TURKS AND CAICOS ISLANDS
			    <option>TUVALU
			    <option>UGANDA
			    <option>UKRAINE
			    <option>UNITED ARAB EMIRATES
			    <option>UNITED KINGDOM
			    <option>UNITED STATES
			    <option>URUGUAY
			    <option>UZBEKISTAN
			    <option>VANUATU
			    <option>VATICAN CITY STATE (HOLY SEE)
			    <option>VENEZUELA
			    <option>VIETNAM
			    <option>VIRGIN ISLANDS, BRITISH
			    <option>VIRGIN ISLANDS, U.S.
			    <option>WALLIS AND FUTUNA
			    <option>WEST BANK
			    <option>WESTERN SAHARA
			    <option>WESTERN SAMOA
			    <option>YEMEN
			    <option>YUGOSLAVIA
			    <option>ZAIRE
			    <option>ZAMBIA
			    <option>ZIMBABWE
			    </select>
			  </td>
			</tr>
			<tr>
			  <td><span class=\"name\">E-mail:<span class=\"name\"></td>
			  <td><input name=\"email\" size=25 maxlength=50></td>\
			</tr>
		";
	}

	$out .= "
		<tr>
		  <td><span class=\"name\">Where did you hear<br>about NYU SCPS?</span></td>
		  <td>
		      <select name=\"hearabout\">
		      <option value=\"\" selected>Please Choose
		      <option value=\"nkw3\">Postcard
		      <option value=\"nytw\">NY Times Online
		      <option value=\"otherw\">Other Web Site
		      <option value=\"newsw\">Newspaper
		      <option value=\"magw\">Magazine
		      <option value=\"outadw\">Outdoor Ad
		      </select>
		  </td>
		</tr>
		<tr><td colspan=\"2\"><input type=\"submit\" value=\" Submit Request \"></td></tr>
		</table>
	";
}

elsif ($param[0] eq '') {
	$out .= "
		<script>
		document.forms[0].action = '$basehref/cgi-bin/bullreq.pl?$cmd,getzip';
		document.forms[0].method = 'POST';
		</script>
		<p><span class=\"name\">Please check the bulletins / brochures you would like to receive and enter your zip/postal code below.</span>
		<p><input type=\"checkbox\" name=\"SCPS\"><span class=\"name\">SCPS Bulletin</span> (To be mailed mid-July 2000)</font>
		<BR><input type=\"checkbox\" name=\"Online\"> <span class=\"name\">Online Courses</span>
		<hr width=\"35%\" align=\"left\">
		<input type=\"checkbox\" name=\"ADSD\"> <span class=\"name\">Paul McGhee Undergraduate Degree Program for Adults</span><br>
		<ul>
		<p><span class=\"name\">If you are interested in a specific field, please choose:</span><br>
		<input type=\"radio\" name=\"mcgheesub\" value=\"TA\" onclick=\"javascript:void(0)\"> <span class=\"name\">Business</span><br>
		<input type=\"radio\" name=\"mcgheesub\" value=\"TB\" onclick=\"javascript:void(0)\"> <span class=\"name\">Allied Health</span><br>
		<input type=\"radio\" name=\"mcgheesub\" value=\"TK\" onclick=\"javascript:void(0)\"> <span class=\"name\">Liberal Arts</span><br>
		<input type=\"radio\" name=\"mcgheesub\" value=\"TA\" onclick=\"javascript:void(0)\"> <span class=\"name\">Real Estate</span><br>
		<input type=\"radio\" name=\"mcgheesub\" value=\"TH\" onclick=\"javascript:void(0)\"> <span class=\"name\">Undecided</span>
		</ul>
		<hr width=\"35%\" align=\"left\">
		<BR><input type=\"checkbox\" name=\"BSTT\"> <span class=\"name\">B.S. Hotel & Tourism Management</span>
		<BR><input type=\"checkbox\" name=\"BSRL\"> <span class=\"name\">B.S. Sports Management & Leisure Studies</span>
		<BR><input type=\"checkbox\" name=\"BSCT\"> <span class=\"name\">B.S. Communications Technologies</span>
		<p>
		<span class=\"name\">Zip/Postal Code:</span> <input name=\"zipcode\" size=\"5\" maxlength=\"5\">
		<input type=\"submit\" value=\"Submit Request\"> 
		<p>
	";
}


if (open(FILE,"$testdir/Study_Options$cmd.html") || open(FILE,"$livedir/Study_Options$cmd.html")) {
	while ($nextline = <FILE>) {
		$content .= $nextline;
	}
	close FILE;
}
else {die ("Cannot read index file!!!\n");}

$content =~ s/studon\.gif/studoff\.gif/gi;
$content =~ s/bulloff\.gif/bullon\.gif/gi;

$content =~ s/location=\'/location=\'$basehref/g;
$titlebase = "<title>NYU Center for Publishing Bulletin Request<\/title>
<base href=\"$basehref\">
";

$content =~ s/<title>[\x00-\xff]*<\/title>/$titlebase/i;
$content =~ s/(<!--BEGIN_PAGE_TEXT-->)[\x00-\xff]*(<!--END_PAGE_TEXT-->)/$out/;
$content =~ s/<!--BEGIN_NAVIGATION_MENU-->[\x00-\xff]*<!--END_NAVIGATION_MENU-->//;
$content =~ s/<table width=\"200\"/<table width=\"90\"/;
print "content-type: text/html

$content
";


sub delayWrite
{
	local($file) = @_;
	$maxDelay = 5;
	$writeDelay = 0;
	$success = 0;
	$errors = "";
	while ($writeDelay <= $maxDelay)
	{
		if (open (WFILE,">> $file"))
		{
			$success = write WFILE;
			close (WFILE);
			last;
		}
		else
		{
			$errors .= "$!\n";
		}
		sleep ++$writeDelay;
	}
	if ($success == 0)
	{
		print "Unable to write bulletin request to $file:\n $errors";
	}
}

sub sendMail
{
	local($tomail) = @_;
	open (MAIL,"|/usr/sbin/sendmail -t -n -oi") || die "there was a problem with the call to sendmail";
	print MAIL "To: $tomail\n";
	print MAIL "From: $form{'firstname'} $form{'lastname'}\n";
	print MAIL "Reply-To: $form{'email'}\n";
	print MAIL "Subject: Bulletin Request\n\n";
	print MAIL $reqdata;
	close(MAIL);
}

sub replyMail
{
	local($bul_name) = @_;
	$mail_output = "Dear $form{firstname},\n\n";
	$mail_output .= "The $bul_name bulletin/brochure will be sent to you when it becomes available.\n\n";
	$mail_output .= "If you have any further questions, please call us at (212) 998-7080.\n\n";
	$mail_output .= "Thank you for inquiring about NYU's School of Continuing and Professional Studies.\n";
	open (MAIL,"|/usr/sbin/sendmail -t -n -oi") || die "there was a problem with the call to sendmail";
	print MAIL "To: $form{email}\n";
	print MAIL "From: NYU SCPS\n";
	print MAIL "Reply-To: scpsinfo\@nyu.edu\n";
	print MAIL "Subject: Bulletin Request\n\n";
	print MAIL $mail_output;
	close(MAIL);
}

format WFILE =
@<<<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<<<<<@<@<<<<@>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
$reqdata1[0],	$reqdata1[1],	$reqdata1[2],	$reqdata1[3],	$reqdata1[4],	$reqdata1[5],	$reqdata1[6],	$reqdata1[7]
.