/usr/share/doc/libbot-basicbot-pluggable-perl/examples/storable2dbi.pl is in libbot-basicbot-pluggable-perl 1.20-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | #!/usr/bin/perl
use warnings;
use strict;
use Bot::BasicBot::Pluggable::Store::Storable;
use Bot::BasicBot::Pluggable::Store::DBI;
my $from = Bot::BasicBot::Pluggable::Store::Storable->new;
my $to = Bot::BasicBot::Pluggable::Store::DBI->new(
dsn => "dbi:mysql:test",
table => "basicbot",
user => "root",
);
$to->restore( $from->dump );
|