NAME

Net::Google::SafeBrowsing2::MySQL - MySQL as back-end storage for the Google Safe Browsing v2 database

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

new()

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

close()

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

$storage->close();

CHANGELOG

0.6

Remove some indexes to speed up INSERTs.

0.5

Keep empty sub chunks. Shorten prefixes greater than 8 bytes (workaround to 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 VARCHAR to VARBINARY.

SEE ALSO

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 API: http://code.google.com/apis/safebrowsing/developers_guide_v2.html

AUTHOR

Julien Sobrier, <jsobrier@zscaler.com> or <julien@sobrier.net>

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.