view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
\bblibdirs\.ts$ # 6.18 through 6.25 generated this
\b_eumm/ # 7.05_05 and above
\.tar\.gz$
# Avoid temp and backup files.
~$
\.old$
\#$
\b\.#
\.bak$
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
^MANIFEST\.
^Makefile$
^blib/
^MakeMaker-\d
# Temp, old and emacs backup files.
~$
\.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
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
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
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
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
examples/README view on Meta::CPAN
- CCreport: A "real" application which generates a textual report on
changes made across some time slice in some set of vobs by some set of
users, etc., all configurable.
- tarvob: Another real tool though much less ambitious. This is a
standard vob-backup script implemented with ClearCase::Argv. Locks
vobs, tars, unlocks, etc. Don't use this with production vobs without
careful testing and full understanding of what it does.
- fix_eltype: A real script that brings element types into line with
what "cleartool file" thinks they should be.
view release on metacpan or search on metacpan
Makefile.PL
README
MANIFEST
examples/Region.cfg
examples/Vob.cfg
examples/co_backup
examples/Region_test
examples/Vob_test
examples/main_cos
t/01Region.t
LICENSE
lib/ClearCase/Region.pm
lib/ClearCase/Region_Cfg_Parser.pm
lib/ClearCase/Vob.pm
lib/ClearCase/Vob_Cfg_Parser.pm
lib/co_backup.conf
lib/main_cos.conf
lib/Region_test.conf
lib/Vob_test.conf
docs/Creating_Reuseable_Perl_Scripts.doc
docs/Creating_Reuseable_Perl_Scripts.htm
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
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"