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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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
view all matches for this distribution
view release on metacpan or search on metacpan
lib/BackupPC/Backups/Info.pm view on Meta::CPAN
use warnings;
use base 'Error::Helper';
=head1 NAME
BackupPC::Backups::Info - Restrieves info on BackupPC backups.
=head1 VERSION
Version 0.1.1
lib/BackupPC/Backups/Info.pm view on Meta::CPAN
return $self->{pcdir};
}
=head2 get_parsed
This parses the raw backups file and then returns a array of hashes.
For a explanation of the hashes, please see BACKUP HASH.
One archment is taken and that is the machine name.
my @parsed=$bpcinfo->get_parsed($machine);
lib/BackupPC/Backups/Info.pm view on Meta::CPAN
#will store what we return
my @parsed;
my $int=0;
while( defined( $lines[$int] ) ){
my %backup;
( $backup{num}, $backup{type}, $backup{startTime}, $backup{endTime},
$backup{nFiles}, $backup{size}, $backup{nFilesExist}, $backup{sizeExist},
$backup{nFilesNew}, $backup{sizeNew}, $backup{xferErrs}, $backup{xferBadFile},
$backup{xferBadShare}, $backup{tarErrs}, $backup{compress},
$backup{sizeExistComp}, $backup{sizeNewComp}, $backup{noFill},
$backup{fillFromNum}, $backup{mangle}, $backup{xferMethod}, $backup{level} )=split(/\t/, $lines[$int]);
if ( $backup{compress} eq ''){
$backup{compress}=0;
}
push( @parsed, \%backup );
$int++;
}
#save info on the last
lib/BackupPC/Backups/Info.pm view on Meta::CPAN
return @parsed;
}
=head2 get_raw
This retrieves the law data from a backups file for a machine.
The section on backups file in
L<https://backuppc.github.io/backuppc/BackupPC.html#Storage-layout>
is suggested reading if you plan on actually using this.
my $raw=$bpcinfo->get_raw('foo');
if ($bpcinfo->error){
warn('something errored');
lib/BackupPC/Backups/Info.pm view on Meta::CPAN
$self->{eerorString}='"'.$machineDir.'" does not eixst';
$self->warn;
return undef;
}
my $backupsFile=$machineDir.'/backups';
my $fh;
if (! open( $fh, '<', $backupsFile ) ){
$self->{error}=7;
$self->{errorString}='failed to open "'.$backupsFile.'"';
$self->warn;
};
my $data='';
while ( my $line=$fh->getline ){
lib/BackupPC/Backups/Info.pm view on Meta::CPAN
return keys(%{$self->{parsed}});
}
=head2 read_in_all
This reads in the backups files for each machine.
Currently this just attempts to read in all via get_parsed
and ignores any errors, just proceeding to the next one.
As long as list_machines does not error, this will not error.
lib/BackupPC/Backups/Info.pm view on Meta::CPAN
my $pcdir=$self->get_pc_dir;
my $int=0;
while( defined( $machines[$int] ) ){
if ( -f $pcdir.'/'.$machines[$int].'/backups' ){
$self->get_parsed( $machines[$int] );
}
$int++;
}
lib/BackupPC/Backups/Info.pm view on Meta::CPAN
return 1;
}
=head1 BACKUP HASH
Based on __TOPDIR__/pc/$host/backup from
L<https://backuppc.github.io/backuppc/BackupPC.html#Storage-layout>.
=head2 num
The backup number for the current hash.
=head2 type
Either 'incr' or 'full'.
=head2 startTime
The unix start time of the backup.
=head2 endTime
The unix end time of the backup.
=head2 nFiles
Number of files backed up.
lib/BackupPC/Backups/Info.pm view on Meta::CPAN
Total size of files not in the pool.
=head2 xferErrs
Number of warnings/errors from the backup method.
=head2 xferBadFile
Number of errors from the backup method in regards to bad files.
=head2 xferBadShare
Number of errors from smbclient that were bad share errors.
lib/BackupPC/Backups/Info.pm view on Meta::CPAN
Number of errors from BackupPC_tarExtract.
=head2 compress
The compression level used on this backup. Zero means no compression.
Please note that while BackupPC may leave this field blank if none is used, this module
will check for a blank value and set it to zero.
=head2 sizeExistComp
lib/BackupPC/Backups/Info.pm view on Meta::CPAN
Total compressed size of new files in the pool.
=head2 noFill
et if this backup has not been filled in with the most recent previous filled or full backup.
See $Conf{IncrFill} in the BackupPC docs.
=head2 fillFromNum
If filled, this is the backup it was filled from.
=head2 mangle
Set if this backup has mangled file names and attributes. Always true for backups in v1.4.0
and above. False for all backups prior to v1.4.0.
=head2 xferMethod
The value of $Conf{XferMethod} when this dump was done.
lib/BackupPC/Backups/Info.pm view on Meta::CPAN
Zane C. Bowers-Hadley, C<< <vvelox at vvelox.net> >>
=head1 BUGS
Please report any bugs or feature requests to C<bug-backuppc-backups-info at rt.cpan.org>, or through
the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=BackupPC-Backups-Info>. I will be notified, and then you'll
automatically be notified of progress on your bug as I make changes.
view all matches for this distribution