No longer interested in receiving these updates? You can cancel
your membership on HBCUCONNECT.COM,
but you won't be notified of the latest HBCU News and site updates!
We Fully Support the CAN-SPAM Act
HBCU Connect, LLC
750-Q Cross Pointe Road
Columbus, Ohio 43230
(614) 864-4446
~;
}
###########################################
sub setTextMessage() {
my ($text) = $_[0];
$TextMessage = qq~
$text
--------------------------------------------------------------------
LATEST SCHOLARSHIP OFFERS
--------------------------------------------------------------------
http://hbcuconnect.com/cgi-bin/scholarships.cgi
--------------------------------------------------------------------
Brought to you by: www.HBCUConnect.com
--------------------------------------------------------------------
750 Cross Pointe Rd, Suite Q
Columbus, Ohio 43230
614.864.4446
--------------------------------------------------------------------
Unsubscribe: www.hbcuconnect.com/cgi-bin/unsubscribe.cgi
~;
}
sub validAddress()
{
return 0 if $_[0] =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)/;
return 0 if $_[0] !~ /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,3}|[0-9]{1,3})(\]?)$/;
return 1;
}
#################################################
sub privateMessage() {
my ($dbh,$to_id,$from_id,$subject,$message) = @_;
#### This function assumes a database connection is already made
my $sql = "INSERT INTO hbcu_love_messages set to_id=?, from_id=?, subject=?,
message=?, ts=now()";
my $sth = $dbh->prepare($sql);
$sth->execute($to_id,$from_id,$subject,$message)
|| print $sth->errstr();
}
sub notSpam() {
return 0 if $_[0] =~ /viagra/i;
return 0 if $_[0] =~ /ephedrine|lipodrine/i;
return 0 if $_[0] =~ /cialis/i;
return 0 if $_[0] =~ /levitra/i;
return 0 if $_[0] =~ /ringtones/i;
return 0 if $_[0] =~ /vimpex/i;
return 0 if $_[0] =~ /mail\.ru/i;
return 0 if $_[0] =~ /ring tones/i;
return 0 if $_[0] =~ /payday loan/i;
return 1;
}
1;
