Mark Ratajczak, full-stack Software Engineer and Linux guru

marketing_emailer.cgi

Interface to create custom templates and content for marketing emails.

#!/usr/bin/perl 
 
use Zxxxxx::ApacheRequest;  
use Zxxxxx::Database;  
use Zxxxxx::Template;  
use Zxxxxx::Contact; 
 
use strict; 
use warnings; 
use Data::Dumper;

my $db = Zxxxxx::Database->new();
 
my $r  = Zxxxxx::ApacheRequest->new();  
my $t  = Zxxxxx::Template->new();  
 
my $tmpl = "marketing_tool.tmpl";
 
my $contact_id = z_get_logged_in_contact()->{contact_id};

$r->send_http_header( 'text/html');

if ( $r->param('add_row') ne "" ) {
    add_row( $r, $t, $db );
}
if ( $r->param('save_urls') ne "" ) {
    save_urls( $r, $t, $db );
}

$t->set_values({
        page_title   => "Mark Eting Tool",
});

if ( $r->param('get_content_nodes') ne "" ) {
    my $refcode_template_id = $r->param('refcode_template_id');
    my $refcode_id = $r->param('refcode_id');
    my $template_row = $r->param('template_row');
    my $content_nodes = get_content_node_template( $r, $t, $db, $refcode_id, $template_row, $refcode_template_id ); 
    print $t->parse_file("content_nodes.htmlf");
    exit;
    $t->destroy; 
} else {
    my $refcode = build_refcode_dropdown( $r, $t, $db );

my $refcode_dropdown = build_refcode_template_dropdown( $r, $t, $db );
    foreach my $refcode_template ( @{ $refcode_dropdown } ) {
        my $refcode_template_loop = $t->loop_iteration("refcode_template_loop");
        $refcode_template_loop->set_values($refcode_template);
    }
    $t->set_value( template_row => 1 );

build_main( $r, $t, $db, $refcode );

print $t->parse_file($tmpl);
    $t->destroy; 
}

sub build_refcode_dropdown {
    my ($r, $t, $db) = @_;

my $base_refcode = "";

my $sql = <<SQL;
SELECT
    r5.refcode_id AS refcode_id,
    CONCAT_WS("_", r1.refcode, r2.refcode, r3.refcode, r4.refcode, r5.refcode) AS refcode
FROM 
   refcode r5
JOIN refcode r4
    ON r5.parent_id = r4.refcode_id
JOIN refcode r3 
    ON r4.parent_id = r3.refcode_id
JOIN refcode r2 
    ON r3.parent_id = r2.refcode_id
JOIN refcode r1
    ON r2.parent_id = r1.refcode_id
WHERE 
    r5.level = 5
SQL

my $result = $db->select_multiple( $sql, [ ] );

my $refcode_id = $r->param('refcode_id');

foreach my $refcode ( @{ $result } ) {
        my $refcode_loop = $t->loop_iteration("refcode_loop");
        if ( $refcode->{refcode_id} == $refcode_id ) {
            $refcode->{selected} = 1;
            $base_refcode = $refcode->{refcode};
        }
        $refcode_loop->set_values($refcode);
    }

return $base_refcode;

}
     
sub build_refcode_template_dropdown {
    my ($r, $t, $db, $refcode_template_id) = @_;

my $sql = <<SQL;
SELECT
    refcode_template_id,
    template_name
FROM 
    refcode_template
SQL

my $result = $db->select_multiple( $sql, [ ] );
    foreach my $refcode_template ( @{ $result } ) {
        if ( $refcode_template->{refcode_template_id} == $refcode_template_id ) {
            $refcode_template->{selected} = "yes";
        } else {
            $refcode_template->{selected} = "";
        }
    }
    
    return $result;

}

