view release on metacpan or search on metacpan
lib/DBM/Deep/Blue.pm view on Meta::CPAN
=pod
=head1 Name
L<DBM::Deep::Blue|http::www.handybackup.org/DBM_Deep_Blue.html> - Memory
Mapped Paged Permanent Perl Objects with optional commit and rollback.
Windows only.
=head1 Synopsis
lib/DBM/Deep/Blue.pm view on Meta::CPAN
done_testing;
=head1 Description
L<DBM::Deep::Blue|http::www.handybackup.org/DBM_Deep_Blue_html> makes
Perl Objects permanent, but pageable, using the standard Perl syntax for
manipulating nested data structures comprised of strings, hashes and arrays.
Permanent hashes and arrays may be blessed and auto vivified,
dereferenced and dumped: consequently you can use L<Data::Dump> or
L<Data::Dumper> and Perl debugger commands to examine data structures
built with
L<DBM::Deep::Blue|http::www.handybackup.org/DBM_Deep_Blue_html> in the
normal way.
Units of work can either be committed continuously or discretely using
L</begin_work()>, L</commit()>, L</rollback()>. Uncommitted changes are
rolled back automatically when a backing file is reopened. Blessing is
subject to rollback.
The data structures are held in a memory area backed by a file using
your computer's virtual paging mechanism created by L</file()>. On large
data structures, this allows
L<DBM::Deep::Blue|http::www.handybackup.org/DBM_Deep_Blue_html> to load
pages on demand as needed to locate data, and to write back to the
backing file only the pages containing modified data. By contrast, other
schemes for making Perl objects permanent have either to write the
entire data structure or track the changes made internally and then
write them piecemeal.
lib/DBM/Deep/Blue.pm view on Meta::CPAN
Memory structures can also be created without a backing file by using
the new() function.
L<DBM::Deep::Blue|http::www.handybackup.org/DBM_Deep_Blue_html> is
written in C.
=head1 Methods
lib/DBM/Deep/Blue.pm view on Meta::CPAN
L<DBM::Deep>
=head1 Acknowledgements
L<DBM::Deep::Blue|http::www.handybackup.org/DBM_Deep_Blue_html> uses many
of the tests from by L<DBM::Deep>.
=head1 Bugs
lib/DBM/Deep/Blue.pm view on Meta::CPAN
Perl Artistic
=head1 Copyright
Philip R Brenan, 2010, www.handybackup.org
=cut
1;
__END__
view release on metacpan or search on metacpan
av_top_index|5.017009|5.003007|p
av_top_index_skip_len_mg|5.025010||Viu
av_undef|5.003007|5.003007|
av_unshift|5.003007|5.003007|
ax|5.003007|5.003007|
backup_one_GCB|5.025003||Viu
backup_one_LB|5.023007||Viu
backup_one_SB|5.021009||Viu
backup_one_WB|5.021009||Viu
bad_type_gv|5.019002||Viu
bad_type_pv|5.016000||Viu
BADVERSION|5.011004||Viu
BASEOP|5.003007||Viu
BhkDISABLE|5.013003||xV
view release on metacpan or search on metacpan
dbomb-regen view on Meta::CPAN
next;
};
$outbuf .= $x;
}
## now make a backup of the original.
my $b = "$f.bak";
for (my $i=1; -f $b ; ++$i){
$b = "$f.bak$i";
}
if (!File::Copy::copy($f, $b)){
fail("could not create backup file", $!, "aborting.");
}
## Overwrite original file.
open OUT, "> $f" or fail("Could open file for writing", $!, $f);
print OUT $outbuf;
view release on metacpan or search on metacpan
lib/DDG/Meta/Data.pm view on Meta::CPAN
my @timestamps = (stat $f)[8,9];
if(-e $f){
copy $f, $tmp_bak or die "Failed to copy $f to $tmp_bak: $!";;
}
utime @timestamps, $tmp_bak;
my $restore_backup = sub {
move $tmp_bak, $f or die "Failed to move backup $tmp_bak to $f: $!";
utime @timestamps, $f;
};
unless($ENV{NO_METADATA_DOWNLOAD}){
my $ua = LWP::UserAgent->new;
$ua->timeout(5);
$ua->default_header('Accept-Encoding' => scalar HTTP::Message::decodable());
my $res = $ua->mirror('http://ddg-community.s3.amazonaws.com/metadata/repo_all.json.bz2', $f);
unless($res->is_success || $res->code == 304){
debug && warn "Failed to download metdata: " . $res->status_line . " . Restoring backup from $tmp_bak";
$restore_backup->();
}
}
my $metadata;
while(!$metadata){
lib/DDG/Meta/Data.pm view on Meta::CPAN
my $json = do { local $/; <$fh> };
$metadata = decode_json($json);
}
or do {
if(-e $tmp_bak){
debug && warn "Failed to process metadata $f: $@. Restoring backup from $tmp_bak";
$restore_backup->();
}
else{
die "Failed to to process metadata from $f: $@";
}
};
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
# Avoid Module::Build generated and utility files.
\bBuild$
\b_build/
# Avoid temp and backup files.
~$
\.old$
\#$
\b\.#
view release on metacpan or search on metacpan
lib/DNS/EasyDNS.pm view on Meta::CPAN
C<mx> - Use this parameter as the MX handler for the domain being updated,
it defaults to preference 5.
C<backmx> - Values are either C<"YES"> or C<"NO">, if C<"YES"> we set smtp.easydns.com
to be a backup mail spool for domain being updated at preference 100.
C<wildcard> - Values are either C<"ON"> or C<"OFF">, if C<"ON"> sets a wildcard
host record for the domain being updated equal to the IP address specified
in C<myip>.
view release on metacpan or search on metacpan
easyxs/ppport.h view on Meta::CPAN
av_top_index|5.017009|5.003007|p
av_top_index_skip_len_mg|5.025010||Viu
av_undef|5.003007|5.003007|
av_unshift|5.003007|5.003007|
ax|5.003007|5.003007|
backup_one_GCB|5.025003||Viu
backup_one_LB|5.023007||Viu
backup_one_SB|5.021009||Viu
backup_one_WB|5.021009||Viu
bad_type_gv|5.019002||Viu
bad_type_pv|5.016000||Viu
BADVERSION|5.011004||Viu
BASEOP|5.003007||Viu
BhkDISABLE|5.013003||xV
view release on metacpan or search on metacpan
lib/DOCSIS/ConfigFile/mibs/DOCS-CABLE-DEVICE-MIB view on Meta::CPAN
docsDevBase OBJECT IDENTIFIER ::= { docsDevMIBObjects 1 }
--
-- For the following object, there is no concept in the
-- RFI specification corresponding to a backup CMTS. The
-- enumeration is provided here in case someone is able
-- to define such a role or device.
--
docsDevRole OBJECT-TYPE
lib/DOCSIS/ConfigFile/mibs/DOCS-CABLE-DEVICE-MIB view on Meta::CPAN
In general, if this device is a 'cm', its role will not
change during operation or between reboots. If the
device is a 'cmts' it may change between cmtsActive and
cmtsBackup and back again during normal operation. NB:
At this time, the DOCSIS standards do not support the
concept of a backup CMTS, but cmtsBackup is included for
completeness."
::= { docsDevBase 1 }
docsDevDateTime OBJECT-TYPE
SYNTAX DateAndTime
view release on metacpan or search on metacpan
lib/DTL/Fast/Cache.pm view on Meta::CPAN
my ( $self, $key, $template, %kwargs ) = @_;
if (defined $template)
{
my @keys = ('cache', 'url_source');
my @backup = @{$template}{@keys};
delete @{$template}{@keys};
$self->write_data($key, $template, %kwargs);
@{$template}{@keys} = @backup;
}
return $self;
}
sub read_data
view release on metacpan or search on metacpan
lib/Dackup.pm view on Meta::CPAN
$self->cache($cache);
$self->source->dackup($self);
$self->destination->dackup($self);
}
sub backup {
my $self = shift;
my $source = $self->source;
my $destination = $self->destination;
my $delete = $self->delete;
my $dry_run = $self->dry_run;
lib/Dackup.pm view on Meta::CPAN
__END__
=head1 NAME
Dackup - Flexible file backup
=head1 SYNOPSIS
use Dackup;
my $source = Dackup::Target::Filesystem->new(
prefix => '/home/acme/important/' );
my $destination = Dackup::Target::Filesystem->new(
prefix => '/home/acme/backup/' );
my $dackup = Dackup->new(
source => $source,
destination => $destination,
delete => 0,
dry_run => 0,
verbose => 1,
throttle => '1Mbps',
);
$dackup->backup;
=head1 DESCRIPTION
This module is an attempt at a flexible file backup. It supports
copying to and from filesystems, remote hosts via SSH, Amazon's
Simple Storage Service and Mosso's CloudFiles. At all stages,
it checks the MD5 hash of the source and destination files.
It uses an MD5 cache to speed up operations, which it stores by
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
# Module::Build generated files.
^blib/
^Build$
^_build/
# Temporary and backup files.
~$
\.tmp$
\.old$
\.bak$
\.swp$
view release on metacpan or search on metacpan
_Deparsed_XSubs.pm view on Meta::CPAN
sub SQL_WLONGVARCHAR() ;
sub SQL_WVARCHAR() ;
sub STORE;
sub _do;
sub _login;
sub backup_from_dbh;
sub backup_from_file;
sub backup_to_dbh;
sub backup_to_file;
sub busy_timeout;
sub collation_needed;
sub commit;
sub commit_hook;
sub create_aggregate;
_Deparsed_XSubs.pm view on Meta::CPAN
sub rollback_hook;
sub selectall_arrayref;
sub selectrow_array;
sub selectrow_arrayref;
sub set_authorizer;
sub sqlite_backup_from_dbh;
sub sqlite_backup_from_file;
sub sqlite_backup_to_dbh;
sub sqlite_backup_to_file;
sub sqlite_busy_timeout;
sub sqlite_collation_needed;
sub sqlite_commit_hook;
sub sqlite_create_aggregate;
sub sqlite_create_collation;
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
# Avoid Module::Build generated and utility files.
\bBuild$
\b_build/
# Avoid temp and backup files.
~$
\.old$
\#$
\b\.#
\.bak$
view release on metacpan or search on metacpan
share/debugtoolbar/js/prettify/lang-sql.js view on Meta::CPAN
PR.registerLangHandler(PR.createSimpleLexer([["pln",/^[\t\n\r \xa0]+/,null,"\t\n\r Â\xa0"],["str",/^(?:"(?:[^"\\]|\\.)*"|'(?:[^'\\]|\\.)*')/,null,"\"'"]],[["com",/^(?:--[^\n\r]*|\/\*[\S\s]*?(?:\*\/|$))/],["kwd",/^(?:add|all|alter|and|any|as|asc|autho...
null],["lit",/^[+-]?(?:0x[\da-f]+|(?:\.\d+|\d+(?:\.\d*)?)(?:e[+-]?\d+)?)/i],["pln",/^[_a-z][\w-]*/i],["pun",/^[^\w\t\n\r "'\xa0][^\w\t\n\r "'+\xa0-]*/]]),["sql"]);
view release on metacpan or search on metacpan
Configure Elasticsearch to only respond to localhost or to queries from
within a trusted network, like your home network.
Note that leaking a copy of the Elasticsearch search index is almost as
bad as leaking a copy of the original data. This is especially true if
you look at backups.
REPOSITORY
The public repository of this module is
https://github.com/Corion/dancer-searchapp.