# If you don't *really* know what you are doing - don't mess with this file
# You've been warned!!!

sub AddInFilters {
	my $proxy = shift;

# -------------------------------------------------------------------------------------------------------------------------
	
	# Fixes blank title attributes which screw up some phones
	my $fixBlankTitleAttribute_RBF = HTTP::Proxy::BodyFilter::simple->new(
		sub { 
			my ( $self, $dataref, $message, $protocol, $buffer ) = @_;
			if (my $replCount = $$dataref =~ s/title=""/title="-Go-"/g) {
				say ("\nfixBlankTitleAttribute RBF replaced blank title with -Go- title $replCount times.\n\n",6);
			}		
		}
	);
	
	$proxy->push_filter( mime => 'text/*', response => $fixBlankTitleAttribute_RBF );
	$proxy->push_filter( mime => 'application/*', response => $fixBlankTitleAttribute_RBF );
}

# -------------------------------------------------------------------------------------------------------------------------
	
# Make 'require' happy
1;