sub build_main {
    my ($r, $t, $db, $base_refcode) = @_;

my $refcode_id = $r->param('refcode_id');

my $sql = <<SQL;
SELECT
    rt.refcode_template_id AS refcode_template_id,
    rmark.template_row
FROM 
    refcode_mailing rmail
JOIN 
    refcode_marketing rmark
        ON rmail.refcode_mailing_id = rmark.refcode_mailing_id
JOIN 
    refcode_location rl
        ON rmail.refcode_location_id = rl.refcode_location_id
JOIN refcode_template rt
        ON rl.refcode_template_id = rt.refcode_template_id
WHERE 
    rmail.refcode_id = ?
GROUP BY 
    rmark.refcode_mailing_id,
    rmark.template_row
ORDER BY 
    rmark.template_row ASC,
    rl.refcode_location_id ASC
SQL

my $result = $db->select_multiple( $sql, [ $refcode_id ] );
    
    my @refcode_data = split /\_/, $base_refcode;
    if ( @refcode_data > 2 ) {
        shift @refcode_data;
        shift @refcode_data;
        $base_refcode = join "_", @refcode_data;
    } 
    foreach my $row ( @{ $result } ) {
        my $main_loop = $t->loop_iteration("main_loop");
        my $refcode_dropdown = build_refcode_template_dropdown( $r, $t, $db, $row->{refcode_template_id} );
        foreach my $refcode_template ( @{ $refcode_dropdown } ) {
            my $refcode_template_loop = $main_loop->loop_iteration("refcode_template_loop");
            $refcode_template_loop->set_values($refcode_template);
        }
        my $content_nodes = get_content_nodes( $r, $t, $db, $refcode_id, $row->{template_row} ); 
        foreach my $content_node ( @{ $content_nodes } ) {
            my $content_node_loop = $main_loop->loop_iteration("content_node_loop");
            my $keyword = $base_refcode;
            $keyword .= "_row" . $content_node->{template_row};
            $keyword .= "_" . $content_node->{template_name};
            $keyword .= "_" . $content_node->{location};
            $content_node->{keyword} = $keyword;
            if ( $content_node->{version} ) {
                $content_node->{keyword} .= "_" . $content_node->{version};
            }
            $content_node_loop->set_values($content_node);
        }
        my $versions = get_versions( $r, $t, $db, $refcode_id, $row->{template_row} );
        my $version_count = scalar @{ $versions };
        my $version_num = 1;
        foreach my $version ( @{ $versions } ) {
            my $version_loop = $main_loop->loop_iteration("version_loop");
            $version->{version_num} = $version_num;
            $version_num++;
            $version_loop->set_values($version);
        }
        if ( !$version_count ) {
            my $version_loop = $main_loop->loop_iteration("version_loop");
            my $version = {
                              version_num => $version_num,
                              version => "",
                          };
            $version_loop->set_values($version);
        } 
        $main_loop->set_values($row);
        $t->set_value( next_row_num => $row->{template_row}+1);
    }
   
}

sub get_content_nodes {
    my ($r, $t, $db, $refcode_id, $template_row, $refcode_template_id) = @_;
    
    my $sql = <<SQL;
SELECT 
    rt.template_name AS template_name,
    rmark.template_row AS template_row,
    rl.location AS location,
    rpl.location AS parent_location,
    rml.location AS attribute,
    rmark.template_value AS template_value,
    rmark.version AS version
FROM 
    refcode_mailing rmail
JOIN 
    refcode_marketing rmark
        ON rmail.refcode_mailing_id = rmark.refcode_mailing_id
JOIN 
    refcode_location rl
        ON rmail.refcode_location_id = rl.refcode_location_id
LEFT JOIN 
    refcode_location rpl
        ON rl.parent_id = rpl.refcode_location_id
JOIN 
    refcode_location rml
        ON rmark.refcode_location_id = rml.refcode_location_id
JOIN refcode_template rt
        ON rl.refcode_template_id = rt.refcode_template_id
JOIN refcode_location_type rlt
        ON rl.refcode_location_type_id = rlt.refcode_location_type_id
WHERE 
    rmail.refcode_id = ?
    AND
    rmark.template_row = ?
ORDER BY 
    rmark.template_row ASC,
    rl.refcode_location_id ASC
SQL
 
    my $result = $db->select_multiple( $sql, [ $refcode_id, $template_row ] );
    
    return $result;

}

