view release on metacpan or search on metacpan
lib/CljPerl/anyevent.clp view on Meta::CPAN
(ns anyevent
(use-lib "/local_vol1_nobackup/usr/wehu/src/AnyEvent-7.04/lib")
(. require AnyEvent)
(defn condvar []
(->AnyEvent condvar))
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
\bbuild.com$
# and Module::Build::Tiny generated files
\b_build_params$
# Avoid temp and backup files.
~$
\.old$
\#$
\b\.#
\.bak$
view release on metacpan or search on metacpan
#
## Amazon snapshot purge
#0 1 * * * /opt/deploy/code/portal/script/aws-snapshots -c /etc/aws-snapshots-daily.conf purge >> /var/log/aws-snapshots/aws-snapshots.log 2>&1
#
## AWS RDS auto-snapshot
#0 2 * * * BASH_ENV=~/perl5/perlbrew/etc/bashrc bash -c "~/rds-snapshot-backups/run-rds-backups --configfile /home/portal/rds-snapshot-backups/run-rds-backups.conf -l /var/log/rds-snapshot-backups/rds-snapshot-backups.log"
#0 3 * * * BASH_ENV=~/perl5/perlbrew/etc/bashrc bash -c "~/rds-snapshot-backups/run-rds-backups --configfile /home/portal/rds-snapshot-backups/run-rds-backups.conf --purge -l /var/log/rds-snapshot-backups/rds-snapshot-backups.log"
# Full text search indexes
1,21,41 * * * * bash -c /opt/deploy/code/portal/script/elastic_index_all_systems
5,25,45 * * * * bash -c /opt/deploy/code/portal/script/elastic_index_all_wiki
#3-59/10 * * * * /usr/bin/scp -i /home/portal/ialonso/private_key/portal.key portal@n020125.sys.capside.net:/home/portal/output.file /home/portal/ialonso/output.file
#
# CAPSiDE Ops Team Almighty Ticket Dispatching Tool (tm)
0,15,30,45 * * * 1-5 bash -c /opt/deploy/code/portal/script/dispatcher_unclassified_tickets
5 14 * * 1-5 bash -c /opt/deploy/code/portal/script/dispatcher_backup_patching_tickets
# Ops team daily work reports (alias ialonso's mega reports)
15 0 * * * bash -c /opt/deploy/code/portal/script/timeworked_reports
# Monthly report for exceeded timepools (spruneda)
view release on metacpan or search on metacpan
lib/Cluster/Init.pm view on Meta::CPAN
A well-administered B<enterprise infrastructure> (see
L<http://www.Infrastructures.Org>), in which each machine, whether
desktop or server, provides scalable commodity services. Any machine
or group of machines can be easily and quickly replaced, with
minimal user impact, without restoring from backups, with no advance
notice or unique preparation. May include elements of both I<high
availability> and I<high throughput> clusters.
=item High-Availability Cluster
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/Code/TidyAll.pm view on Meta::CPAN
our $VERSION = '0.85';
sub default_conf_names { ( 'tidyall.ini', '.tidyallrc' ) }
# External
has backup_ttl => (
is => 'ro',
isa => t('NonEmptyStr'),
default => '1 hour',
);
lib/Code/TidyAll.pm view on Meta::CPAN
is => 'ro',
isa => t('CodeRef'),
builder => '_build_msg_outputter',
);
has no_backups => (
is => 'ro',
isa => t('Bool'),
);
has no_cache => (
lib/Code/TidyAll.pm view on Meta::CPAN
is => 'ro',
isa => t( 'ArrayRef', of => t('NonEmptyStr') ),
default => sub { [] },
);
has _backup_dir => (
is => 'ro',
isa => t('Path'),
init_arg => undef,
lazy => 1,
builder => '_build_backup_dir',
);
has _backup_ttl_secs => (
is => 'ro',
isa => t('Int'),
init_arg => undef,
lazy => 1,
builder => '_build_backup_ttl_secs',
);
has _base_sig => (
is => 'ro',
isa => t('NonEmptyStr'),
lib/Code/TidyAll.pm view on Meta::CPAN
default => sub { {} },
);
with qw( Code::TidyAll::Role::HasIgnore Code::TidyAll::Role::Tempdir );
sub _build_backup_dir {
my $self = shift;
return $self->data_dir->child('backups');
}
sub _build_backup_ttl_secs {
my $self = shift;
return parse_duration( $self->backup_ttl );
}
sub _build_base_sig {
my $self = shift;
my $active_plugins = join( q{|}, map { $_->name } @{ $self->_plugin_objects } );
lib/Code/TidyAll.pm view on Meta::CPAN
join( ', ', sort map {qq['$_']} @bad_params ),
ref($self)
);
}
unless ( $self->no_backups ) {
$self->_backup_dir->mkpath( { mode => 0775 } );
$self->_purge_backups_periodically();
}
@INC = ( @{ $self->inc }, @INC );
}
sub _purge_backups_periodically {
my ($self) = @_;
my $cache = $self->cache;
my $last_purge_backups = $cache->get('last_purge_backups') || 0;
if ( time > $last_purge_backups + $self->_backup_ttl_secs ) {
$self->_purge_backups();
$cache->set( 'last_purge_backups', time() );
}
}
sub _purge_backups {
my ($self) = @_;
$self->msg('purging old backups') if $self->verbose;
find(
{
follow => 0,
wanted => sub {
unlink $_ if -f && /\.bak$/ && time > ( stat($_) )[9] + $self->_backup_ttl_secs;
},
no_chdir => 1
},
$self->_backup_dir,
);
}
sub new_from_conf_file {
my ( $class, $conf_file, %params ) = @_;
lib/Code/TidyAll.pm view on Meta::CPAN
my $contents = $cache_model->file_contents || $full_path->slurp_raw;
my $result = $self->process_source( $contents, $path );
if ( $result->state eq 'tidied' ) {
# backup original contents
$self->_backup_file( $path, $contents );
# write new contents out to disk
$contents = $result->new_contents;
# We don't use ->spew because that creates a new file and renames it,
lib/Code/TidyAll.pm view on Meta::CPAN
( $self->no_cache ? () : ( cache_engine => $self->cache ) ),
base_sig => $self->_base_sig,
);
}
sub _backup_file {
my ( $self, $path, $contents ) = @_;
unless ( $self->no_backups ) {
my $backup_file = $self->_backup_dir->child( $self->_backup_filename($path) );
$backup_file->parent->mkpath( { mode => 0775 } );
$backup_file->spew_raw($contents);
}
}
sub _backup_filename {
my ( $self, $path ) = @_;
return join( q{}, $path, '-', time2str( '%Y%m%d-%H%M%S', time ), '.bak' );
}
lib/Code/TidyAll.pm view on Meta::CPAN
The cache instance (e.g. an instance of C<Code::TidyAll::Cache> or a C<CHI>
instance.) An instance of C<Code::TidyAll::Cache> is automatically instantiated
by default.
=item * backup_ttl
=item * check_only
If this is true, then we simply check that files pass validation steps and that
tidying them does not change the file. Any changes from tidying are not
lib/Code/TidyAll.pm view on Meta::CPAN
=item * iterations
=item * mode
=item * no_backups
=item * no_cache
=item * output_suffix
lib/Code/TidyAll.pm view on Meta::CPAN
=item * ignore
=item * verbose
These options are the same as the equivalent C<tidyall> command-line options,
replacing dashes with underscore (e.g. the C<backup-ttl> option becomes
C<backup_ttl> here).
=item * msg_outputter
This is a subroutine reference that is called whenever a message needs to be
printed in some way. The sub receives a C<sprintf()> format string followed by
view release on metacpan or search on metacpan
lib/CodeGen/Cpppp.pm view on Meta::CPAN
$fh->close or die "close: $!";
$self;
}
sub backup_and_overwrite_file($self, $fname, $new_content) {
$new_content .= "\n" unless $new_content =~ /\n\Z/;
utf8::encode($new_content);
if (-e $fname) {
my $n= 0;
++$n while -e "$fname.$n";
lib/CodeGen/Cpppp.pm view on Meta::CPAN
sub write_sections_to_file($self, $sections, $fname, $patch_markers=undef) {
my $content= $self->get_filtered_output($sections);
if (defined $patch_markers) {
$self->patch_file($fname, $patch_markers, $content);
} else {
$self->backup_and_overwrite_file($fname, $content);
}
$self
}
sub _slurp_file($self, $fname) {
lib/CodeGen/Cpppp.pm view on Meta::CPAN
my $tpl= $cpppp->require_template("example.cp");
my $out= $tpl->new->output;
$cpppp->patch_file("project.h", "example.cp", $out->get('public'));
$cpppp->patch_file("internal.h", "example.cp", $out->get('protected'));
=head2 backup_and_overwrite_file
$cpppp->backup_and_overwrite_file($filename, $new_content);
Create a backup of $filename if it already exists, and then write a new file
containing C<$new_content>. The backup is created by appending a ".N" to the
filename, choosing the first available "N" counting upward from 0.
=head2 get_filtered_output
my $text= $cpppp->get_filtered_output(@sections);
lib/CodeGen/Cpppp.pm view on Meta::CPAN
$cpppp->write_sections_to_file($section_spec, $filename);
$cpppp->write_sections_to_file($section_spec, $filename, $patch_markers);
This is a simple wrapper around L<CodeGen::Cpppp::Output/get> and either
L</backup_and_overwrite_file> or L</patch_file>, depending on whether you
supply C<$patch_markers>.
=head1 AUTHOR
Michael Conrad <mike@nrdvana.net>
view release on metacpan or search on metacpan
lib/Prima/CodeManager/CodeManager.pm view on Meta::CPAN
# $self->{images}->{$_} = $self-> load_icon( "$CodeManager_directory/img/nil.png" ) unless $self->{images}->{$_};
# eval( $self->read_file( "$CodeManager_directory/hilite/hilite_$_.pl")) if -e "$CodeManager_directory/hilite/hilite_$_.pl";
# }
$self->{global}->{GLOBAL}->{CodeManager_encoding} ||= '';
$main::CodeManager_encoding = $self->{global}->{GLOBAL}->{CodeManager_encoding};
$self->{global}->{GLOBAL}->{backup} = 0 unless $self->{global}->{GLOBAL}->{backup};
$self-> make_tree;
$self-> make_notebook;
return;
}
view release on metacpan or search on metacpan
repository.url = https://github.com/atoomic/Colon-Config.git
repository.web = https://github.com/atoomic/Colon-Config.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
\b_build
# Avoid Devel::Cover generated files
\bcover_db
# Avoid temp and backup files.
~$
\.tmp$
\.old$
\.bak$
\#$
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
\b_build
# Avoid Devel::Cover generated files
\bcover_db
# Avoid temp and backup files.
~$
\.tmp$
\.old$
\.bak$
\#$
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
Fix problem with processing of the plugins selectors.
0.06 2016-10-25
Enable/Disable/List plugins via command line.
Make a backup copy of the state file before changing it.
Fix WuMo plugin.
0.05 2016-10-24
CPAN packaging improvements.
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/Compellent/CompCU.pm view on Meta::CPAN
Takes 13 parameters. Two are required.
=item *
backupmailserver - Optional. String to specify a back up mail server IP on which to filter.
=item *
csv - Optional. String to set a filename in which to store csv formatted output.
lib/Compellent/CompCU.pm view on Meta::CPAN
=cut
sub system_show{
my $self=shift;
my $arguments=shift;
my @command_parameters=qw(backupmailserver csv mailserver managementip name operationmode portsbalanced serialnumber txt version xml);
my $s="system show".build_command($arguments,\@command_parameters);
my $c=$self->{command};
$c=~s/COMMAND/$s/;
execute_show($c,$arguments->{success},$arguments->{output});
}
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
\bbuild.com$
# and Module::Build::Tiny generated files
\b_build_params$
# Avoid temp and backup files.
~$
\.old$
\#$
\b\.#
\.bak$
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
Makefile$
# Exclude the stamp file
pm_to_blib
# Exclude the META files made by ExtUtils::MakeMaker
MYMETA..*
# Exclude backup files made by ExtUtils::MakeMaker
.*\.bak
# Exclude untarred distribution files
^Compress-Huffman-Binary-[0-9\.]+/$
# Exclude tarred distribution files
^Compress-Huffman-Binary-[0-9\.]+\.tar\.gz$
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
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
private/MakeUtil.pm view on Meta::CPAN
use File::Copy ;
return if -d $file ;
my $backup = $file . ($^O eq 'VMS') ? "_bak" : ".bak";
copy($file, $backup)
or die "Cannot copy $file to $backup: $!";
my @keep = ();
{
open F, "<$file"
view release on metacpan or search on metacpan
private/MakeUtil.pm view on Meta::CPAN
use File::Copy ;
return if -d $file ;
my $backup = $file . ($^O eq 'VMS') ? "_bak" : ".bak";
copy($file, $backup)
or die "Cannot copy $file to $backup: $!";
my @keep = ();
{
open F, "<$file"
view release on metacpan or search on metacpan
private/MakeUtil.pm view on Meta::CPAN
use File::Copy ;
return if -d $file ;
my $backup = $file . ($^O eq 'VMS') ? "_bak" : ".bak";
copy($file, $backup)
or die "Cannot copy $file to $backup: $!";
my @keep = ();
{
open F, "<$file"
view release on metacpan or search on metacpan
ext/zstd/lib/common/compiler.h view on Meta::CPAN
/* C11 support */
# include <stdalign.h>
# define ZSTD_ALIGNOF(T) alignof(T)
# else
/* No known support for alignof() - imperfect backup */
# define ZSTD_ALIGNOF(T) (sizeof(void*) < sizeof(T) ? sizeof(void*) : sizeof(T))
# endif
#endif /* ZSTD_ALIGNOF */
view release on metacpan or search on metacpan
ext/zstd/contrib/adaptive-compression/README.md view on Meta::CPAN
`-l#` : set a lower bound on the compression level (default is 1)
`-u#` : set an upper bound on the compression level (default is 22)
### Benchmarking / Test results
#### Artificial Tests
These artificial tests were run by using the `pv` command line utility in order to limit pipe speeds (25 MB/s read and 5 MB/s write limits were chosen to mimic severe throughput constraints). A 40 GB backup file was sent through a pipeline, compresse...
<table>
<tr><th> 25 MB/s read limit </th></tr>
<tr><td>
ext/zstd/contrib/adaptive-compression/README.md view on Meta::CPAN
`cat FILE | pv -q | COMPRESSION | pv -L 5m -q > tmp.zst # impose 5 MB/s write limit`
#### SSH Tests
The following tests were performed by piping a relatively large backup file (approximately 80 GB) through compression and over SSH to be stored on a server. The test data includes statistics for time and compressed size on `zstd` at several compress...
pipe throughput.
| Compressor Name | Ratio | Compressed Size | Compression Time |
|:----------------|------:|----------------:|-----------------:|
| zstd -3 | 2.212 | 32.426 GB | 1h 17m 59.756s |
view release on metacpan or search on metacpan
bin/jmerge.pl view on Meta::CPAN
#!perl
# File: jmerge.pl
# Desc: A program that examines a local JIRA backup file and then interogates
# remote JIRA instances for data to be combined into a new backup file
# in preparation of a project restore in order to import and integrate
# the data from the remote system into a controlled instance.
#
# TODO Add in Perl documentations for the comman-line tool.
bin/jmerge.pl view on Meta::CPAN
## $dd = Data::Dumper->new([$wand]); print $dd->Dump();
__END__ ### End of Program Source
=head1 NAME
jira-remote-merge.pl - A tool to integrate a remote JIRA instance with a local XML backup file.
=head1 SYNOPSIS
jira-remote-merge.pl [<option> [...]] [<arg> [...]]
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
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/Config/Augeas.pm view on Meta::CPAN
Use C<root> as the filesystem root. If not specified, use the value of
the environment variable C<AUGEAS_ROOT>. If that doesn't exist either,
use "C</>".
=item save => backup | newfile | noop
Specify how to save the configuration file. Either create a newfile
(with extension C<.augnew>, and do not overwrite the original file) or
move the original file into a backup file (C<.augsave> extension).
C<noop> make saves a no-op process, just record what would have
changed
=item type_check => 1
lib/Config/Augeas.pm view on Meta::CPAN
my $flags = 0 ;
my $loadpath = delete $args{loadpath} || '';
my $root = delete $args{root} || '';
my $save = delete $args{save} || '';
if ($save eq 'backup') { $flags |= &AUG_SAVE_BACKUP }
elsif ($save eq 'newfile') { $flags |= &AUG_SAVE_NEWFILE }
elsif ($save =~ 'noop') { $flags |= &AUG_SAVE_NOOP }
elsif ($save) {
croak __PACKAGE__," new: unexpected save value: $save. ",
"Expected backup or newfile";
}
$flags |= &AUG_TYPE_CHECK if ( delete $args{type_check} || 0 );
$flags |= &AUG_NO_STDINC if ( delete $args{no_std_inc} || 0 ) ;
$flags |= &AUG_NO_LOAD if ( delete $args{no_load} || 0 ) ;
lib/Config/Augeas.pm view on Meta::CPAN
=head2 save
Write all pending changes to disk. Return 0 if an error is
encountered, 1 on success. Only files that had any changes made to
them are written. C<save> will follow backup files as specified with
Config::Augeas::new C<backup> parameter.
=cut
sub save {
my $self = shift ;
view release on metacpan or search on metacpan
t/05_rt69984.t view on Meta::CPAN
use Test::More 'no_plan';
BEGIN { chdir 't' if -d 't'; }
my $expecting = {
'backup.jobs.list' => [
'production',
'development',
'infrastructure',
'jaguararray'
],