#!/usr/bin/perl
require "sm.pl";
require "sm_html.pl";
require "sm-lib.pl";

require "cookie-lib.pl";
require "Date.pl";


&formdata;
$uid=$FORM{'uid'};
$mbr_id=$FORM{'i'};
$mode=$FORM{'m'};

&chkuid;
if ($cookieset eq "N"){
 &sh_header;
}
&sh_title ("$title");
&sh_body ($bg);
&tabs();
&menubar;
&leftbar;
if ($mode eq ""){
 &afftext;
}
else{
 &chkmand;
 if ($errflg == 0){
  $aff_email=inputchk($FORM{'m_aff_email'});
  &chkemail($aff_email);
  if ($errflg==0){
   $aff_siteurl=inputchk($FORM{'m_aff_siteurl'});
   &sndmsgin;
   &showconfirm;
  }
  else{
   &para(1);
   &sh_fmttext ($font2, $fsize, "<strong>Email address appears to be incorrect format.</strong><br>Please press the Back button.");
  }
 }
 else{
  &para(1);
  &sh_fmttext ($font2, $fsize, "<strong>Email Address and URL must be entered.</strong><br>Please press the Back button.");
 }
}
&rightbar;
&sh_mainpg4;
&sh_footer;

#************************************************************************
sub afftext{
print <<HTML;
<font face="$font2" size="$fsize">
<strong>Your own co-branded Sally Mitchell Gallery</strong><br>
This scheme is subject to intensive screening.  If your site is <strong>not</strong>
in any way relevant to the core/main subject matter of the Sally Mitchell
site, i.e. Dogs, Horses, Wildlife, Pets, Aviation, countryside, farming,
Art or Artists there is a very good chance that your application <strong>will be
declined</strong>. 
<p>
The co-branded Associate scheme is highly sophisticated, allowing you
to have your own integrated galley within your site, customised to match
your colour scheme and background and carrying your logo at the top.
<p>
We pay 30% commission on all print and card sales.<br>
We pay 20% commission on the sale of original paintings.
<p>
If you believe your site qualifies for the co-branded scheme please enter
your email address and web site URL below:
<p>
<form action="/cgi-bin/sm-aff.cgi" method="POST">
Your Email Address<br>
</font>
<input type="text" size="30" name="m_aff_email">
<p>
<font size="$fsize" face="$font2">
Web Site URL<br>
http://</font><input type="text" size="35" name="m_aff_siteurl">
<p>
<input type="submit" name="submit" value="Submit">
<input type="hidden" name="uid" value="$uid">
<input type="hidden" name="i" value="$mbr_id">
<input type="hidden" name="m" value="1">
</form>
<p>&nbsp;</p>
</font>
HTML
}


sub showconfirm{
print <<HTML;
<font face="$font2" size="$fsize">
<strong>Thank you for your interest in becoming a (co-branded gallery) Associate</strong>
<p>
Your application will be reviewed and, if successful, you will be notified within the next 10 days.<br>
<p>
We regret that we are unable to inform unsuccessful applicants nor to provide reasons why an application may have been rejected.
HTML
}


sub sndmsgin{
open (MAIL, "|$mailprog $emailcentraladmin") || die "Can't open $mailprog!\n";
print MAIL "Reply-to: $emailcentraladmin\n";
print MAIL "From: $emailcentraladmin\n";
print MAIL "To: $emailcentraladmin\n";
print MAIL "Subject: Initial Associate Application\n\n";
print MAIL "Email: $aff_email\n\n";
print MAIL "URL: http://$aff_siteurl\n\n";
print MAIL "*****************************\n";
close (MAIL);
}