sub get_content_node_template {
    my ($r, $t, $db, $refcode_id, $template_row, $refcode_template_id) = @_;
    
    my $sql = <<SQL;
SELECT 
    rt.template_name AS template_name,
    rl.location AS attribute,
    rpl.location AS location
FROM 
    refcode_template rt
JOIN 
    refcode_location rl
        ON rl.refcode_template_id = rt.refcode_template_id
LEFT JOIN 
    refcode_location rpl
        ON rl.parent_id = rpl.refcode_location_id
WHERE 
    rt.refcode_template_id = ?
    AND
    rl.level = 2
ORDER BY 
    rl.refcode_location_id ASC
SQL

my $content_nodes = $db->select_multiple( $sql, [ $refcode_template_id ] );
    
    my $base_refcode = get_refcode_from_id($r, $t, $db, $refcode_id);
    my @refcode_data = split /\_/, $base_refcode;
    if ( @refcode_data > 2 ) {
        shift @refcode_data;
        shift @refcode_data;
        $base_refcode = join "_", @refcode_data;
    } 
    foreach my $content_node ( @{ $content_nodes } ) {
        my $content_node_loop = $t->loop_iteration("content_node_loop");
        my $keyword = $base_refcode;
        $keyword .= "_row" . $template_row;
        $keyword .= "_" . $content_node->{template_name};
        $keyword .= "_" . $content_node->{location};
        $content_node->{keyword} = $keyword;
        if ( $content_node->{version} ) {
            $content_node->{keyword} .= "_" . $content_node->{version};
        }
        $content_node->{template_value} = "";
        $content_node_loop->set_values($content_node);
    }
 
    return $content_nodes;

}

sub get_versions {
    my ($r, $t, $db, $refcode_id, $template_row) = @_;
    
    my $sql = <<SQL;
SELECT 
    rmark.version AS version
FROM 
    refcode_mailing rmail
JOIN 
    refcode_marketing rmark
        ON rmail.refcode_mailing_id = rmark.refcode_mailing_id
WHERE 
    rmail.refcode_id = ?
    AND
    rmark.template_row = ?
    AND 
    rmark.version IS NOT NULL
ORDER BY 
    rmail.refcode_mailing_id ASC
SQL
 
    my $result = $db->select_multiple( $sql, [ $refcode_id, $template_row ] );
    return $result;

}
sub save_urls {
    my ($r, $t, $db) = @_;
}

sub add_row {
    my ($r, $t, $db) = @_;

my $refcode_template_id = $r->param('refcode_template_dropdown');
    my $refcode_id = $r->param('refcode_id');

my $sql = "SELECT MAX(rmark.template_row) AS max_row FROM refcode_marketing rmark JOIN refcode_mailing rmail ON rmark.refcode_mailing_id = rmark.refcode_mailing_id WHERE rmail.refcode_id = ?";
    my $result = $db->select_single( $sql, [ $refcode_id ] );
    my $max_row = $result->{max_row};
    $max_row++;

$sql = "SELECT refcode_location_id FROM refcode_location WHERE refcode_template_id = ? AND refcode_location_type_id = 2";
    my $location_result = $db->select_multiple( $sql, [ $refcode_template_id ] );
    
    foreach my $row ( @{ $location_result } ) {
        my $insert_id = $db->insert('refcode_mailing', {
                            refcode_id => $refcode_id,
                            refcode_location_id => $row->{refcode_location_id},
                        });
        $db->insert('refcode_marketing', {
            refcode_mailing_id => $insert_id,
            template_row => $max_row,
        });
    }

}

sub delete_row {
    my ($r, $t, $db) = @_;

my $refcode_id = $r->param('refcode_id');
    my $delete_row = $r->param('delete_row');

$db->delete('refcode_mailing', { 
            refcode_id => $refcode_id,
            template_row => $delete_row,
        });

}

sub get_refcode_from_id {
    my ($r, $t, $db, $refcode_id) = @_;

my $base_refcode = "";

my $result = $db->select_single( $sql, [ $refcode_id ] );

return $result->{refcode};

}

