SYNOPSIS

  use Net::Google::SafeBrowsing2::MySQL;

  my $storage = Net::Google::SafeBrowsing2::MySQL->new(host => '127.0.0.1', database => 'GoogleSafeBrowsingv2');
  ...
  $storage->close();

DESCRIPTION

This is an implementation of Net::Google::SafeBrowsing2::Storage using MySQL.

CONSTRUCTOR

\fInew()\fP

Create a Net::Google::SafeBrowsing2::MySQL object

my $storage = Net::Google::SafeBrowsing2::MySQL->new( host => '127.0.0.1', database => 'GoogleSafeBrowsingv2', username => 'foo', password => 'bar' );

Arguments

host

Required. MySQL host name

database

Required. MySQL database name to connect to.

username

Required. MySQL username.

password

Required. MySQL password.

port

Optional. MySQL port number to connect to.

keep_all

Optional. Set to 1 to keep old information (such as expiring full hashes) in the database. 0 (delete) by default.

PUBLIC FUNCTIONS

See Net::Google::SafeBrowsing2::Storage for a complete list of public functions.

\fIclose()\fP

Cleanup old full hashes, and close the connection to the database.

$storage->close();

CHANGELOG

0.5

Keep empty sub chunks. Shorten prefixes greater than 8 bytes (workaround tro keep schema tight)

0.4

Add option keep_all to keep expired full hashes. Useful for debugging.

0.3

Use more efficient add_chunk_a and add_chunk_s functions. Change data type for prefixes from \s-1VARCHAR\s0 to \s-1VARBINARY\s0.

RELATED TO Net::Google::SafeBrowsing2::MySQL…

See Net::Google::SafeBrowsing2 for handling Google Safe Browsing v2.

See Net::Google::SafeBrowsing2::Storage for the list of public functions.

See Net::Google::SafeBrowsing2::Sqlite for a back-end using Sqlite.

Google Safe Browsing v2 \s-1API:\s0 <http://code.google.com/apis/safebrowsing/developers_guide_v2.html>

AUTHOR

Julien Sobrier, <[email protected]> or <[email protected]>

COPYRIGHT AND LICENSE

Copyright (C) 2011 by Julien Sobrier

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.8 or, at your option, any later version of Perl 5 you may have available.