require "hometeamz_lib.pm"; ################################################################ ### Convert Date from mm/dd/yyyy to yyyy-mm-dd for DB ################################################################ sub convert_date_no_time_to_db{ my $date = shift; my ($month,$day,$year) = split(/\//,$date); my $return_date = "$year-$month-$day"; return $return_date; } ################################################################ ### Convert Date from yyyy-mm-dd to mm/dd/yyyy for Display ################################################################ sub convert_date_no_time_to_display{ my $date = shift; my ($year,$month,$day) = split(/-/,$date); my $return_date = "$month/$day/$year"; return $return_date; } ################################################################ ### Get the current (month or year) ### Inputs: Month or year ### Return: Current (Month Or Year) ################################################################ sub get_current { my $return_type = shift; my $current_time = timelocal((localtime)[0..5]); my $return_string = 0; my($sec, $min, $hour, $day, $month, $year, $wday, $yday, $isdst) = localtime($current_time); if($return_type eq "year"){ #Add 1900 to Years, because it begins at 1900, ex 2004=104; $year = $year + 1900; $return_string = $year; }elsif($return_type eq "month"){ #Jan = 0 $month = $month +1; $return_string = $month; } return $return_string; } ################################################################ ### Get the last day of the month ### Inputs: Month and year of the last day ### Return: Last day of the month ################################################################ sub get_last_day { my $current_month = shift; my $current_year = shift; my $return_string = 0; my $last_day = 28; my ($sec, $min, $hour, $day, $month, $year, $wday, $yday, $isdst); $month = $current_month; $current_time = timelocal(0,0,0,$last_day,$current_month-1,$current_year-1900); while($month == $current_month){ $current_time = $current_time + (60 * 60 * 24); ($sec, $min, $hour, $day, $month, $year, $wday, $yday, $isdst) = localtime($current_time); #Jan = 0 so add one $month++; if($month != $current_month){ $return_day = $last_day; }else{ $last_day = $day; } } return $return_day,$return_dow; } ################################################################ ### Get the day of week (mon, tue, etc) ### Inputs: Month day year ### Return: Day of the week ################################################################ sub get_day_of_week { my $current_month = shift; my $current_day = shift; my $current_year = shift; my $return_string = 0; my ($sec, $min, $hour, $day, $month, $year, $wday, $yday, $isdst); $current_time = timelocal(0,0,0,$current_day,$current_month-1,$current_year-1900); ($sec, $min, $hour, $day, $month, $year, $wday, $yday, $isdst) = localtime($current_time); $return_string = $wday; return $return_string; } ################################################################ ### print_extra_day is used to print the days before and ### after the month to fill the calendar ################################################################ sub print_extra_day { my $current_month = shift; my $current_year = shift; my $extra_type = shift; my $days_offset = shift; my $start_day = shift; my $league = shift; my $coach = shift; my ($sec, $min, $hour, $day, $month, $year, $wday, $yday, $isdst); my $current_time = timelocal(0,0,0,$start_day,$current_month-1,$current_year-1900); ### Determine if the day is before or after the month ### and Calculate the offset in epoch seconds if($extra_type eq "previous"){ $current_time = $current_time - (60*60*24*$days_offset); }elsif($extra_type eq "following"){ $current_time = $current_time + (60*60*24*$days_offset); } ### Change to Real Date ($sec, $min, $hour, $day, $month, $year, $wday, $yday, $isdst) = localtime($current_time); $month++; $year = $year + 1900; ### Print the day print_calendar_day($month, $day, $year, "gray", $league, $coach); #print "$month/$day/$year\n"; } ################################################################ ### print_extra_day is used to print the days before and ### after the month to fill the calendar ################################################################ sub print_extra_day_small { my $current_month = shift; my $current_year = shift; my $extra_type = shift; my $days_offset = shift; my $start_day = shift; my $league = shift; my $coach = shift; my ($sec, $min, $hour, $day, $month, $year, $wday, $yday, $isdst); my $current_time = timelocal(0,0,0,$start_day,$current_month-1,$current_year-1900); ### Determine if the day is before or after the month ### and Calculate the offset in epoch seconds if($extra_type eq "previous"){ $current_time = $current_time - (60*60*24*$days_offset); }elsif($extra_type eq "following"){ $current_time = $current_time + (60*60*24*$days_offset); } ### Change to Real Date ($sec, $min, $hour, $day, $month, $year, $wday, $yday, $isdst) = localtime($current_time); $month++; $year = $year + 1900; ### Print the day print_calendar_day_small($month, $day, $year, "gray", $league, $coach); #print "$month/$day/$year\n"; } ################################################################# ### print_calendar_day is used to print any day given the ### day, month and year ################################################################ sub print_calendar_day { my $current_month = shift; my $current_day = shift; my $current_year = shift; my $bgcolor = shift; my $league = shift; my $coach = shift; my @current_events = (); my $current_time = timelocal(0,0,0,$current_day,$current_month-1,$current_year-1900); my ($sec, $min, $hour, $day, $month, $year, $wday, $yday, $isdst); my $day_file = "$org/$league/CAL/$current_year/$current_month/$current_day.txt"; my ($obj_id,$time,$event_type,$home_team,$home_score,$away_team,$away_score,$description); #print "$day_file
\n"; if(-e $day_file){ open(IN, $day_file)|| die "ERROR: $! Could not open $day_file\n"; while(){ chomp; push(@current_events, $_) } close(IN); } ($sec, $min, $hour, $day, $month, $year, $wday, $yday, $isdst) = localtime($current_time); if($wday == 0){ print " \n"; } print " \n"; if($coach){ print " $current_day\n"; }else{ print " $current_day\n"; } print " \n"; foreach(@current_events){ ($obj_id,$time,$event_type,$home_team,$home_score,$away_team,$away_score,$description)= split(/\$\|\$/,$_); if($event_type eq "GAME"){ if(($home_score ne "NA" and $away_score ne "NA")){ if($home_score > $away_score){ print " \n"; }else{ print " \n"; } }else{ print " \n"; } }elsif($event_type eq "EVENT"){ print " \n"; } } #$current_events_lenght = @ if(@current_events + 0 == 0){ print " \n"; print " \n"; print " \n"; } print "
$time $away_team($away_score) @ $home_team($home_score)
$time $away_team($away_score) @ $home_team($home_score)
$time $away_team @ $home_team
$time $description
 
 
 
\n"; print " \n"; if($wday == 6){ print " \n"; } } ################################################################ ### print_calendar_day is used to print any day given the ### day, month and year ################################################################ sub print_calendar_day_small { my $current_month = shift; my $current_day = shift; my $current_year = shift; my $bgcolor = shift; my $league = shift; my $coach = shift; my $current_time = timelocal(0,0,0,$current_day,$current_month-1,$current_year-1900); my ($sec, $min, $hour, $day, $month, $year, $wday, $yday, $isdst); my ($obj_id,$time,$event_type,$home_team,$home_score,$away_team,$away_score,$description); ($sec, $min, $hour, $day, $month, $year, $wday, $yday, $isdst) = localtime($current_time); if($wday == 0){ print " \n"; } print " \n"; if($coach){ print " $current_day\n"; }else{ print " $current_day\n"; } print " \n"; if($wday == 6){ print " \n"; } } ################################################################ ### print_calendar_header is used to start the calendar ################################################################ sub print_calendar_header_all_events2 { my $current_month = shift; my $current_year = shift; my $league = shift; my $coach = shift; my $filter = shift; my $season = "2005"; my $colspan = 3; my $end_time = ""; if($show_end_time == 1){ $colspan++; $end_time = "End Time"; } print <<__HTML__; __HTML__ ################################################################ # Get the next & previous month and year combinations ################################################################ my ($next_month, $next_year) = get_next_month($current_month, $current_year, "next"); my ($prev_month, $prev_year) = get_next_month($current_month, $current_year, "prev"); my ($minus_two_month, $minus_two_year) = get_next_month($prev_month, $prev_year, "prev"); my ($minus_three_month, $minus_three_year) = get_next_month($minus_two_month, $minus_two_year, "prev"); my ($plus_two_month, $plus_two_year) = get_next_month($next_month, $next_year, "next"); my ($plus_three_month, $plus_three_year) = get_next_month($plus_two_month, $plus_two_year, "next"); ################################################################ # Get Month abreviations ################################################################ my $current_month_name = get_month_name_small($current_month); my $prev_month_name = get_month_name_small($prev_month); my $next_month_name = get_month_name_small($next_month); my $minus_two_month_name = get_month_name_small($minus_two_month); my $minus_three_month_name = get_month_name_small($minus_three_month); my $plus_two_month_name = get_month_name_small($plus_two_month); my $plus_three_month_name = get_month_name_small($plus_three_month); my $bgcolor = "#be0203"; my %teamsa = get_league_teams($league_id); foreach $key (keys %teamsa){ $teams{$teamsa{$key}} = $key; } #print "\n"; print "
    $season Season    
Print Month Print Season
"; #print "\n"; #print "
League Events\n"; print ""; $html .= ""; $html .= ""; } $sth->finish(); $dbh->disconnect; print $html; } sub get_group_email_links{ my $email_id = shift; my $dbh = get_dbh(); my $query = "SELECT b.`Group_Name` FROM `Comm_Group_Email_Link` a, `Comm_Groups` b WHERE a.`Comm_Email_ID` = '$email_id' AND a.`Comm_Group_ID` = b.`Key`"; my $group_email_links = ""; my $comma = ""; my $sth = $dbh->prepare($query); $sth->execute(); while ( my $results = $sth->fetchrow_hashref ){ $group_email_links .= $comma . $results->{Group_Name}; $comma = ","; } $sth->finish(); $dbh->disconnect; return $group_email_links; } ################################################################ ### If the admin is logged in, print the admin mode page ################################################################ sub print_admin{ my $org_id = shift; my $amdin = shift; my $user = shift; my $pass = shift; my $sub = shift; my $color = "#006699"; my $session_id = 1; my $reg_count = get_num_of_registrations($org_id); my $manage_reg_link = ""; my $num_controls = 6; my $show_reg = 1; if($show_reg == 1){ $num_controls = 7; $manage_reg_link = "\n"; } if($count == 1){ print "
\n"; print "\n"; print "\n"; print "\n"; if($coach){ print "$end_time\n"; }else{ print "$end_time\n"; } } sub get_all_teams{ my $dbh = get_dbh(); # prepare and execute query my $query = "SELECT * FROM Team_Info ORDER BY Team_Name ASC"; #print "$query
\n"; my $sth = $dbh->prepare($query); my %return_hash; my $ID; my $event_type; $sth->execute(); # assign fields to variables $sth->bind_columns(\$ID, \$League_ID, \$Team_Name, \$Division_ID, \$Status); # output name list to the browser while($sth->fetch()) { $return_hash{$ID} = $Team_Name; } $sth->finish(); # disconnect from database $dbh->disconnect; return %return_hash; } sub get_all_leagues{ my $dbh = get_dbh(); # prepare and execute query my $query = "SELECT `Key`, `League_Name` FROM League_Info"; #print "$query
\n"; my $sth = $dbh->prepare($query); my %return_hash; my $ID; $sth->execute(); # assign fields to variables $sth->bind_columns(\$ID, \$League_Name); # output name list to the browser while($sth->fetch()) { $return_hash{$ID} = $League_Name; } $sth->finish(); # disconnect from database $dbh->disconnect; return %return_hash; } ################################################################ ### print_calendar_header is used to start the calendar ################################################################ sub print_calendar_header_linked_league { my $current_month = shift; my $current_year = shift; my $league = shift; my $coach = shift; my $filter = shift; my $org_id = shift; my $league_id = shift; my $season = "2005"; print <<__HTML__; __HTML__ ################################################################ # Get Month abreviations ################################################################ my $current_month_name = get_month_name_small($current_month); my $colspan = 3; my $bgcolor = "#be0203"; my %teamsa = get_league_teams($league_id); if($coach == 0){ $colspan = 1; } foreach $key (keys %teamsa){ $teams{$teamsa{$key}} = $key; } print "
League Events\n"; print "  \n"; print "
Date/TimeEvent TypeTeamsLocationNotesUpdate
Date/TimeEvent TypeTeamsLocationNotes
Print Month Print Season
"; print ""; $html .= ""; $html .= ""; $num_groups++; } $sth->finish(); $dbh->disconnect; if($num_groups == 0){ $html .= ""; } print $html; } ################################################## # Get the contents of My Communications History # For Comm Module ################################################## sub print_custom_groups{ my $user_id = shift; my $tag = shift; #my %user_email_history = get_user_email_history($user_id); my $dbh = get_dbh(); my $query = "SELECT `Key`,`Org_ID`,`Group_Name`,`Group_Type`,`Group_Type_ID`, `Desc` FROM `Comm_Groups` WHERE `Owner_ID` = '$user_id' AND `Active` = '1' ORDER BY `Group_Name`"; #print "QUERY: $query\n"; my $sth = $dbh->prepare($query); $sth->execute(); my $html = ""; my $even_odd = 1; my $row_style = "\"cal_event3\""; my $num_groups = 0; while ( my $results = $sth->fetchrow_hashref ){ my $current_key = $results->{Key}; my $group_count = get_group_count($current_key); my $group_name = $results->{Group_Name}; my $view_email_link = ""; if($even_odd == 1){ $row_style = "\"cal_events2\""; $even_odd = 2; }else{ $row_style = "\"cal_events3\""; $even_odd = 1; } $html .= ""; $html .= ""; $html .= ""; $num_groups++; } $sth->finish(); $dbh->disconnect; if($num_groups == 0){ $html .= ""; } print $html; } sub get_group_count{ my $group_id = shift; my $dbh = get_dbh(); my $query = "SELECT COUNT(*) as GROUPCOUNT FROM `Comm_Group_Address_Link` WHERE `Comm_Group_ID` = '$group_id' AND `Blacklisted_From_Group` = '0'"; my $sth = $dbh->prepare($query); my $group_count = 0; $sth->execute(); $group_count = $sth->fetchrow_arrayref->[0]; $sth->finish(); $dbh->disconnect; return $group_count; } ########################################### # Print the email history for user ########################################### sub print_my_communications_history{ my $user = shift; print <<__HTML__;
\n"; print "\n"; print "\n"; print " \n"; } ################################################################ ### print_calendar_header is used to start the calendar ################################################################ sub print_calendar_header_all_events { my $current_month = shift; my $current_year = shift; my $league = shift; my $coach = shift; my $filter = shift; my $season = "2005"; my $test_filter = 0; if($filter == -2){ $test_filter = -2; $filter = 0; } print <<__HTML__; __HTML__ ################################################################ # Get the next & previous month and year combinations ################################################################ my ($next_month, $next_year) = get_next_month($current_month, $current_year, "next"); my ($prev_month, $prev_year) = get_next_month($current_month, $current_year, "prev"); my ($minus_two_month, $minus_two_year) = get_next_month($prev_month, $prev_year, "prev"); my ($minus_three_month, $minus_three_year) = get_next_month($minus_two_month, $minus_two_year, "prev"); my ($plus_two_month, $plus_two_year) = get_next_month($next_month, $next_year, "next"); my ($plus_three_month, $plus_three_year) = get_next_month($plus_two_month, $plus_two_year, "next"); ################################################################ # Get Month abreviations ################################################################ my $current_month_name = get_month_name_small($current_month); my $prev_month_name = get_month_name_small($prev_month); my $next_month_name = get_month_name_small($next_month); my $minus_two_month_name = get_month_name_small($minus_two_month); my $minus_three_month_name = get_month_name_small($minus_three_month); my $plus_two_month_name = get_month_name_small($plus_two_month); my $plus_three_month_name = get_month_name_small($plus_three_month); my $colspan = 3; my $bgcolor = "#be0203"; my %teamsa = get_league_teams($league_id); if($coach == 0){ $colspan = 1; } foreach $key (keys %teamsa){ $teams{$teamsa{$key}} = $key; } if($show_end_time == 1){ $colspan++; } print "
$current_month_name
Print Month Print Season
"; #print "\n"; print "
    $season Season    
\n"; print "\n"; print "\n"; print "\n"; } ################################################################ ### print_calendar_header is used to start the calendar ################################################################ sub print_calendar_header { my $current_month = shift; my $current_year = shift; my $league = shift; my $bgcolor = "#006699"; my $current_month_name = get_month_name($current_month); my ($next_month, $next_year) = get_next_month($current_month, $current_year, "next"); my ($prev_month, $prev_year) = get_next_month($current_month, $current_year, "prev"); print "
League Events\n"; print "  \n"; print "
\n"; print "\n"; } ################################################################ ### print_calendar_header is used to start the calendar ################################################################ sub print_calendar_header_small { my $current_month = shift; my $current_year = shift; my $league = shift; my $bgcolor = "#006699"; my $current_month_name = get_month_name_small($current_month); my ($next_month, $next_year) = get_next_month($current_month, $current_year, "next"); my ($prev_month, $prev_year) = get_next_month($current_month, $current_year, "prev"); print "
<<     $current_month_name $current_year     >>
SunMonTueWedThuFriSat
\n"; print "\n"; } ################################################################ ### Return the next month based on the month that was passed in ################################################################ sub get_next_month{ my $current_month = shift; my $current_year = shift; my $next_or_prev = shift; my $current_day = 27; my $next_month = $current_month; my $next_year = 0; my $current_time = timelocal(0,0,0,$current_day,$current_month-1,$current_year-1900); my ($sec, $min, $hour, $day, $month, $year, $wday, $yday, $isdst); while($next_month == $current_month){ if($next_or_prev eq "next"){ $current_time = $current_time + (60*60*24); }else{ $current_time = $current_time - (60*60*24); } ($sec, $min, $hour, $day, $month, $year, $wday, $yday, $isdst) = localtime($current_time); $month = $month +1; if($month != $current_month){ $next_month = $month; $next_year = $year + 1900; } } return $next_month, $next_year; } ################################################################ ### Return the next month based on the month that was passed in ################################################################ sub get_next_day{ my $current_month = shift; my $current_year = shift; my $current_day = shift; my $next_or_prev = shift; my $next_day = 0; my $next_year = 0; my $next_month = 0; my $current_time = timelocal(0,0,0,$current_day,$current_month-1,$current_year-1900); my ($sec, $min, $hour, $day, $month, $year, $wday, $yday, $isdst); if($next_or_prev eq "next"){ $current_time = $current_time + (60*60*24); }else{ $current_time = $current_time - (60*60*24); } ($sec, $min, $hour, $day, $month, $year, $wday, $yday, $isdst) = localtime($current_time); $next_month = $month +1; $next_year = $year + 1900; $next_day = $day; return $next_month, $next_year, $next_day; } ################################################################ ### Return the name of the month based from the number ################################################################ sub get_month_name{ my $month_number = shift; @months = ('','January', 'February', 'March', 'April', 'May', 'June', 'July', 'August', 'September', 'October', 'November', 'December'); return $months[$month_number]; } ################################################################ ### Return the name of the month(short) based from the number ################################################################ sub get_month_name_small{ my $month_number = shift; @months = ('','Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec'); return $months[$month_number]; } ################################################################ ### Return the name of the day(short) based from the number ################################################################ sub get_day_name{ my $day_number = shift; @days = ('Sun','Mon', 'Tue', 'Wed', 'Thur', 'Fri', 'Sat'); return $days[$day_number]; } ################################################################ ### print_calendar_footer closes the calendar ################################################################ sub print_calendar_footer { print "
<<     $current_month_name $current_year     >>
SMTWTFS
\n"; } ################################################################ ### print_calendar prints a calendar as a table give month and ### year ################################################################ sub print_calendar_small { my $current_month = shift; my $current_year = shift; my $league = shift; my $coach = shift; my $first_day_of_month = 0; my $last_day_of_month = 0; print_calendar_header_small($current_month,$current_year,$league); ($current_last,$current_last_dow) = get_last_day($current_month, $current_year); ### get the first day (mon, tue, etc) of the month to see if an extra days ### are needed from the previous month $first_day_of_month = get_day_of_week($current_month, 1, $current_year); if($first_day_of_month != 0){ for($i=$first_day_of_month;$i>0;$i--){ print_extra_day_small($current_month,$current_year,"previous",$i,1,$league, $coach); } } ### Loop through the days of the month to print them for($i=1;$i<=$current_last;$i++){ #print "$current_month/$i/$current_year\n"; print_calendar_day_small($current_month, $i, $current_year, "white", $league, $coach); } ### get the last day (mon, tue, etc) of the month to see if an extra days ### are needed from the next month $last_day_of_month = get_day_of_week($current_month, $current_last, $current_year); if($last_day_of_month != 6){ for($i=1;$i<=6-$last_day_of_month;$i++){ print_extra_day_small($current_month,$current_year,"following",$i,$current_last,$league,$coach); } } print_calendar_footer(); } ################################################################ ### Opens a data file and adds info to it ################################################################ sub add_to_file{ my $file = shift; my $data = shift; my $placement = shift; my @data = (); my $tmp_file = "$file.$$"; my $obj_id_file = "$file.obj_id"; my $current_line = ""; my $obj_id = 0; $obj_id = add_obj_id($obj_id_file); $data = "$obj_id" . '$|$' . "$data"; chomp($data); $data .= "\n"; ### Check to see if we want line to begining of file ### if($placement eq "begining"){ push(@data, $data); } ### Check to see if file exists ### if(!(-e $file)){ ### If not create one ### open(NEW, ">$file") || die "ERROR: Could not write to $file\n"; close(NEW); } open(IN, "$file") || die "ERROR: Could not write to $file\n"; while(){ chomp; $current_line = "$_\n"; push(@data, $current_line); } ### Check to see if we want line to end of file ### if($placement eq "end"){ push(@data, $data); } close(IN); open(OUT, ">$tmp_file") || die "ERROR: Could not open to $tmp_file\n"; print OUT @data; close(OUT); rename $tmp_file, $file; } ################################################################ ### Delete a line from a file ################################################################ sub delete_from_file{ my $file = shift; my $obj_id = shift; my @data = (); my $tmp_file = "$file.$$"; my $current_line = ""; my $current_obj_id = 0; open(IN, "$file") || die "ERROR: Could not open to $file\n"; while(){ chomp; $current_line = "$_\n"; ($current_obj_id, $current_date) = split(/\$\|\$/,$current_line); if($current_obj_id == $obj_id){ }else{ push(@data, $current_line); } } close(IN); open(OUT, ">$tmp_file") || die "ERROR: Could not open to $tmp_file\n"; print OUT @data; close(OUT); rename $tmp_file, $file; } ################################################################ ### Update an item in a file ################################################################ sub update_file{ my $file = shift; my $obj_id = shift; my $data = shift; my @data = (); my $tmp_file = "$file.$$"; my $current_line = ""; my $update_data = $obj_id . '$|$' . $data . "\n"; open(IN, "$file") || die "ERROR: Could not open to $file\n"; while(){ chomp; $current_line = "$_\n"; ($current_obj_id, $current_date) = split(/\$\|\$/,$current_line); if($current_obj_id == $obj_id){ push(@data, $update_data); print "UPDATING: $update_data\n"; }else{ push(@data, $current_line); } } close(IN); open(OUT, ">$tmp_file") || die "ERROR: Could not open to $tmp_file\n"; print OUT @data; close(OUT); rename $tmp_file, $file; } ################################################################ ### Get the latest objID of a file ################################################################ sub get_obj_id{ my $obj_id_file = shift; my $return_obj_id = 0; if(!(-e $obj_id_file)){ $return_obj_id = -1; }else{ open(OBJ, "$obj_id_file") || die "ERROR: Could not write to $obj_id_file\n"; while(){$return_obj_id = $_;} close(OBJ); } return $return_obj_id; } ################################################################ ### Increment objID for a file ################################################################ sub add_obj_id{ my $obj_id_file = shift; my $obj_id = get_obj_id($obj_id_file); $obj_id++; open(OBJ, ">$obj_id_file") || die "ERROR: Could not write to $obj_id_file\n"; print OBJ $obj_id; close(OBJ); return $obj_id; } ################################################################ ### Print the update news block (HTML portion) ################################################################ sub print_news_update_block{ my $title = shift; my $date = shift; my $news = shift; my $color = shift; my $league_id = shift; $date = get_date(); print <<__HTML__;
$date add
__HTML__ } ################################################################ ### Print the normal news block (HTML portion) ################################################################ sub print_info_block{ my $message_id = shift; my $title = shift; my $date = shift; my $text = shift; my $color = $site_info{"message_box_bg_color"}; my $text_color = $site_info{"message_box_text_color"}; my $admin = shift; my $org_id = shift; my $page_id = shift; my $first = shift; my $last = shift; my $page_type = shift; my $e_info_key = shift; my $type = ""; my $extra_info = ""; ################################################ ## Convert Date ################################################ ($current_date, $current_time) = split(/\s+/, $date); $current_date = convert_date_to_display($current_date); if($page_type eq "league"){ $type = "league_id"; $extra_info = "&info_id=$e_info_key"; }else{ $type = "info_id"; } print <<__HTML__;
$title Updated $current_date __HTML__ if($admin ==1){ print "edit del\n"; if($first){ print "Move Up\n"; }else{ print "Move Up\n"; } if($last){ print "Move Down\n"; }else{ print "Move Down\n"; } } ##############################3 # This series of search and replace # Are to compensate for when the site was move # When there is time to update all links, this # should be fixed. ############################################## $text =~ s/http:\/\/www.hometeamz.com\/teamdata\//\/teamdata\//g; $text =~ s/\/teamdata\//$hometeamz_dir\/teamdata\//g; $text =~ s/hometeamzhometeamz/hometeamz/g; print <<__HTML__;
$text


__HTML__ } ################################################################ ### Print the normal news block (HTML portion) ################################################################ sub print_news_block{ my $obj_id = shift; my $title = shift; my $date = shift; my $news = shift; my $color = shift; my $update = shift; my $league_id = shift; print <<__HTML__;
$title Updated $date __HTML__ if($update ==1){ print "edit del\n"; } print <<__HTML__;
$news