inbox.php

Messaging interface for fantasy baseball leagues

<?php

$subNav = "leagueoffice";
require ("includes/appHeader.php");
require ("class/clsMessages.php");

$objTeams = new clsTeams;
$objTeams->loadTeams();

if (isset ($_GET['debug'])) {
	print "<pre>";
	print_r($objTeams);
}
//print "The messaging system is currently unavailable.  It will be available again in a few hours.  We are sorry for any inconvenience.\n";
//exit;

?>
<SCRIPT LANGUAGE="JavaScript">

</script>
<?
$temp = split("_", $objAccount->leag_id);
$leagnum = $temp[0] . "_2";
$tempTitle = "";
if ($objAccount->commishflag == 1) 
{
	$strSQL = "SELECT * FROM msg WHERE (league_id LIKE '$leagnum%') AND send_to = '0' AND received_status = 1 ORDER BY sent_date DESC";
	$tempTitle = "COMMISSIONER";
} 
else 
{
	$strSQL = "SELECT viewed,record_id,sent_date,sender,message,send_to,send_from FROM msg WHERE send_to = '$objAccount->account' and received_status = 1 ORDER BY sent_date DESC";
}
?>

<form name="inbox" id="inbox" method="post" action="update_inbox.php?<?= $objAccount->query_string ?>">
<table width="770" cellpadding="2" cellspacing="2" border="0">
<tr><td class=tenreasonhead colspan=4><?= $tempTitle ?> INBOX</td></tr>
<tr><td class=tqsmall colspan=4> </td></tr>
<tr><td class=teamheadname colspan=4><a href='send_message_form.php?<?= $objAccount->query_string ?>'>Compose a message</a></td></tr>
</table>
<table width='770' cellpadding='2' cellspacing='2' border='0' bgcolor=#E4E4E4>
<tr bgcolor=#000000><td class=tqsmall width=5% align=center><font color=#FFFFFF><b>Delete</b></font></td>
<td class=tqsmall width=25% align=center><font color=#FFFFFF><b>From</td>
<td class=tqsmall width=20% align=center><font color=#FFFFFF><b>Date/Time</td>
<td class=tqsmall width=50% align=center><font color=#FFFFFF><b>Subject</td></tr>
<?

$result = fncDBGetResult(cstDBMiscRO, $strSQL);
while (($row = fncDBMoveNext($result)) != NULL) {
	$splitSent = split(" ", $row->sent_date);
	$splitDate = split("-", $splitSent[0]);
	$splitTime = split(":", $splitSent[1]);
	$messageDate = "$splitDate[1]/$splitDate[2]/$splitDate[0] at $splitTime[0]:$splitTime[1]";

$splitMessage = split(" +", $row->message);
	$tempMessage = array_splice($splitMessage, 0, 4);
	$temp = join(" ", $tempMessage);

if($row->send_from == "0") 
	{ 
		$sender = "Commissioner"; 
	}
	else 
	{ 
		$sender = $objTeams->accounts[$row->send_from]; 
	}
	?>
	  <tr bgcolor=#FFFFFF><td class=tqsmall align=center>
		<input class="tqsmall" type=checkbox name="checked[]" value='<?= $row->record_id ?>'></td>
		<td class=tqsmall><?= $sender ?></td>
		<td class=tqsmall><?= $messageDate ?></td>
		<td class=tqsmall><? if($row->viewed == 0) { print "<b>"; }?><a href="show_message.php?<?= $objAccount->query_string ?>&message_id=<?= $row->record_id ?>"><?= $temp ?> ...</a></td></tr>
		<?
}
?>
</table>
<table width='770' cellpadding='2' cellspacing='2' border='0'>
<tr bgcolor=#FFFFFF><td class=tqsmall colspan=4>
<a class="tqsmall" href="javascript:void(0);" onclick="checkAll2(document.getElementById('inbox'), 'tqsmall', true);">Check/Uncheck all mail</a>
<tr bgcolor=#FFFFFF><td> </td></tr>
<tr bgcolor=#FFFFFF>
<td class=tqsmall colspan=4><input class=tqsmall type=submit name="Delete Checked" value="Delete Checked"></td></tr>
</table>
</form>

