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
# smbvalid.a (buffer overflows) PMK--fixme in smbvalid.a when possible.
for my $i ( 0..$#args ) {
$args[$i] = substr($args[$i], 0, 80);
}
my($username, $password, $server, $backup, $domain) = @args;
my $res = Valid_User($username, $password, $server, $backup, $domain);
$res
}
sub AUTOLOAD {
}
=head1 DESCRIPTION
Authen::Smb allows you to authenticate a user against an NT domain. You can
specify both a primary and a backup server to use for authentication. The
NT names of the machines should be used for specifying servers.
An authentication request will return one of four values:
NTV_NO_ERROR (0)
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.
~$
\.tmp$
\.old$
\.bak$
\#$
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
htdocs/usr/
htdocs/articles/content
htdocs/transforms/xhtml2html.xsl
sql/webshop-create.sql
sql/webshop-test.sql
scripts/mailabackup.pl
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
\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
\bBuild$
\b_build
Build.PL
Build.bat
# Avoid temp and backup files.
~$
\.gz$
\.old$
\.bak$
\.swp$
view release on metacpan or search on metacpan
ByteLoader/ppport.h view on Meta::CPAN
av_tindex||5.017009|
av_top_index||5.017009|
av_undef|||
av_unshift|||
ax|||n
backup_one_LB|||
backup_one_SB|||
backup_one_WB|||
bad_type_gv|||
bad_type_pv|||
bind_match|||
block_end||5.004000|
block_gimme||5.004000|
view release on metacpan or search on metacpan
repository.url = https://github.com/atoomic/B-COW.git
repository.web = https://github.com/atoomic/B-COW.git
repository.type = git
[PruneFiles]
match = ~$ ; emacs backup files
;[PodCoverageTests]
;[Test::EOL]
; still a work in progress
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
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
av_tindex|5.017009|5.017009|p
av_top_index|5.017009|5.017009|p
av_undef|||
av_unshift|||
ax|||n
backup_one_GCB|||
backup_one_LB|||
backup_one_SB|||
backup_one_WB|||
bad_type_gv|||
bad_type_pv|||
bind_match|||
block_end||5.004000|
block_gimme||5.004000|
view release on metacpan or search on metacpan
av_tindex||5.017009|
av_top_index||5.017009|
av_undef|||
av_unshift|||
ax|||n
backup_one_LB|||
backup_one_SB|||
backup_one_WB|||
bad_type_gv|||
bad_type_pv|||
bind_match|||
block_end||5.004000|
block_gimme||5.004000|
view release on metacpan or search on metacpan
av_tindex||5.017009|
av_top_index||5.017009|
av_undef|||
av_unshift|||
ax|||n
backup_one_LB|||
backup_one_SB|||
backup_one_WB|||
bad_type_gv|||
bad_type_pv|||
bind_match|||
block_end||5.004000|
block_gimme||5.004000|
view release on metacpan or search on metacpan
av_tindex||5.017009|
av_top_index||5.017009|
av_undef|||
av_unshift|||
ax|||n
backup_one_LB|||
backup_one_SB|||
backup_one_WB|||
bad_type_gv|||
bad_type_pv|||
bind_match|||
block_end||5.004000|
block_gimme||5.004000|
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
av_tindex||5.017009|
av_top_index||5.017009|
av_undef|||
av_unshift|||
ax|||n
backup_one_LB|||
backup_one_SB|||
backup_one_WB|||
bad_type_gv|||
bad_type_pv|||
bind_match|||
block_end||5.004000|
block_gimme||5.004000|
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/B/ppport.h view on Meta::CPAN
av_tindex|5.017009|5.003007|p
av_top_index|5.017009|5.003007|p
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
BhkDISABLE|||x
BhkENABLE|||x
BhkENTRY_set|||x
view release on metacpan or search on metacpan
av_tindex||5.017009|
av_top_index||5.017009|
av_undef|||
av_unshift|||
ax|||n
backup_one_SB|||
backup_one_WB|||
bad_type_gv|||
bad_type_pv|||
bind_match|||
block_end||5.004000|
block_gimme||5.004000|
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/BoxBackup/Config/BBackupd.pm view on Meta::CPAN
);
sub new
{
my ($self, @args) = @_;
my $bbackupdFile = $args[0] || "/etc/box/bbackupd.conf";
my $parser = Config::Scoped->new( file => $bbackupdFile );
$self = $parser->parse;
return bless $self;
lib/BoxBackup/Config/BBackupd.pm view on Meta::CPAN
return($self->{"Server"}{"PidFile"} = shift);
}
# Shamelessly copied from Ben's distribution bbackupd.conf
#
# BackupLocations specifies which locations on disc should be backed up. Each
# directory is in the format
#
# name
lib/BoxBackup/Config/BBackupd.pm view on Meta::CPAN
#
# ExcludeDir = /home/guest-user
# ExcludeFilesRegex = *.(mp3|MP3)$
# AlwaysIncludeFile = /home/username/veryimportant.mp3
#
# This excludes the directory /home/guest-user from the backup along with all mp3
# files, except one MP3 file in particular.
#
# In general, Exclude excludes a file or directory, unless the directory is
# explicitly mentioned in a AlwaysInclude directive.
lib/BoxBackup/Config/BBackupd.pm view on Meta::CPAN
my $name = $1;
# For the 'BackupLocations' section we have to get the location
# in question, before we know which parameter value to get.
if($name =~ /AlwaysInclude/ || $name =~ /Exclude/ || $name =~ /Path/)
{
my $backupLocation = shift;
return($self->{"BackupLocations"}{$backupLocation}{$name});
}
else
{
return($self->{$name});
}
lib/BoxBackup/Config/BBackupd.pm view on Meta::CPAN
{
my $name = $1;
if($name =~ /AlwaysInclude/ || $name =~ /Exclude/ || $name =~ /Path/)
{
my $backupLocation = shift;
return($self->{"BackupLocations"}{$backupLocation}{$name} = shift);
}
else
{
return($self->{$name} = shift);
}
view release on metacpan or search on metacpan
bin/bpmengine-spawn view on Meta::CPAN
}
else {
pod2usage(1);
}
#$schema->storage->backup('./var') if $connect_info[0] =~ /SQLite/;
$schema->storage->disconnect if $connect_info[0] =~ /mysql/;
1;
__END__
view release on metacpan or search on metacpan
bson/bson-iter.c view on Meta::CPAN
bson_iter_binary (const bson_iter_t *iter, /* IN */
bson_subtype_t *subtype, /* OUT */
uint32_t *binary_len, /* OUT */
const uint8_t **binary) /* OUT */
{
bson_subtype_t backup;
BSON_ASSERT (iter);
BSON_ASSERT (!binary || binary_len);
if (ITER_TYPE (iter) == BSON_TYPE_BINARY) {
if (!subtype) {
subtype = &backup;
}
*subtype = (bson_subtype_t) *(iter->raw + iter->d2);
if (binary) {
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
\bMakeMaker-\d
\bpm_to_blib\.ts$
\bpm_to_blib$
\bblibdirs\.ts$ # 6.18 through 6.25 generated this
# Avoid temp and backup files.
~$
\.old$
\#$
\b\.#
\.bak$
view release on metacpan or search on metacpan
lib/Backup/Duplicity/YADW.pm view on Meta::CPAN
$self->_conf($conf);
$self->_init_logs;
$self->_write_pidfile;
}
sub backup {
args_pos
my $self,
my $type => 'Str';
lib/Backup/Duplicity/YADW.pm view on Meta::CPAN
args_pos
my $self,
my $cmds;
my $days = $self->_conf->get('days2keepbackups');
if ( !defined $days ) {
confess "missing configuration days2keepbackups";
}
elsif ( !$days ) {
# confess "days2keepbackups must be greater than 0";
}
push @$cmds, $days . 'D';
}
sub expire {
args_pos my $self;
$self->_log( 'info', "removing old backups" );
my @cmd = ( 'duplicity', 'remove-older-than' );
$self->_get_expire_days( \@cmd );
push @cmd, '--force';
lib/Backup/Duplicity/YADW.pm view on Meta::CPAN
sub verify {
args_pos my $self;
$self->_log( 'info', "verifying backups" );
my @cmd = ( 'duplicity', 'verify' );
$self->_get_verbosity( \@cmd );
$self->_get_exclude_device_files( \@cmd );
lib/Backup/Duplicity/YADW.pm view on Meta::CPAN
args_pos my $self;
$self->_get_syslog;
if ( $self->use_syslog ) {
openlog( 'backups', $$, 'user' );
}
$self->_log( 'info', "$0 @ARGV" );
}
lib/Backup/Duplicity/YADW.pm view on Meta::CPAN
dry_run => 0,
use_syslog => 1,
verbose => 0
);
$yadw->backup();
$yadw->verify();
$yadw->expire();
$yadw->restore("/my/file/location");
lib/Backup/Duplicity/YADW.pm view on Meta::CPAN
=head2 new( [ %attributes ] )
Constructor - 'nuff said
=head2 backup( $type )
Tell duplicity to do a backup. Requires either 'full' or 'inc' for a type.
Returns true on success.
=head2 expire( )
Tell duplicity to "remove-older-than <days in conf file>".
lib/Backup/Duplicity/YADW.pm view on Meta::CPAN
Equivalent to "collection-status" in duplicity. Returns true on success.
=head2 verify( )
Tell duplicity to verify backups. Returns true on success.
=head2 restore( %args )
Tell duplicity to do a restore.
lib/Backup/Duplicity/YADW.pm view on Meta::CPAN
Returns true on success.
=head1 SEE ALSO
yadw (ready to use backup script)
=head1 AUTHOR
John Gravatt <john@gravatt.org>
view release on metacpan or search on metacpan
lib/Backup/EZ.pm view on Meta::CPAN
use Data::Dumper;
#
# CONSTANTS
#
use constant EXCLUDE_FILE => '/etc/ezbackup/ezbackup_exclude.rsync';
use constant CONF => '/etc/ezbackup/ezbackup.conf';
use constant COPIES => 30;
use constant DEST_HOSTNAME => 'localhost';
use constant DEST_APPEND_MACH_ID => 0;
use constant USE_SUDO => 0;
use constant IGNORE_VANISHED => 0;
use constant DEFAULT_ARCHIVE_OPTS => '-az';
use constant ARCHIVE_NO_RECURSE_OPTS => '-dlptgoDz';
=head1 NAME
Backup::EZ - Simple backups based on rsync
=head1 VERSION
version 0.46
lib/Backup/EZ.pm view on Meta::CPAN
=head1 SYNOPSIS
use Backup::EZ;
my $ez = Backup::EZ->new;
$ez->backup;
=head1 DESCRIPTION
Backup::EZ is backup software that is designed to be as easy to use
as possible, yet provide a robust solution
If you only want to run backups, see the included command line utility
"ezbackup". See the README for configuration instructions.
=head1 SUBROUTINES/METHODS
=head2 new
lib/Backup/EZ.pm view on Meta::CPAN
my $self = shift;
my $msg = shift;
my $line = (caller)[2];
openlog "ezbackup", $self->{syslog_option}, LOG_SYSLOG;
syslog LOG_DEBUG, "($line) $msg";
closelog;
}
#sub _error {
# my $self = shift;
# my $msg = shift;
#
# openlog "ezbackup", $self->{syslog_option}, LOG_LOCAL7;
# syslog LOG_ERR, $msg;
# closelog;
#}
sub _info {
my $self = shift;
my $msg = shift;
openlog "ezbackup", $self->{syslog_option}, LOG_SYSLOG;
syslog LOG_INFO, $msg;
closelog;
}
sub _read_conf {
lib/Backup/EZ.pm view on Meta::CPAN
my %conf = $config->getall;
_debug( $self, Dumper \%conf );
foreach my $key ( keys %conf ) {
if ( !defined $conf{backup_host} ) {
$conf{backup_host} = DEST_HOSTNAME;
}
if ( !defined $conf{copies} ) {
$conf{copies} = COPIES;
}
lib/Backup/EZ.pm view on Meta::CPAN
}
sub _get_dest_username {
my $self = shift;
if ( $self->{conf}->{backup_user} ) {
return $self->{conf}->{backup_user};
}
if ( $ENV{USER} ) {
return $ENV{USER};
}
lib/Backup/EZ.pm view on Meta::CPAN
}
sub _get_dest_hostname {
my $self = shift;
return $self->{conf}->{backup_host};
}
sub _get_dest_tmp_dir {
my $self = shift;
return sprintf( "%s/%s", $self->get_dest_dir, ".tmp" );
}
sub _get_dest_backup_dir {
my $self = shift;
return sprintf( "%s/%s", $self->get_dest_dir, $self->{datestamp} );
}
lib/Backup/EZ.pm view on Meta::CPAN
#
# # uncoverable branch true
# confess if $?;
#}
sub _full_backup_chunked {
my $self = shift;
my $dir = shift;
$self->_rsync2(
dir => $dir->dirname,
lib/Backup/EZ.pm view on Meta::CPAN
);
}
}
}
sub _full_backup {
my $self = shift;
my $dir = shift;
if ( $dir->chunked ) {
$self->_full_backup_chunked($dir);
}
else {
$self->_rsync2(
dir => $dir->dirname,
archive_opts => DEFAULT_ARCHIVE_OPTS,
extra_opts => $dir->excludes(),
);
}
}
sub _inc_backup_chunked {
my $self = shift;
my $dir = shift;
my $last_backup_dir = shift;
my $link_dest = shift;
$self->_rsync2(
dir => $dir->dirname,
archive_opts => ARCHIVE_NO_RECURSE_OPTS,
lib/Backup/EZ.pm view on Meta::CPAN
);
}
}
}
sub _inc_backup {
my $self = shift;
my $dir = shift;
my $last_backup_dir = shift;
my $link_dest = sprintf(
"%s/%s/%s",
$self->get_dest_dir, #
$last_backup_dir, #
$dir->dirname, #
);
if ( $dir->chunked ) {
$self->_inc_backup_chunked( $dir, $last_backup_dir, $link_dest );
}
else {
$self->_rsync2(
dir => $dir->dirname,
archive_opts => DEFAULT_ARCHIVE_OPTS,
lib/Backup/EZ.pm view on Meta::CPAN
my $self = shift;
pdump $self->{conf};
}
=head2 backup
Invokes the backup process. Takes no args.
=cut
sub backup {
my $self = shift;
$self->_mk_dest_dir( $self->get_dest_dir );
my @backups = $self->get_list_of_backups;
$self->_set_datestamp;
$self->_mk_dest_dir( $self->_get_dest_tmp_dir, $self->{dryrun} );
foreach my $dir ( $self->_get_dirs ) {
my $dirname = $dir->dirname();
if ( -d $dirname ) {
$self->_info("backing up $dirname");
if ( !@backups ) {
# full
$self->_full_backup($dir);
}
else {
# incremental
$self->_inc_backup( $dir, $backups[$#backups] );
}
}
else {
$self->_info("skipping $dirname because it does not exist");
}
}
$self->_ssh(
sprintf( "mv %s %s",
$self->_get_dest_tmp_dir, $self->_get_dest_backup_dir ),
$self->{dryrun}
);
$self->expire();
return 1;
}
=head2 expire
Expire backups. Gets a list of current backups and removes old ones that are
beyond the cutoff (see "copies" in the conf file).
=cut
sub expire {
my $self = shift;
my @list = $self->get_list_of_backups;
while ( scalar(@list) > $self->{conf}->{copies} ) {
my $subdir = shift @list;
my $del_dir = sprintf( "%s/%s", $self->get_dest_dir, $subdir );
lib/Backup/EZ.pm view on Meta::CPAN
$self->_ssh($cmd);
}
}
=head2 get_backup_host
Returns the backup_host name.
=cut
sub get_backup_host {
my $self = shift;
return $self->{conf}->{backup_host};
}
=head2 get_dest_dir
Returns the dest_dir.
lib/Backup/EZ.pm view on Meta::CPAN
}
return sprintf( "%s/%s", $self->{conf}->{dest_dir}, $hostname );
}
=head2 get_list_of_backups
Returns an array of backups. They are in the format of "YYYY-MM-DD_HH:MM:SS".
=cut
sub get_list_of_backups {
my $self = shift;
my @backups;
my @list = $self->_ssh( sprintf( "ls %s", $self->get_dest_dir ) );
foreach my $e (@list) {
chomp $e;
if ( $e =~ /^\d\d\d\d-\d\d-\d\d_\d\d:\d\d:\d\d$/ ) {
push( @backups, $e );
}
}
return @backups;
}
1;
view release on metacpan or search on metacpan
lib/Backup/Hanoi.pm view on Meta::CPAN
package Backup::Hanoi;
# ABSTRACT: select backup according to algo
$Backup::Hanoi::VERSION = '0.005';
use strict;
use warnings;
use v5.6.0;
lib/Backup/Hanoi.pm view on Meta::CPAN
# the number of devices predicts the size of the cycles
my $device_count = scalar @{$devices};
die "three devices needed.\n" if ($device_count < 3);
# half a hanoi cycle is just what we need for backup
my $hanoi_cycles_half = (2**$device_count) / 2;
my $self = { devices => $devices,
hanoi_cycles_half => $hanoi_cycles_half,
};
lib/Backup/Hanoi.pm view on Meta::CPAN
=encoding UTF-8
=head1 NAME
Backup::Hanoi - select backup according to algo
=head1 VERSION
version 0.005
lib/Backup/Hanoi.pm view on Meta::CPAN
This is an early release.
This code is currently not used in production by the author.
Use it with care!
my @devices = ('A', 'B', 'C', 'D');
my $backup = Backup::Hanoi->new(\@devices);
# calculate the next 100 backup cycles
for (0 .. 99) {
print $backup->get_device_for_cycle($_);
print "\n";
}
# enhanced compination of FIFO for initialisation
# and Hanoi algorithm for overwriting
for (-3 .. 99) {
print $backup->get_device_for_cycle($_);
print "\n";
}
See also the script L<backup-hanoi>.
=head1 FUNCTIONS
=head2 new
view release on metacpan or search on metacpan
lib/Backup/Omni/Restore/Filesystem/Single.pm view on Meta::CPAN
my $rc = $?;
unless (grep(/Restore successfully/, @results)) {
$self->throw_msg(
'backup.omni.restore.filesystem.single.submit',
'nosubmit',
$self->session
);
}
lib/Backup/Omni/Restore/Filesystem/Single.pm view on Meta::CPAN
=over 4
=item B<-host>
The name of the host that the backup was performed on.
=item B<-session>
The session id of the backup.
=item B<-target>
The target system to restore the file too.
lib/Backup/Omni/Restore/Filesystem/Single.pm view on Meta::CPAN
The path on the host that was backed up. Defaults to "/archive".
=item B<-label>
The label that was defined for this backup. Defaults to "/archive".
=back
=head2 submit