view release on metacpan or search on metacpan
doc/bk_faq.html view on Meta::CPAN
<p>
2. When a translation set is incomplete the missing
language descriptions will be filled in with the
'native' language. English may be a good choice for
the 'native' backup display language because many people
can understand it.
<p>
<div align="right">
view release on metacpan or search on metacpan
t/DBIx-Brev.t view on Meta::CPAN
my $mswin = $^O eq 'MSWin32';
my $fd = $mswin?q{\\}:q{/};
my ($home) = grep defined && -d, map $ENV{$_}, $mswin? qw(USERPROFILE HOME):'HOME';
skip "was not able to find HOME directory", 1 unless defined($home);
my $home_config = $home.$fd.q{dbi.conf};
my $backup = -f $home_config?grep(!-f,map $home_config.substr(rand(),1),1..10):();
my %config2;
skip "was not able to create/replace $home_config",1 unless eval {
move($home_config,$backup) if $backup;
move($config_file,$home_config);
%config2 = DBIx::Brev::load_config();
unlink $home_config;
move($backup,$home_config) if $backup;
1;
};
is_deeply(\%config2,\%config,q{load config from HOME directory});
};
unlink $config_file;
view release on metacpan or search on metacpan
- initial release to CPAN
0.05 2016-09-01T10:02:43Z
- removed to specific backup method
0.04 2016-09-01T09:47:35Z
- removed warnings
- deployment handler args fixed
- deployment handler args per new()
0.02 2016-09-01T09:04:28Z
- mysqldump backup WIP
0.01 2016-09-01T08:55:07Z
- original version
view release on metacpan or search on metacpan
lib/DBIx/Class/DeploymentHandler/Dad.pm view on Meta::CPAN
has schema => (
is => 'ro',
required => 1,
);
has backup_directory => (
isa => 'Str',
is => 'ro',
predicate => 'has_backup_directory',
);
has to_version => (
is => 'ro',
isa => 'Str',
lib/DBIx/Class/DeploymentHandler/Dad.pm view on Meta::CPAN
}
});
log_warn { 'no version to run downgrade' } unless $ran_once;
}
sub backup {
my $self = shift;
log_info { 'backing up' };
$self->schema->storage->backup($self->backup_directory)
}
__PACKAGE__->meta->make_immutable;
1;
lib/DBIx/Class/DeploymentHandler/Dad.pm view on Meta::CPAN
=head2 schema_version
The version that the schema is currently at. Defaults to
C<< $self->schema->schema_version >>.
=head2 backup_directory
The directory where backups are stored
=head2 to_version
The version (defaults to schema's version) to migrate the database to
lib/DBIx/Class/DeploymentHandler/Dad.pm view on Meta::CPAN
Downgrades the database one step at a time till L</previous_version_set>
returns C<undef>. Each downgrade step will delete a C<version> from the
version storage.
=head2 backup
$dh->backup
Simply calls backup on the C<< $schema->storage >>, passing in
C<< $self->backup_directory >> as an argument. Please test yourself before
assuming it will work.
=head1 AUTHOR
Arthur Axel "fREW" Schmidt <frioux+cpan@gmail.com>
view release on metacpan or search on metacpan
lib/DBIx/Class/Fixtures.pm view on Meta::CPAN
=head2 external
In some cases your database information might be keys to values in some sort of
external storage. The classic example is you are using L<DBIx::Class::InflateColumn::FS>
to store blob information on the filesystem. In this case you may wish the ability
to backup your external storage in the same way your database data. The L</external>
attribute lets you specify a handler for this type of issue. For example:
{
"sets": [{
"class": "Photo",
lib/DBIx/Class/Fixtures.pm view on Meta::CPAN
}]
}
This would use L<DBIx::Class::Fixtures::External::File> to read from a directory
where the path to a file is specified by the C<file> field of the C<Photo> source.
We use the uninflated value of the field so you need to completely handle backup
and restore. For the common case we provide L<DBIx::Class::Fixtures::External::File>
and you can create your own custom handlers by placing a '+' in the namespace:
"class": "+MyApp::Schema::SomeExternalStorage",
lib/DBIx/Class/Fixtures.pm view on Meta::CPAN
$class = "DBIx::Class::Fixtures::External::$class" unless $plus;
eval "use $class";
$ds{external}->{$field} =
encode_base64( $class
->backup($key => $args),'');
}
}
# mess with dates if specified
if ($set->{datetime_relative}) {
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
\bBuild$
\b_build
Build.PL
Build.bat
# Avoid temp and backup files.
~$
\.gz$
\.old$
\.bak$
\.swp$
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
lib/DBIx/Class/Migration.pm view on Meta::CPAN
Run down files to bring the database down to the previous version from what is
installed to the database
=head2 drop_tables
Drops all the tables in the connected database with no backup or recovery. For
real! (Make sure you are not connected to Prod, for example).
=head2 delete_table_rows
Does a C<delete> on each table in the database, which clears out all your data
view release on metacpan or search on metacpan
lib/DBIx/Class/Storage/DBI/mysql/backup.pm view on Meta::CPAN
=encoding utf8
=head1 NAME
DBIx::Class::Storage::DBI::mysql::backup
=head1 SYNOPSIS
package MyApp::Schema;
use base qw/DBIx::Class::Schema/;
lib/DBIx/Class/Storage/DBI/mysql/backup.pm view on Meta::CPAN
our $VERSION = 0.001;
__PACKAGE__->load_classes(qw/CD Book DVD/);
__PACKAGE__->load_components(qw/
Schema::Versioned
Storage::DBI::mysql::backup
/);
=head1 DESCRIPTION
Adds C<backup> method to L<DBIx::Class::Storage::DBI::mysql>.
This plugin enables L<DBIx::Class::Schema::Versioned/backup> when using MySQL.
=head1 FUNCTIONS
=cut
package DBIx::Class::Storage::DBI::mysql::backup;
use strict;
use warnings;
use DBIx::Class::Storage::DBI;
lib/DBIx/Class/Storage/DBI/mysql/backup.pm view on Meta::CPAN
use vars qw( $VERSION );
$VERSION = '0.04';
=head2 backup ( $to_dir )
writes SQL file as L</backup_filename> to $to_dir. returns SQL filename.
=cut
sub _backup {
my ( $self, $dir ) = @_;
mkpath([$dir]) unless -d $dir;
my $filename = $self->backup_filename;
my $fh = Symbol::gensym();
open $fh, ">$dir/$filename";
print $fh $self->dump;
close $fh;
$filename
}
=head2 backup_filename
returns filename of backup I<$DB_NAME-YYYYMMDD-hhmmss.sql>
=cut
sub _backup_filename {
my $self = shift;
my $dsn = $self->_dbi_connect_info->[0];
my $dbname = $1 if($dsn =~ /^dbi:mysql:database=([^;]+)/i);
unless($dbname) {
$dbname = $1 if($dsn =~ /^dbi:mysql:dbname=([^;]+)/i);
lib/DBIx/Class/Storage/DBI/mysql/backup.pm view on Meta::CPAN
=cut
sub _dump {
my $self = shift;
my $mb = MySQL::Backup->new_from_DBH( $self->dbh ,{'USE_REPLACE' => 1, 'SHOW_TABLE_NAMES' => 1});
$mb->create_structure() . $mb->data_backup()
}
*DBIx::Class::Storage::DBI::dump = \&_dump;
*DBIx::Class::Storage::DBI::backup = \&_backup;
*DBIx::Class::Storage::DBI::backup_filename = \&_backup_filename;
1;
__END__
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
\bBuild$
\b_build
Build.PL
Build.bat
# Avoid temp and backup files.
~$
\.gz$
\.old$
\.bak$
\.swp$
view release on metacpan or search on metacpan
lib/DBIx/Class/Schema/Versioned.pm view on Meta::CPAN
use Scalar::Util 'weaken';
use namespace::clean;
__PACKAGE__->mk_classdata('_filedata');
__PACKAGE__->mk_classdata('upgrade_directory');
__PACKAGE__->mk_classdata('backup_directory');
__PACKAGE__->mk_classdata('do_backup');
__PACKAGE__->mk_classdata('do_diff_on_init');
=head1 METHODS
=head2 upgrade_directory
Use this to set the directory your upgrade files are stored in.
=head2 backup_directory
Use this to set the directory you want your backups stored in (note that backups
are disabled by default).
=cut
=head2 install
lib/DBIx/Class/Schema/Versioned.pm view on Meta::CPAN
return;
}
carp "DB version ($db_version) is lower than the schema version (".$self->schema_version."). Attempting upgrade.\n";
# backup if necessary then apply upgrade
$self->_filedata($self->_read_sql_file($upgrade_file));
$self->backup() if($self->do_backup);
$self->txn_do(sub { $self->do_upgrade() });
# set row in dbix_class_schema_versions table
$self->_set_db_version({version => $target_version});
}
lib/DBIx/Class/Schema/Versioned.pm view on Meta::CPAN
Returns the current schema class' $VERSION
=cut
=head2 backup
This is an overwritable method which is called just before the upgrade, to
allow you to make a backup of the database. Per default this method attempts
to call C<< $self->storage->backup >>, to run the standard backup on each
database type.
This method should return the name of the backup file, if appropriate..
This method is disabled by default. Set $schema->do_backup(1) to enable it.
=cut
sub backup
{
my ($self) = @_;
## Make each ::DBI::Foo do this
$self->storage->backup($self->backup_directory());
}
=head2 connection
Overloaded method. This checks the DBIC schema version against the DB version and
view release on metacpan or search on metacpan
t/common-sqlserver.t view on Meta::CPAN
|assembly_files
|assembly_modules
|assembly_references
|assembly_types
|asymmetric_keys
|backup_devices
|certificates
|change_tracking_databases
|change_tracking_tables
|check_constraints
|column_type_usages
t/common-sqlserver.t view on Meta::CPAN
|dm_fts_index_population
|dm_fts_memory_buffers
|dm_fts_memory_pools
|dm_fts_outstanding_batches
|dm_fts_population_ranges
|dm_io_backup_tapes
|dm_io_cluster_shared_drives
|dm_io_pending_io_requests
|dm_os_buffer_descriptors
|dm_os_child_instances
|dm_os_cluster_nodes
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
tags
CVS
mkmanifest
MANIFEST.SKIP
RELEASE_CHECKLIST
.*\.bak # backup files
.*\.gz # tarballs
\..* # dotfiles
view release on metacpan or search on metacpan
lib/DBIx/HA.pm view on Meta::CPAN
allow the passing of a reference to any configuration hash to I<initialize>.
See a sample %DATABASE::conf in the SYNOPSIS section. That section creates
an entry for the 'test' HA database handle, which is comprised of 3 physical
database handles (prod1, prod2, prod3). 'prod1' is the main handle, while the
other 2 are backup handles.
Add other HA database handles by creating more entries in I<%DATABASE::conf>.
=item connect ( $dbname )
lib/DBIx/HA.pm view on Meta::CPAN
=item load-balancing across read-only servers
It is very simple to load-balance across read-only database servers.
Simply randomize or reorder the 'db_stack' entry in your database
configuration on a per-process basis. This will make each process have
its own set of primary and backup servers.
Obviously you should never do that on a read-write environment with hot
spares as you will be writing to the hot spares without writing to the
primary server. Consider C<DBD::Multiplex> for such an application.
=item manually setting the active datasource without downtime
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
\bBuild.bat$
# Avoid Devel::Cover generated files
\bcover_db
# Avoid temp and backup files.
~$
\#$
\.#
\.bak$
\.old$
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
\bBuild.bat$
# Avoid Devel::Cover generated files
\bcover_db
# Avoid temp and backup files.
~$
\#$
\.#
\.bak$
\.old$
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
\bBuild.bat$
# Avoid Devel::Cover generated files
\bcover_db
# Avoid temp and backup files.
~$
\#$
\.#
\.bak$
\.old$
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
\bBuild.bat$
# Avoid Devel::Cover generated files
\bcover_db
# Avoid temp and backup files.
~$
\#$
\.#
\.bak$
\.old$
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
CPAN.SKIP
t/000_standard__*
Debian_CPANTS.txt
nytprof.out
# Temp, old, emacs, vim, backup files.
~$
\.old$
\.swp$
\.tar$
\.tar\.gz$
view release on metacpan or search on metacpan
- Use "ENGINE=InnoDB" instead of "TYPE=InnoDB" when creating
MySQL tables (RT#83954, Vita Cizek)
0.11 Thu Aug 20 11:06:00 2009
- Don't consider files that end with a tilde (~) to be schema
files. (This extension is commonly chosen as a 'backup' file
by editors such as joe, gedit, etc)
- Added some (very basic) documentation to
DBIx::Migration::Directories::Test
0.10 Fri Feb 27 11:32:00 2009
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
\bBuild.bat$
\bBuild.COM$
\bBUILD.COM$
\bbuild.com$
# Avoid temp and backup files.
~$
\.old$
\#$
\b\.#
\.bak$
view release on metacpan or search on metacpan
lib/DBIx/MyParsePP/Parser.pm view on Meta::CPAN
'help' => 86,
'revoke' => 91,
'call' => 90,
'begin' => 89,
'purge' => 88,
'backup' => 32,
'select' => 93,
'set' => 34,
'prepare' => 35,
'create' => 36,
'query' => 96,
lib/DBIx/MyParsePP/Parser.pm view on Meta::CPAN
'flush' => 21,
'delete' => 22,
'start' => 23,
'do' => 24,
'drop' => 25,
'backup' => 32,
'prepare' => 35,
'set' => 34,
'create' => 36,
'truncate' => 40,
'release' => 42,
lib/DBIx/MyParsePP/Parser.pm view on Meta::CPAN
'xa' => 85,
'help' => 86,
'revoke' => 91,
'purge' => 88,
'call' => 90,
'backup' => 32,
'prepare' => 35,
'set' => 34,
'select' => 93,
'create' => 36,
'truncate' => 40,
lib/DBIx/MyParsePP/Parser.pm view on Meta::CPAN
'xa' => 85,
'help' => 86,
'revoke' => 91,
'purge' => 88,
'call' => 90,
'backup' => 32,
'prepare' => 35,
'set' => 34,
'select' => 93,
'create' => 36,
'truncate' => 40,
lib/DBIx/MyParsePP/Parser.pm view on Meta::CPAN
'xa' => 85,
'help' => 86,
'revoke' => 91,
'purge' => 88,
'call' => 90,
'backup' => 32,
'prepare' => 35,
'set' => 34,
'select' => 93,
'create' => 36,
'truncate' => 40,
lib/DBIx/MyParsePP/Parser.pm view on Meta::CPAN
'xa' => 85,
'help' => 86,
'revoke' => 91,
'purge' => 88,
'call' => 90,
'backup' => 32,
'prepare' => 35,
'set' => 34,
'select' => 93,
'create' => 36,
'truncate' => 40,
lib/DBIx/MyParsePP/Parser.pm view on Meta::CPAN
'xa' => 85,
'help' => 86,
'revoke' => 91,
'purge' => 88,
'call' => 90,
'backup' => 32,
'prepare' => 35,
'set' => 34,
'select' => 93,
'create' => 36,
'truncate' => 40,
lib/DBIx/MyParsePP/Parser.pm view on Meta::CPAN
'xa' => 85,
'help' => 86,
'revoke' => 91,
'purge' => 88,
'call' => 90,
'backup' => 32,
'prepare' => 35,
'set' => 34,
'select' => 93,
'create' => 36,
'truncate' => 40,
lib/DBIx/MyParsePP/Parser.pm view on Meta::CPAN
'xa' => 85,
'help' => 86,
'revoke' => 91,
'purge' => 88,
'call' => 90,
'backup' => 32,
'prepare' => 35,
'set' => 34,
'select' => 93,
'create' => 36,
'truncate' => 40,
lib/DBIx/MyParsePP/Parser.pm view on Meta::CPAN
'xa' => 85,
'help' => 86,
'revoke' => 91,
'purge' => 88,
'call' => 90,
'backup' => 32,
'prepare' => 35,
'set' => 34,
'select' => 93,
'create' => 36,
'truncate' => 40,
lib/DBIx/MyParsePP/Parser.pm view on Meta::CPAN
'flush' => 21,
'delete' => 22,
'start' => 23,
'do' => 24,
'drop' => 25,
'backup' => 32,
'prepare' => 35,
'set' => 34,
'create' => 36,
'truncate' => 40,
'release' => 42,
lib/DBIx/MyParsePP/Parser.pm view on Meta::CPAN
'xa' => 85,
'help' => 86,
'revoke' => 91,
'purge' => 88,
'call' => 90,
'backup' => 32,
'prepare' => 35,
'set' => 34,
'select' => 93,
'create' => 36,
'truncate' => 40,
lib/DBIx/MyParsePP/Parser.pm view on Meta::CPAN
'xa' => 85,
'help' => 86,
'revoke' => 91,
'purge' => 88,
'call' => 90,
'backup' => 32,
'prepare' => 35,
'set' => 34,
'select' => 93,
'create' => 36,
'sp_elseifs' => 3481,
lib/DBIx/MyParsePP/Parser.pm view on Meta::CPAN
'xa' => 85,
'help' => 86,
'revoke' => 91,
'purge' => 88,
'call' => 90,
'backup' => 32,
'prepare' => 35,
'set' => 34,
'select' => 93,
'create' => 36,
'truncate' => 40,
lib/DBIx/MyParsePP/Parser.pm view on Meta::CPAN
'xa' => 85,
'help' => 86,
'revoke' => 91,
'purge' => 88,
'call' => 90,
'backup' => 32,
'prepare' => 35,
'set' => 34,
'select' => 93,
'create' => 36,
'truncate' => 40,
lib/DBIx/MyParsePP/Parser.pm view on Meta::CPAN
'xa' => 85,
'help' => 86,
'revoke' => 91,
'purge' => 88,
'call' => 90,
'backup' => 32,
'prepare' => 35,
'set' => 34,
'select' => 93,
'create' => 36,
'truncate' => 40,
lib/DBIx/MyParsePP/Parser.pm view on Meta::CPAN
'xa' => 85,
'help' => 86,
'revoke' => 91,
'purge' => 88,
'call' => 90,
'backup' => 32,
'prepare' => 35,
'set' => 34,
'select' => 93,
'create' => 36,
'truncate' => 40,
lib/DBIx/MyParsePP/Parser.pm view on Meta::CPAN
'xa' => 85,
'help' => 86,
'revoke' => 91,
'purge' => 88,
'call' => 90,
'backup' => 32,
'prepare' => 35,
'set' => 34,
'select' => 93,
'create' => 36,
'truncate' => 40,
lib/DBIx/MyParsePP/Parser.pm view on Meta::CPAN
'xa' => 85,
'help' => 86,
'revoke' => 91,
'purge' => 88,
'call' => 90,
'backup' => 32,
'prepare' => 35,
'set' => 34,
'select' => 93,
'create' => 36,
'truncate' => 40,
lib/DBIx/MyParsePP/Parser.pm view on Meta::CPAN
'xa' => 85,
'help' => 86,
'revoke' => 91,
'purge' => 88,
'call' => 90,
'backup' => 32,
'prepare' => 35,
'set' => 34,
'select' => 93,
'create' => 36,
'truncate' => 40,
lib/DBIx/MyParsePP/Parser.pm view on Meta::CPAN
'xa' => 85,
'help' => 86,
'revoke' => 91,
'purge' => 88,
'call' => 90,
'backup' => 32,
'prepare' => 35,
'set' => 34,
'select' => 93,
'create' => 36,
'truncate' => 40,
lib/DBIx/MyParsePP/Parser.pm view on Meta::CPAN
'xa' => 85,
'help' => 86,
'revoke' => 91,
'purge' => 88,
'call' => 90,
'backup' => 32,
'prepare' => 35,
'set' => 34,
'select' => 93,
'create' => 36,
'truncate' => 40,
lib/DBIx/MyParsePP/Parser.pm view on Meta::CPAN
'xa' => 85,
'help' => 86,
'revoke' => 91,
'purge' => 88,
'call' => 90,
'backup' => 32,
'prepare' => 35,
'set' => 34,
'select' => 93,
'create' => 36,
'truncate' => 40,
lib/DBIx/MyParsePP/Parser.pm view on Meta::CPAN
[#Rule 544
'restore', 5,
sub { bless(["restore", @_[1..$#_] ], "DBIx::MyParsePP::Rule") }
],
[#Rule 545
'backup', 5,
sub { bless(["backup", @_[1..$#_] ], "DBIx::MyParsePP::Rule") }
],
[#Rule 546
'checksum', 4,
sub { bless(["checksum", @_[1..$#_] ], "DBIx::MyParsePP::Rule") }
],
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
MANIFEST.SKIP view on Meta::CPAN
examples/lib/DSCS.*?\.pm$
MYMETA
\.git
\.komodoproject$ # ignore komodo project files
~$ # ignore emacs and vim backup files
.bak$ # ignore manual backups
\# # ignore CVS old revision files and emacs temp files
^\.(?!perltidyrc)
.*\.old$
.*\.bak$
.*?\.sqlite$
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
\bBuild.bat$
# Avoid Devel::Cover generated files
\bcover_db
# Avoid temp and backup files.
~$
\#$
\.#
\.bak$
\.old$
view release on metacpan or search on metacpan
=head2 0.07
UPGRADE WARNING: collection table format changed, use new method
$index->upgrade_collection_table() to recreate collection table.
Calling initialize() method for a new collection will also upgrade
collection table. Index backup recommended.
Added error_ prefix to error message column names in collection table
Added version column to collection table
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
\bBuild.bat$
\bBuild.COM$
\bBUILD.COM$
\bbuild.com$
# Avoid temp and backup files.
~$
\.old$
\#$
\b\.#
\.bak$
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
\bBuild.bat$
# Avoid Devel::Cover generated files
\bcover_db
# Avoid temp and backup files.
~$
\#$
\.#
\.bak$
\.old$
view release on metacpan or search on metacpan
# 2007-01-08 recHist() file attachments arrangement corrected using mtime
# 2007-01-07 tfdRFD() corr: rfdPath(-xxx=>$s->{-pout}->{-file}) # rfdPath(-xxx=>$s->{-pcmd}, $s->{-pout})
# 2007-01-07 htmlRFD() corr: rfdPath(-xxx=>$c, $d) -> rfdPath(-xxx=>$d->{-file})
# 2007-01-07 recIns(), recUpd(): rfdStamp() applies utime(last editable) to directory
# 2007-01-07 osCmd() corrested: 'problematic programs' for perlis.dll only
# 2007-01-07 recUpd() corrected: rfdStamp('+') added for prev ver backup
# 2006-12-27 changed xmlTagEscape() - '&' escaped
# 2006-12-22 new htmlRFDimg() - to display icons for file attachments
# 2006-12-22 changed htmlRFD() - sorted files list
# 2006-12-22 new pthGlobns()
# 2006-12-22 chaged cgi(): no warnings; $_[0]->{-cgi} =eval('CGI->new')