<br><form name="outbox" id="outbox" method=post action="update_outbox.php?<?= $objAccount->query_string ?>">
<table width='770' cellpadding='2' cellspacing='2' border='0'>
<tr><td class=tenreasonhead colspan=4><?= $tempTitle ?> SENT MAIL</td></tr>
<tr><td class=tqsmall colspan=4> </td></tr>
</table>
<table width='770' cellpadding='2' cellspacing='2' border='0' bgcolor=#E4E4E4>
<tr bgcolor=#000000><td class=tqsmall width=5% align=center><font color=#FFFFFF><b>Delete</b></font></td>
<td class=tqsmall width=25% align=center><font color=#FFFFFF><b>To</td>
<td class=tqsmall width=20% align=center><font color=#FFFFFF><b>Date/Time</td>
<td class=tqsmall width=50% align=center><font color=#FFFFFF><b>Subject</td></tr>
<?
if ($objAccount->commishflag == 1) {
	$strSQL = "SELECT record_id,viewed,sent_date,sender,message,team_number,send_to FROM messages WHERE (leag_id = '$objAccount->leag_id') AND send_from = '0' AND sent_status = 1 ORDER BY sent_date DESC";
} else {
	$strSQL = "SELECT record_id,sent_date,viewed,sender,message,team_number,send_to FROM messages WHERE send_from = '$objAccount->account' AND sent_status = 1 ORDER BY sent_date DESC";
}
$result = fncDBGetResult(cstDBMisc, $strSQL);
while (($row = fncDBMoveNext($result)) != NULL) {
	$splitSent = split(" ", $row->sent_date);
	$splitDate = split("-", $splitSent[0]);
	$splitTime = split(":", $splitSent[1]);
	$messageDate = "$splitDate[1]/$splitDate[2]/$splitDate[0] at $splitTime[0]:$splitTime[1]";

$splitMessage = split(" +", $row->message);
	$tempMessage = array_splice($splitMessage, 0, 4);
	$temp = join(" ", $tempMessage);

if($row->send_to == "0")
        { 
                $sentto = "Commissioner";
        }
	elseif($row->send_to == "9999999")
	{
		$sentto = "Message Board";
	}
        else 
        { 
                $sentto = $objTeams->accounts[$row->send_to]; 
        }

?>
	<tr bgcolor=#FFFFFF><td class=tqsmall align=center>
	<input class="tqsmall" type=checkbox name="checked[]" value='<?= $row->record_id ?>'></td>
	<td class=tqsmall><?= $sentto ?></td>
	<td class=tqsmall><?= $messageDate ?></td>
	<td class=tqsmall><? if($row->viewed == 0) { print "<b>"; } ?><a href="showout_message.php?<?= $objAccount->query_string ?>&message_id=<?= $row->record_id ?>&sentmail=1"><?= $temp ?> ...</a></td></tr>
	<?
}
$objMessages = new clsMessages;
$objMessages->clear_message_flag();
?>
</table>
<table width='770' cellpadding='2' cellspacing='2' border='0'>
<tr bgcolor=#FFFFFF><td class=tqsmall colspan=4>
<a class="tqsmall" href="javascript:void(0);" onclick="checkAll2(document.getElementById('outbox'), 'tqsmall', true);">Check/Uncheck all mail</a>
</td></tr>
<tr bgcolor=#FFFFFF><td> </td></tr>
<tr bgcolor=#FFFFFF>
<td class=tqsmall colspan=4><input class=tqsmall type=submit name="Delete Checked" value="Delete Checked"></td>
</tr>
</table>
</form>

<?   require ("includes/footer.php");
?>

FNSKU.pm

Class for a REST client that updates a WMS

#!/usr/bin/perl

#################################################################
# Description  : This module communicates with REST: Client for # 
#                new web interface. Initially, 'get' and 'post' #
#		 methods have been utilized.			#
#################################################################
package Zxxxxx::FNSKU;

