UBB.Developers Forums UBB.classic V6.4 - 6.7 Modifications International Support birthday - auto send mail

if ($ubb eq 'mail') {
        &RequireCode("$vars_config{CGIPath}/ubb_birthday.cgi");
        &mail;
        exit(0);
}

# UBB Public Forum BIRTHDAY MAIL : Perl Code
# by me ... robert zernisch

&RequireCode("$vars_config{CGIPath}/ubb_lib_posting.cgi");
&RequireCode("$vars_config{CGIPath}/ubb_lib_2.cgi");

sub birthday {

	# set date/time
	@LG_real_date = &GetDateTime;
	my @LG_check_date = split(/\-/, $LG_real_date[13]);

	# this is today in: day.month.
	$the_checker = "$LG_check_date[1].$LG_check_date[0].";
	$the_mail_ko = "$LG_check_date[1].$LG_check_date[0].$LG_check_date[2]";

	#print $the_checker;
	#print "<br><br><br>";


		#LG grab member list
		@LG_members_array = &OpenFileAsArray("$vars_config{MembersPath}/memberslist.cgi");

		#LG set counters to zero
		$LG_counter   = 0;
		$LG_total_mem = 0;

		#LG look for the members
		foreach (@LG_members_array) {
			($LG_usertmp, $LG_usernumtmp) = split(/\|\!\!\|/, $_); chomp($LG_usernumtmp);
			@LG_user_array = &OpenProfile($LG_usernumtmp);


				#LG birthday inside? print ... name, birthday, mail
				if ($LG_user_array[32] != ""){

					my @LG_birthday   = split(/\|/, $LG_user_array[32]);
					my $LG_year       = int($LG_birthday[0] / 10000);
					my $LG_month      = sprintf("%0.2d", int($LG_birthday[0] / 100) - $LG_year * 100);
					my $LG_day        = sprintf("%0.2d", $LG_birthday[0] - ($LG_year * 10000 + $LG_month * 100));
					$LG_date       	  = "$LG_day.$LG_month.";

					### name				  day.month.		mailadress
					### $LG_user_array[15] 	  $LG_date 		    $LG_user_array[2];

					my @LG_birthmail  = split(/\@/, $LG_user_array[2]);
					$LG_birthmail_all = $LG_birthmail[0] . "\@" . $LG_birthmail[1];


if ($LG_date eq $the_checker){
################################################################
my $subject    = "Herzlichen Glückwunsch zum Geburtstag $LG_user_array[15]!";
my $send_from  = "info\@dresden-web.de";
my $send_to    = $LG_birthmail_all;

# mailcontent
my $content    = "
Alles Gute zum Geburtstag ... $LG_user_array[15].\n
Die Community www.dresden-web.de wünscht dir einen schönen Geburtstag\n
und alles Gute heute am $the_mail_ko. Das ist dein Tag.\n\n\n
";


&RequireVars("$vars_config{VariablesPath}/vars_wordlets_email.cgi");
&RequireCode("$vars_config{CGIPath}/ubb_lib_mail.cgi");

&ubb_mail("$send_to", "$send_from", "$send_from", "$send_from", "$subject", "$content", "", "");
print "MAIL: $send_to | $send_from | $subject | $content <br><br>";
################################################################
}


				}


			$LG_total_mem++;
		}
}



# DANGER: Do not remove the next line!
1;
# $Id: ubb_birthday.cgi,v 1.0 2006/11/04 16:00:00 cvscapps Exp $