__HTML__ } ################################################################ ### Get current date information ################################################################ sub get_date{ my $return_string = ""; #get current_time in seconds $current_time = timelocal((localtime)[0..5]); my ($sec, $min, $hour, $day, $month, $year, $wday, $yday, $isdst) = localtime($current_time); #Add 1900 to Years, because it begins at 1900, ex 2004=104; $year = $year + 1900; #Jan = 0 $month = $month +1; $return_string = "$month/$day/$year"; return $return_string; } ################################################################ ### Get Date for next year ################################################################ sub get_next_year_date{ my $return_string = ""; #get current_time in seconds $current_time = timelocal((localtime)[0..5]); $current_time = $current_time + 31556926; my ($sec, $min, $hour, $day, $month, $year, $wday, $yday, $isdst) = localtime($current_time); #Add 1900 to Years, because it begins at 1900, ex 2004=104; $year = $year + 1900; #Jan = 0 $month = $month +1; $return_string = "$month/$day/$year"; return $return_string; } ################################################################ ### Get current date time information ################################################################ sub get_date_time{ my $return_string = ""; #get current_time in seconds $current_time = timelocal((localtime)[0..5]); my ($sec, $min, $hour, $day, $month, $year, $wday, $yday, $isdst) = localtime($current_time); #Add 1900 to Years, because it begins at 1900, ex 2004=104; $year = $year + 1900; #Jan = 0 $month = $month +1; $hour = sprintf("%02d", $hour); $min = sprintf("%02d", $min); $sec = sprintf("%02d", $sec); $month = sprintf("%02d", $month); $day = sprintf("%02d", $day); $return_string = "$year-$month-$day $hour:$min:$sec"; return $return_string; } ################################################################ ### Print the top menu bar ################################################################ sub print_comm_header{ print <<__HTML__;
__HTML__ print "My Communications\n"; print " \n"; print "$site_info{\"org_full\"}\n"; print "\n"; print "Logout\n"; print "
\n"; print "
\n"; print "
\n"; } ################################################################ ### Print the top menu bar ################################################################ sub print_admin_header{ my $org = shift; print <<__HTML__;
__HTML__ print "$org Admin\n"; print " \n"; print "$site_info{\"org_full\"}\n"; print "\n"; print "Logout\n"; print "
\n"; print "
\n"; print "
\n"; } ################################################################ ### Print the top menu bar ################################################################ sub print_league_only_header{ my $league = shift; my $sub = shift; my $coach = shift; my $league_id = shift; # print <<__HTML__; #
# #
#__HTML__ # $display_league = $league; # $display_league = substr($display_league,0,20); # $display_league =~ s/\s+/ /g; # if($coach){ # print "$display_league Admin\n"; # }else{ # print "$display_league\n"; # } # print " \n"; # if($coach){ # print "News |\n"; # print "Schedules |\n"; # print "Standings |\n"; # print "Tournament |"; # print "Options\n"; # }else{ # print "News   |  \n"; # print "Schedules   |  \n"; # print "Standings   |  \n"; # print "Tournament \n"; # } # print "\n"; # if($coach){ # print "Logout\n"; # }else{ # print "Admin\n"; #print "Admin\n"; # } # print "
\n"; # print "
\n"; # print "
\n"; } ################################################################ ### Print the top menu bar ################################################################ sub print_league_header{ my $league = shift; my $sub = shift; my $coach = shift; my $league_id = shift; $display_league = $league; $display_league = substr($display_league,0,24); $display_league =~ s/\s+/ /g; if($coach){ $top_menu = "top_menu"; $more_top_menu = "more_top_menu"; $display_header_string = "$display_league Admin"; }else{ $top_menu = "top_menu"; $display_header_string = "$display_league"; $more_top_menu = "more_top_menu"; } print <<__HTML__;
$display_header_string __HTML__ if($coach){ print "News |\n"; print "Schedules |\n"; print "Standings |\n"; print "Tournament |\n"; print "Options\n"; }else{ print "News   |  \n"; print "Schedules   |  \n"; print "Standings   |  \n"; print "Tournament \n"; } print "\n"; if($coach){ print "Logout\n"; }else{ print "Admin\n"; #print "Admin\n"; } print "
\n"; print "
\n"; print "
\n"; } ################################################################ ### This will print the page for different league headers ################################################################ sub print_info{ my $info_id = shift; my $admin = shift; my $color = "#006699"; my $first = 1; my $count = 0; my $last = 0; my $page_name = get_page_name($info_id); ################################################################ ## Print Context Area header (ie PYB or The League Name) ################################################################ print <<__HTML__;
  $page_name __HTML__ if($admin == 1){ print "Logout\n"; }else{ print "Admin\n"; } print <<__HTML__;

__HTML__ if($admin == 1){ #print_update_news($league, $org_id, $league_id, $color); #check_login("","",$org_id); print "
\n"; print "\n"; } print "

\n"; print_marquee($info_id); ################################################################ ## Get all message blurps for this page. ################################################################ my $dbh = get_dbh(); my $query = "SELECT count( * ) FROM `Infopage_Info` WHERE `Page_ID` = $info_id"; my $sth = $dbh->prepare($query); $sth->execute(); my $total = $sth->fetchrow_arrayref->[0]; # prepare and execute query $query = "SELECT * FROM `Infopage_Info` WHERE `Page_ID` = $info_id Order By `Order`"; $sth = $dbh->prepare($query); $sth->execute(); # assign fields to variables $sth->bind_columns(\$Key, \$Org_ID, \$Page_ID, \$Date, \$Title, \$Order, \$Text); while($sth->fetch()) { $count++; if($count == $total){$last =1;} #print "COUNT: $count - TOTAL: $total
\n"; print_info_block($Key,$Title,$Date,$Text,$admin,$org_id,$info_id,$first,$last,"info",0); $first = 0; } $sth->finish(); # disconnect from database $dbh->disconnect; print <<__HTML__;
__HTML__ } sub print_marquee{ my $page_id = shift; my $marquee = 0; my $dbh = get_dbh(); my $query = "SELECT * FROM `Marquee_Info` WHERE `Page_ID` = $page_id"; my $sth = $dbh->prepare($query); $sth = $dbh->prepare($query); $sth->execute(); # assign fields to variables $sth->bind_columns(\$Key, \$Org_ID, \$Page_ID, \$Behavior, \$ScrollDelay, \$ScrollAmount, \$Direction, \$Text); while($sth->fetch()) { print "
$Text

\n"; } $sth->finish(); # disconnect from database $dbh->disconnect; } ################################################################ ### This logs the user out. ################################################################ sub print_logout{ my $org_id = shift; print <<__HTML__;
$site_info{"org_full"}


You have signed out of $site_info{"org_short"} Admin.
Return to $site_info{"org_short"} Home.
__HTML__ } ################################################################ ### This handles what comes up first for a team ################################################################ sub print_home{ my $org_id = shift; my $dbh = get_dbh(); # prepare and execute query my $query = "SELECT * FROM `Org_Info` WHERE `Key` = $org_id"; my $sth = $dbh->prepare($query); $sth->execute(); # assign fields to variables $sth->bind_columns(\$Key, \$Org_Name, \$Org_Display_Name); $sth->finish(); # disconnect from database $dbh->disconnect; print <<__HTML__;
$Org_Display_Name $org_id

Current Events
  • 4/8 Draft
  • 5/8 Opening Day
__HTML__ } ################################################################ ### If the coach is logged in, print the coach mode page ################################################################ sub print_coach{ my $league = shift; my $sub = shift; my $color = "#006699"; my $org_id = shift; my $league_id = shift; my $user = shift; my $pass = shift; my $filter = shift; my $session_id = ""; my $menu_type = get_league_menu_type($league_id, $org_id); ################################################################ ### Get the league Name and print the header bar ### i.e. Standing | Calendar | News ################################################################ $league = get_league_name($league_id); print_league_header($league,$sub,1,$league_id); #$session_id = check_login($user, $pass, $league_id); #$session_id = get_cookie(); #if($session_id eq ""){ #print_login_block($org_id,"league",$league_id,1); #print "Your session has timed out, please login again.
\n"; #}else{ ################################################################ ### Determine whether to print the news, standing or calendar ################################################################ if($sub eq 'news'){ print_news($league, $org_id, $league_id, $color, 1); }elsif($sub eq 'standings'){ print "

\n"; if($menu_type ne "team"){ print_standings($league, $org_id, $league_id, 1); }else{ @linked_leagues = get_linked_leagues($league_id); my $first = 1; foreach(@linked_leagues){ $league = get_league_name($_); $linked_org = get_org_full_from_league($_); $linked_url = get_org_url_from_league($_); print_linked_event_header("Standings", $league, $linked_url, $linked_org, $first); print_standings("NOT SURE", 0, $_, 0); $first = 0; } if($first == 1){ print "

No Standings available for this Team
\n"; } } }elsif($sub eq 'calendar'){ print_league_calendar($league, $month, $year, 1, $org_id, $league_id, $filter, $menu_type); }elsif($sub eq 'tournament'){ print "
\n"; print_tournament_coach($league_id); @linked_leagues = get_linked_leagues($league_id); foreach(@linked_leagues){ $league = get_league_name($_); $linked_org = get_org_full_from_league($_); $linked_url = get_org_url_from_league($_); print_linked_event_header("Tournaments", $league, $linked_url, $linked_org, 0); print_tournament($_, $league, $league_url); } print "\n"; }elsif($sub eq 'options'){ print_options_coach($league_id); } ################################################################ ### Not sure where this div starts???? ################################################################ #} print "\n"; } sub print_login_block{ my $org_id = shift; my $page_type = shift; my $page_id = shift; my $admin = shift; my $coach = shift; print "

\n"; print <<__HTML__;
Sign In    
__HTML__ if($page_type eq "field"){ print "\n"; print " \n"; }elsif($page_type ne ""){ print "\n"; print " \n"; }else{ print " \n"; } print <<__HTML__;
ID:
Password:
__HTML__ } ################################################################ ### Print the top menu bar ################################################################ sub print_login_header{ print <<__HTML__;
 
__HTML__ } ################################################################ ### If the admin is logged in, print the admin mode page ################################################################ ################################################################ # Get all reg setup info from org id ################################################################ sub get_reg_setup_hash_by_org_and_reg_year{ my $org_id = shift; my $reg_year = shift; my $dbh = get_dbh(); my %return_hash; ################################################################ # Query DB to verify Session ################################################################ my $query = "SELECT `Secure_URL`, `Org_Dir`, `Reg_File`, `Reg_Admin_File`, `Reg_Year`, `Org_Caps`, `Home_Page_URL`, `Default_State`, `Min_Partial_Pay`, `Reply_To`, `From`, `Org_Full_Name_For_Email`, `Season_Text`, `Welcome_Text`, `Information_Text`, `Pay_Complete_Message`, `Pay_By_Check_Message`, `Paypal_Account`, `Return_URL`, `IPN_URL`, `Paypal_URL`,`Require_Confirmation`, `Require_Confirmation_MSG`, `League_Assign`, `Num_Register_Names`, `Register_Type`, `Test_Paypal`, `Ok_To_Pay_By_Check` FROM `Reg_Setup` WHERE `Org_ID` = '$org_id' AND `Reg_Year` = '$reg_year'"; #print "QUERY: $query
\n"; my $sth = $dbh->prepare($query); $sth->execute(); while (my $hash_ref = $sth->fetchrow_hashref) { my $reg_year = $hash_ref->{Reg_Year}; my $org_caps = $hash_ref->{Org_Caps}; $return_hash{$reg_year}{"ORG_CAPS"} = $org_caps; my $min_partial_pay = $hash_ref->{Min_Partial_Pay}; $return_hash{$reg_year}{"MIN_PARTIAL_PAY"} = $min_partial_pay; my $reply_to = $hash_ref->{Reply_To}; $return_hash{$reg_year}{"REPLY_TO"} = $reply_to; my $from = $hash_ref->{From}; $return_hash{$reg_year}{"FROM"} = $from; my $org_full_name_for_email = $hash_ref->{Org_Full_Name_For_Email}; $return_hash{$reg_year}{"FULL_NAME"} = $org_full_name_for_email; my $season_text = $hash_ref->{Season_Text}; $return_hash{$reg_year}{"SEASON_TEXT"} = $season_text; my $welcome_text = $hash_ref->{Welcome_Text}; $return_hash{$reg_year}{"WELCOME_TEXT"} = $welcome_text; my $information_text = $hash_ref->{Information_Text}; $return_hash{$reg_year}{"INFORMATION_TEXT"} = $information_text; my $pay_complete_message = $hash_ref->{Pay_Complete_Message}; $return_hash{$reg_year}{"PAY_COMPLETE_MSG"} = $pay_complete_message; my $pay_by_check_message = $hash_ref->{Pay_By_Check_Message}; $return_hash{$reg_year}{"PAY_BY_CHECK_MSG"} = $pay_by_check_message; my $paypal_acc = $hash_ref->{Paypal_Account}; $return_hash{$reg_year}{"PAYPAL_ACC"} = $paypal_acc; my $return_url = $hash_ref->{Return_URL}; $return_hash{$reg_year}{"RETURN_URL"} = $return_url; my $secure_url = $hash_ref->{Secure_URL}; $return_hash{$reg_year}{"SECURE_URL"} = $secure_url; my $reg_file = $hash_ref->{Reg_File}; $return_hash{$reg_year}{"REG_FILE"} = $reg_file; my $reg_admin_file = $hash_ref->{Reg_Admin_File}; $return_hash{$reg_year}{"REG_ADMIN_FILE"} = $reg_admin_file; my $org_dir = $hash_ref->{Org_Dir}; $return_hash{$reg_year}{"ORG_DIR"} = $org_dir; my $thanks_url = "$secure_url/$org_dir/$reg_file?action=pp"; $return_hash{$reg_year}{"THANKS_URL"} = $thanks_url; my $ipn_url = $hash_ref->{IPN_URL}; $return_hash{$reg_year}{"IPN_URL"} = $ipn_url; my $base_reg_url = "$secure_url/$org_dir/$reg_file"; $return_hash{$reg_year}{"BASE_REG_URL"} = $base_reg_url; my $admin_reg_url = "$secure_url/$org_dir/$reg_admin_file"; $return_hash{$reg_year}{"ADMIN_REG_URL"} = $admin_reg_url; my $paypal_url = $hash_ref->{Paypal_URL}; $return_hash{$reg_year}{"PAYPAL_URL"} = $paypal_url; my $default_state = $hash_ref->{Default_State}; $return_hash{$reg_year}{"DEFAULT_STATE"} = $default_state; my $home_page_url = $hash_ref->{Home_Page_URL}; $return_hash{$reg_year}{"HOME_PAGE_URL"} = $home_page_url; my $require_confirmation = $hash_ref->{Require_Confirmation}; $return_hash{$reg_year}{"REQUIRE_CONFIRMATION"} = $require_confirmation; my $require_confirmation_msg = $hash_ref->{Require_Confirmation_MSG}; $return_hash{$reg_year}{"REQUIRE_CONFIRMATION_MSG"} = $require_confirmation_msg; my $league_assign = $hash_ref->{League_Assign}; $return_hash{$reg_year}{"LEAGUE_ASSIGN"} = $league_assign; my $num_register_names = $hash_ref->{Num_Register_Names}; $return_hash{$reg_year}{"NUM_REG_NAMES"} = $num_register_names; my $register_type = $hash_ref->{Register_Type}; $return_hash{$reg_year}{"REGISTER_TYPE"} = $register_type; my $test_paypal = $hash_ref->{Test_Paypal}; $return_hash{$reg_year}{"TEST_PAYPAL"} = $test_paypal; my $ok_to_pay_by_check = $hash_ref->{Ok_To_Pay_By_Check}; $return_hash{$reg_year}{"OK_TO_PAY_BY_CHECK"} = $ok_to_pay_by_check; } $sth->finish(); $dbh->disconnect; return %return_hash; } ################################################################ # Get all reg setup info from org id ################################################################ sub get_reg_setup_hash_by_org{ my $org_id = shift; my $dbh = get_dbh(); my %return_hash; ################################################################ # Query DB to verify Session ################################################################ my $query = "SELECT `Secure_URL`, `Org_Dir`, `Reg_File`, `Reg_Admin_File`, `Reg_Year`, `Org_Caps`, `Home_Page_URL`, `Default_State`, `Min_Partial_Pay`, `Reply_To`, `From`, `Org_Full_Name_For_Email`, `Season_Text`, `Welcome_Text`, `Information_Text`, `Pay_Complete_Message`, `Pay_By_Check_Message`, `Paypal_Account`, `Return_URL`, `IPN_URL`, `Paypal_URL`,`Require_Confirmation`, `Require_Confirmation_MSG`, `League_Assign`, `Num_Register_Names`, `Register_Type`, `Test_Paypal`, `Ok_To_Pay_By_Check` FROM `Reg_Setup` WHERE `Org_ID` = '$org_id'"; #print "QUERY: $query
\n"; my $sth = $dbh->prepare($query); $sth->execute(); while (my $hash_ref = $sth->fetchrow_hashref) { my $reg_year = $hash_ref->{Reg_Year}; my $min_partial_pay = $hash_ref->{Min_Partial_Pay}; $return_hash{$reg_year}{"MIN_PARTIAL_PAY"} = $min_partial_pay; my $org_caps = $hash_ref->{Org_Caps}; $return_hash{$reg_year}{"ORG_CAPS"} = $org_caps; my $reply_to = $hash_ref->{Reply_To}; $return_hash{$reg_year}{"REPLY_TO"} = $reply_to; my $from = $hash_ref->{From}; $return_hash{$reg_year}{"FROM"} = $from; my $org_full_name_for_email = $hash_ref->{Org_Full_Name_For_Email}; $return_hash{$reg_year}{"FULL_NAME"} = $org_full_name_for_email; my $season_text = $hash_ref->{Season_Text}; $return_hash{$reg_year}{"SEASON_TEXT"} = $season_text; my $welcome_text = $hash_ref->{Welcome_Text}; $return_hash{$reg_year}{"WELCOME_TEXT"} = $welcome_text; my $information_text = $hash_ref->{Information_Text}; $return_hash{$reg_year}{"INFORMATION_TEXT"} = $information_text; my $pay_complete_message = $hash_ref->{Pay_Complete_Message}; $return_hash{$reg_year}{"PAY_COMPLETE_MSG"} = $pay_complete_message; my $pay_by_check_message = $hash_ref->{Pay_By_Check_Message}; $return_hash{$reg_year}{"PAY_BY_CHECK_MSG"} = $pay_by_check_message; my $paypal_acc = $hash_ref->{Paypal_Account}; $return_hash{$reg_year}{"PAYPAL_ACC"} = $paypal_acc; my $return_url = $hash_ref->{Return_URL}; $return_hash{$reg_year}{"RETURN_URL"} = $return_url; my $secure_url = $hash_ref->{Secure_URL}; $return_hash{$reg_year}{"SECURE_URL"} = $secure_url; my $reg_file = $hash_ref->{Reg_File}; $return_hash{$reg_year}{"REG_FILE"} = $reg_file; my $reg_admin_file = $hash_ref->{Reg_Admin_File}; $return_hash{$reg_year}{"REG_ADMIN_FILE"} = $reg_admin_file; my $org_dir = $hash_ref->{Org_Dir}; $return_hash{$reg_year}{"ORG_DIR"} = $org_dir; my $thanks_url = "$secure_url/$org_dir/$reg_file?action=pp"; $return_hash{$reg_year}{"THANKS_URL"} = $thanks_url; my $ipn_url = $hash_ref->{IPN_URL}; $return_hash{$reg_year}{"IPN_URL"} = $ipn_url; my $base_reg_url = "$secure_url/$org_dir/$reg_file"; $return_hash{$reg_year}{"BASE_REG_URL"} = $base_reg_url; my $admin_reg_url = "$secure_url/$org_dir/$reg_admin_file"; $return_hash{$reg_year}{"ADMIN_REG_URL"} = $admin_reg_url; my $paypal_url = $hash_ref->{Paypal_URL}; $return_hash{$reg_year}{"PAYPAL_URL"} = $paypal_url; my $default_state = $hash_ref->{Default_State}; $return_hash{$reg_year}{"DEFAULT_STATE"} = $default_state; my $home_page_url = $hash_ref->{Home_Page_URL}; $return_hash{$reg_year}{"HOME_PAGE_URL"} = $home_page_url; my $require_confirmation = $hash_ref->{Require_Confirmation}; $return_hash{$reg_year}{"REQUIRE_CONFIRMATION"} = $require_confirmation; my $require_confirmation_msg = $hash_ref->{Require_Confirmation_MSG}; $return_hash{$reg_year}{"REQUIRE_CONFIRMATION_MSG"} = $require_confirmation_msg; my $league_assign_on = $hash_ref->{League_Assign}; $return_hash{$reg_year}{"LEAGUE_ASSIGN"} = $league_assign; my $num_register_names = $hash_ref->{Num_Register_Names}; $return_hash{$reg_year}{"NUM_REG_NAMES"} = $num_register_names; my $register_type = $hash_ref->{Register_Type}; $return_hash{$reg_year}{"REGISTER_TYPE"} = $register_type; my $test_paypal = $hash_ref->{Test_Paypal}; $return_hash{$reg_year}{"TEST_PAYPAL"} = $test_paypal; my $ok_to_pay_by_check = $hash_ref->{Ok_To_Pay_By_Check}; $return_hash{$reg_year}{"OK_TO_PAY_BY_CHECK"} = $ok_to_pay_by_check; } $sth->finish(); $dbh->disconnect; return %return_hash; } sub get_manage_reg_table_no_reg{ my $menu_table = "
There are currently no active registrations, please
contact getsupport\@hometeamz.com to get started.

\n"; return $menu_table; } sub get_manage_reg_table{ my $start_table = "
\n"; $start_table .= "\n"; $start_table .= ""; #print ""; $start_table .= "\n"; # assign fields to variables my %reg_setup_info = get_reg_setup_hash_by_org($org_id); my $count = 0; my $reg_table = ""; foreach my $reg_year ( keys %reg_setup_info ){ my $test_mode = $reg_setup_info{$reg_year}{"TEST_PAYPAL"}; my $base_reg_url = $reg_setup_info{$reg_year}{"BASE_REG_URL"}; my $admin_reg_url = $reg_setup_info{$reg_year}{"ADMIN_REG_URL"}; my $season_text = $reg_setup_info{$reg_year}{"SEASON_TEXT"}; my $display_test_mode = get_reg_test_mode_for_display($test_mode); $count++; my $reg_row = "\n"; #$reg_row .= "\n"; if($permission_string eq "Webmaster"){ #$reg_row .= "\n"; $reg_row .= "\n"; }else{ #$reg_row .= "\n"; $reg_row .= "\n"; } $reg_row .= "\n"; $reg_row .= "\n"; $reg_row .= "\n"; $reg_table .= $reg_row; } $reg_table .= "
Registration TitleStatusEdit StatusConfigurationUser Registration PageAdmin Registration Page
$season_text$display_test_modeEdit StatusConfigureEdit StatusConfigureOpenOpen
\n"; $reg_table .= "Add Registration
\n"; my $return_table = $start_table . $reg_table; return $return_table; } ################################################################ ### Query how many registrations are active for a given org ################################################################ sub get_num_of_registrations{ my $org_id = shift; my $dbh = get_dbh(); my $query = "SELECT COUNT(*) AS 'REG_COUNT' FROM `Reg_Setup` WHERE `Org_ID` = '$org_id'"; my $sth = $dbh->prepare($query); $sth->execute(); my $reg_count = 0; while ( my $href = $sth->fetchrow_hashref ) { $reg_count = $href->{"REG_COUNT"}; } $sth->finish(); # disconnect from database $dbh->disconnect; return $reg_count; } ################################################################ ### Added to check if user id passed is equal to the param ### associated with session ID ################################################################ sub verify_user_id_param{ my $user_id = shift; my $login_fail_url = shift; my $session_id = get_cookie(); my $session_user_id = get_login_from_session($session_id); if($user_id ne $session_user_id){ print <<__HTML__; __HTML__ exit(1); }else{} } ################################################################ ### If the admin is logged in, print the admin mode page ################################################################ sub print_comm{ my $org_id = shift; my $amdin = shift; my $user = shift; my $pass = shift; my $sub = shift; my $color = "#006699"; my $session_id = 1; my $reg_count = get_num_of_registrations($org_id); my $num_controls = 4; # actual number of controls plus one for loop. my $show_reg = 1; my $tag = param('tag'); if(!(defined($tag))){$tag = 1;} print_comm_header(); if($org_settings{"MODULE_COMM"} == 1){ print <<__HTML__;