use warnings;
use strict;

use Carp;
use REST::Client;
use Data::Dumper;
use XML::Simple;

use constant {
    DEFAULT_TIMEOUT => 5,
    REQUEST_FORMAT_HEADER_NAME => 'X-Ecoli-Request-Format',
    REQUEST_FORMAT_HEADER_VALUE => 'com.zxxxxx.ecoli.shared.codec.XmlXStream',
    RESPONSE_FORMAT_HEADER_NAME => 'X-Ecoli-Response-Format',
    RESPONSE_FORMAT_HEADER_VALUE => 'com.zxxxxx.ecoli.shared.codec.XmlXStream',
    HOST => 'http://qawms01.zxxxxx.net:8065',
    FNSKU_PATH => '/items/option/stockIds/site/zxxxxx'
};

sub new {
    my ($className) = @_;
    my $self;

my $config 		 = {};
    $config->{'host'} 	 = HOST;
    $config->{'timeout'} = DEFAULT_TIMEOUT;

my $zufo_client 	 = new REST::Client($config);

$zufo_client->addHeader(REQUEST_FORMAT_HEADER_NAME, REQUEST_FORMAT_HEADER_VALUE);
    $zufo_client->addHeader(RESPONSE_FORMAT_HEADER_NAME, RESPONSE_FORMAT_HEADER_VALUE);

$self->{'zufo_client'} 	 = $zufo_client;

bless($self, $className);
    return $self;
}

sub stock_id_to_fnsku {
    my ($self, $stock_ids)    = @_;

my $request_body_data = {};
    $request_body_data->{class} = "com.zxxxxx.zufo.inbound.domain.item.StockIds";
    $request_body_data->{values}->{class} = "java.util.List";
    $request_body_data->{values}->{string} = [];
    foreach my $stock_id ( @{$stock_ids} ) {
        push @{ $request_body_data->{values}->{string} }, $stock_id;
    }
   
    my $request_body_xml = XMLout($request_body_data, RootName => 'stockIds');

my $response = $self->{'zufo_client'}->POST(FNSKU_PATH, $request_body_xml);
    my $content = $response->responseContent();

my $error = "";
    my $fnsku_map = {};
    if ( $response->responseCode() == 200 ) {
        if ( $response->responseHeader('x-ecoli-error') ne "" ) {
            $error = "ERROR: x-ecoli-error => " . $response->responseHeader('x-ecoli-error') . "\n";
            $error .= $content; 
        } else {
            my $response_data = XMLin($content, ForceArray => ['com.zxxxxx.zufo.inbound.domain.item.FulfillmentItem']);
            foreach my $fulfillment_item ( @{ $response_data->{values}->{'com.zxxxxx.zufo.inbound.domain.item.FulfillmentItem'} } ) {
                my $stock_id = $fulfillment_item->{stockId};
                my $asin = $fulfillment_item->{asin};
                $fnsku_map->{$stock_id} = $asin;
            }
        }
    } else {
        $error = "ERROR: ZUFO server response code => " . $response->responseCode();
        $error .= $content; 
    }

if ( $error ne "" ) {
        return $error;
    } else {
        return $fnsku_map;
    } 
}

get_pitch_counts.pl

Simple web scraper that parses baseball boxscores to extract sabermetric data

#!/usr/bin/perl

use strict;
use warnings;
use WWW::Mechanize;
use Data::Dumper;
use Config::General;

# Read the config file
my $conf = new Config::General("/home/mark/pitchcounts/pitchcounts.conf");
my %config = $conf->getall;

my $pitchcount_data_dir = $config{pitchcount_data_dir};
my $pitchcount_date_file = $config{pitchcount_date_file};
my $scoreboard_url = $config{scoreboard_url};
my $statsource_url = $config{statsource_url};

# Create browser object and enable cookies
my $browser = WWW::Mechanize->new();
my $cookie_jar = HTTP::Cookies->new;
$browser->cookie_jar($cookie_jar);

open my $dates_fh, "<", "$pitchcount_data_dir/$pitchcount_date_file"
  or die "Unable to read dates file: $!";
my @dates = <$dates_fh>;
chomp @dates;
close $dates_fh;

foreach my $date (@dates) {
  my $stats_hash_ref = get_pitch_stats($browser, $date, $scoreboard_url, $statsource_url);
  print_stats($pitchcount_data_dir, $date, $stats_hash_ref);
  sleep 1;
}

exit;

sub get_pitch_stats {
  
  my ($browser, $date, $scoreboard_url, $statsource_url) = @_;
  
  my %stats_hash; 
  my $url = $scoreboard_url . "?date=" . $date;
  $browser->get($url);
  my @links = $browser->find_all_links( url_regex => qr/mlb\/boxscore/i );
  my %gameids;
  my @filenames;
  foreach my $link (@links) {
    if ( $link->[0] =~ /gameId=(\d+)/ ) {
      my $game_id = $1;
      if ( !$gameids{$game_id} ) {
        my $file = $statsource_url . $link->[0];
        push @filenames, $file;
        $gameids{$game_id}++;
      }
    }
  }

foreach my $game_url (@filenames) {
    get_individual_game_stats(\%stats_hash, $browser, $game_url);
    sleep 1;
  }
  
  return \%stats_hash;
}

sub get_individual_game_stats {
  my ($stats_hash_ref, $browser, $game_url) = @_;
  
  $browser->get($game_url);
  my $content = $browser->content;

if ( $content =~ /Pitchers(.*?)Totals.*?Pitchers(.*?)Totals/ ) {
    my $away_pitchers = $1;
    my $home_pitchers = $2;
    foreach my $pitchers ($away_pitchers, $home_pitchers) {
      if ( $pitchers =~ /\/_\/id\/(\d+)\/(.*?)\".*?<td>(\d+\.\d+)<\/td><td>(\d+)<\/td><td>(\d+)<\/td><td>(\d+)<\/td><td>(\d+)<\/td><td>(\d+)<\/td><td>(\d+)<\/td><td.*?>(\d+)-(\d+)<\/td>/g ) {
        my $id = $1;
        $$stats_hash_ref{$id}->{playername} = $2;
        $$stats_hash_ref{$id}->{innings} = $3;
        $$stats_hash_ref{$id}->{hits} = $4;
        $$stats_hash_ref{$id}->{runs} = $5;
        $$stats_hash_ref{$id}->{earned_runs} = $6;
        $$stats_hash_ref{$id}->{walks} = $7;
        $$stats_hash_ref{$id}->{strikeouts} = $8;
        $$stats_hash_ref{$id}->{hr} = $9;
        $$stats_hash_ref{$id}->{pitches} = $10;
        $$stats_hash_ref{$id}->{strikes} = $11;
      } else {
        die "Error parsing boxscore for $game_url\n";
      }
    }
  } else {
    die "Error parsing boxscore for $game_url\n";
  }
  return;

}

sub print_stats {
  my ($pitchcount_data_dir, $date, $stats_hash_ref) = @_;
 
  open my $fh, ">", "$pitchcount_data_dir/pitchers.$date"
    or die "Unable to open pitchers.$date for writing: $!";
  foreach my $id (keys %{$stats_hash_ref}) {
    print $fh "$id,";
    print $fh $stats_hash_ref->{$id}->{playername}, ",";
    print $fh $stats_hash_ref->{$id}->{innings}, ",";
    print $fh $stats_hash_ref->{$id}->{hits}, ",";
    print $fh $stats_hash_ref->{$id}->{runs}, ",";
    print $fh $stats_hash_ref->{$id}->{earned_runs}, ",";
    print $fh $stats_hash_ref->{$id}->{walks}, ",";
    print $fh $stats_hash_ref->{$id}->{strikeouts}, ",";
    print $fh $stats_hash_ref->{$id}->{hr}, ",";
    print $fh $stats_hash_ref->{$id}->{pitches}, ",";
    print $fh $stats_hash_ref->{$id}->{strikes}, "\n";
  }
  close $fh;

}