My Communications Options
Compose New
Communication		 My
History		 My Groups
& Contacts
__HTML__ print ""; print ""; print ""; print <<__HTML__; __HTML__ print <<__HTML__; __HTML__ }else{ print "

I'm sorry, you do not have access to the communcations modules. Please contact \@hometeamz.com
\n"; } # assign fields to variables } ########################################### # Print the email history for user ########################################### sub print_compose_comm{ my $org_id = shift; my $user = shift; my $tag = shift; print <<__HTML__;
Compose New Communication
Compose New Communication
__HTML__ print_custom_groups_compose($user, $tag); print <<__HTML__;
Group NameEdit TitleCreated ByDescriptionMembersViewEditRemove
__HTML__ } ########################################### # Print the email history for user ########################################### sub print_manage_groups{ my $user = shift; my $tag = shift; print <<__HTML__;
My Groups & Contacts
Custom Groups
__HTML__ print_custom_groups($user, $tag); print <<__HTML__;
Group NameEdit TitleCreated ByDescriptionMembersViewEditRemove
Create Group
__HTML__ } ################################################## # Get the contents of My Communications History # For Comm Module ################################################## sub print_custom_groups_compose{ my $user_id = shift; my $tag = shift; #my %user_email_history = get_user_email_history($user_id); my $dbh = get_dbh(); my $query = "SELECT `Key`,`Org_ID`,`Group_Name`,`Group_Type`,`Group_Type_ID`, `Desc` FROM `Comm_Groups` WHERE `Owner_ID` = '$user_id' AND `Active` = '1' ORDER BY `Group_Name`"; #print "QUERY: $query\n"; my $sth = $dbh->prepare($query); $sth->execute(); my $html = ""; my $even_odd = 1; my $row_style = "\"cal_event3\""; my $num_groups = 0; while ( my $results = $sth->fetchrow_hashref ){ my $current_key = $results->{Key}; my $group_count = get_group_count($current_key); my $group_name = $results->{Group_Name}; my $current_check_box = "g" . $num_groups; my $view_email_link = ""; if($even_odd == 1){ $row_style = "\"cal_events2\""; $even_odd = 2; }else{ $row_style = "\"cal_events3\""; $even_odd = 1; } $html .= "
$group_nameedit title" . $valid_user{"FIRSTNAME"} . " " . $valid_user{"LASTNAME"} . "" . $results->{Desc} . "$group_countvieweditremove
You currently do not have any active groups.
Click Create Group to get started.
$group_nameedit title" . $valid_user{"FIRSTNAME"} . " " . $valid_user{"LASTNAME"} . "" . $results->{Desc} . "$group_countvieweditremove
You currently do not have any active groups.
Click Create Group to get started.
My Communications History
__HTML__ print_sent_email_table($user); print <<__HTML__;
ViewSentSubjectFromTo# Recipiants# Bounces
__HTML__ } sub get_sender_data{ my $user_id = shift; my $dbh = get_dbh(); my $query = "SELECT a.`Key`, b.`Comm_Email_ID`, b.`Comm_Email_Address_ID`, b.`Email_Bounce`, c.`Comm_Email_Address` FROM `Comm_Email_Message` a, `Comm_Email_Link` b, `Comm_Email_Address` c WHERE a.`From_ID` = '$user_id' AND a.`Key` = b.`Comm_Email_ID` AND b.`Comm_Email_Address_ID` = c.`Key`"; my $sth = $dbh->prepare($query); $sth->execute(); #print "QUERY: $query
\n"; my %return_hash; while ( my $results = $sth->fetchrow_hashref ){ if(defined($return_hash{$results->{Key}}{"TO"})){ $return_hash{$results->{Key}}{"TO"} .= "," . $results->{Comm_Email_Address}; $return_hash{$results->{Key}}{"COUNT"}++; if($results->{Email_Bounce} == 1){ $return_hash{$results->{Key}}{"BOUNCE"}++; } }else{ $return_hash{$results->{Key}}{"TO"} = $results->{Comm_Email_Address}; $return_hash{$results->{Key}}{"COUNT"} = 1; if($results->{Email_Bounce} == 1){ $return_hash{$results->{Key}}{"BOUNCE"} = 1; }else{ $return_hash{$results->{Key}}{"BOUNCE"} = 0; } } } $sth->finish(); $dbh->disconnect; return %return_hash; } ################################################## # Get the contents of My Communications History # For Comm Module ################################################## sub print_sent_email_table{ my $user_id = shift; #my %user_email_history = get_user_email_history($user_id); my $dbh = get_dbh(); my %user_data = get_user_data($user_id); my %sender_data = get_sender_data($user_id); my $query = "SELECT `Key`, `Org_ID`, `League_ID`, `Team_ID`, `Create_Date`, `Send_Date`, `From_ID`, `Subject`, `Message`, `Context`, `Status`, `Failed` FROM `Comm_Email_Message` WHERE `From_ID` = '$user_id' ORDER BY `Create_Date` DESC"; #print "QUERY: $query\n"; my $sth = $dbh->prepare($query); $sth->execute(); my $html = ""; my $even_odd = 1; my $row_style = "\"cal_event3\""; while ( my $results = $sth->fetchrow_hashref ){ my $to = $sender_data{$results->{Key}}{"TO"}; my $groups_to = get_group_email_links($results->{Key}); if($to eq ""){ $to .= $groups_to; }else{ $to .= "," . $groups_to; } $to =~ s/\,/\, /g; my $view_email_link = ""; if($even_odd == 1){ $row_style = "\"cal_events2\""; $even_odd = 2; }else{ $row_style = "\"cal_events3\""; $even_odd = 1; } my $current_status = "Not Sent"; if($results->{Status} == 1){ $current_status = "In Progress"; }elsif($results->{Status} == 2){ $current_status = "Sent"; }elsif($results->{Status} == -1){ $current_status = "Had Error(s)"; } $html .= "
" . $view_email_link . "view$current_status" . $results->{Subject} . "" . $user_data{"EMAIL"} . "" . $to . "" . $sender_data{$results->{Key}}{"COUNT"}. "" . $sender_data{$results->{Key}}{"BOUNCE"}. "
Manage Registrations"; } ################################################################ # News is what sub gets set to if there is no sub defined in # the parameter. So to reuse the param, we catch news here. ################################################################ if ($sub eq "news") { $sub = 1; } ################################################################ ### Get the league Name and print the header bar ### i.e. Standing | Calendar | News ################################################################ #$league = get_league_name($league_id); print_admin_header($site_info{"org_short"},$sub,1,$league_id); #$session_id = check_login($user, $pass, $org_id); #$session_id = get_cookie(); if($session_id eq ""){ print_login_block($org_id); #print "Your session has timed out, please login again.
\n"; }else{ print <<__HTML__;


Control Panel
Manage Site Info Manage Pages, Leagues & Menu Manage Gallery Manage Accounts & Permissions Manage Locations/Fields $manage_reg_link

__HTML__ if($fields_mgmt_active != 1){ print <<__HTML__; __HTML__ }else{ print_field_mgmt_admin($org_id); } ############################## # Registration Control Panel ############################## if($show_reg == 1){ print <<__HTML__; __HTML__ }else{ print "\n"; } print <<__HTML__; __HTML__ } #print "\n"; } sub get_reg_test_mode_for_display{ my $test_mode = shift; my $return_string = "Not Active"; if($test_mode == 0){ $return_string = "Active"; }elsif($test_mode == 1){ $return_string = "Test Mode"; } return $return_string; } sub get_permission_string_by_user_id{ my $user_id = shift; my $dbh = get_dbh(); my $query = "SELECT * FROM `Permissions_Info` WHERE `Login_ID` = $user_id"; #print "QUERY: $query
\n"; my %return_hash; my $sth = $dbh->prepare($query); $sth->execute(); my $perm_count = 1; my $current_org = ""; my $current_reg = ""; my $return_string = ""; my $comma = ""; while ( my $href = $sth->fetchrow_hashref ) { my $access_type = $href->{"Access_Type"}; my $access_id = $href->{"Access_ID"}; my $access_level = $href->{"Access_Level"}; if(($access_type eq "ORG")&&($access_id == $org_id)){ if(($current_org eq "")||($current_org eq "R")){ $current_org = $access_level; } }elsif($access_type eq "INFO"){ my ($menu_name, $menu_org) = get_menu_name_and_org_id($access_id); if($menu_org == $org_id){ if($access_level eq "RW"){ $return_string .= $comma . $menu_name; #$return_string .= $comma . $menu_name . " $menu_org " .$access_id; $comma = ", "; } } }elsif(($access_type eq "LEAGUE") || ($access_type eq "TEAM")){ my $league_org = get_org($access_id); #$access_type = "LEAGUE"; if($league_org == $org_id){ #my $menu_key = get_menu_key($access_id); #my $menu_name = get_menu_name($menu_key); #my $menu_name = get_menu_name_by_league_id_and_type($access_id,$access_type, $league_org); my $menu_name = get_menu_for_league_or_team_by_league_id($access_id,$access_type, $league_org); if($access_level eq "RW"){ #$return_string .= $comma . $menu_name . " a " .$access_id; ######################## # Check if the menu_name is blank # this is added to handle any perms for locations # which I found in dev. Not sure about production ######################## if($menu_name ne ""){ $return_string .= $comma . $menu_name; $comma = ", "; } } } }elsif($access_type eq "REG"){ if($access_id == $org_id){ if(($current_reg eq "") || ($current_reg eq "REG2")){ $current_reg = $access_level; } } } #print "TYPE ID: $type_id " . "
\n"; } if($current_reg eq "REG2"){ $return_string .= $comma . "Partial Registration"; }elsif($current_reg eq "REG3"){ $return_string .= $comma . "Full Registration"; } if($return_string eq ""){ $return_string = "[none]"; } if($current_org eq "RW"){ $return_string = "Webmaster"; } $sth->finish(); # disconnect from database $dbh->disconnect; return $return_string; } sub get_users_by_org{ my $org_id = shift; my $dbh = get_dbh(); #my $query = "SELECT * FROM `Permissions_Info` WHERE `Access_Type` = 'ORG' AND `Access_ID` = '$org_id'"; my $query = "SELECT b.`Login`, b.`Firstname`, b.`Lastname`, b.`Key` FROM `Permissions_Info` a, `Account_Info` b WHERE a.`Access_Type` = 'ORG' AND a.`Access_ID` = '$org_id' AND a.`Login_ID` = b.`Key`"; #print "QUERY: $query
\n"; my %return_hash; my $sth = $dbh->prepare($query); $sth->execute(); while ( my $href = $sth->fetchrow_hashref ) { my $login_id = $href->{"Login"}; my $firstname = $href->{"Firstname"}; my $lastname = $href->{"Lastname"}; my $key = $href->{"Key"}; $return_hash{$key}{"LOGIN"} = $login_id; $return_hash{$key}{"FIRSTNAME"} = $firstname; $return_hash{$key}{"LASTNAME"} = $lastname; } $sth->finish(); # disconnect from database $dbh->disconnect; return %return_hash; } sub print_field_mgmt_admin{ print <<__HTML__; __HTML__ } ################################## # Print Admin Org Locations for Subscribtions ################################## sub print_org_subscriber_locations{ my $org_id = shift; my $dbh = get_dbh(); my $count = 0; my $table_contents = ""; ################################## # GET Normal Locations ################################## my $query = "SELECT a.`Key`, a.`Location`, a.`Address_Link`, c.`Org_Full`, d.`Base_URL`, d.`File_Name` FROM `Location_Info` a, `Location_Subscriber_Link` b, `Org_Info` c, `Setup_Info` d WHERE b.`Org_ID` = '$org_id' AND a.`Key` = b.`Location_ID` AND a.`Org_ID` = c.`Key` AND a.`Archived` = 0 AND d.`Org_ID` = a.`Org_ID` ORDER BY a.`Location` ASC"; $sth = $dbh->prepare($query); $sth->execute(); #print "
QUERY: $query
\n"; # assign fields to variables $sth->bind_columns(\$Key, \$Location, \$Address_Link, \$Org_Full, \$Base_URL, \$File_Name); while($sth->fetch()) { $count = 1; my $url = "http://" . $Base_URL . "/" . $File_Name . "?page=field&sub=info&info_id=" . $Key; $table_contents .= "
$Location$Org_Full
\n"; print "\n"; print "\n"; print $table_contents; print "
Subscribed Locations
Field/LocationOwner
\n"; } $sth->finish(); $dbh->disconnect; } ################################## # Print Admin Org Locations ################################## sub print_org_locations{ my $org_id = shift; my $dbh = get_dbh(); ################################## # GET Normal Locations ################################## $query = "SELECT `Key`, `Location`, `Address_Link` FROM `Location_Info` WHERE `Org_ID` = '$org_id' AND Archived = '0' ORDER BY `Location`"; $sth = $dbh->prepare($query); $sth->execute(); #print "
QUERY: $query
\n"; # assign fields to variables $sth->bind_columns(\$Key, \$Location, \$Address_Link); print "\n"; print "\n"; while($sth->fetch()) { print <<__HTML__; __HTML__ } print "
Field/LocationRemoveAdmin
$Location Remove Manage Location
\n"; $sth->finish(); $dbh->disconnect; } ######################################### # Check to see if User has commisioner access ######################################### sub check_access{ my $login_id = shift; my $dbh = get_dbh(); my $commissioner_access = 0; my $Access_Level = ""; # prepare and execute query my $query = "SELECT Access_Level FROM `Permissions_Info` WHERE `Login_ID` = '$login_id'"; #print "$query
\n"; my $sth = $dbh->prepare($query); #print "
$query
\n"; $sth->execute(); # assign fields to variables $sth->bind_columns(\$Access_Level); while($sth->fetch()) { if($Access_Level eq "RW"){ $commissioner_access = 1; } } $sth->finish(); ## disconnect from database $dbh->disconnect; return $commissioner_access; } ######################################### # Check to see if User Name exist ######################################### sub get_user_data{ my $user_id = shift; my $dbh = get_dbh(); my $account_exist = 0; my $return_hash = (); # prepare and execute query my $query = "SELECT * FROM `Account_Info` WHERE `Key` = '$user_id'"; my $sth = $dbh->prepare($query); #print "
$query
\n"; $sth->execute(); # assign fields to variables $sth->bind_columns(\$Key, \$Login, \$Password, \$email, \$League_ID, \$Last_Access, \$Last_Access_ID, \$Firstname, \$Lastname, \$Title, \$Home_Phone, \$Work_Phone, \$Mobile_Phone, \$Zip_Code, \$Token); while($sth->fetch()) { $return_hash{"LOGIN"} = $Login; $return_hash{"EMAIL"} = $email; $return_hash{"FIRSTNAME"} = $Firstname; $return_hash{"LASTNAME"} = $Lastname; $return_hash{"TITLE"} = $Title; $return_hash{"HOMEPHONE"} = $Home_Phone; $return_hash{"WORKPHONE"} = $Work_Phone; $return_hash{"MOBILEPHONE"} = $Mobile_Phone; $return_hash{"ZIP"} = $Zip_Code; $return_hash{"PW"} = $Password; } $sth->finish(); ## disconnect from database $dbh->disconnect; return %return_hash; } ######################################### # Get Toggle Org Settings info ######################################### sub get_org_settings{ my $org_id = shift; my $dbh = get_dbh(); my $org_return_hash = (); # prepare and execute query my $query = "SELECT `Key`, `Show_Ads`, `Subscription_Expiration`, `Current_Status`, `Google_Key`, `Powered_By`, `Module_Field_Mgmt_Lite`, `Module_Field_Mgmt_Full`, `Module_Registration`, `Module_Comm`, `Module_Comm_Reg` FROM `Org_Settings` WHERE `Org_ID` = '$org_id'"; my $sth = $dbh->prepare($query); $sth->execute(); # Set defaults $org_return_hash{"SHOW_ADS"} = 1; $org_return_hash{"SUBSCRIPTION_END_DATE"} = "2036-01-01"; $org_return_hash{"KEY"} = 0; $org_return_hash{"CURRENT_STATUS"} = 1; $org_return_hash{"GOOGLE_KEY"} = ""; $org_return_hash{"POWERED_BY"} = 1; $org_return_hash{"MODULE_FIELD_MGMT_LITE"} = 0; $org_return_hash{"MODULE_FIELD_MGMT_FULL"} = 0; $org_return_hash{"MODULE_REGISTRATION"} = 0; $org_return_hash{"MODULE_COMM"} = 0; $org_return_hash{"MODULE_COMM_REG"} = 0; while (my $hash_ref = $sth->fetchrow_hashref) { $org_return_hash{"SHOW_ADS"} = $hash_ref->{Show_Ads}; $org_return_hash{"SUBSCRIPTION_END_DATE"} = $hash_ref->{Subscription_Expiration}; $org_return_hash{"KEY"} = $hash_ref->{Key}; $org_return_hash{"CURRENT_STATUS"} = $hash_ref->{Current_Status}; $org_return_hash{"GOOGLE_KEY"} = $hash_ref->{Google_Key}; $org_return_hash{"POWERED_BY"} = $hash_ref->{Powered_By}; $org_return_hash{"MODULE_FIELD_MGMT_LITE"} = $hash_ref->{Module_Field_Mgmt_Lite}; $org_return_hash{"MODULE_FIELD_MGMT_FULL"} = $hash_ref->{Module_Field_Mgmt_Full}; $org_return_hash{"MODULE_REGISTRATION"} = $hash_ref->{Module_Registration}; $org_return_hash{"MODULE_COMM"} = $hash_ref->{Module_Comm}; $org_return_hash{"MODULE_COMM_Reg"} = $hash_ref->{Module_Comm_Reg}; } $sth->finish(); ## disconnect from database $dbh->disconnect; return %org_return_hash; } ################################################ ## Return The Information about the site ################################################ sub get_site_info{ my $org_id = shift; my $dbh = get_dbh(); my %site_map = (); # prepare and execute query $query = "SELECT * FROM `Org_Info` WHERE `Key` = $org_id"; $sth = $dbh->prepare($query); $sth->execute(); $sth->bind_columns(\$Key, \$Org_Short, \$Org_Full, \$Banner_Background_Color, \$Purchased_Leagues, \$Website_Background_Color, \$Banner_Text_Color, \$Site_Logo, \$Site_Banner, \$Site_Banner_Text, \$Site_Banner_Image, \$Message_Box_Background_Color, \$Message_Box_Text_Color, \$Menu_Header_Background_Color, \$Menu_Header_Text_Color, \$Menu_Link_Background_Color, \$Menu_Link_Text_Color, \$Menu_Link_Background_Color_Hover, \$Menu_Link_Text_Color_Hover, \$Menu_Border_Color, \$Menu_Font_Size, \$Menu_Link_Icon); while($sth->fetch()) { $site_map{"org_id"} = $Key; $site_map{"org_short"} = $Org_Short; $site_map{"org_full"} = $Org_Full; $site_map{"site_banner_bg"} = $Banner_Background_Color; $site_map{"purchased_league"} = $Purchased_Leagues; $site_map{"website_bg_color"} = $Website_Background_Color; $site_map{"banner_text_color"} = $Banner_Text_Color; $site_map{"site_logo"} = $Site_Logo; $site_map{"site_banner"} = $Site_Banner; $site_map{"site_banner_text"} = $Site_Banner_Text; $site_map{"site_banner_image"} = $Site_Banner_Image; $site_map{"message_box_bg_color"} = $Message_Box_Background_Color; $site_map{"message_box_text_color"} = $Message_Box_Text_Color; $site_map{"menu_header_bg_color"} = $Menu_Header_Background_Color; $site_map{"menu_header_text_color"} = $Menu_Header_Text_Color; $site_map{"menu_link_bg_color"} = $Menu_Link_Background_Color; $site_map{"menu_link_text_color"} = $Menu_Link_Text_Color; $site_map{"menu_link_bg_color_hover"} = $Menu_Link_Background_Color_Hover; $site_map{"menu_link_text_color_hover"} = $Menu_Link_Text_Color_Hover; $site_map{"menu_border_color"} = $Menu_Border_Color; $site_map{"menu_font_size"} = "$Menu_Font_Size"; $site_map{"menu_icon_link"} = $Menu_Link_Icon; $site_map{"menu_padding"} = "17px"; $site_map{"site_banner_image"} =~ s/\/home\/homete3\/public_html/http:\/\/www.hometeamz.com/; $site_map{"site_logo"} =~ s/\/home\/homete3\/public_html/http:\/\/www.hometeamz.com/; } if(!(defined($site_map{"menu_font_size"}))){$site_map{"menu_font_size"} = "11";} $sth->finish(); # disconnect from database $dbh->disconnect; ### These fields were added, just make sure they are not blank :) if($site_map{"menu_link_text_color"} eq "") {$site_map{"menu_link_text_color"} = "#ffffff";} if($site_map{"menu_link_bg_color"} eq "") {$site_map{"menu_link_bg_color"} = "#999999";} if($site_map{"menu_link_text_color_hover"} eq ""){$site_map{"menu_link_text_color_hover"} = "#ffffff";} if($site_map{"menu_link_bg_color_hover"} eq "") {$site_map{"menu_link_bg_color_hover"} = "#686b6e";} if($site_map{"menu_border_color"} eq "") {$site_map{"menu_border_color"} = "#ffffff";} if($site_map{"menu_header_text_color"} eq "") {$site_map{"menu_header_text_color"} = "#ffffff";} if($site_map{"menu_header_bg_color"} eq "") {$site_map{"menu_header_bg_color"} = "#686b6e";} if($site_map{"menu_font_size"} == 0) {$site_map{"menu_font_size"} = "11";} if($site_map{"message_box_text_color"} eq "") {$site_map{"message_box_text_color"} = $site_map{"banner_text_color"};} if($site_map{"message_box_bg_color"} eq "") {$site_map{"message_box_bg_color"} = $site_map{"site_banner_bg"};} if($site_map{"menu_icon_link"} eq "") {$site_map{"menu_padding"} = "10px";} return %site_map; } sub print_tournament{ my $league_id = shift; my $text = "Tournaments"; my $width = 200; print <<__HTML__;
$text
__HTML__ %tournaments = get_current_tournaments($league_id); foreach $tournament_id (sort keys %tournaments) { print "$tournaments{$tournament_id}
\n"; } print <<__HTML__;
__HTML__ } sub print_options_coach{ my $league_id = shift; my %divisions = get_divisions($league_id); my %teams = get_league_teams_w_division($league_id); my %season_duration = get_season_duration($league_id); my $league_name = get_league_name($league_id); my $num_divs = 0; my $show_warning_message = 0; my $menu_type = get_league_menu_type($league_id, $org_id); print <<__HTML__; __HTML__ print "

\n"; print "
\n"; if($menu_type eq "team"){ print <<__HTML__;
Update Team Name
__HTML__ foreach $key (keys %teams){ $team = $key; } print "
\n"; print "\n"; print "\n"; print "\n"; print "
Team NameEdit
$team
edit
\n"; print "
\n"; }elsif($menu_type eq "league"){ print <<__HTML__;
Update League Name
__HTML__ print "
\n"; print "\n"; print "\n"; print "\n"; print "
Team NameEdit
$league_name
edit
\n"; print "
\n"; } print <<__HTML__;
Season Duration
Set your current Season's date range below. Note, games outside the Season Duration date range will not be factored into the Standings or appear on the Print Season button.
__HTML__ my $season_has_expired = check_if_season_has_expired($season_duration{"Season_ED"}); print "
\n"; print "\n"; print "\n"; print "\n"; print "
Season Start DateSeason End Date
$season_duration{\"Season_SD\"}
$season_duration{\"Season_ED\"}
\n"; #print "
\n"; print "Edit Season Duration\n"; if($season_has_expired == 1){ print "
!!! Warning. Your Season Duration has expired. Any game results entered outside this date range will not appear in the Standings. Also, any calendar events entered outside this date range will not appear in the user's Print Season view !!!
\n"; } print "
\n"; if($menu_type ne "team"){ # print <<__HTML__;
Divisions
__HTML__ print "
\n"; print "\n"; print "\n"; foreach $key (sort {lc($divisions{$a}) cmp lc($divisions{$b})} keys %divisions){ print "\n"; $num_divs++; } print "
DivisionEditRemove
$divisions{$key}editremove
Add New Division\n"; print "
\n"; print <<__HTML__;
\n"; } print "
Teams
__HTML__ print "
\n"; print "
\n"; print "\n"; print "\n"; foreach $key (keys %teams){ $div_id = $teams{$key}{"Division_ID"}; $team = $key; $team_id = $teams{$key}{$key}; ##### Check if there are no divisions if(!(defined($divisions{$div_id}))){ $divisions{$div_id} = ""; } if(($num_divs > 0) && ($divisions{$div_id} eq "")){ print "\n"; $show_warning_message = 1; }else{ print "\n"; } } print "
TeamDivisionEditRemove
$key$divisions{$div_id}editremove
$key$divisions{$div_id}editremove
Add New Team
\n"; if ($show_warning_message) { print "
Warning! Teams not assigned to any existing division will not appear in the standings. Please use the edit option to add a team(s) in red to a division
\n"; print <<__HTML__;
__HTML__ }else{ my %linked_leagues = get_linked_leagues2($league_id); print <<__HTML__;
League Subscriptions
__HTML__ print "
\n"; print "\n"; print "\n"; foreach my $linked_league_id (keys %linked_leagues) { $league = get_league_name($linked_league_id); $linked_org = get_org_full_from_league($linked_league_id); $linked_url = get_org_url_from_league($linked_league_id); my %teamsa = get_league_teams($linked_league_id); my %teams = (); foreach $team_key (keys %teamsa) { $teams{$teamsa{$team_key}} = $team_key; } if($linked_leagues{"$linked_league_id"}{"LINKED_TEAM_ID"} == 0){ print "\n"; }else{ my $linked_to_team_id = $linked_leagues{"$linked_league_id"}{"LINKED_TEAM_ID"}; print "\n"; } #This one opens widow, but only works if its in the same league #print "\n"; } print "
Subscribed to LeagueLeague OwnerTeamEdit TeamRemove
$league$linked_orgNAEditRemove
$league$linked_org$teams{\"$linked_to_team_id\"}EditRemove
$leagueTeamRemove
\n"; print "		Subscribe
to League

\n"; #This one opens widow, but only works if its in the same league #print "Link to League
standings
\n"; } if($menu_type ne "team"){ my %display_name_map = ( "PCT" => "PCT", "WINS" => "W", "TIES" => "T", "LOSSES" => "L", "Team Name" => "Team Name", "PF" => "PF", "PA" => "PA", "POINTS" => "PTS", "POINTSB" => "PTS" ); print <<__HTML__;
Standings
Use the table below to configure which stats to display and hide in the Standings page.
__HTML__ my %standings_type = get_league_standings_type($league_id); my $standings_enabled_message = ""; if($standings_type{"ENABLED"} == 1){ $standings_enabled_message = "Standings are currently enabled.             "; $enable_standings_message = "enable
standings"; $disable_stadnings_message = "disable
standings"; }else{ $standings_enabled_message = "Standings are currently disabled.             "; $enable_standings_message = "enable
standings"; $disable_stadnings_message = "disable
standings"; } print "
\n"; print "
\n"; print "\n"; print "\n"; print "
$standings_enabled_message $enable_standings_message $disable_stadnings_message
\n"; print <<__HTML__;
__HTML__ print <<__HTML__;
Team Standings - Display
Use the table below to configure which stats to display and hide in the Standings page.
__HTML__ print "
\n"; print "
\n"; print "\n"; print "\n"; @display_on_off = ("hidden","displayed"); #my %standings_type = get_league_standings_type($league_id); for(my $i=1; $i<9; $i++){ my $j = $i + 1; my $stat_name = $standings_type{"D". $i}; my $next_name = $standings_type{"D". $j}; my $stat_desc = $standings_type{$stat_name . "-desc"}; #print"START NAME: $stat_name - $i
\n"; my $move_left = "move left"; my $move_right = "move right"; if($i == 1){ $move_left = "move left"; } if(($i == 8)||($standings_type{$next_name} == 0)){ $move_right = "move right"; } if($standings_type{$stat_name} == 1){ print "\n"; }else{ #print "\n"; print "\n"; } } print "
StatDescriptionDisplayHide/UnhideMove
$display_name_map{$stat_name}$stat_descdisplayedhideunhide$move_left$move_right
$d1$d1_desc$display_on_off[$standings_type{$d1}]remove
$display_name_map{$stat_name}$stat_deschiddenhideunhidemove leftmove right
\n"; print <<__HTML__;
Team Standings - Sort Order
Use the table below to configure how standings are calculated.
__HTML__ print "
\n"; print "
\n"; print "\n"; print "\n"; @display_sort_order = ("do not user","low-to-high","high-to-low"); #my %standings_type = get_league_standings_type($league_id); for(my $i=1; $i<=9; $i++){ my $j = $i + 1; my $stat_name = $standings_type{"P". $i}; my $next_name = $standings_type{"P". $j}; my $stat_desc = $standings_type{$stat_name . "-desc"}; my $move_up = "move up"; my $move_down = "move down"; if($i == 1){ $move_up = "move up"; } if(($i == 9)||($standings_type{$next_name . "-sort"} == 0)){ $move_down = "move down"; } if($standings_type{$stat_name . "-sort"} == 0){ print "\n"; }elsif($standings_type{$stat_name . "-sort"} == 1){ print "\n"; }else{ print "\n"; } } print "
StatDescriptionSort OrderChange Sort OrderChange Priority
$display_name_map{$stat_name}$stat_descdo not usehigh-to-lowlow-to-highdo not usemove upmove down
$display_name_map{$stat_name}$stat_desclow-to-highhigh-to-lowlow-to-highdo not use $move_up$move_down
$display_name_map{$stat_name}$stat_deschigh-to-lowhigh-to-lowlow-to-highdo not use$move_up$move_down
\n"; print <<__HTML__;
__HTML__ ###################################### # Schedule Management - JM 1/20/2009 ###################################### print <<__HTML__;
Schedule Management
Use this function to clear all calendar events (games, practices, league events, tournaments, etc.) to help set-up a new season. Warning - clearing schedules is not recoverable.
__HTML__ #print "
\n"; #print "\n"; #print "\n"; # print "\n"; #print "
Season Start DateSeason End Date
$season_duration{\"Season_SD\"}
$season_duration{\"Season_ED\"}
\n"; #print "
\n"; #print " print "
Clear Schedules\n"; print "Use this function to bulk load a new season's schedule from an Excel spreadsheet or Scheduler export. To download the Excel spreadsheet template and instructions, click HERE\n"; print "
Upload Schedules\n"; print "
\n"; ###################################### # END Schedule Management - JM 1/20/2009 ###################################### } # END IF Not team page print "\n"; } sub get_linked_leagues{ my $league_id = shift; my $dbh = get_dbh(); my @return_array = (); # prepare and execute query my $query = "SELECT `League_Standings_ID` FROM `League_Standings_Link` WHERE `Team_ID` = $league_id;"; #print "QUERY:$query
\n"; my $sth = $dbh->prepare($query); $sth->execute(); # assign fields to variables $sth->bind_columns(\$League_Standings_ID); ################################################ ## Loop through News Items ################################################ while($sth->fetch()) { push(@return_array, $League_Standings_ID); } $sth->finish(); $dbh->disconnect; return @return_array; } sub get_linked_leagues2{ my $league_id = shift; my $dbh = get_dbh(); my %return_hash = (); # prepare and execute query my $query = "SELECT `Key`, `Team_ID`, `League_Standings_ID`, `Linked_Team_ID` FROM `League_Standings_Link` WHERE `Team_ID` = $league_id;"; #print "QUERY:$query
\n"; my $sth = $dbh->prepare($query); $sth->execute(); # assign fields to variables $sth->bind_columns(\$Key, \$Team_ID, \$League_Standings_ID, \$Linked_Team_ID); ################################################ ## Loop through News Items ################################################ while($sth->fetch()) { $return_hash{"$League_Standings_ID"}{"KEY"} = $Key; $return_hash{"$League_Standings_ID"}{"LINKED_TEAM_ID"} = $Linked_Team_ID; } $sth->finish(); $dbh->disconnect; return %return_hash; } sub get_default_team_for_team_only_league{ my $league_id = shift; my $dbh = get_dbh(); my %return_hash = (); # prepare and execute query my $query = "SELECT `Key` FROM `Team_Info` WHERE `League_ID` = $league_id;"; #print "QUERY:$query
\n"; my $sth = $dbh->prepare($query); $sth->execute(); # assign fields to variables $sth->bind_columns(\$Key); ################################################ ## Loop through News Items ################################################ while($sth->fetch()) { $return_id = $Key; } $sth->finish(); $dbh->disconnect; return $return_id; } sub print_tournament_coach{ my $league_id = shift; print <<__HTML__;


Tournaments
__HTML__ print "
\n"; print "
\n"; print "\n"; print "\n"; # assign fields to variables %tournaments = get_current_tournaments($league_id); foreach $tournament_id (sort keys %tournaments) { print "\n"; print "\n"; } print "
TournamentsViewEditRemove
$tournaments{$tournament_id}ViewEditRemove
\n"; print "		\n"; print "Create New Bracket\n"; print <<__HTML__;
__HTML__ } ################################################################ ### If a League is selected, this is what handle where to go ################################################################ sub print_league{ my $league = shift; my $month = shift; my $year = shift; my $org_id = shift; my $league_id = shift; my $coach = shift; my $filter = shift; my $color = "#006699"; my $menu_type = get_league_menu_type($league_id, $org_id); ################################################################ ### Get the league Name and print the header bar ### i.e. Standing | Calendar | News ################################################################ $league = get_league_name($league_id); print_league_header($league,$sub,0,$league_id); ################################################################ ### This is just to push the text down a bit ################################################################ print "
\n"; #print "
Hi There!      

\n"; ################################################################ ### Determine whether to print the news, standing or calendar ################################################################ if($sub eq 'news'){ print_news($league, $org_id, $league_id, $color, 0); }elsif($sub eq 'standings'){ my $menu_type = get_league_menu_type($league_id, $org_id); if($menu_type ne "team"){ print_standings($league, $org_id, $league_id, 0); }else{ @linked_leagues = get_linked_leagues($league_id); my $first = 1; foreach(@linked_leagues){ $league = get_league_name($_); $linked_org = get_org_full_from_league($_); $linked_url = get_org_url_from_league($_); print_linked_event_header("Standings", $league, $linked_url, $linked_org, $first); print_standings("NOT SURE", 0, $_, 0); $first = 0; } if($first == 1){ print "

No Standings available for this Team
\n"; } } }elsif($sub eq 'calendar'){ print_league_calendar($league, $month, $year, 0, $org_id, $league_id, $filter, $menu_type); }elsif($sub eq 'tournament'){ print "
\n"; print_tournament($league_id); @linked_leagues = get_linked_leagues($league_id); foreach(@linked_leagues){ $league = get_league_name($_); $linked_org = get_org_full_from_league($_); $linked_url = get_org_url_from_league($_); print_linked_event_header("Tournaments", $league, $linked_url, $linked_org); print_tournament($_); } print "\n"; } ################################################################ ### Not sure where this div starts???? ################################################################ print "\n"; } sub print_linked_event_header{ my $event_type = shift; my $league = shift; my $linked_url = shift; my $league_org = shift; my $first = shift; my $hr_text = "
"; if ($first == 1) { $hr_text = ""; } print <<__HTML__;

$hr_text
$event_type for $league League
League $event_type Managed by $linked_org
__HTML__ } ################################################################ ### If a League is selected, this is what handle where to go ################################################################ sub print_league_only{ my $league = shift; my $month = shift; my $year = shift; my $org_id = shift; my $league_id = shift; my $coach = shift; my $filter = shift; my $color = "#006699"; ################################################################ ### Get the league Name and print the header bar ### i.e. Standing | Calendar | News ################################################################ $league = get_league_name($league_id); print_league_only_header($league,$sub,0,$league_id); ################################################################ ### This is just to push the text down a bit ################################################################ print "

\n"; ################################################################ ### Determine whether to print the news, standing or calendar ################################################################ if($sub eq 'news'){ print_news($league, $org_id, $league_id, $color, 0); }elsif($sub eq 'standings'){ print_standings($league, $org_id, $league_id, 0); }elsif($sub eq 'calendar'){ print_league_calendar($league, $month, $year, 0, $org_id, $league_id, $filter); }elsif($sub eq 'tournament'){ print_tournament($league_id); } print "\n"; print "\n"; print "\n"; print "\n"; print <<__HTML__;
\n"; }else{ print " \n"; } }elsif($Home_Score < $Away_Score){ if($coach){ print " \n"; }else{ print " \n"; } }else{ if($coach){ print " \n"; }else{ print " \n"; } } }else{ if(($league_id == 13)||($league_id == 1)||($league_id == 2)||($league_id == 9)){ print " \n"; }else{ if($coach){ print " \n"; }else{ print " \n"; } } } }elsif($Event_Type == 1){ #= LEAGUE EVENT print " \n"; }elsif($Event_Type == 2){ #= Practice print " \n"; }elsif($Event_Type == 3){ #= Preseason Game my $update_score_href = "score"; #####################################################3 if(($Home_Score != -1 and $Away_Score != -1)){ #-1 = game is not played yet if($Home_Score > $Away_Score){ if($coach){ print " \n"; }else{ print " \n"; } }elsif($Home_Score < $Away_Score){ if($coach){ print " \n"; }else{ print " \n"; } }else{ if($coach){ print " \n"; }else{ print " \n"; } } }else{ if($coach){ print " \n"; }else{ print " \n"; } } ############################################## }elsif($Event_Type == 5){ ################################################ ## Check if its a tournament event ################################################ %tournament_event_info = get_tournament_event_info_by_event_id($ID); $alt_top = $tournament_event_info{"ALT_TOP_BRACKET"}; $alt_bottom = $tournament_event_info{"ALT_BOTTOM_BRACKET"}; if($Home_Team == 0){ if($alt_top ne ""){ $teams{'0'} = $alt_top; }else{ $teams{'0'} = "TBD"; } } if($Away_Team == 0){ if($alt_bottom ne ""){ $teams{'-1'} = $alt_bottom; }else{ $teams{'-1'} = "TBD"; } $Away_Team = -1; } if($Notes eq ""){ $Notes = $tournament_event_info{"ALT_TEXT"}; } $events{$Event_Type} = "Tournament Game"; if(($Home_Score != -1 and $Away_Score != -1)){ #-1 = game is not played yet if($Home_Score > $Away_Score){ #Home Team Wins print " \n"; }elsif($Home_Score < $Away_Score){ #Away Team Wins print " \n"; }else{ #Tie Gaem print " \n"; } }else{ print " \n"; } } if(($Event_Type == 6) && ($coach == 0)){ # Do Nothing :) }else{ if($Notes ne ""){ my $short_notes_id = "show_notes" . $ID; my $long_notes_id = "snotes" . $ID; if(length($Notes) > 20){ print " \n"; }else{ if($coach){ print "\n"; }else{ print ""; } } ################################################ # Keep count of how many events displayed ################################################ $count++; } } } print "
Powered by HomeTeamz
__HTML__ ################################################################ ### Not sure where this div starts???? ################################################################ print "\n"; } ################################################################ ### Get the Menu Key given the league ################################################################ sub get_menu_key{ my $league = shift; my $org_id = shift; my $return_key = ""; my $dbh = get_dbh(); # prepare and execute query my $query = "SELECT `Key` FROM `Menu_Info` WHERE `League_ID` = $league AND `Org_ID` = $org_id" ; my $sth = $dbh->prepare($query); $sth->execute(); # assign fields to variables $sth->bind_columns(\$Key); ################################################ ## Loop through News Items ################################################ while($sth->fetch()) { $return_key = $Key; } return $return_key; } ################################################################ ### This will display the news for a given league, currently ### it reads from a fele ################################################################ sub print_news{ my $league = shift; my $org_id = shift; my $league_id = shift; my $color = shift; my $coach = shift; my $first = 1; my $count = 0; my $last = 0; my $current_date = ""; my $current_time = ""; $league = uc($league); my $menu_key = get_menu_key($league_id, $org_id); if($coach == 1){ #print_update_news($league, $org_id, $league_id, $color); print "

\n"; print "\n"; } print "

\n"; print_marquee($menu_key); ################################################ ## Query news from database ################################################ my $dbh = get_dbh(); #print "MENU KEY:$menu_key
LEAGUE:$league
LEAGUE ID:$league_id\n"; my $query = "SELECT count( * ) FROM `Infopage_Info` WHERE `Page_ID` = $menu_key AND `Org_ID` = $org_id"; my $sth = $dbh->prepare($query); $sth->execute(); my $total = $sth->fetchrow_arrayref->[0]; # prepare and execute query $query = "SELECT * FROM `Infopage_Info` WHERE `Page_ID` = $menu_key AND `Org_ID` = $org_id Order By `Order`"; $sth = $dbh->prepare($query); $sth->execute(); # assign fields to variables $sth->bind_columns(\$Key, \$Org_ID, \$Page_ID, \$Date, \$Title, \$Order, \$Text); while($sth->fetch()) { $count++; if($count == $total){$last =1;} #print "COUNT: $count - TOTAL: $total
\n"; print_info_block($Key,$Title,$Date,$Text,$coach,$org_id,$league_id,$first,$last,"league",$menu_key); $first = 0; } ################################################ ## Query news from database Old style ################################################ $dbh = get_dbh(); # prepare and execute query $query = "SELECT * FROM `News` WHERE `League_ID` = $league_id ORDER BY Date DESC"; $sth = $dbh->prepare($query); $sth->execute(); # assign fields to variables $sth->bind_columns(\$Key, \$Org_ID, \$League_ID, \$Team_ID, \$Date, \$Title, \$News); ################################################ ## Loop through News Items ################################################ while($sth->fetch()) { ################################################ ## Convert Date ################################################ ($current_date, $current_time) = split(/\s+/, $Date); $current_date = convert_date_to_display($current_date); ################################################ ## Print the News Blocks ################################################ print_news_block($Key,$Title,$current_date,$News,$color,$coach,$league_id); $count = 1; } if($count == 0){ print <<__HTML__;
 
No Current News
__HTML__ } print <<__HTML__;
__HTML__ } ################################################################ ### Print the Standings ################################################################ sub print_standings{ my $league = shift; my $org_id = shift; my $league_id = shift; my $coach = shift; my %season_duration = get_season_duration($league_id); $start_date = convert_date_no_time_to_db($season_duration{"Season_SD"} ); $end_date = convert_date_no_time_to_db($season_duration{"Season_ED"} ) . "23:59:59"; #$start_date = "$start_year-$start_month-01 00:00:00"; #$end_date = "$end_year-$end_month-01 23:59:59"; #if(($league_id == 13)||($league_id == 1)||($league_id == 2)||($league_id == 9)||($league_id == 34)){ # print "
Standings are not Tracked for This League
\n"; #}else{ # get_standings($start_date, $end_date, $league_id, $current_month, $current_year, $coach); #} ###################################333 #### New STANDINGS ###################################### print "
\n"; my %standings_type = get_league_standings_type($league_id); my $standings_enabled_message = ""; if($standings_type{"ENABLED"} == 0){ print "
Standings are not Tracked for This League
\n"; }else{ get_standings2($start_date, $end_date, $league_id, $current_month, $current_year, $coach, $season_duration{"Season_SD"}, $season_duration{"Season_ED"} ); } } ################################################################ ### Sets up the print area for the calendar (does not do much) ################################################################ sub print_league_calendar{ my $league = shift; my $current_month = shift; my $current_year = shift; my $coach = shift; my $org_id = shift; my $league_id = shift; my $filter = shift; my $menu_type = shift; if(!(defined($coach))){ $coach = 0; } if(!(defined($current_month))){ $current_date = get_date(); ($current_month, $current_day, $current_year) = split(/\//, $current_date); } ($next_month, $next_year) = get_next_month($current_month, $current_year, "next"); $current_month = sprintf("%02d", $current_month); $next_month = sprintf("%02d", $next_month); $start_date = "$current_year-$current_month-01 00:00:00"; $end_date = "$next_year-$next_month-01 00:00:00"; #$league = 1; if($coach){ print "

\n"; print "\n"; } print "

\n"; if($menu_type ne "team"){ if($filter == 0){ get_calendar_events($start_date, $end_date, $league, $current_month, $current_year, $coach, $org_id, $league_id, $filter); }else{ get_calendar_events2($start_date, $end_date, $league, $current_month, $current_year, $coach, $org_id, $league_id, $filter); } }else{ get_calendar_events_linked_all($start_date, $end_date, $league, $current_month, $current_year, $coach, $org_id, $league_id, $filter); } print "
\n"; } ################################################################ ### Prints the top title bar for tournament ################################################################ sub print_top_tourney{ print <<__HTML__;
 
__HTML__ } sub get_header_info{ my $org_id = shift; my $dbh = get_dbh(); my $query = "SELECT `Site_Header_BG_Color`, `Text` FROM `Org_Header` WHERE `Org_ID` = $org_id"; my $sth = $dbh->prepare($query); $sth->execute(); # assig fields to variables $sth->bind_columns(\$site_header_bg_color, \$text); while($sth->fetch()) { $return_bg_color = $site_header_bg_color; $return_html = $text; } return $return_bg_color, $return_html; } ################################################################ ### Prints the top title bar ################################################################ sub print_top{ print <<__HTML__;
__HTML__ print "
   Powered by Hometeamz.com Inc.\n"; if($valid_user{"LOGIN_SUCCESS"} == 1){ print "Welcome, $valid_user{\"FIRSTNAME\"}\n"; ################################# # Communications Mod ################################# if(($access_level >= 3) && ($org_settings{"MODULE_COMM"})){ print "   Communications\n"; } ################################# ## If Admin ################################# if($access_level >= 3){ print "   Control Panel\n"; } if($valid_user{"LOGIN_SUCCESS"} == 1){ #print "   My Hometeamz\n"; print "   Logout"; } }else{ print "Login"; } print <<__HTML__;
 

$site_info{"site_banner_text"}
__HTML__ } ################################################################ ### Prints the top title bar ################################################################ sub print_top2{ $org_id = 29; ($site_header_bg_color, $header_html) = get_header_info($org_id); print <<__HTML__;
__HTML__ print "
\n"; if($valid_user{"LOGIN_SUCCESS"} == 1){ print "Welcome, $valid_user{\"FIRSTNAME\"}\n"; ################################# ## If Admin ################################# if($access_level >= 3){ print "   Control Panel\n"; } if($access_level >= 1){ #print "   My Hometeamz\n"; print "   Logout"; } }else{ print "Login"; } print <<__HTML__;
$header_html
__HTML__ } ################################################################ ### Print the contents of the right margin ################################################################ sub print_right_border{ $org_id = shift; print "
\n"; print <<__HTML__; __HTML__ my $dbh = get_dbh(); my $query = "SELECT * FROM `Gallery_Info` WHERE `Org_ID` = $org_id Order By `Order`"; my $sth = $dbh->prepare($query); $sth->execute(); # assig fields to variables $sth->bind_columns(\$Key, \$Org_ID, \$Order, \$Gallery_Name, \$Gallery_Note, \$Gallery_Type, \$Name_Link, \$Note_Link, \$City, \$State); $gallery_count = 0; while($sth->fetch()) { if($Gallery_Type eq "photo"){ my $query2 = "SELECT * FROM `Gallery_Images` WHERE `Gallery_ID` = $Key ORDER BY `Order`"; my $sth2 = $dbh->prepare($query2); $sth2->execute(); # assign fields to variables $sth2->bind_columns(\$Key, \$Gallery_ID, \$Image_Location, \$Image_URL, \$Photo_Link, \$Order); $image_count = 0; print <<__HTML__; __HTML__ print "\n"; $sth2->finish(); if($image_count == 0){ $display_image = "$teamdata/hometeamz/sampleimage.jpg"; print "\n"; } print <<__HTML__;
$Gallery_Name

$Gallery_Note

__HTML__ $gallery_count++; }elsif($Gallery_Type eq "weather"){ print <<__HTML__;
$Gallery_Name
$Gallery_Note

__HTML__ } } $sth->finish(); # disconnect from database $dbh->disconnect; print <<__HTML__;
 
__HTML__ } ################################################################ ### Get the first info ID in case its the first page ################################################################ sub get_first_info_id{ my $org_id = shift; my $dbh = get_dbh(); my $type = ""; my $return_info_id = 0; my $return_page_type = ""; # prepare and execute query my $query = "SELECT * FROM `Menu_Info` WHERE `Org_ID` = $org_id AND `Order` <> -1 Order By `Order`"; #print "QUERY: $query
\n"; my $sth = $dbh->prepare($query); $sth->execute(); # assign fields to variables $sth->bind_columns(\$Key, \$Org_ID, \$League_ID, \$Order, \$Menu_Name, \$Menu_Type, \$Menu_URL); my $first = 1; while($sth->fetch()) { $type = $Menu_Type; if ($Menu_Type eq "info"){ if($first){ $return_info_id = $Key; $first = 0; } } if (($Menu_Type eq "team")||($Menu_Type eq "league")){ if($first){ $return_info_id = $League_ID; $return_page_type = "league"; $first = 0; } } } $sth->finish(); # disconnect from database $dbh->disconnect; return $return_info_id, $return_page_type; } ################################################################ ### This section reads the config file and prints the menu ### on the left. ################################################################ sub print_menu{ my $org_id = shift; my $dbh = get_dbh(); my $type = ""; # prepare and execute query my $query = "SELECT * FROM `Menu_Info` WHERE `Org_ID` = $org_id AND `Order` <> -1 Order By `Order`"; my $sth = $dbh->prepare($query); $sth->execute(); # assign fields to variables $sth->bind_columns(\$Key, \$Org_ID, \$League_ID, \$Order, \$Menu_Name, \$Menu_Type, \$Menu_URL); print "
\n"; #print "DBH", $dbh, "
\n"; #print "ORG", $org_id, "
\n"; print "
\n"; print "
    \n"; #print "$query
    \n"; my $first = 1; my $return_info_id = 0; while($sth->fetch()) { $type = $Menu_Type; if($Menu_Type eq "league"){ print "
  • $Menu_Name\n"; print " \n"; print "
    • \n"; }elsif ($Menu_Type eq "info"){ print "
  • $Menu_Name
    • \n"; if($first){ $return_info_id = $Key; $first = 0; } }elsif ($Menu_Type eq "header"){ print "
  • $Menu_Name
    • \n"; }elsif ($Menu_Type eq "url"){ print "
  • $Menu_Name
    • \n"; }elsif ($Menu_Type eq "team"){ print "
  • $Menu_Name\n"; print " \n"; print "
    • \n"; }elsif ($Menu_Type eq "location"){ print "
  • $Menu_Name
    • \n"; }elsif ($Menu_Type eq "location_list"){ print "
  • $Menu_Name
    • \n"; } $league_name = $League_Name; } my %hits_status = get_counter_on_off($org_id); if($hits_status{$org_id}{"ON_OFF"} == 1){ %hit_count = get_hits($org_id); $hit_type = $hits_status{$org_id}{"HIT_TYPE"}; $hits = $hit_count{$org_id}{"$hit_type"}; #print "
    $hit_type $hits
    \n"; print "
  • $hit_type: $hits
    • \n"; } print "
"; #print "$this_message"; print "
\n"; if(($org_id == 291)){ print "
\n"; }else{ print "
\"HomeTeamz.com

\n"; } if($org_settings{"SHOW_ADS"} == 1){ # Comment out google ads $ad_to_show = get_ad_to_show($org_id); if($ad_to_show > 0){ print_ad($ad_to_show); }else{ print_google_ad(); } print_google_ad(); } print "
\n"; $sth->finish(); # disconnect from database $dbh->disconnect; return $return_info_id; } sub get_ad_to_show{ my $org_id = shift; my %ads_available_to_show = (); my @org_sport_types = get_org_sport_types($org_id); foreach(@org_sport_types){ my @available_ads = get_ad_sport_types($_); foreach(@available_ads){ $ads_available_to_show{$_} = 1; } } @ads_available_to_show = keys %ads_available_to_show; my $add_array_length = @ads_available_to_show + 0; my $rand_ad_value = int(rand($add_array_length)); if(($rand_ad_value ne "") && (defined($rand_ad_value))){ $return_value = $ads_available_to_show[$rand_ad_value]; }else{ $return_value = 0; } if(!(defined($return_value))){$return_value = 0;} # Verify this gets set to something return $return_value; #print_ad($ads_available_to_show[$rand_ad_value]); } sub get_org_sport_types{ my $org_id = shift; my @sport_types = (); my @org_sport_types = (); my %return_hash = (); #$sport_types[1] = "baseball"; #$sport_types[7] = "baseball"; #$sport_types[12] = "baseball"; #$sport_types[29] = "baseball"; #$sport_types[42] = "baseball"; #$sport_types[69] = "baseball"; #$sport_types[70] = "baseball"; #$sport_types[72] = "baseball"; #$sport_types[112] = "baseball"; if(defined($sport_types[$org_id])){ @org_sport_types = split(/\,/,$sport_types[$org_id]); } return @org_sport_types; } sub get_ad_sport_types{ my $ad_type = shift; my %ad_types = (); $ad_types{"baseball"} = '1'; $ad_types{"softball"} = '1'; my @available_ads = split(/\,/, $ad_types{$ad_type}); foreach(@available_ads){ $ads_available_to_show{$_} = 1; } return @available_ads; } sub print_ad{ $this_ad = shift; %advertiser_info = get_advertiser_info($this_ad); my $date = get_db_date(); my $ad_count = get_ad_count($this_ad, $date); my $ad_value = $advertiser_info{"COST_PER_CLICK"} * $ad_count; if($ad_value < $advertiser_info{"MAX_PER_DAY"}){ print "
\n"; print "

\n"; print "
\n"; #$advertiser_info{\"NAME\"} print "

\n"; }else{ print_google_ad(); } } sub print_google_ad{ print <<__HTML__;


__HTML__ } sub get_advertiser_info{ my $this_ad = shift; my $dbh = get_dbh(); my %return_hash = (); # prepare and execute query my $query = "SELECT * FROM `Advertiser_Info` WHERE `Key` = $this_ad"; my $sth = $dbh->prepare($query); $sth->execute(); # assign fields to variables $sth->bind_columns(\$Key, \$Name, \$URL, \$Max_Per_Day, \$Cost_Per_Click); while($sth->fetch()) { $return_hash{"NAME"} = $Name; $return_hash{"URL"} = $URL; $return_hash{"MAX_PER_DAY"} = $Max_Per_Day; $return_hash{"COST_PER_CLICK"} = $Cost_Per_Click; } $sth->finish(); # disconnect from database $dbh->disconnect; return %return_hash; } sub get_ad_count{ my $this_ad = shift; my $date = shift; my $count = 0; my $dbh = get_dbh(); # prepare and execute query my $query = "SELECT * FROM `Advertiser_Click_Info` WHERE `Advertiser_ID` = $this_ad AND `Date` = '$date'"; my $sth = $dbh->prepare($query); $sth->execute(); # assign fields to variables $sth->bind_columns(\$Key, \$Advertiser_ID, \$Org_ID, \$Date, \$Count); while($sth->fetch()) { $count = $count + $Count; } $sth->finish(); # disconnect from database $dbh->disconnect; return $count; } ################################################################ ### This section prints the stylesheet as well as some ### Javascript functions ################################################################ sub print_style{ $league_only = shift; $no_menu = shift; if(!(defined($no_menu))){ $no_menu = 0;} $menu_text_color = "#ffffff"; $menu_bg_color = "#999999"; $menu_border_color = "#ffffff"; $menu_head_text_color = "#ffffff"; $menu_head_bg_color = "#686b6e"; $menu_padding = "2px"; #$menu_color_hover = "#ffffff"; #$menu_color_hover = "yellow"; $menu_color_hover = "#ffffff"; $menu_bg_color_hover = "#686b6e"; $bare_domain = $hometeamz_url; $bare_domain =~ s/www\.//; my $menu_url_background = ""; if($site_info{'menu_icon_link'} ne ""){ $menu_url_background = " url($site_info{'menu_icon_link'}) no-repeat center left"; } if(!(defined($league_only))){$league_only = 0;} if($league_only == 1){ $bg_url = ""; }else{ $bg_url = "$teamdata/hometeamz/bg_right3.gif"; } #$style_sheet = "$lib/ht.css"; my $google_analytics = ""; if($org_settings{"GOOGLE_KEY"} ne ""){ $google_analytics =<<__GOOGLEANALYTICS__ __GOOGLEANALYTICS__ } if($no_menu == 0){ print <<__HTML__; __HTML__ } print <<__HTML__; __HTML__ $this_message = add_to_hit_counter($org_id); print $google_analytics; } ################################################################ ### This sub will get all the event from the database give ### a date, team, and league and print them to the screen ################################################################ ############# Filter On - Team specific sub get_calendar_events2{ my $start_date = shift; my $end_date = shift; my $league = shift; my $current_month = shift; my $current_year = shift; my $coach = shift; my $org_id = shift; my $league_id = shift; my $filter = shift; my $am_pm = ""; my $display_time = ""; my $last_date = ""; my $count = 0; my $even = 1; print "\n"; print "\n"; print "\n"; print "\n"; ################################################ ## Copy Teams Hash so that Keys=Value ## And for Locations ## This was down becuase orginally the query ## was created so that the hash vaule was the ## field, but in this instance it needs to be ## the other way around. ################################################ my %teamsa = get_league_teams($league_id); my %locations = get_locations_with_link($org_id); my %eventsa = get_event_types(); foreach $key (keys %teamsa){ $teams{$teamsa{$key}} = $key; } #foreach $key (keys %locationsa){ # $locations{$locationsa{$key}} = $key; #} foreach $key (keys %eventsa){ $events{$eventsa{$key}} = $key; } $dbh = get_dbh(); # prepare and execute query $query = "SELECT * FROM `Calendar_Events` WHERE `Start_Date` > '$start_date' AND `Start_Date` < '$end_date' AND `League_ID` = $league_id ORDER BY Start_Date ASC"; $sth = $dbh->prepare($query); $sth->execute(); # assign fields to variables $sth->bind_columns(\$ID, \$Org_ID, \$League_ID, \$Team_ID, \$Start_Date, \$End_Date, \$Event_Type, \$Home_Team, \$Home_Score, \$Away_Team, \$Away_Score, \$Desc, \$Location, \$Other_Location, \$Notes, \$Status); ################################################ ## Print Main Calendar Header ## in pyb_lib.pm ################################################ print_calendar_header_all_events2($current_month,$current_year,$league_id,$coach,$filter); while($sth->fetch()) { if($Event_Type != 6){ ################################################ ## Parse Date String ################################################ my ($date, $time) = split(/\s+/, $Start_Date); my ($hour,$min,$sec) = split(/:/, $time); my ($edate, $etime) = split(/\s+/, $End_Date); my ($ehour,$emin,$esec) = split(/:/, $etime); my ($current_year,$month,$day) = split(/-/, $date); my ($ecurrent_year,$emonth,$eday) = split(/-/, $edate); my $shortened_notes = ""; my $leftover_notes = ""; if(length($Notes) >= 20){ $shortened_notes = substr($Notes,0,20); $leftover_notes = substr($Notes,20); }else{ $shortened_notes = $Notes; } ################################################ ## Convert to epoch seconds and back to get ## Day of week (ie Sat) and to get the Day ## without any leading zero's (ie 03) ################################################ my $time_in_epoch = timelocal($sec,$min,$hour,$day,$month-1,$current_year-1900); my ($rsec, $rmin, $rhour, $current_day, $rmonth, $ryear, $wday, $yday, $isdst) = localtime($time_in_epoch); my $etime_in_epoch = timelocal($esec,$emin,$ehour,$eday,$emonth-1,$ecurrent_year-1900); my ($ersec, $ermin, $erhour, $ecurrent_day, $ermonth, $eryear, $ewday, $eyday, $eisdst) = localtime($etime_in_epoch); ################################################ ## Convert to Month Name (ie January) and ## Day of Week name (ie Sat) ################################################ my $day_name = get_day_name($wday); my $month_name = get_month_name($month); ################################################ ## Make conversions to display properly ################################################ if($rhour > 12){ $rhour = $rhour - 12; $am_pm = "PM"; }elsif($rhour == 0){ $rhour = 12; $am_pm = "AM"; }elsif($rhour == 12){ $am_pm = "PM"; }else{ $am_pm = "AM"; } if($erhour > 12){ $erhour = $erhour - 12; $eam_pm = "PM"; }elsif($erhour == 0){ $erhour = 12; $eam_pm = "AM"; }elsif($erhour == 12){ $eam_pm = "PM"; }else{ $eam_pm = "AM"; } my $display_time = "$rhour:$min $am_pm"; my $edisplay_time = "$erhour:$emin $eam_pm"; $display_time = "$rhour:$min $am_pm"; ################################################ ## Set current location var and take into account ## that the Other location could be set ################################################ if($Location == 0){ #Location is other $current_location = $Other_Location; }else{ if($locations{$Location}{"LINK"} ne ""){ $current_location = "" . $locations{$Location}{"Location"} . ""; }else{ $current_location = $locations{$Location}{"Location"}; } } $month = sprintf("%1d",$month); $day = sprintf("%1d",$day); ################################################ # This Displays Events with specific Team (filter) selection ################################################ if(($filter==0)||($filter==$Home_Team)||(($filter==$Away_Team)&&($Event_Type != 2))||($Event_Type==1)){ if($even){ if($Status == 1){ $row_style = "cal_events2_st"; $row_style_notes = "cal_events2"; }else{ $row_style = "cal_events2"; $row_style_notes = "cal_events2"; } $even--; }else{ if($Status == 1){ $row_style = "cal_events3_st"; $row_style_notes = "cal_events3"; }else{ $row_style = "cal_events3"; $row_style_notes = "cal_events3"; } $even++; } if($show_end_time == 1){ #$display_time = $display_time . "
- " . $edisplay_time; $display_time = $display_time . "
" . $edisplay_time; } if($Event_Type == 4){ #4 = GAME my $update_score_href = "Score"; if(($Home_Score != -1 and $Away_Score != -1)){ #-1 = game is not played yet if($Home_Score > $Away_Score){ if($coach){ print "
$month/$day $display_time Game$teams{$Away_Team}($Away_Score) @ $teams{$Home_Team}($Home_Score) $update_score_href$current_location
$month/$day $display_time Game$teams{$Away_Team}($Away_Score) @ $teams{$Home_Team}($Home_Score) $current_location
$month/$day $display_time Game$teams{$Away_Team}($Away_Score) @ $teams{$Home_Team}($Home_Score) $update_score_href$current_location
$month/$day $display_time Game$teams{$Away_Team}($Away_Score) @ $teams{$Home_Team}($Home_Score) $current_location
$month/$day $display_time Game$teams{$Away_Team}($Away_Score) @ $teams{$Home_Team}($Home_Score) $update_score_href$current_location
$month/$day $display_time Game$teams{$Away_Team}($Away_Score) @ $teams{$Home_Team}($Home_Score) $current_location
$month/$day $display_time Game$teams{$Away_Team} @ $teams{$Home_Team}$current_location
$month/$day $display_time Game$teams{$Away_Team} @ $teams{$Home_Team} $update_score_href$current_location
$month/$day $display_time Game$teams{$Away_Team} @ $teams{$Home_Team}$current_location
$month/$day $display_time League Event$Desc$current_location
$month/$day $display_time Practice$teams{$Home_Team} $current_location
$month/$day $display_time Preseason Game$teams{$Away_Team}($Away_Score) @ $teams{$Home_Team}($Home_Score) $update_score_href$current_location
$month/$day $display_time Preseason Game$teams{$Away_Team}($Away_Score) @ $teams{$Home_Team}($Home_Score) $current_location
$month/$day $display_time Preseason Game$teams{$Away_Team}($Away_Score) @ $teams{$Home_Team}($Home_Score) $update_score_href$current_location
$month/$day $display_time Preseason Game$teams{$Away_Team}($Away_Score) @ $teams{$Home_Team}($Home_Score) $current_location
$month/$day $display_time Preseason Game$teams{$Away_Team}($Away_Score) @ $teams{$Home_Team}($Home_Score) $update_score_href$current_location
$month/$day $display_time Preseason Game$teams{$Away_Team}($Away_Score) @ $teams{$Home_Team}($Home_Score) $current_location
$month/$day $display_time Preseason Game$teams{$Away_Team} @ $teams{$Home_Team} $update_score_href$current_location
$month/$day $display_time Preseason Game$teams{$Away_Team} @ $teams{$Home_Team}$current_location
$month/$day $display_timeTournament Game$teams{$Away_Team}($Away_Score) @ $teams{$Home_Team}($Home_Score) $current_location
$month/$day $display_timeTournament Game$teams{$Away_Team}($Away_Score) @ $teams{$Home_Team}($Home_Score) $current_location
$month/$day $display_timeTournament Game$teams{$Away_Team}($Away_Score) @ $teams{$Home_Team}($Home_Score) $current_location
$month/$day $display_timeTournament Game$teams{$Away_Team} @ $teams{$Home_Team}$current_location
$shortened_notes...[+]
\n"; print " \n"; }else{ print " 		$shortened_notes\n"; } }else{ print "  "; } } ################################################ ## If The user logged in has coach permissions ## Show the Edit and Del options ################################################ if(($coach) && ($Event_Type != 5)){ print "Edit "; print "Del"; print "
Cancel
 
\n"; $sth->finish(); # disconnect from database $dbh->disconnect; if($count == 0){ print "

No Events for this month
\n"; } } sub get_location_name_and_link{ my $location_id = shift; my $dbh = get_dbh(); my %return_hash; my $Location; my $Address_Link; # prepare and execute query my $query = "SELECT `Location`, `Address_Link` FROM `Location_Info` WHERE `Key` = '$location_id'"; #print "QUERY: $query
\n"; my $sth = $dbh->prepare($query); my $return_location = ""; $sth->execute(); # assign fields to variables $sth->bind_columns(\$Location, \$Address_Link); # output name list to the browser while($sth->fetch()) { $return_location = $Location; $return_link = $Address_Link; $return_hash{"LOCATION"} = $Location; $return_hash{"LINK"} = $Address_Link; } #print "LOC: $return_location
\n"; $sth->finish(); # disconnect from database $dbh->disconnect; return %return_hash; } sub get_location_name{ my $location_id = shift; my $dbh = get_dbh(); # prepare and execute query my $query = "SELECT `Location` FROM `Location_Info` WHERE `Key` = '$location_id'"; #print "QUERY: $query
\n"; my $sth = $dbh->prepare($query); my $return_location = ""; $sth->execute(); # assign fields to variables $sth->bind_columns(\$Location); # output name list to the browser while($sth->fetch()) { $return_location = $Location; } #print "LOC: $return_location
\n"; $sth->finish(); # disconnect from database $dbh->disconnect; return $return_location; } #################################### # Get the menu name given the league # ID and type. League is overloaded # and can get confused with locations #################################### sub get_menu_for_league_or_team_by_league_id{ my $league_id = shift; my $menu_type = shift; my $org_id = shift; my $return_menu = ""; my $dbh = get_dbh(); # prepare and execute query my $query = "SELECT `Menu_Name` FROM `Menu_Info` WHERE `League_ID` = '$league_id' AND (`Menu_Type` = 'LEAGUE' OR `Menu_Type` = 'TEAM') AND `Org_ID` = '$org_id'"; #print "MT: $menu_type: QUERY: $query
\n"; my $sth = $dbh->prepare($query); my $return_location = ""; $sth->execute(); # assign fields to variables $sth->bind_columns(\$Menu_Name); # output name list to the browser while($sth->fetch()) { $return_menu = $Menu_Name; } #print "LOC: $return_location
\n"; $sth->finish(); # disconnect from database $dbh->disconnect; return $return_menu; } #################################### # Get the menu name given the league # ID and type. League is overloaded # and can get confused with locations #################################### sub get_menu_name_by_league_id_and_type{ my $league_id = shift; my $menu_type = shift; my $org_id = shift; my $return_menu = ""; my $dbh = get_dbh(); # prepare and execute query my $query = "SELECT `Menu_Name` FROM `Menu_Info` WHERE `League_ID` = '$league_id' AND `Menu_Type` = '$menu_type' AND `Org_ID` = '$org_id'"; my $sth = $dbh->prepare($query); my $return_location = ""; $sth->execute(); # assign fields to variables $sth->bind_columns(\$Menu_Name); # output name list to the browser while($sth->fetch()) { $return_menu = $Menu_Name; } #print "LOC: $return_location
\n"; $sth->finish(); # disconnect from database $dbh->disconnect; return $return_menu; } sub get_menu_name_and_org_id{ my $menu_id = shift; my $dbh = get_dbh(); # prepare and execute query my $query = "SELECT `Menu_Name`, `Org_ID` FROM `Menu_Info` WHERE `Key` = '$menu_id'"; #print "QUERY: $query
\n"; my $sth = $dbh->prepare($query); my $return_location = ""; $sth->execute(); # assign fields to variables $sth->bind_columns(\$Menu_Name, \$Org_ID); # output name list to the browser while($sth->fetch()) { $return_menu = $Menu_Name; $return_org = $Org_ID; } #print "LOC: $return_location
\n"; $sth->finish(); # disconnect from database $dbh->disconnect; return $return_menu, $return_org; } sub get_menu_name{ my $menu_id = shift; my $dbh = get_dbh(); # prepare and execute query my $query = "SELECT `Menu_Name` FROM `Menu_Info` WHERE `Key` = '$menu_id'"; #print "QUERY: $query
\n"; my $sth = $dbh->prepare($query); my $return_location = ""; $sth->execute(); # assign fields to variables $sth->bind_columns(\$Menu_Name); # output name list to the browser while($sth->fetch()) { $return_menu = $Menu_Name; } #print "LOC: $return_location
\n"; $sth->finish(); # disconnect from database $dbh->disconnect; return $return_menu; } ################################################################ ### This sub will get all the event from the database give ### a date, team, and league and print them to the screen ################################################################ ######## For Linked Teams but with all events sub get_calendar_events_linked_all{ my $start_date = shift; my $end_date = shift; my $league = shift; my $current_month = shift; my $current_year = shift; my $coach = shift; my $org_id = shift; my $league_id = shift; my $filter = shift; my $am_pm = ""; my $display_time = ""; my $last_date = ""; my $count = 0; my $league_string = "`League_ID` = $league_id"; my $team_string = ""; my %linked_leagues = get_linked_leagues2($league_id); my $default_team = get_default_team_for_team_only_league($league_id); $team_string .= "(`Home_Team` = $default_team OR `Away_Team` = $default_team)"; foreach my $linked_league_id (keys %linked_leagues) { $league_string .= " OR `League_ID` = $linked_league_id"; if ($linked_leagues{"$linked_league_id"}{"LINKED_TEAM_ID"} != 0) { my $team_id = $linked_leagues{"$linked_league_id"}{"LINKED_TEAM_ID"}; $team_string .= " OR (`Home_Team` = $team_id OR `Away_Team` = $team_id)"; } #$league = get_league_name($linked_league_id); #$linked_org = get_org_full_from_league($linked_league_id); #$linked_url = get_org_url_from_league($linked_league_id); #my %teamsa = get_league_teams($linked_league_id); #my %teams = (); #my $linked_to_team_id = $linked_leagues{"$linked_league_id"}{"LINKED_TEAM_ID"}; } $league_string = "(`Event_Type` = 1 AND ($league_string))"; $team_string = "((`Event_Type` = 2 OR `Event_Type` = 3 OR `Event_Type` = 4 OR `Event_Type` = 5) AND ($team_string))"; print "\n"; print "\n"; print "\n"; print "\n"; ################################################ ## Copy Teams Hash so that Keys=Value ## And for Locations ## This was down becuase orginally the query ## was created so that the hash vaule was the ## field, but in this instance it needs to be ## the other way around. ################################################ #my %teams = get_all_teams(); my %teamsa = get_league_teams($league_id); #my %leagues = get_all_leagues(); my %locations = get_locations_with_link($org_id); my %eventsa = get_event_types(); my %teams; my %leagues; foreach $key (keys %teamsa){ $teams{$teamsa{$key}} = $key; } foreach $key (keys %eventsa){ $events{$eventsa{$key}} = $key; } my $dbh = get_dbh(); # prepare and execute query $query = "SELECT * FROM `Calendar_Events` WHERE `Start_Date` > '$start_date' AND `Start_Date` < '$end_date' AND ($league_string OR $team_string) ORDER BY Start_Date ASC"; #$query = "SELECT * FROM `Calendar_Events` WHERE `Start_Date` > '$start_date' AND `Start_Date` < '$end_date' AND `League_ID` = $league_id ORDER BY Start_Date ASC"; my $sth = $dbh->prepare($query); $sth->execute(); #print "QUERY: $query
\n"; # assign fields to variables $sth->bind_columns(\$ID, \$Org_ID, \$League_ID, \$Team_ID, \$Start_Date, \$End_Date, \$Event_Type, \$Home_Team, \$Home_Score, \$Away_Team, \$Away_Score, \$Desc, \$Location, \$Other_Location, \$Notes, \$Status); ################################################ ## Print Main Calendar Header ## in pyb_lib.pm ################################################ #print "QUERY: $query
\n"; print_calendar_header_all_events($current_month,$current_year,$league_id,$coach,-2); while($sth->fetch()) { if(($Event_Type == 6) && ($coach == 0)){ # Do Nothing }else{ ################################################ # Check to make sure the League name are available ################################################ if(!(defined($leagues{$League_ID}))){ if($League_ID != 0){ my $league_name = get_league_name($League_ID); $leagues{$League_ID} = $league_name; } } ################################################ # Check to make sure the team name are available ################################################ if(!(defined($teams{$Home_Team}))){ if($Home_Team != 0){ my $team_name = get_team_name($Home_Team); $teams{$Home_Team} = $team_name; } } if(!(defined($teams{$Away_Team}))){ if($Away_Team != 0){ my $team_name = get_team_name($Away_Team); $teams{$Away_Team} = $team_name; } } ################################################ ## Parse Date String ################################################ my ($date, $time) = split(/\s+/, $Start_Date); my ($hour,$min,$sec) = split(/:/, $time); my ($edate, $etime) = split(/\s+/, $End_Date); my ($ehour,$emin,$esec) = split(/:/, $etime); my ($current_year,$month,$day) = split(/-/, $date); my ($ecurrent_year,$emonth,$eday) = split(/-/, $edate); my $shortened_notes = ""; my $leftover_notes = ""; if(length($Notes) >= 20){ $shortened_notes = substr($Notes,0,20); $leftover_notes = substr($Notes,20); }else{ $shortened_notes = $Notes; } ################################################ ## Convert to epoch seconds and back to get ## Day of week (ie Sat) and to get the Day ## without any leading zero's (ie 03) ################################################ my $time_in_epoch = timelocal($sec,$min,$hour,$day,$month-1,$current_year-1900); my ($rsec, $rmin, $rhour, $current_day, $rmonth, $ryear, $wday, $yday, $isdst) = localtime($time_in_epoch); my $etime_in_epoch = timelocal($esec,$emin,$ehour,$eday,$emonth-1,$ecurrent_year-1900); my ($ersec, $ermin, $erhour, $ecurrent_day, $ermonth, $eryear, $ewday, $eyday, $eisdst) = localtime($etime_in_epoch); ################################################ ## Convert to Month Name (ie January) and ## Day of Week name (ie Sat) ################################################ my $day_name = get_day_name($wday); my $month_name = get_month_name($month); ################################################ ## Make conversions to display properly ################################################ if($rhour > 12){ $rhour = $rhour - 12; $am_pm = "PM"; }elsif($rhour == 0){ $rhour = 12; $am_pm = "AM"; }elsif($rhour == 12){ $am_pm = "PM"; }else{ $am_pm = "AM"; } if($erhour > 12){ $erhour = $erhour - 12; $eam_pm = "PM"; }elsif($erhour == 0){ $erhour = 12; $eam_pm = "AM"; }elsif($erhour == 12){ $eam_pm = "PM"; }else{ $eam_pm = "AM"; } my $display_time = "$rhour:$min $am_pm"; my $edisplay_time = "$erhour:$emin $eam_pm"; ################################################ ## Set current location var and take into account ## that the Other location could be set ################################################ my $current_location = ""; if($Location == 0){ #Location is other $current_location = $Other_Location; }else{ #print ""; if(defined($locations{$Location}{"Location"})){ if($locations{$Location}{"LINK"} ne ""){ $current_location = "" . $locations{$Location}{"Location"} . ""; }else{ $current_location = $locations{$Location}{"Location"}; } } } #############################################3 # This is a catch in case a location was missed # i.e. when a team is subscibe to a different org #############################################3 if($current_location eq ""){ my %location_hash = get_location_name_and_link($Location); ###################################### # Add to the orig location hash so we dont # need to requery for same location ###################################### $locations{$Location}{"LINK"} = $location_hash{"LINK"}; $locations{$Location}{"Location"} = $location_hash{"LOCATION"}; ###################################### # check if there is a link ###################################### if($location_hash{"LINK"} ne ""){ $current_location = "" . $location_hash{"LOCATION"} . ""; }else{ $current_location = $location_hash{"LOCATION"}; } # $current_location .= " $Location"; } ################################################ ## Print Date Header ################################################ if(($date ne $last_date)&&(($filter==0)||($filter==$Home_Team)||($filter==$Away_Team))){ my $colspan = 5; if($coach == 1){ $colspan = 6; } if($show_end_time == 1){ $colspan++; } print " \n"; print " \n"; if($coach){ #print " $current_day\n"; print "  $month_name $current_day, $current_year ($day_name)\n"; }else{ print "  $month_name $current_day, $current_year ($day_name)\n"; } print "\n"; $last_date = $date; } ################################################ # This view shows all scheduled events ################################################ if($even){ if($Status == 1){ $row_style = "cal_events2_st"; $row_style_notes = "cal_events2"; }else{ $row_style = "cal_events2"; $row_style_notes = "cal_events2"; } $even--; }else{ if($Status == 1){ $row_style = "cal_events3_st"; $row_style_notes = "cal_events3"; }else{ $row_style = "cal_events3"; $row_style_notes = "cal_events3"; } $even++; } # if($Status == 1){ # $row_style = "cal_events_st"; # }else{ # $row_style = "cal_events"; # } if($show_end_time == 1){ #$display_time = $display_time . "
- " . $edisplay_time; $display_time = $display_time . "" . $edisplay_time; } ################################################ ## Check to see if other team is used. ################################################ %team_event_info = get_team_event_info_by_event_id($ID); if($Home_Team == 0){ $display_home = $team_event_info{"ALT_HOME_TEAM"}; }else{ $display_home = $teams{$Home_Team}; } if($Away_Team == 0){ $display_away = $team_event_info{"ALT_AWAY_TEAM"}; }else{ $display_away = $teams{$Away_Team}; } if(($Event_Type==1)||($filter==0)||($filter==$Home_Team)||($filter==$Away_Team)){ if($Event_Type == 4){ #4 = GAME my $update_score_href = "Score"; if(($Home_Score != -1 and $Away_Score != -1)){ #-1 = game is not played yet if($Home_Score > $Away_Score){ #Home Team Wins if($coach && ($league_id == $League_ID)){ print "   $display_time Game$display_away($Away_Score) @ $display_home($Home_Score) $update_score_href $current_location\n"; }else{ print "   $display_time Game$display_away($Away_Score) @ $display_home($Home_Score) $current_location\n"; } }elsif($Home_Score < $Away_Score){ #Away Team Wins if($coach && ($league_id == $League_ID)){ print "   $display_time Game$display_away($Away_Score) @ $display_home($Home_Score) $update_score_href$current_location\n"; }else{ print "   $display_time Game$display_away($Away_Score) @ $display_home($Home_Score) $current_location\n"; } }else{ #Tie Game if($coach && ($league_id == $League_ID)){ print "   $display_time Game$display_away($Away_Score) @ $display_home($Home_Score) $update_score_href$current_location\n"; }else{ print "   $display_time Game$display_away($Away_Score) @ $display_home($Home_Score) $current_location\n"; } } }else{ if(($league_id == 13)||($league_id == 1)||($league_id == 2)||($league_id == 9)){ print "   $display_time Game$display_away @ $display_home$current_location\n"; }else{ if($coach && ($league_id == $League_ID)){ print "   $display_time Game$display_away @ $display_home $update_score_href$current_location\n"; }else{ print "   $display_time Game$display_away @ $display_home$current_location\n"; } } } }elsif($Event_Type == 1){ #= LEAGUE EVENT print "   $display_time $leagues{$League_ID} League Event$Desc $current_location\n"; }elsif($Event_Type == 2){ #= Practice print "   $display_time Practice$display_home $current_location\n"; }elsif($Event_Type == 3){ #= Preseason Game my $update_score_href = "Score"; if(($Home_Score != -1 and $Away_Score != -1)){ #-1 = game is not played yet if($Home_Score > $Away_Score){ #Home Team Wins if($coach && ($league_id == $League_ID)){ print "   $display_time Preseason Game$display_away($Away_Score) @ $display_home($Home_Score) $update_score_href $current_location\n"; }else{ print "   $display_time Preseason Game$display_away($Away_Score) @ $display_home($Home_Score) $current_location\n"; } }elsif($Home_Score < $Away_Score){ #Away Team Wins if($coach && ($league_id == $League_ID)){ print "   $display_time Preseason Game$display_away($Away_Score) @ $display_home($Home_Score) $update_score_href$current_location\n"; }else{ print "   $display_time Preseason Game$display_away($Away_Score) @ $display_home($Home_Score) $current_location\n"; } }else{ #Tie Game if($coach && ($league_id == $League_ID)){ print "   $display_time Preseason Game$display_away($Away_Score) @ $display_home($Home_Score) $update_score_href$current_location\n"; }else{ print "   $display_time Preseason Game$display_away($Away_Score) @ $display_home($Home_Score) $current_location\n"; } } }else{ if(($league_id == 13)||($league_id == 1)||($league_id == 2)||($league_id == 9)){ print "   $display_time Preseason Game$display_away @ $display_home$current_location\n"; }else{ if($coach && ($league_id == $League_ID)){ print "   $display_time Preseason Game$display_away @ $display_home $update_score_href$current_location\n"; }else{ print "   $display_time Preseason Game$display_away @ $display_home$current_location\n"; } } } }elsif($Event_Type == 5){ ################################################ ## Check if its a tournament event ################################################ %tournament_event_info = get_tournament_event_info_by_event_id($ID); $alt_top = $tournament_event_info{"ALT_TOP_BRACKET"}; $alt_bottom = $tournament_event_info{"ALT_BOTTOM_BRACKET"}; if($Home_Team == 0){ if($alt_top ne ""){ $teams{'0'} = $alt_top; }else{ $teams{'0'} = "TBD"; } } if($Away_Team == 0){ if($alt_bottom ne ""){ $teams{'-1'} = $alt_bottom; }else{ $teams{'-1'} = "TBD"; } $Away_Team = -1; } if($Notes eq ""){ $Notes = $tournament_event_info{"ALT_TEXT"}; } $events{$Event_Type} = "Tournament Game"; if(($Home_Score != -1 and $Away_Score != -1)){ #-1 = game is not played yet if($Home_Score > $Away_Score){ #Home Team Wins print "   $display_timeTournament Game$teams{$Away_Team}($Away_Score) @ $teams{$Home_Team}($Home_Score) $current_location\n"; }elsif($Home_Score < $Away_Score){ #Away Team Wins print "   $display_timeTournament Game$teams{$Away_Team}($Away_Score) @ $teams{$Home_Team}($Home_Score) $current_location\n"; }else{ #Tie Game print "   $display_timeTournament Game$teams{$Away_Team}($Away_Score) @ $teams{$Home_Team}($Home_Score) $current_location\n"; } }else{ print "   $display_timeTournament Game$teams{$Away_Team} @ $teams{$Home_Team}$current_location\n"; } }elsif($Event_Type == 6){ if($coach && ($league_id == $League_ID)){ print "   $display_timeFieldtime - Allocated until $edisplay_time$current_location\n"; } } if($Notes ne ""){ my $short_notes_id = "show_notes" . $ID; my $long_notes_id = "snotes" . $ID; if(length($Notes) > 20){ print "
$shortened_notes...[+]
\n"; print " \n"; }else{ print " $shortened_notes\n"; } }else{ print "  "; } ################################################ ## If The user logged in has coach permissions ## Show the Edit and Del options ################################################ if(($coach) && ($Event_Type != 5) && ($league_id == $League_ID)){ print "Edit "; print "Del"; if($Event_Type != 6){ print "
Cancel\n"; } }else{ if($coach){ print "$leagues{$League_ID}\n"; }else{ print "\n"; } } ################################################ # Keep count of how many events displayed ################################################ $count++; } } } print "\n"; $sth->finish(); # disconnect from database $dbh->disconnect; if($count == 0){ print "

No Events for this month
\n"; } } ################################################################ ### This sub will get all the event from the database give ### a date, team, and league and print them to the screen ################################################################ ######## Filter 0 - All Teams sub get_calendar_events{ my $start_date = shift; my $end_date = shift; my $league = shift; my $current_month = shift; my $current_year = shift; my $coach = shift; my $org_id = shift; my $league_id = shift; my $filter = shift; my $am_pm = ""; my $display_time = ""; my $last_date = ""; my $count = 0; print "\n"; print "\n"; print "\n"; print "\n"; ################################################ ## Copy Teams Hash so that Keys=Value ## And for Locations ## This was down becuase orginally the query ## was created so that the hash vaule was the ## field, but in this instance it needs to be ## the other way around. ################################################ my %teamsa = get_league_teams($league_id); my %locations = get_locations_with_link($org_id); my %eventsa = get_event_types(); foreach $key (keys %teamsa){ $teams{$teamsa{$key}} = $key; } #foreach $key (keys %locationsa){ # $locations{$locationsa{$key}} = $key; #} foreach $key (keys %eventsa){ $events{$eventsa{$key}} = $key; } $dbh = get_dbh(); # prepare and execute query $query = "SELECT * FROM `Calendar_Events` WHERE `Start_Date` > '$start_date' AND `Start_Date` < '$end_date' AND `League_ID` = $league_id ORDER BY Start_Date ASC"; $sth = $dbh->prepare($query); $sth->execute(); # assign fields to variables $sth->bind_columns(\$ID, \$Org_ID, \$League_ID, \$Team_ID, \$Start_Date, \$End_Date, \$Event_Type, \$Home_Team, \$Home_Score, \$Away_Team, \$Away_Score, \$Desc, \$Location, \$Other_Location, \$Notes, \$Status); ################################################ ## Print Main Calendar Header ## in pyb_lib.pm ################################################ print_calendar_header_all_events($current_month,$current_year,$league_id,$coach,$filter); while($sth->fetch()) { if(($Event_Type == 6) && ($coach == 0)){ # Do Nothing }else{ ################################################ ## Parse Date String ################################################ my ($date, $time) = split(/\s+/, $Start_Date); my ($hour,$min,$sec) = split(/:/, $time); my ($edate, $etime) = split(/\s+/, $End_Date); my ($ehour,$emin,$esec) = split(/:/, $etime); my ($current_year,$month,$day) = split(/-/, $date); my ($ecurrent_year,$emonth,$eday) = split(/-/, $edate); my $shortened_notes = ""; my $leftover_notes = ""; if(length($Notes) >= 20){ $shortened_notes = substr($Notes,0,20); $leftover_notes = substr($Notes,20); }else{ $shortened_notes = $Notes; } ################################################ ## Convert to epoch seconds and back to get ## Day of week (ie Sat) and to get the Day ## without any leading zero's (ie 03) ################################################ my $time_in_epoch = timelocal($sec,$min,$hour,$day,$month-1,$current_year-1900); my ($rsec, $rmin, $rhour, $current_day, $rmonth, $ryear, $wday, $yday, $isdst) = localtime($time_in_epoch); my $etime_in_epoch = timelocal($esec,$emin,$ehour,$eday,$emonth-1,$ecurrent_year-1900); my ($ersec, $ermin, $erhour, $ecurrent_day, $ermonth, $eryear, $ewday, $eyday, $eisdst) = localtime($etime_in_epoch); ################################################ ## Convert to Month Name (ie January) and ## Day of Week name (ie Sat) ################################################ my $day_name = get_day_name($wday); my $month_name = get_month_name($month); ################################################ ## Make conversions to display properly ################################################ if($rhour > 12){ $rhour = $rhour - 12; $am_pm = "PM"; }elsif($rhour == 0){ $rhour = 12; $am_pm = "AM"; }elsif($rhour == 12){ $am_pm = "PM"; }else{ $am_pm = "AM"; } if($erhour > 12){ $erhour = $erhour - 12; $eam_pm = "PM"; }elsif($erhour == 0){ $erhour = 12; $eam_pm = "AM"; }elsif($erhour == 12){ $eam_pm = "PM"; }else{ $eam_pm = "AM"; } my $display_time = "$rhour:$min $am_pm"; my $edisplay_time = "$erhour:$emin $eam_pm"; ################################################ ## Set current location var and take into account ## that the Other location could be set ################################################ if($Location == 0){ #Location is other $current_location = $Other_Location; }else{ #print ""; if($locations{$Location}{"LINK"} ne ""){ $current_location = "" . $locations{$Location}{"Location"} . ""; }else{ $current_location = $locations{$Location}{"Location"}; } } ################################################ ## Print Date Header ################################################ if(($date ne $last_date)&&(($filter==0)||($filter==$Home_Team)||($filter==$Away_Team))){ my $colspan = 5; if($coach == 1){ $colspan = 6; } if($show_end_time == 1){ $colspan++; } print " \n"; print " \n"; if($coach){ #print " $current_day\n"; print "  $month_name $current_day, $current_year ($day_name)\n"; }else{ print "  $month_name $current_day, $current_year ($day_name)\n"; } print "\n"; $last_date = $date; } ################################################ # This view shows all scheduled events ################################################ if($even){ if($Status == 1){ $row_style = "cal_events2_st"; $row_style_notes = "cal_events2"; }else{ $row_style = "cal_events2"; $row_style_notes = "cal_events2"; } $even--; }else{ if($Status == 1){ $row_style = "cal_events3_st"; $row_style_notes = "cal_events3"; }else{ $row_style = "cal_events3"; $row_style_notes = "cal_events3"; } $even++; } # if($Status == 1){ # $row_style = "cal_events_st"; # }else{ # $row_style = "cal_events"; # } if($show_end_time == 1){ #$display_time = $display_time . "
- " . $edisplay_time; $display_time = $display_time . "" . $edisplay_time; } if(($Event_Type==1)||($filter==0)||($filter==$Home_Team)||($filter==$Away_Team)){ if($Event_Type == 4){ #4 = GAME my $update_score_href = "Score"; if(($Home_Score != -1 and $Away_Score != -1)){ #-1 = game is not played yet if($Home_Score > $Away_Score){ #Home Team Wins if($coach){ print "   $display_time Game$teams{$Away_Team}($Away_Score) @ $teams{$Home_Team}($Home_Score) $update_score_href$current_location\n"; }else{ print "   $display_time Game$teams{$Away_Team}($Away_Score) @ $teams{$Home_Team}($Home_Score) $current_location\n"; } }elsif($Home_Score < $Away_Score){ #Away Team Wins if($coach){ print "   $display_time Game$teams{$Away_Team}($Away_Score) @ $teams{$Home_Team}($Home_Score) $update_score_href$current_location\n"; }else{ print "   $display_time Game$teams{$Away_Team}($Away_Score) @ $teams{$Home_Team}($Home_Score) $current_location\n"; } }else{ #Tie Game if($coach){ print "   $display_time Game$teams{$Away_Team}($Away_Score) @ $teams{$Home_Team}($Home_Score) $update_score_href$current_location\n"; }else{ print "   $display_time Game$teams{$Away_Team}($Away_Score) @ $teams{$Home_Team}($Home_Score) $current_location\n"; } } }else{ if(($league_id == 13)||($league_id == 1)||($league_id == 2)||($league_id == 9)){ print "   $display_time Game$teams{$Away_Team} @ $teams{$Home_Team}$current_location\n"; }else{ if($coach){ print "   $display_time Game$teams{$Away_Team} @ $teams{$Home_Team} $update_score_href$current_location\n"; }else{ print "   $display_time Game$teams{$Away_Team} @ $teams{$Home_Team}$current_location\n"; } } } }elsif($Event_Type == 1){ #= LEAGUE EVENT print "   $display_time League Event$Desc $current_location\n"; }elsif($Event_Type == 2){ #= Practice print "   $display_time Practice$teams{$Home_Team} $current_location\n"; }elsif($Event_Type == 3){ #= Preseason Game my $update_score_href = "Score"; if(($Home_Score != -1 and $Away_Score != -1)){ #-1 = game is not played yet if($Home_Score > $Away_Score){ #Home Team Wins if($coach){ print "   $display_time Preseason Game$teams{$Away_Team}($Away_Score) @ $teams{$Home_Team}($Home_Score) $update_score_href$current_location\n"; }else{ print "   $display_time Preseason Game$teams{$Away_Team}($Away_Score) @ $teams{$Home_Team}($Home_Score) $current_location\n"; } }elsif($Home_Score < $Away_Score){ #Away Team Wins if($coach){ print "   $display_time Preseason Game$teams{$Away_Team}($Away_Score) @ $teams{$Home_Team}($Home_Score) $update_score_href$current_location\n"; }else{ print "   $display_time Preseason Game$teams{$Away_Team}($Away_Score) @ $teams{$Home_Team}($Home_Score) $current_location\n"; } }else{ #Tie Game if($coach){ print "   $display_time Preseason Game$teams{$Away_Team}($Away_Score) @ $teams{$Home_Team}($Home_Score) $update_score_href$current_location\n"; }else{ print "   $display_time Preseason Game$teams{$Away_Team}($Away_Score) @ $teams{$Home_Team}($Home_Score) $current_location\n"; } } }else{ if(($league_id == 13)||($league_id == 1)||($league_id == 2)||($league_id == 9)){ print "   $display_time Preseason Game$teams{$Away_Team} @ $teams{$Home_Team}$current_location\n"; }else{ if($coach){ print "   $display_time Preseason Game$teams{$Away_Team} @ $teams{$Home_Team} $update_score_href$current_location\n"; }else{ print "   $display_time Preseason Game$teams{$Away_Team} @ $teams{$Home_Team}$current_location\n"; } } } }elsif($Event_Type == 5){ ################################################ ## Check if its a tournament event ################################################ %tournament_event_info = get_tournament_event_info_by_event_id($ID); $alt_top = $tournament_event_info{"ALT_TOP_BRACKET"}; $alt_bottom = $tournament_event_info{"ALT_BOTTOM_BRACKET"}; if($Home_Team == 0){ if($alt_top ne ""){ $teams{'0'} = $alt_top; }else{ $teams{'0'} = "TBD"; } } if($Away_Team == 0){ if($alt_bottom ne ""){ $teams{'-1'} = $alt_bottom; }else{ $teams{'-1'} = "TBD"; } $Away_Team = -1; } if($Notes eq ""){ $Notes = $tournament_event_info{"ALT_TEXT"}; } $events{$Event_Type} = "Tournament Game"; if(($Home_Score != -1 and $Away_Score != -1)){ #-1 = game is not played yet if($Home_Score > $Away_Score){ #Home Team Wins print "   $display_timeTournament Game$teams{$Away_Team}($Away_Score) @ $teams{$Home_Team}($Home_Score) $current_location\n"; }elsif($Home_Score < $Away_Score){ #Away Team Wins print "   $display_timeTournament Game$teams{$Away_Team}($Away_Score) @ $teams{$Home_Team}($Home_Score) $current_location\n"; }else{ #Tie Game print "   $display_timeTournament Game$teams{$Away_Team}($Away_Score) @ $teams{$Home_Team}($Home_Score) $current_location\n"; } }else{ print "   $display_timeTournament Game$teams{$Away_Team} @ $teams{$Home_Team}$current_location\n"; } }elsif($Event_Type == 6){ if ($coach){ print "   $display_timeFieldtime - Allocated until $edisplay_time$current_location\n"; } } if($Notes ne ""){ my $short_notes_id = "show_notes" . $ID; my $long_notes_id = "snotes" . $ID; if(length($Notes) > 20){ print "
$shortened_notes...[+]
\n"; print " \n"; }else{ print " $shortened_notes\n"; } }else{ print "  "; } ################################################ ## If The user logged in has coach permissions ## Show the Edit and Del options ################################################ if(($coach) && ($Event_Type != 5)){ print "Edit "; print "Del"; if($Event_Type != 6){ print "
Cancel\n"; } }else{ if($coach){ print " \n"; }else{ print "\n"; } } ################################################ # Keep count of how many events displayed ################################################ $count++; } } } print "\n"; $sth->finish(); # disconnect from database $dbh->disconnect; if($count == 0){ print "

No Events for this month
\n"; } } ################################################################ # Get the Tournament invo Given the Event_id ################################################################ sub get_tournament_event_info_by_event_id{ my $Event_ID = shift; my %return_hash; my $Key = ""; my $Tournament_ID = ""; my $Round = ""; my $Round_Seed = ""; my $tournament_event_id = ""; my $dbh = get_dbh(); # prepare and execute query my $query = "SELECT * FROM `Tournament_Events` WHERE `Event_ID` = $Event_ID"; my $sth = $dbh->prepare($query); $sth->execute(); # assign fields to variables $sth->bind_columns(\$Key, \$Tournament_ID, \$Round, \$Round_Seed, \$Event_ID, \$Alt_Text, \$Alt_Top_Bracket, \$Alt_Bottom_Bracket); # output name list to the browser #print "Print Tourney Info

\n"; while($sth->fetch()) { $return_hash{"ID"}=$Tournament_ID; $return_hash{"ROUND"}=$Round; $return_hash{"ROUND_SEED"}=$Round_Seed; $return_hash{"EVENT_ID"}=$Event_ID; $return_hash{"ALT_TEXT"}=$Alt_Text; $return_hash{"ALT_TOP_BRACKET"}=$Alt_Top_Bracket; $return_hash{"ALT_BOTTOM_BRACKET"}=$Alt_Bottom_Bracket; } $sth->finish(); # disconnect from database $dbh->disconnect; return %return_hash; } ################################################################ # Get the Team Event Info Given the Event_id ################################################################ sub get_team_event_info_by_event_id{ my $event_id = shift; my %return_hash; my $Key = ""; my $Event_ID = ""; my $Alt_Home_Team = ""; my $Alt_Away_Team = ""; my $dbh = get_dbh(); # prepare and execute query my $query = "SELECT * FROM `Team_Events` WHERE `Event_ID` = $event_id"; my $sth = $dbh->prepare($query); $sth->execute(); # assign fields to variables $sth->bind_columns(\$Key, \$Event_ID, \$Alt_Home_Team, \$Alt_Away_Team); # output name list to the browser #print "Print Tourney Info

\n"; #$return_hash{"QUERY"} = "$query"; while($sth->fetch()) { $return_hash{"ID"}=$Event_ID; $return_hash{"ALT_HOME_TEAM"}=$Alt_Home_Team; $return_hash{"ALT_AWAY_TEAM"}=$Alt_Away_Team; } $sth->finish(); # disconnect from database $dbh->disconnect; return %return_hash; } ################################################################ ### Give the team ID, return the TEam Name ################################################################ sub get_team_name{ my $team_id = shift; my $team_name = ""; $dbh = get_dbh(); # prepare and execute query $query = "SELECT Team_Name FROM `Team_Info` WHERE `Key` = $team_id"; $sth = $dbh->prepare($query); $sth->execute(); # assign fields to variables $sth->bind_columns(\$Team_Name); while($sth->fetch()) { $team_name = $Team_Name; } $sth->finish(); # disconnect from database $dbh->disconnect; return $team_name; } ################################################################ ### Give the league ID, return the League Name ################################################################ sub get_league_name{ my $league_id = shift; my %league_name = (); $dbh = get_dbh(); # prepare and execute query $query = "SELECT League_Name FROM `League_Info` WHERE `Key` = $league_id"; $sth = $dbh->prepare($query); $sth->execute(); # assign fields to variables $sth->bind_columns(\$League_Name); while($sth->fetch()) { $league_name = $League_Name; } $sth->finish(); # disconnect from database $dbh->disconnect; return $league_name; } ################################### # Get parameter for DB ################################### sub get_param{ my $paramter = shift; my $value = param($paramter); $value =~ s/\'/''/g; $value =~ s/\"//g; $value =~ s/\>//g; $value =~ s/\prepare($query); $sth->execute(); $sth->bind_columns(\$Menu_Name); while($sth->fetch()) { $menu_name = $Menu_Name; } $sth->finish(); # disconnect from database $dbh->disconnect; if(!(defined($menu_name))){ $menu_name = " "; } return $menu_name; } ################################################################ ### used to manipulate specific standing value ################################################################ sub update_str_value{ my $string = shift; my $placement = shift; my $new_value = shift; substr($string, $placement, 1) = $new_value; return $string; } ################################################################ ### sed to get specific standing value ################################################################ sub get_str_value{ my $string = shift; my $placement = shift; #print "$string:$placement\n"; $str_value = substr($string, $placement, 1); $str_value = check_for_alpha($str_value); #print "$str_value\n"; return $str_value; } sub check_for_alpha{ my $value = shift; if($value eq "A"){$value = 10;} elsif($value eq "B"){$value = 11;} elsif($value eq "C"){$value = 12;} elsif($value eq "D"){$value = 13;} elsif($value eq "E"){$value = 14;} elsif($value eq "F"){$value = 15;} elsif($value eq "G"){$value = 16;} elsif($value eq "H"){$value = 17;} return $value; } ################################################################ ### Returns the numeric value given the name ################################################################ sub get_standings_sort_display_id{ my $title = shift; my %display_ids = (); $display_ids{"PCT"} = 1; $display_ids{"WINS"} = 2; $display_ids{"TIES"} = 3; $display_ids{"LOSSES"} = 4; $display_ids{"Team Name"} = 5; $display_ids{"PF"} = 6; $display_ids{"PA"} = 7; $display_ids{"POINTS"} = 8; $display_ids{"POINTSB"} = 9; return $display_ids{$title}; } ################################################################ ### Returns the numeric value given the name ################################################################ sub get_standings_display_id{ my $title = shift; my %display_ids = (); $display_ids{"WINS"} = 1; $display_ids{"LOSSES"} = 2; $display_ids{"TIES"} = 3; $display_ids{"PCT"} = 4; $display_ids{"PF"} = 5; $display_ids{"PA"} = 6; $display_ids{"POINTS"} = 7; $display_ids{"POINTSB"}= 8; return $display_ids{$title}; } ################################################################ ### Give the league ID, return the menu type (ie check if its a team) ################################################################ sub get_league_menu_type{ my $league_id = shift; my $org_id = shift; my $return_type = ""; my $dbh = get_dbh(); # prepare and execute query my $query = "SELECT Menu_Type FROM `Menu_Info` WHERE `League_ID` = $league_id AND `Org_ID` = $org_id AND (`Menu_Type` = 'team' OR `Menu_Type` = 'league')"; my $sth = $dbh->prepare($query); $sth->execute(); $sth->bind_columns(\$Menu_Type); while($sth->fetch()) { $return_type = $Menu_Type; } $sth->finish(); # disconnect from database $dbh->disconnect; return $return_type; } ################################################################ ### Give the league ID, return the League Standings Type ################################################################ sub get_league_standings_type{ my $league_id = shift; my %return_hash = (); my @display_order = ("WINS","LOSSES","TIES","PCT","PF","PA","POINTS","POINTSB"); my @priority_order = ("PCT","WINS","TIES","LOSSES","Team Name","PF","PA","POINTS","POINTSB"); $dbh = get_dbh(); # prepare and execute query $query = "SELECT Standings_Type FROM `League_Info` WHERE `Key` = $league_id"; $sth = $dbh->prepare($query); $sth->execute(); # assign fields to variables $sth->bind_columns(\$Standings_Type); while($sth->fetch()) { $standings_type = "$Standings_Type"; } $return_hash{"ENABLED"} = "$standings_type"; $return_hash{"STRING"} = "$standings_type"; $test_string = substr($standings_type, 1, 1); if($test_string eq ""){ $return_hash{"ENABLED"} = 1; ######################################### # Preset Display ######################################### $return_hash{"WINS"} = 1; $return_hash{"LOSSES"} = 1; $return_hash{"TIES"} = 1; $return_hash{"PCT"} = 1; $return_hash{"PF"} = 0; $return_hash{"PA"} = 0; $return_hash{"POINTS"} = 0; $return_hash{"POINTSB"} = 0; $return_hash{"NA2"} = 0; $return_hash{"NA3"} = 0; $return_hash{"NA4"} = 0; $return_hash{"NA5"} = 0; $return_hash{"NA6"} = 0; $return_hash{"NA7"} = 0; $return_hash{"NA8"} = 0; $return_hash{"NA9"} = 0; ######################################### # Preset Sort ######################################### $return_hash{"D1"} = "WINS"; $return_hash{"D2"} = "LOSSES"; $return_hash{"D3"} = "TIES"; $return_hash{"D4"} = "PCT"; $return_hash{"D5"} = "PF"; $return_hash{"D6"} = "PA"; $return_hash{"D7"} = "POINTS"; $return_hash{"D8"} = "POINTSB"; $return_hash{"D9"} = "NA2"; $return_hash{"D10"} = "NA3"; $return_hash{"D11"} = "NA4"; $return_hash{"D12"} = "NA5"; $return_hash{"D13"} = "NA6"; $return_hash{"D14"} = "NA7"; $return_hash{"D15"} = "NA8"; $return_hash{"D16"} = "NA9"; ######################################### # Preset Sort- 1=low-to-high 2=high-to-low # 0 = do not use ######################################### $return_hash{"PCT-sort"} = 2; $return_hash{"WINS-sort"} = 2; $return_hash{"TIES-sort"} = 2; $return_hash{"LOSSES-sort"} = 1; $return_hash{"Team Name-sort"} = 2; $return_hash{"PF-sort"} = 0; $return_hash{"PA-sort"} = 0; $return_hash{"POINTS"} = 0; $return_hash{"POINTSB"} = 0; $return_hash{"NA2"} = 0; $return_hash{"NA3"} = 0; $return_hash{"NA4"} = 0; $return_hash{"NA5"} = 0; $return_hash{"NA6"} = 0; $return_hash{"NA7"} = 0; $return_hash{"NA8"} = 0; $return_hash{"NA9"} = 0; ######################################### # Preset Priority ######################################### $return_hash{"P1"} = "PCT"; $return_hash{"P2"} = "WINS"; $return_hash{"P3"} = "TIES"; $return_hash{"P4"} = "LOSSES"; $return_hash{"P5"} = "Team Name"; $return_hash{"P6"} = "PF"; $return_hash{"P7"} = "PA"; $return_hash{"P8"} = "POINTS"; $return_hash{"P9"} = "POINTSB"; $return_hash{"P10"} = "NA2"; $return_hash{"P11"} = "NA3"; $return_hash{"P12"} = "NA4"; $return_hash{"P13"} = "NA5"; $return_hash{"P14"} = "NA6"; $return_hash{"P15"} = "NA7"; $return_hash{"P16"} = "NA8"; $return_hash{"P17"} = "NA9"; $return_hash{"STRING"} = "1111000000000000123456789ABCDEFG22212000000000000123456789ABCDEFGH1"; #Show or no (16) #display order (16) #how to sort (17 ) #Priority (17) #enabled(1) - TOTAL 32 + 34 + 1 = 67 #Show or no (6) #display order (6) #how to sort (7 ) #Priority (7) #enabled(1) }else{ $return_hash{"ENABLED"} = get_str_value($standings_type, 66);; $return_hash{"WINS"} = get_str_value($standings_type, 0); $return_hash{"LOSSES"} = get_str_value($standings_type, 1); $return_hash{"TIES"} = get_str_value($standings_type, 2); $return_hash{"PCT"} = get_str_value($standings_type, 3); $return_hash{"PF"} = get_str_value($standings_type, 4); $return_hash{"PA"} = get_str_value($standings_type, 5); $return_hash{"POINTS"} = get_str_value($standings_type, 6); $return_hash{"POINTSB"} = get_str_value($standings_type, 7); ########################################### # Set all Display Orders - D is display ########################################### for(my $i=1;$i<=16;$i++){ my $this_d = "D" . $i; my $position = $i + 15; my $lookup_id = get_str_value($standings_type, $position); #print "LOOKUP: $lookup_id
POS:$position
STRING:$standings_type
THISD: $this_d
VALUE: " . $display_order[$lookup_id-1] . "
\n"; $return_hash{$this_d} = $display_order[$lookup_id-1]; } ######################################### # Preset Sort- 1=low-to-high 2=high-to-low # 0 = do not use ######################################### $return_hash{"PCT-sort"} = get_str_value($standings_type, 32); $return_hash{"WINS-sort"} = get_str_value($standings_type, 33); $return_hash{"TIES-sort"} = get_str_value($standings_type, 34); $return_hash{"LOSSES-sort"} = get_str_value($standings_type, 35); $return_hash{"Team Name-sort"} = get_str_value($standings_type, 36); $return_hash{"PF-sort"} = get_str_value($standings_type, 37); $return_hash{"PA-sort"} = get_str_value($standings_type, 38); $return_hash{"POINTS-sort"} = get_str_value($standings_type, 39); $return_hash{"POINTSB-sort"} = get_str_value($standings_type, 40); ######################################### # Preset Priority P = Priority ######################################### for(my $i=1;$i<=17;$i++){ my $this_p = "P" . $i; my $position = $i + 48; my $lookup_id = get_str_value($standings_type, $position); #print "LOOKUP: $lookup_id
POS:$position
STRING:$standings_type
VALUE: " . $priority_order[$lookup_id-1] . "
\n"; $return_hash{$this_p} = $priority_order[$lookup_id-1]; } $return_hash{"STRING"} = "$standings_type"; } $return_hash{"WINS-desc"} = "total wins"; $return_hash{"LOSSES-desc"} = "total losses"; $return_hash{"TIES-desc"} = "total ties"; $return_hash{"PCT-desc"} = "winning percentage"; $return_hash{"Team Name-desc"} = "alphabetical"; $return_hash{"PF-desc"} = "total points for
(runs, goals, etc)"; $return_hash{"PA-desc"} = "total points against
(runs, goals, etc)"; $return_hash{"POINTS-desc"} = "total points
(2 pts for win,
1 pt for tie)"; $return_hash{"POINTSB-desc"} = "total points
(3 pts for win,
1 pt for tie)"; $sth->finish(); # disconnect from database $dbh->disconnect; return %return_hash; } ################################################################ ### Give the league ID, return the Division for that league ################################################################ sub get_divisions{ my $league_id = shift; my %return_hash; $dbh = get_dbh(); # prepare and execute query $query = "SELECT `Key`, `Division_Name` FROM `Division_Info` WHERE `League_ID` = $league_id"; $sth = $dbh->prepare($query); $sth->execute(); # assign fields to variables $sth->bind_columns(\$Key, \$Division_Name); while($sth->fetch()) { $return_hash{$Key} = $Division_Name; } $sth->finish(); # disconnect from database $dbh->disconnect; return %return_hash; } sub get_season_duration{ my $league_id = shift; my %return_hash; $dbh = get_dbh(); # prepare and execute query $query = "SELECT `Season_SD`, `Season_ED` FROM `League_Info` WHERE `Key` = $league_id"; $sth = $dbh->prepare($query); $sth->execute(); # assign fields to variables $sth->bind_columns(\$Season_SD, \$Season_ED); while($sth->fetch()) { if($Season_SD eq "0000-00-00"){ $Season_SD = "2005-01-01"; } if($Season_ED eq "0000-00-00"){ $Season_ED = "2008-01-01"; } $Season_SD = convert_date_no_time_to_display($Season_SD); $Season_ED = convert_date_no_time_to_display($Season_ED); $return_hash{"Season_SD"} = $Season_SD; $return_hash{"Season_ED"} = $Season_ED; } $sth->finish(); # disconnect from database $dbh->disconnect; return %return_hash; } ################################################################ ### Give the league ID, return the Division for that team ################################################################ sub get_division{ my $team_id = shift; my $return_id = 0; $dbh = get_dbh(); # prepare and execute query $query = "SELECT `Division_ID` FROM `Team_Info` WHERE `Key` = $team_id"; $sth = $dbh->prepare($query); $sth->execute(); # assign fields to variables $sth->bind_columns(\$Division_ID); while($sth->fetch()) { $return_id = $Division_ID; } $sth->finish(); # disconnect from database $dbh->disconnect; return $return_id; } ################################################################ ### Grab the cookies and parse them ################################################################ sub getCookies { # cookies are seperated by a semicolon and a space, this will split # them and return a hash of cookies local(@rawCookies) = split (/; /,$ENV{'HTTP_COOKIE'}); local(%cookies); foreach(@rawCookies){ ($key, $val) = split (/=/,$_); $cookies{$key} = $val; } return %cookies; } ################################################################ ### Check to see if the user is logged in ### This is updated to only check if cookie is there. ################################################################ ################################################################ ### Check to see if the user is logged in ################################################################ sub remote_window_check_login{ #### league could be a league or an org my $league_id = shift; # May be Org ID coming in? my $login_fail_url = shift; #my $org_id = get_org($league_id); #%setup_info = get_setup_info($league_id); #$hometeamz_url = $setup_info{"HomeTeamz_URL"}; $login_fail_url =~ s/admin/login/g; $login_fail_url =~ s/coach/login/g; my $return_string = 0; my $success = 0; my $session_id = get_cookie(); #$bare_domain = $hometeamz_url; #$bare_domain =~ s/www\.//; #my $org_id = get_org($league_id); #print "SESSION ID: $org_id - $league_id
\n"; my $dbh = get_dbh(); ################################################################ # Check to see if there is a valid cookie ################################################################ #print "SESSION = $session_id
\n"; if($session_id eq ""){ #print "SUCCESS: $success
\n"; $success = 0; }else{ # my $login = get_login_from_session($session_id); # print "\n"; # $access_level = check_permissions($login, $org_id, $league_id, $info_id, $page); # print "\n"; # if(($page eq "admin")&&($access_level >=3)){ # $success = 1; # }elsif(($page eq "league")||($page eq "info")){ # if($access_level >=2){ # $success = 1; # } # } $success =1; } #print "SUCCESS: $success
\n"; if($success == 0){ #print "\n"; print <<__HTML__; __HTML__ exit(1); }else{ #print "\n"; #print "\n"; return $session_id; } } sub check_permissions{ my $login_id = shift; my $org_id = shift; my $league_id = shift; my $info_id = shift; my $page = shift; my $league_info_id = 0; my $access = 0; my $tempaccess = 1; if(!(defined($info_id))){ # On control panel, this is getting passed in as nothing, so double check it $info_id = -9999; } # print "\n"; ####################################### ## Check if they have permissions at ## hometeamz ####################################### my $dbh = get_dbh(); my $query = "SELECT * FROM `Permissions_Info` WHERE `Login_ID` = '$login_id' AND `Access_Type`= 'HT' AND `Access_ID` = '80'"; my $sth = $dbh->prepare($query); #print "\n"; $sth->execute(); $sth->bind_columns(\$Key, \$Login_ID, \$Access_Type, \$Access_ID, \$Access_Level); while($sth->fetch()) { if($Access_Level eq "HT"){$access = 80;} } ####################################### ## Check if they have permissions at ## organizational level ####################################### $query = "SELECT * FROM `Permissions_Info` WHERE `Login_ID` = '$login_id' AND `Access_Type`= 'ORG' AND `Access_ID` = '$org_id'"; $sth = $dbh->prepare($query); #print "\n"; $sth->execute(); $sth->bind_columns(\$Key, \$Login_ID, \$Access_Type, \$Access_ID, \$Access_Level); while($sth->fetch()) { #print "\n"; if($Access_Level eq "R"){$tempaccess = 1;} if($Access_Level eq "RW"){$tempaccess = 3;} if($tempaccess > $access){ $access = $tempaccess; } } if(uc($page) eq "LEAGUE"){ $league_info_id = $league_id; }elsif(uc($page) eq "COMM"){ $league_info_id = $org_id; }else{ $league_info_id = $info_id; } ####################################### ## Check if they have permissions at ## page level ####################################### $query = "SELECT * FROM `Permissions_Info` WHERE `Login_ID` = '$login_id' AND `Access_Type`= '$page' AND `Access_ID` = '$league_info_id'"; #print "QUERY: $query\n"; $sth = $dbh->prepare($query); #print "\n"; $sth->execute(); $sth->bind_columns(\$Key, \$Login_ID, \$Access_Type, \$Access_ID, \$Access_Level); while($sth->fetch()) { if($Access_Level eq "R"){$tempaccess = 1;} if($Access_Level eq "RW"){$tempaccess = 2;} if($tempaccess > $access){ $access = $tempaccess; } } return $access; } ################################################################ ### Check to see if the user is logged in ################################################################ sub check_valid_user{ my $user = shift; my $pass = shift; my $org_id = shift; my $league_id = shift; my $info_id = shift; my $page = shift; my $success = 0; my $login_success = 0; my $session_id = get_cookie(); my $previous_token = param('tok'); if(!(defined($previous_token))){$previous_token = "";} my $return_hash; $return_hash{"LOGIN_SUCCESS"} = 0; my $dbh = get_dbh(); #if(($user ne "") && ($pass ne "")){ # $session_id = ""; #} ################################################################ # Check to see if there is a valid cookie ################################################################ if($session_id eq ""){ #print "\n"; ################################################################ # If not a valid cookie, check the to see if the user/pass # combination is correct ################################################################ if(($user ne "") && ($pass ne "")){ $query = "SELECT * FROM `Account_Info` WHERE (`Login` = '$user' OR `email` = '$user') AND `Password` = '$pass'"; $sth = $dbh->prepare($query); $sth->execute(); $sth->bind_columns(\$Key, \$Login, \$Password, \$email, \$League_ID, \$Last_Access, \$Last_Access_ID, \$Firstname, \$Lastname, \$Title, \$Home_Phone, \$Work_Phone, \$Mobile_Phone, \$Zip_Code, \$Token); ################################################################ # Loop through what the db returned, if there is somthing there # it assumes success. It also checks to see that they are # logging into the correct league. # League 0 is all leagues. ################################################################ while($sth->fetch()) { $return_hash{"LOGIN_SUCCESS"} = 1; $return_hash{"EMAIL"} = $email; $return_hash{"LOGIN_ID"} = $Key; $return_hash{"LOGIN"} = $Login; $return_hash{"FIRSTNAME"} = $Firstname; $return_hash{"LASTNAME"} = $Lastname; $return_hash{"TITLE"} = $Title; $return_hash{"HOMEPHONE"} = $Home_Phone; $return_hash{"WORKPHONE"} = $Work_Phone; $return_hash{"MOBILEPHONE"} = $Mobile_Phone; $return_hash{"ZIPCODE"} = $Zip_Code; $return_hash{"DB_TOKEN"} = $Token; $test_hash{"ONE"} = 1; } ################################################################ # Login failed because incorrect Login or password ################################################################ if($return_hash{"LOGIN_SUCCESS"} == 0){ $return_hash{"LOGIN_SUCCESS"} = -1; $session_id = ""; #print "\n"; }else{ $current_date = get_date_time(); $session_id = generate_random_string(15); my $new_token = generate_random_string(32); $return_hash{"NEW_TOKEN"} = $new_token; $update = "UPDATE `Account_Info` SET `Last_Access`='$current_date', `Token`='$new_token', `Last_Access_ID`='$session_id' WHERE `Key` = $Key;"; ##print "QUERY: $update
\n"; $sth = $dbh->prepare($update); $sth->execute(); print <<__HTML__; __HTML__ } }else{ ################################################################ # Login failed because no Login or password # Could be first time loggin in. ################################################################ $session_id = ""; } }else{ #print "\n"; ################################################################ # Query DB to verify Session ################################################################ $query = "SELECT * FROM `Account_Info` WHERE `Last_Access_ID` = '$session_id'"; $sth = $dbh->prepare($query); $sth->execute(); $sth->bind_columns(\$Key, \$Login, \$Password, \$email, \$League_ID, \$Last_Access, \$Last_Access_ID, \$Firstname, \$Lastname, \$Title, \$Home_Phone, \$Work_Phone, \$Mobile_Phone, \$Zip_Code, \$Token); ################################################################ # Loop through what the db returned, if there is somthing there # it assumes success. It also checks to see that they are # logging into the correct league. # League 0 is all leagues. ################################################################ while($sth->fetch()) { $return_hash{"LOGIN_SUCCESS"} = 1; $return_hash{"EMAIL"} = $email; $return_hash{"LOGIN_ID"} = $Key; $return_hash{"FIRSTNAME"} = $Firstname; $return_hash{"LASTNAME"} = $Lastname; $return_hash{"TITLE"} = $Title; $return_hash{"HOMEPHONE"} = $Home_Phone; $return_hash{"WORKPHONE"} = $Work_Phone; $return_hash{"MOBILEPHONE"} = $Mobile_Phone; $return_hash{"ZIPCODE"} = $Zip_Code; $return_hash{"DB_TOKEN"} = $Token; } #print "\n"; ################################################################ # If we get to this point. The cookie is invalid at least for # this league. ################################################################ if($return_hash{"LOGIN_SUCCESS"} == 0){ print "

Your Session has expired,
Please login again.
\n"; print "\n"; $session_id = ""; }else{ ################################################################ # Update DB to keep session active ################################################################ $current_date = get_date_time(); if($return_hash{"DB_TOKEN"} eq $previous_token){ $return_hash{"FIRST_PAGE_LOAD"} = 1; } my $new_token = generate_random_string(32); $return_hash{"NEW_TOKEN"} = $new_token; $update = "UPDATE `Account_Info` SET `Last_Access`='$current_date', `Token`='$new_token' WHERE `Key` = $Key;"; ##print "QUERY: $update
\n"; $sth = $dbh->prepare($update); $sth->execute(); ################################################################ # Update Cookie to keep session active ################################################################ print <<__HTML__; __HTML__ } } ################################################################ # Close DB connection ################################################################ $sth->finish(); # disconnect from database $dbh->disconnect; #print "\n"; # foreach $key (keys %return_hash){ # print "\n"; # } $return_hash{"SESSION_ID"} = $session_id; # $return_hash{"TEST"} = "TEST"; return %return_hash; } ################################################################ ### Check to see if the user is logged in ################################################################ sub check_login{ my $login = shift; my $pass = shift; my $league_id = shift; my $success = 0; my $session_id = get_cookie(); my $dbh = get_dbh(); ################################################################ # Check to see if there is a valid cookie ################################################################ if($session_id eq ""){ #print "\n"; ################################################################ # If not a valid cookie, check the to see if the user/pass # combination is correct ################################################################ if(($user ne "") && ($pass ne "")){ $query = "SELECT * FROM `Account_Info` WHERE `Login` = '$user' AND `Password` = '$pass'"; #print "\n"; $sth = $dbh->prepare($query); $sth->execute(); $sth->bind_columns(\$Key, \$Login, \$Password, \$email, \$League_ID, \$Last_Access, \$Last_Access_ID, \$Firstname, \$Lastname, \$Title, \$Home_Phone, \$Work_Phone, \$Zip_Code, \$Token); ################################################################ # Loop through what the db returned, if there is somthing there # it assumes success. It also checks to see that they are # logging into the correct league. # League 0 is all leagues. ################################################################ while($sth->fetch()) { # assign fields to variables #print "ID: $ID
Login: $Login
Pass: $Password
Email: $email
League_ID: $League_ID
Last Access: $Last_Access
\n"; ################################################################ # Verify League ################################################################ if(($league_id == $League_ID)||($League_ID == 0)){ #print "\n"; $success = 1; }else{ #print "\n"; print "

You do not have Commisioner access to this league!
\n"; $success = 0; } } ################################################################ # Login failed because incorrect Login or password ################################################################ if($success == 0){ print "

Invalid ID or Password.
Please try again.
\n"; $session_id = ""; #print "\n"; }else{ $current_date = get_date_time(); $session_id = generate_random_string(15); $update = "UPDATE `Account_Info` SET `Last_Access`='$current_date', `Last_Access_ID`='$session_id' WHERE `Key` = $Key;"; ##print "QUERY: $update
\n"; $sth = $dbh->prepare($update); $sth->execute(); #print "\n"; print <<__HTML__; __HTML__ } }else{ ################################################################ # Login failed because no Login or password # Could be first time loggin in. ################################################################ $session_id = ""; } }else{ #print "\n"; ################################################################ # Query DB to verify Session ################################################################ $query = "SELECT * FROM `Account_Info` WHERE `Last_Access_ID` = '$session_id'"; $sth = $dbh->prepare($query); $sth->execute(); $sth->bind_columns(\$Key, \$Login, \$Password, \$email, \$League_ID, \$Last_Access, \$Last_Access_ID, \$Firstname, \$Lastname, \$Title, \$Home_Phone, \$Work_Phone, \$Zip_Code, \$Token); ################################################################ # Loop through what the db returned, if there is somthing there # it assumes success. It also checks to see that they are # logging into the correct league. # League 0 is all leagues. ################################################################ while($sth->fetch()) { # assign fields to variables #print "ID: $ID
Login: $Login
Pass: $Password
Email: $email
League_ID: $League_ID
Last Access: $Last_Access
\n"; #print "\n"; ################################################################ # Verify League ################################################################ if(($league_id == $League_ID)||($League_ID == 0)){ $success = 1; #print "\n"; }else{ print "

You do not have Commisioner access to this league!
\n"; $success = 0; #print "\n"; } } ################################################################ # If we get to this point. The cookie is invalid at least for # this league. ################################################################ if($success == 0){ #print "

Your Session has expired,
Please login again.
\n"; print "\n"; $session_id = ""; }else{ ################################################################ # Update DB to keep session active ################################################################ $current_date = get_date_time(); $update = "UPDATE `Account_Info` SET `Last_Access`='$current_date' WHERE `Key` = $Key;"; ##print "QUERY: $update
\n"; $sth = $dbh->prepare($update); $sth->execute(); ################################################################ # Update Cookie to keep session active ################################################################ print <<__HTML__; __HTML__ } } ################################################################ # Close DB connection ################################################################ $sth->finish(); # disconnect from database $dbh->disconnect; return $session_id; } ################################################################ ### Get the pyb cookie ################################################################ sub get_cookie{ my %cookies = &getCookies; # store cookies in %cookies my $name; #foreach $name (keys %cookies) { #print "\n$name = $cookies{$name}
"; #} if(!(defined($cookies{'SID'}))){$cookies{'SID'} = "";}; return $cookies{'SID'}; } ################################################################ ### Get the pyb cookie ################################################################ sub get_cookie_hits{ my $org_id = shift; my %cookies = &getCookies; # store cookies in %cookies my $name = "BH-$org_id"; #foreach $name (keys %cookies) { #print "\n$name = $cookies{$name}
"; #} return $cookies{$name}; } ################################################################ ### Generate Random String for Session ID ################################################################ sub generate_random_string{ $length = shift; $rand_string = ""; $possible = 'abcdefghijklmnopqrstuvwxyz1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ'; while (length($rand_string) < $length) { $rand_string .= substr($possible, (int(rand(length($possible)))), 1); } return $rand_string; } ################################################################ ### This will get and print the standings for all teams in a league ################################################################ sub get_standings2{ my $start_date = shift; my $end_date = shift; my $league_id = shift; my $start_month = shift; my $start_year = shift; my $coach = shift; my $display_start = shift; my $display_end = shift; my $am_pm = ""; my $display_time = ""; my $league = $league_id; my $last_date = ""; my $last_time = ""; my $even = 1; my $standings_type = 0; my $divisions = 0; my %standings_type = get_league_standings_type($league_id); ################################################3 # Changed code to not use get_league_standings # Can probably delete this line and sub (waiting for testing) ################################################ #my $standings_type = get_league_standings_type($league_id); my %divisions = get_divisions($league_id); foreach $check_divs (keys %divisions){ $divisions++; } my %eventsa = get_event_types(); ################################################3 # Changed code to not use get_league_standings # Can probably delete these 3 lines See above. ################################################ #if($standings_type != 0){ # %divisions = get_divisions($league_id); #} ################################################ ## Copy Teams Hash so that Keys=Value ## And for Locations ## This was down becuase orginally the query ## was created so that the hash vaule was the ## field, but in this instance it needs to be ## the other way around. ################################################ my %teamsa = get_league_teams($league_id); my %teams = (); foreach $key (keys %teamsa){ $teams{$teamsa{$key}}{"NAME"} = $key; $teams{$teamsa{$key}}{"WINS"} = 0; $teams{$teamsa{$key}}{"LOSSES"} = 0; $teams{$teamsa{$key}}{"TIE"} = 0; $teams{$teamsa{$key}}{"POINTSFOR"} = 0; $teams{$teamsa{$key}}{"POINTSVS"} = 0; $teams{$teamsa{$key}}{"POINTS"} = 0; $teams{$teamsa{$key}}{"POINTSB"} = 0; if($divisions != 0){ $teams{$teamsa{$key}}{"DIVISION"} = get_division($teamsa{$key}); } } foreach $key (keys %locationsa){ $locations{$locationsa{$key}} = $key; } foreach $key (keys %eventsa){ $events{$eventsa{$key}} = $key; } my $dbh = get_dbh(); # prepare and execute query my $query = "SELECT * FROM `Calendar_Events` WHERE `Start_Date` > '$start_date' AND `End_Date` < '$end_date' AND League_ID=$league_id AND Event_Type=4 ORDER BY Start_Date ASC"; my $sth = $dbh->prepare($query); $sth->execute(); # assign fields to variables $sth->bind_columns(\$ID, \$Org_ID, \$League_ID, \$Team_ID, \$Start_Date, \$End_Date, \$Event_Type, \$Home_Team, \$Home_Score, \$Away_Team, \$Away_Score, \$Desc, \$Location, \$Other_Location, \$Notes, \$Status); #print "QUERY: $query
\n"; #print "CHECKING SCORES for $start_date to $end_date in $league_id
\n"; ################################################ ## Get Wins and Losses ################################################ while($sth->fetch()) { if($Home_Score != -1){ $last_date = $Start_Date; if($Home_Score > $Away_Score){ #print "$teams{$Home_Team}{'NAME'}: $Home_Score - $teams{$Away_Team}{'NAME'}: $Away_Score
\n"; $teams{$Home_Team}{"WINS"}++; $teams{$Away_Team}{"LOSSES"}++; $teams{$Home_Team}{"POINTS"} = $teams{$Home_Team}{"POINTS"} + 2; $teams{$Home_Team}{"POINTSB"} = $teams{$Home_Team}{"POINTSB"} + 3; }elsif($Home_Score < $Away_Score){ #print "$teams{$Home_Team}{'NAME'}: $Home_Score - $teams{$Away_Team}{'NAME'}: $Away_Score
\n"; $teams{$Home_Team}{"LOSSES"}++; $teams{$Away_Team}{"WINS"}++; $teams{$Away_Team}{"POINTS"} = $teams{$Away_Team}{"POINTS"} + 2; $teams{$Away_Team}{"POINTSB"} = $teams{$Away_Team}{"POINTSB"} + 3; }elsif($Home_Score == $Away_Score){ #print "$teams{$Home_Team}{'NAME'}: $Home_Score - $teams{$Away_Team}{'NAME'}: $Away_Score
\n"; $teams{$Home_Team}{"TIE"}++; $teams{$Away_Team}{"TIE"}++; $teams{$Away_Team}{"POINTS"} ++; $teams{$Home_Team}{"POINTS"} ++; $teams{$Away_Team}{"POINTSB"} ++; $teams{$Home_Team}{"POINTSB"} ++; } $teams{$Home_Team}{"POINTSFOR"} = $teams{$Home_Team}{"POINTSFOR"} + $Home_Score ; $teams{$Home_Team}{"POINTSVS"} = $teams{$Home_Team}{"POINTSVS"} + $Away_Score; $teams{$Away_Team}{"POINTSFOR"} = $teams{$Away_Team}{"POINTSFOR"} + $Away_Score ; $teams{$Away_Team}{"POINTSVS"} = $teams{$Away_Team}{"POINTSVS"} + $Home_Score; } } $sth->finish(); # disconnect from database $dbh->disconnect; ################################################ ## Get Winning % ################################################ foreach $key (keys %teams){ if(($teams{$key}{'WINS'} + $teams{$key}{'LOSSES'}) > 0){ $winning_percent = ($teams{$key}{'WINS'})/($teams{$key}{'WINS'} + $teams{$key}{'LOSSES'}); }else{ $winning_percent = 0; } $teams{$key}{'PERCENT'}=$winning_percent; } ################################################ ## Convert Date ################################################ ($last_date, $last_time) = split(/\s+/, $last_date); $last_date = convert_date_to_display($last_date); my %display_name_map = ( "PCT" => "PCT", "WINS" => "W", "TIES" => "T", "LOSSES" => "L", "Team Name" => "Team", "PF" => "PF", "PA" => "PA", "POINTS" => "PTS", "POINTSB" => "PTS" ); ################################################ ## Print Standings ################################################ my $number_of_active_fields = 1; my $stat_head = "Team\n"; for (my $i=1;$i<9;$i++) { if($standings_type{$standings_type{"D" . $i}} == 1){ $number_of_active_fields++; my $stat_name = $standings_type{"D" . $i}; $stat_head .= "$display_name_map{$stat_name}\n"; } } print "
\n"; my $html = ""; %name_map = ( "PCT" => "PERCENT", "WINS" => "WINS", "TIES" => "TIE", "LOSSES" => "LOSSES", "Team Name" => "NAME", "PF" => "POINTSFOR", "PA" => "POINTSVS", "POINTSB" => "POINTS", "POINTS" => "POINTS" ); my @unsorted = keys %teams; my @sorted = (); for(my $i=9;$i>0;$i--){ my $current_p = "P".$i; my $stat_name = $standings_type{$current_p}; my $stat_val = $standings_type{$stat_name . "-sort"}; my $sort_name = $name_map{$stat_name}; #print "STAT NAME:$stat_name
STAT VAL: $stat_val
SORT NAME: $sort_name\n"; if($stat_val == 1){ #print "SORTING $stat_name, $sort_name
\n"; if($sort_name eq "NAME"){ @sorted = sort {$teams{$a}{$sort_name} cmp $teams{$b}{$sort_name}} @unsorted; }else{ @sorted = sort {$teams{$a}{$sort_name} <=> $teams{$b}{$sort_name}} @unsorted; } #print "SORTED:\n"; #foreach(@sorted){print "$_,"; print $teams{$_}{"$sort_name"}, "\n";} #print "
UNSORTED\n"; #foreach(@unsorted){print "$_,"; print "-" , $teams{$_}{"$sort_name"}, "\n"; } @unsorted = @sorted; }elsif($stat_val == 2){ #print "SORTING $stat_name, $sort_name
\n"; if($sort_name eq "NAME"){ @sorted = sort {$teams{$b}{$sort_name} cmp $teams{$a}{$sort_name}} @unsorted; }else{ @sorted = sort {$teams{$b}{$sort_name} <=> $teams{$a}{$sort_name}} @unsorted; } #print "SORTED:\n"; #foreach(@sorted){print "$_,"; print $teams{$_}{"$sort_name"}, "
\n";} #print "
UNSORTED\n"; #foreach(@unsorted){print "$_,"; print "-" , $teams{$_}{"$sort_name"}, "\n"; } @unsorted = @sorted; } # $teams{$b}{'PERCENT'} <=> $teams{$a}{'PERCENT'} # @newlist = sort { $a <=> $b; } @unsorted; #}elsif($standings_type{"P".$i} == 2){ #}else{ #} } if($divisions != 0){ print "\n"; foreach $divkey (sort {lc($divisions{$a}) cmp lc($divisions{$b})} keys %divisions){ $even = 1; #print "\n"; my $division_head = "\n" . $stat_head; print $division_head; #foreach $key (sort hashValueAscendingNum2 (keys(%teams))) { foreach(@sorted){ $key = $_; #print "KEY: $key
\n"; if($teams{$key}{"DIVISION"} == $divkey){ if($even){ $row_style = "cal_events2"; $even--; }else{ $row_style = "cal_events3"; $even++; } $winning_percent = sprintf("%.3f",$teams{$key}{'PERCENT'}); my $row_html = "\n"; if($standings_type{"WINS"} == 1){ $row_html{"WINS"} = "\n"; }else{ $row_html{"WINS"} = ""; } if($standings_type{"LOSSES"} == 1){ $row_html{"LOSSES"} = "\n"; }else{ $row_html{"LOSSES"} = ""; } if($standings_type{"TIES"} == 1){ $row_html{"TIES"} = "\n"; }else{ $row_html{"TIES"} = ""; } if($standings_type{"PCT"} == 1){ $row_html{"PCT"} = "\n"; }else{ $row_html{"PCT"} = ""; } if($standings_type{"PF"} == 1){ $row_html{"PF"} = "\n"; }else{ $row_html{"PF"} = ""; } if($standings_type{"PA"} == 1){ $row_html{"PA"} = "\n"; }else{ $row_html{"PA"} = ""; } if($standings_type{"POINTS"} == 1){ $row_html{"POINTS"} = "\n"; }else{ $row_html{"POINTS"} = ""; } if($standings_type{"POINTSB"} == 1){ $row_html{"POINTSB"} = "\n"; }else{ $row_html{"POINTSB"} = ""; } for (my $i=1;$i<9;$i++) { $row_html .= $row_html{$standings_type{"D" . $i}}; } $row_html .= "\n"; print $row_html; #print "\n"; } } } print "\n"; print "
$divisions{$divkey}
$divisions{$divkey}
$teams{$key}{'NAME'}$teams{$key}{'WINS'}$teams{$key}{'LOSSES'}$teams{$key}{'TIE'}$winning_percent$teams{$key}{'POINTSFOR'}$teams{$key}{'POINTSVS'}$teams{$key}{'POINTS'}$teams{$key}{'POINTSB'}
Last Game Updated $last_date
Note, Standings are based on games played between $display_start and $display_end.
\n"; }else{ print "\n"; print "\n" ; $even = 1; #print "\n"; #my $division_head = "\n" . print $stat_head; #print $division_head; foreach(@sorted){ $key = $_; #print "KEY: $key
\n"; if($even){ $row_style = "cal_events2"; $even--; }else{ $row_style = "cal_events3"; $even++; } $winning_percent = sprintf("%.3f",$teams{$key}{'PERCENT'}); my $row_html = "\n"; if($standings_type{"WINS"} == 1){ $row_html{"WINS"} = "\n"; }else{ $row_html{"WINS"} = ""; } if($standings_type{"LOSSES"} == 1){ $row_html{"LOSSES"} = "\n"; }else{ $row_html{"LOSSES"} = ""; } if($standings_type{"TIES"} == 1){ $row_html{"TIES"} = "\n"; }else{ $row_html{"TIES"} = ""; } if($standings_type{"PCT"} == 1){ $row_html{"PCT"} = "\n"; }else{ $row_html{"PCT"} = ""; } if($standings_type{"PF"} == 1){ $row_html{"PF"} = "\n"; }else{ $row_html{"PF"} = ""; } if($standings_type{"PA"} == 1){ $row_html{"PA"} = "\n"; }else{ $row_html{"PA"} = ""; } if($standings_type{"POINTS"} == 1){ $row_html{"POINTS"} = "\n"; }else{ $row_html{"POINTS"} = ""; } if($standings_type{"POINTSB"} == 1){ $row_html{"POINTSB"} = "\n"; }else{ $row_html{"POINTSB"} = ""; } for (my $i=1;$i<9;$i++) { $row_html .= $row_html{$standings_type{"D" . $i}}; } $row_html .= "\n"; print $row_html; #print "\n"; } print "\n"; print "
Standings
$divisions{$divkey}
No Divisions
$teams{$key}{'NAME'}$teams{$key}{'WINS'}$teams{$key}{'LOSSES'}$teams{$key}{'TIE'}$winning_percent$teams{$key}{'POINTSFOR'}$teams{$key}{'POINTSVS'}$teams{$key}{'POINTS'}$teams{$key}{'POINTSB'}
Last Game Updated $last_date
Note, Standings are based on games played between $display_start and $display_end.
\n"; # print "\n"; # print "\n"; # # foreach $key (sort hashValueAscendingNum (keys(%teams))) { # if($even){ # $row_style = "cal_events2"; # $even--; # }else{ # $row_style = "cal_events3"; # $even++; # } # $winning_percent = sprintf("%.3f",$teams{$key}{'PERCENT'}); # print "\n"; # # print "\n"; # print "
TeamWLTPCT
$teams{$key}{'NAME'}$teams{$key}{'WINS'}$teams{$key}{'LOSSES'}$teams{$key}{'TIE'}$winning_percent
Last Game Updated $last_date
\n"; } print "
\n"; } ################################################################ ### This will get and print the standings for all teams in a league - Still used? ################################################################ sub get_standings{ my $start_date = shift; my $end_date = shift; my $league_id = shift; my $start_month = shift; my $start_year = shift; my $coach = shift; my $am_pm = ""; my $display_time = ""; my $league = $league_id; my $last_date = ""; my $even = 1; my $standings_type = 0; ################################################3 # Changed code to not use get_league_standings # Can probably delete this line and sub (waiting for testing) ################################################ #my $standings_type = get_league_standings_type($league_id); %divisions = get_divisions($league_id); foreach $check_divs (keys %divisions){ $standings_type++; } %eventsa = get_event_types(); ################################################3 # Changed code to not use get_league_standings # Can probably delete these 3 lines See above. ################################################ #if($standings_type != 0){ # %divisions = get_divisions($league_id); #} ################################################ ## Copy Teams Hash so that Keys=Value ## And for Locations ## This was down becuase orginally the query ## was created so that the hash vaule was the ## field, but in this instance it needs to be ## the other way around. ################################################ %teamsa = get_league_teams($league_id); foreach $key (keys %teamsa){ $teams{$teamsa{$key}}{"NAME"} = $key; $teams{$teamsa{$key}}{"WINS"} = 0; $teams{$teamsa{$key}}{"LOSSES"} = 0; $teams{$teamsa{$key}}{"TIE"} = 0; $teams{$teamsa{$key}}{"POINTSFOR"} = 0; $teams{$teamsa{$key}}{"POINTSVS"} = 0; $teams{$teamsa{$key}}{"POINTS"} = 0; $teams{$teamsa{$key}}{"POINTSB"} = 0; if($standings_type != 0){ $teams{$teamsa{$key}}{"DIVISION"} = get_division($teamsa{$key}); } } foreach $key (keys %locationsa){ $locations{$locationsa{$key}} = $key; } foreach $key (keys %eventsa){ $events{$eventsa{$key}} = $key; } $dbh = get_dbh(); # prepare and execute query $query = "SELECT * FROM `Calendar_Events` WHERE `Start_Date` > '$start_date' AND `End_Date` < '$end_date' AND League_ID=$league_id AND Event_Type=4 ORDER BY Start_Date ASC"; $sth = $dbh->prepare($query); $sth->execute(); # assign fields to variables $sth->bind_columns(\$ID, \$Org_ID, \$League_ID, \$Team_ID, \$Start_Date, \$End_Date, \$Event_Type, \$Home_Team, \$Home_Score, \$Away_Team, \$Away_Score, \$Desc, \$Location, \$Other_Location, \$Notes, \$Status); #print "QUERY: $query
\n"; #print "CHECKING SCORES for $start_date to $end_date in $league_id
\n"; ################################################ ## Get Wins and Losses ################################################ while($sth->fetch()) { if($Home_Score != -1){ $last_date = $Start_Date; if($Home_Score > $Away_Score){ #print "$teams{$Home_Team}{'NAME'}: $Home_Score - $teams{$Away_Team}{'NAME'}: $Away_Score
\n"; $teams{$Home_Team}{"WINS"}++; $teams{$Away_Team}{"LOSSES"}++; }elsif($Home_Score < $Away_Score){ #print "$teams{$Home_Team}{'NAME'}: $Home_Score - $teams{$Away_Team}{'NAME'}: $Away_Score
\n"; $teams{$Home_Team}{"LOSSES"}++; $teams{$Away_Team}{"WINS"}++; }elsif($Home_Score == $Away_Score){ #print "$teams{$Home_Team}{'NAME'}: $Home_Score - $teams{$Away_Team}{'NAME'}: $Away_Score
\n"; $teams{$Home_Team}{"TIE"}++; $teams{$Away_Team}{"TIE"}++; } $teams{$Home_Team}{"POINTSFOR"} = $teams{$Home_Team}{"POINTSFOR"} + $Home_Score ; $teams{$Home_Team}{"POINTSVS"} = $teams{$Home_Team}{"POINTSVS"} + $Away_Score; $teams{$Away_Team}{"POINTSFOR"} = $teams{$Away_Team}{"POINTSFOR"} + $Away_Score ; $teams{$Away_Team}{"POINTSVS"} = $teams{$Away_Team}{"POINTSVS"} + $Home_Score; } } $sth->finish(); # disconnect from database $dbh->disconnect; ################################################ ## Get Winning % ################################################ foreach $key (keys %teams){ if(($teams{$key}{'WINS'} + $teams{$key}{'LOSSES'}) > 0){ $winning_percent = ($teams{$key}{'WINS'})/($teams{$key}{'WINS'} + $teams{$key}{'LOSSES'}); }else{ $winning_percent = 0; } $teams{$key}{'PERCENT'}=$winning_percent; } ################################################ ## Convert Date ################################################ ($last_date, $last_time) = split(/\s+/, $last_date); $last_date = convert_date_to_display($last_date); ################################################ ## Print Standings ################################################ print "
\n"; if($standings_type != 0){ print "\n"; foreach $divkey (sort {lc($divisions{$a}) cmp lc($divisions{$b})} keys %divisions){ $even = 1; print "\n"; print "\n"; foreach $key (sort hashValueAscendingNum (keys(%teams))) { if($teams{$key}{"DIVISION"} == $divkey){ if($even){ $row_style = "cal_events2"; $even--; }else{ $row_style = "cal_events3"; $even++; } $winning_percent = sprintf("%.3f",$teams{$key}{'PERCENT'}); print "\n"; #print "\n"; } } } print "\n"; print "
$divisions{$divkey}
TeamWLTPCT
$teams{$key}{'NAME'}$teams{$key}{'WINS'}$teams{$key}{'LOSSES'}$teams{$key}{'TIE'}$winning_percent
Last Game Updated $last_date
Note, Standings are based on games played between $display_start and $display_end.
\n"; }else{ print "\n"; print "\n"; foreach $key (sort hashValueAscendingNum (keys(%teams))) { if($even){ $row_style = "cal_events2"; $even--; }else{ $row_style = "cal_events3"; $even++; } $winning_percent = sprintf("%.3f",$teams{$key}{'PERCENT'}); print "\n"; } print "\n"; print "
TeamWLTPCT
$teams{$key}{'NAME'}$teams{$key}{'WINS'}$teams{$key}{'LOSSES'}$teams{$key}{'TIE'}$winning_percent
Last Game Updated $last_date
Note, Standings are based on games played between $display_start and $display_end.
\n"; } print "
\n"; } ################################################################ ### This is a specific sort for team stadnings ################################################################ sub hashValueAscendingNum2 { my %standings_type = get_league_standings_type($league_id); print "HELLO
\n"; if($standings_type{$standings_type{"D1"}} == 1 ){ #print "ITS ONE
\n"; } $teams{$b}{'$standings_type{"D1"}'} <=> $teams{$a}{'$standings_type{"D1"}'} or $teams{$b}{'$standings_type{"D2"}'} <=> $teams{$a}{'$standings_type{"D2"}'} or $teams{$b}{'$standings_type{"D3"}'} <=> $teams{$a}{'$standings_type{"D3"}'} or $teams{$a}{'$standings_type{"D4"}'} <=> $teams{$b}{'$standings_type{"D4"}'} or $teams{$a}{'NAME'} cmp $teams{$b}{'NAME'}; } ################################################################ ### This is a specific sort for team stadnings ################################################################ sub hashValueAscendingNum { $teams{$b}{'PERCENT'} <=> $teams{$a}{'PERCENT'} or $teams{$b}{'WINS'} <=> $teams{$a}{'WINS'} or $teams{$b}{'TIE'} <=> $teams{$a}{'TIE'} or $teams{$a}{'LOSSES'} <=> $teams{$b}{'LOSSES'} or $teams{$a}{'NAME'} cmp $teams{$b}{'NAME'}; } ################################################################ ### This is a specific sort for team teams drop down option ################################################################ sub hashValueAscendingNum3 { $teams{$b} cmp $teams{$a} } ################################################################ ### This is a specific sort for team teams drop down option ################################################################ sub hashValueAscendingAlpha { $teams{$a} cmp $teams{$b} } ################################################################ ### This is the hit counter ################################################################ sub add_to_hit_counter{ my $org = shift; my $dbh = get_dbh(); my $Hits = 0; my $UHits = 0; my $ip = $ENV{'REMOTE_ADDR'}; my $BH = get_cookie_hits($org); my $been_here = 0; if((!(defined($org))) || ($org eq "")){ $org = 0; } if($BH ne 1234){ print "\n"; }else{ $been_here = 1; print "\n"; } # prepare and execute query #print "
__HTML__ print <<__HTML__;
Manage Account
Login Name Required
Password Required
First Name Required
Last Name Required
Email Address Optional
Title Optional
Home Phone Optional
Work Phone Optional
Mobile Phone Optional
Zip Code Optional
__HTML__ } ######################################### # Prints the New User form ######################################### sub print_new_user_form{ my $org_id = shift; my $login_name = shift; my $first_name = shift; my $last_name = shift; my $email = shift; my $title = shift; my $phone = shift; my $wphone = shift; my $mphone = shift; my $zip = shift; print <<__HTML__;
__HTML__ print <<__HTML__;
New User Account
Login Name Required
Password Required
First Name Required
Last Name Required
Email Address Optional
Title Optional
Home Phone Optional
Work Phone Optional
Mobile Phone Optional
Zip Code Optional
__HTML__ } ######################################### # Get the League ID from the Menu ID ######################################### sub get_league{ my $menu_id = shift; my $dbh = get_dbh(); my $query = "SELECT League_ID FROM `Menu_Info` WHERE `Key`= '$menu_id'"; my $sth = $dbh->prepare($query); $sth->execute(); $sth->bind_columns(\$League_ID); while($sth->fetch()) { $league_id = $League_ID; } # disconnect from database $dbh->disconnect; $sth->finish(); return $league_id; } ######################################### # Get the Org Short Name from org ######################################### sub get_org_short{ my $org_id = shift; my $dbh = get_dbh(); my $query = "SELECT Org_Short FROM `Org_Info` WHERE `Key`= '$org_id'"; my $sth = $dbh->prepare($query); my $org_short = ""; $sth->execute(); $sth->bind_columns(\$Org_Short); while($sth->fetch()) { $org_short = $Org_Short; } # disconnect from database $dbh->disconnect; $sth->finish(); return $org_short; } ######################################### # Get the Org full Name from org ######################################### sub get_org_url_from_league{ my $league_id = shift; my $dbh = get_dbh(); my $query = "SELECT a.`Base_URL` FROM `Setup_Info` a, `League_Info` b WHERE a.`Org_ID`= b.`Org_ID` AND b.`Key` = '$league_id'"; my $sth = $dbh->prepare($query); my $org_url = ""; my $base_url = ""; my $Base_URL = ""; $sth->execute(); $sth->bind_columns(\$Base_URL); while($sth->fetch()) { $base_url = $Base_URL; } # disconnect from database $dbh->disconnect; $sth->finish(); return $base_url; } ######################################### # Get the Org full Name from org ######################################### sub get_org_url_from_location{ my $location_id = shift; my $dbh = get_dbh(); my $query = "SELECT a.`Base_URL` FROM `Setup_Info` a, `Location_Info` b WHERE a.`Org_ID`= b.`Org_ID` AND b.`Key` = '$location_id'"; my $sth = $dbh->prepare($query); my $org_url = ""; $sth->execute(); $sth->bind_columns(\$Base_URL); while($sth->fetch()) { $base_url = $Base_URL; } # disconnect from database $dbh->disconnect; $sth->finish(); return $base_url; } ######################################### # Get the Org full Name from org ######################################### sub get_org_full_from_league{ my $league_id = shift; my $dbh = get_dbh(); my $query = "SELECT a.`Org_Full` FROM `Org_Info` a, `League_Info` b WHERE a.`Key`= b.`Org_ID` AND b.`Key` = '$league_id'"; my $sth = $dbh->prepare($query); my $org_short = ""; $sth->execute(); $sth->bind_columns(\$Org_Full); while($sth->fetch()) { $org_full = $Org_Full; } # disconnect from database $dbh->disconnect; $sth->finish(); return $org_full; } ######################################### # Get the org ID from the League ID ######################################### sub get_org{ my $league_id = shift; my $dbh = get_dbh(); my $query = "SELECT Org_ID FROM `League_Info` WHERE `Key`= '$league_id'"; my $sth = $dbh->prepare($query); my $org_id = -1; $sth->execute(); $sth->bind_columns(\$Org_ID); while($sth->fetch()) { $org_id = $Org_ID; } # disconnect from database $dbh->disconnect; $sth->finish(); return $org_id; } ######################################### # Get the org ID from the League ID ######################################### sub get_login_from_session{ my $session_id = shift; my $dbh = get_dbh(); my $login_id = 0; ################################################################ # Query DB to verify Session ################################################################ my $query = "SELECT * FROM `Account_Info` WHERE `Last_Access_ID` = '$session_id'"; my $sth = $dbh->prepare($query); $sth->execute(); $sth->bind_columns(\$Key, \$Login, \$Password, \$email, \$League_ID, \$Last_Access, \$Last_Access_ID, \$Firstname, \$Lastname, \$Title, \$Home_Phone, \$Work_Phone, \$Mobile_Phone, \$Zip_Code, \$Token); while($sth->fetch()) { $login_id = $Key; } # disconnect from database $dbh->disconnect; $sth->finish(); return $login_id; } ######################################### # Get a list of Leagues given the Org ######################################### sub get_linked_orgs{ my $org_id = shift; my $dbh = get_dbh(); # prepare and execute query my $query = "SELECT `Subscribed_To_Org_ID` FROM `Org_Standings_Link` WHERE `Org_ID`=$org_id"; #print "$query
\n"; my $sth = $dbh->prepare($query); my %return_hash; my $ID; my $event_type; $sth->execute(); # assign fields to variables $sth->bind_columns(\$Subscribed_To_Org_ID); # output name list to the browser while($sth->fetch()) { push(@return_array, $Subscribed_To_Org_ID); } $sth->finish(); # disconnect from database $dbh->disconnect; return @return_array; } ######################################### # Get a list of Leagues given the Org ######################################### sub get_org_leagues{ my $org_id = shift; my $dbh = get_dbh(); # prepare and execute query my $query = "SELECT `League_ID`, `Menu_Name` FROM `Menu_Info` WHERE `Org_ID`=$org_id AND `Menu_Type`='league' ORDER BY Menu_Name ASC"; #print "$query
\n"; my $sth = $dbh->prepare($query); my %return_hash; my $ID; my $event_type; $sth->execute(); # assign fields to variables $sth->bind_columns(\$League_ID, \$Menu_Name); # output name list to the browser while($sth->fetch()) { $return_hash{"$Menu_Name"} = $League_ID; } $sth->finish(); # disconnect from database $dbh->disconnect; return %return_hash; } ######################################### # Prints the New User form ######################################### sub add_user_permissions{ my $user_id = shift; my $access_type = uc(shift); my $access_id = shift; my $access_level = shift; my $current_access_level = ""; if($access_type eq "LEAGUE"){ $access_id = get_league($access_id); } my $dbh = get_dbh(); ################################## # Check if Permissions record # already exists ################################## my $query1 = "SELECT `Key`, `Access_Level` FROM `Permissions_Info` WHERE `Login_ID`=$user_id AND `Access_Type`='$access_type' AND `Access_ID`=$access_id"; #print "$query1
\n"; my $sth = $dbh->prepare($query1); $sth->execute(); # assign fields to variables $sth->bind_columns(\$Key, \$Access_Level); while($sth->fetch()) { $current_access_level = $Access_Level; $current_key = $Key; } if($current_access_level ne ""){ if($current_access_level eq $access_level){ }else{ $query2 = "UPDATE `Permissions_Info` SET `Access_Level = '$access_level' where `Key` = $key"; } }else{ $query2 = "INSERT INTO `Permissions_Info` ( `Key` , `Login_ID` , `Access_Type` , `Access_ID` , `Access_Level`) VALUES ('', '$user_id', '$access_type', '$access_id', '$access_level');"; } #print "$query2
\n"; $sth = $dbh->prepare($query2); $sth->execute(); # disconnect from database $dbh->disconnect; $sth->finish(); } ######################################### # Delete User Permissions for # Permissions Info ######################################### sub remove_permissions{ my $permtodelete = shift; my $dbh = get_dbh(); my $query1 = "DELETE FROM `Permissions_Info` WHERE `Key`= $permtodelete LIMIT 1"; #print "$query1
\n"; my $sth = $dbh->prepare($query1); $sth->execute(); # disconnect from database $dbh->disconnect; $sth->finish(); } sub print_new_location_form_field_mgmt{ my $org_id = shift; #my $dbh = get_dbh(); # prepare and execute query print <<__HTML__;
__HTML__ print <<__HTML__;
Create New Location
Location Name Required
Address Optional
Directions Optional
Hyperlink Optional
__HTML__ } sub print_new_location_form{ my $org_id = shift; #my $dbh = get_dbh(); # prepare and execute query print <<__HTML__;
__HTML__ print <<__HTML__;
Create New Location
Location Name Required
Address Optional
Directions Optional
Hyperlink Optional
__HTML__ } sub get_counter_on_off{ my $org_id = shift; my $dbh = get_dbh(); my %hits_status = (); $hits_status{$org_id}{"ON_OFF"} = 0; #Sets default to off $hits_status{$org_id}{"DEFINED"} = 0; my $query = "SELECT `On_Off`, `Hit_Type` FROM `Hit_Counter_Info` WHERE `Org_ID` = $org_id"; my $sth = $dbh->prepare($query); $sth->execute(); # assign fields to variables $sth->bind_columns(\$On_Off, \$Hit_Type); while($sth->fetch()) { $hits_status{$org_id}{"ON_OFF"} = $On_Off; $hits_status{$org_id}{"HIT_TYPE"} = $Hit_Type; $hits_status{$org_id}{"DEFINED"} = 1; } $sth->finish(); $dbh->disconnect(); return %hits_status; } sub get_hits{ my $org_id = shift; my $dbh = get_dbh(); my %hits = (); #my $query = "SELECT a.`Org`, a.`hits`, a.`visits`, b.`Org_Short`, c.`Base_URL` FROM `hit_counter` a, `Org_Info` b, `Setup_Info` c where a.`Org` = c.`Org_ID` AND c.`Org_ID` = b.`Key`"; my $query = "SELECT `hits`, `visits` FROM `hit_counter` WHERE `Org` = '$org_id'"; my $sth = $dbh->prepare($query); $sth->execute(); # assign fields to variables $sth->bind_columns(\$Hits, \$Visits); while($sth->fetch()) { #$hits{$org_id}{"ORG_SHORT"} = $Org_Short; $hits{$org_id}{"HITS"} = $Hits; $hits{$org_id}{"VISITS"} = $Visits; #$hits{$org_id}{"URL"} = $Base_URL; } $sth->finish(); $dbh->disconnect(); return %hits; } sub print_update_location_form{ my $org_id = shift; my $location_id = shift; my $location = ""; my $address = ""; my $address_link = ""; my $directions = ""; #my $dbh = get_dbh(); # prepare and execute query my $dbh = get_dbh(); my $query = "SELECT `Location`, `Address`, `Address_Link`, `Directions` FROM `Location_Info` WHERE `Key` = '$location_id'"; my $sth = $dbh->prepare($query); $sth->execute(); # assign fields to variables $sth->bind_columns(\$Location, \$Address, \$Address_Link, \$Directions); $already_exist = 0; while($sth->fetch()) { $location = $Location; $address = $Address; $address_link = $Address_Link; $directions = $Directions; } $sth->finish(); $dbh->disconnect; print <<__HTML__;
__HTML__ print <<__HTML__;
Update Location
Location Name Required
Address Optional
Directions Optional
Hyperlink Optional
__HTML__ } sub check_if_season_has_expired{ my $season_end_date = shift; my $currend_date = get_db_date(); my $sec = 0; my $min = 0; my $hour = 0; my $is_season_expired = 0; my ($season_month, $season_day, $season_year) = split(/\//, $season_end_date); my ($current_year, $current_month, $current_day) = split(/-/, $current_date); my $season_end_in_epoch = timelocal($sec,$min,$hour,$season_day,$season_month-1,$season_year-1900); my $current_in_epoch = timelocal($sec,$min,$hour,$current_day,$current_month-1,$current_year-1900); if($current_in_epoch > $season_end_in_epoch){ $is_season_expired = 1; } return $is_season_expired; } sub get_db_date{ #get current_time in seconds my $current_time = timelocal((localtime)[0..5]); my ($sec, $min, $hour, $day, $month, $year, $wday, $yday, $isdst) = localtime($current_time); #Add 1900 to Years, because it begins at 1900, ex 2004=104; $year = $year + 1900; #Jan = 0 $month = $month +1; $month = sprintf("%1d",$month); $day = sprintf("%1d",$day); my $return_date = "$year-$month-$day"; return $return_date; } ######################################### # Get Current Date Time in DB Format ######################################### sub get_db_date_time_pyb_lib{ #get current_time in seconds my $current_time = timelocal((localtime)[0..5]); my ($sec, $min, $hour, $day, $month, $year, $wday, $yday, $isdst) = localtime($current_time); #Add 1900 to Years, because it begins at 1900, ex 2004=104; $year = $year + 1900; #Jan = 0 $month = $month +1; $sec = sprintf ("%02d", $sec); $min = sprintf ("%02d", $min); $month = sprintf ("%02d", $month); $month = sprintf("%1d",$month); $day = sprintf("%1d",$day); my $return_date = "$year-$month-$day $hour:$min:$sec"; return $return_date; } sub get_leagues_by_org{ my $org_id = shift; my $dbh = get_dbh(); # prepare and execute query #my $query = "SELECT `Key`, `League_Name` FROM League_Info WHERE `Org_ID` = '$org_id'"; my $query = "SELECT `League_ID`, `Menu_Name` FROM Menu_Info WHERE `Org_ID` = '$org_id' AND `Menu_Type` = 'league'"; #$html .= "$query
\n"; my $sth = $dbh->prepare($query); my %return_hash = (); my $ID; $sth->execute(); # assign fields to variables $sth->bind_columns(\$ID, \$League_Name); # output name list to the browser while($sth->fetch()) { $return_hash{$League_Name} = $ID; } $sth->finish(); # disconnect from database $dbh->disconnect; return %return_hash; } ################################### # Get parameter for DB ################################### sub clean_param{ my $paramter = shift; my $value = param($paramter); $value =~ s/\'/''/g; $value =~ s/\"//g; $value =~ s/\\//g; return $value; } sub get_alert_notification{ my $location_id = shift; my $show_hide = shift; my $dbh = get_dbh(); my $html = ""; my $display_form = "display:block"; if($show_hide eq "hidden"){ $display_form = "display:none"; } my $query = "SELECT `Show_Alert`, `Alert_Message` FROM `Location_Subscriber_Message` WHERE `Location_ID` = '$location_id'"; #print $query, "
\n"; my $sth = $dbh->prepare($query); $sth->execute(); # assign fields to variables $sth->bind_columns(\$Show_Alert, \$Alert_Message); $already_exist = 0; $subscription_count = 0; $checked = ""; while($sth->fetch()) { if($Show_Alert > 0){ $checked = "CHECKED"; } $org_short = get_org_short($Org_ID); $message = $Alert_Message; } $sth->finish(); $dbh->disconnect; if($Show_Alert > 0){ my $location_name = get_location_name($location_id); my $org_full = get_location_owner_full($location_id); my $org_url = get_org_url_from_location($location_id); $html .= "
"; $html .= ""; $html .= ""; $html .= ""; $html .= "
Message from owner of
this field/location
Field/Location: $location_name
"; $html .= "Owner: $org_full
$message
"; $html .= "
  "; $html .= "
"; $html .= "
\n"; } return $Show_Alert, $html; } sub get_alert_notification_js{ my $location_id = shift; my $show_hide = shift; my $dbh = get_dbh(); my $html = ""; my $display_form = "display:block"; if($show_hide eq "hidden"){ $display_form = "display:none"; } my $query = "SELECT `Show_Alert`, `Alert_Message` FROM `Location_Subscriber_Message` WHERE `Location_ID` = '$location_id'"; #print $query, "
\n"; my $sth = $dbh->prepare($query); $sth->execute(); # assign fields to variables $sth->bind_columns(\$Show_Alert, \$Alert_Message); $already_exist = 0; $subscription_count = 0; $checked = ""; while($sth->fetch()) { if($Show_Alert > 0){ $checked = "CHECKED"; } $org_short = get_org_short($Org_ID); $message = $Alert_Message; $message =~ s/'/\\'/g; } $sth->finish(); $dbh->disconnect; if($Show_Alert > 0){ my $location_name = get_location_name($location_id); my $org_full = get_location_owner_full($location_id); my $org_url = get_org_url_from_location($location_id); $html .= "
"; $html .= ""; $html .= ""; $html .= ""; $html .= "
$message"; $html .= "

"; #$html .= ""; #$html .= "
"; #$html .= "
"; } return $Show_Alert, $html; } sub get_location_owner_full{ my $key = shift; my $dbh = get_dbh(); #my $query = "SELECT b.`Org_Short` FROM `Location_Subscriber_Link` a, `Org_Info` b WHERE a.`Key` = '$key' AND a.`Org_ID` = b.`Key`"; my $query = "SELECT b.`Org_Full` FROM `Location_Info` a, `Org_Info` b WHERE a.`Key` = '$key' AND a.`Org_ID` = b.`Key`"; #print $query, "
\n"; my $sth = $dbh->prepare($query); $sth->execute(); # assign fields to variables $sth->bind_columns(\$Org_Full); $already_exist = 0; $subscription_count = 0; while($sth->fetch()) { $org_full = $Org_Full; } $sth->finish(); $dbh->disconnect; return $org_full; } 1;