view release on metacpan or search on metacpan
vhost/dumper.sh view on Meta::CPAN
#mysqldump -u barbie --skip-add-locks --add-drop-table --skip-disable-keys --skip-extended-insert reports >cgi-bin/db/reports-backup.sql
#mysqldump -u barbie --skip-add-locks --add-drop-table --skip-disable-keys --skip-extended-insert reports monitor >cgi-bin/db/monitor.sql
mysqldump -u barbie --skip-add-locks --add-drop-table --skip-disable-keys --skip-extended-insert --ignore-table=reports.hits --ignore-table=reports.sessions reports >cgi-bin/db/reports-backup.sql
mysqldump -u barbie --create-options --add-drop-table --no-data reports >cgi-bin/db/reports-schema.sql
view release on metacpan or search on metacpan
t/data/cpanstats-test.json view on Meta::CPAN
{"test":{"count":{"entries":100,"reports":100,"posters":"182","distros":0},"pass":{"MacPPC":{"5.4.0":{"all":{"Net-Whois":1,"URI":1,"Storable":1,"Mac-Conversions":1,"Digest-MD5":1}}},"PA-RISC1.1":{"5.5.3":{"all":{"DBD-Oracle":1,"Curses":1}},"5.4.4":{"...
view release on metacpan or search on metacpan
vhost/dumper.sh view on Meta::CPAN
mysqldump -u secret -p --skip-add-locks --add-drop-table --skip-disable-keys --skip-extended-insert cpanwiki >cgi-bin/db/cpanwiki-backup.sql
mysqldump -u secret -p --create-options --add-drop-table --no-data cpanwiki >cgi-bin/db/cpanwiki-schema.sql
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
\b_build
\bBuild.COM$
\bBUILD.COM$
\bbuild.com$
# Avoid temp and backup files.
~$
\.old$
\#$
^\.#
\.bak$
view release on metacpan or search on metacpan
t/data/cpanriver.01.build.log view on Meta::CPAN
t/28_schemachange.t ................................... ok
t/30_auto_rollback.t .................................. ok
t/31_bind_weird_number_param.t ........................ ok
t/32_inactive_error.t ................................. ok
t/33_non_latin_path.t ................................. ok
t/34_online_backup.t .................................. ok
t/35_table_info.t ..................................... ok
t/36_hooks.t .......................................... ok
t/37_regexp.t ......................................... ok
t/38_empty_statement.t ................................ ok
t/39_foreign_keys.t ................................... ok
view release on metacpan or search on metacpan
lib/CPAN2RT.pm view on Meta::CPAN
$ua->timeout( 10 );
foreach my $file ( @files ) {
debug { "Fetching '$file'\n" };
my $store = $self->file_path( $file );
$self->backup_file( $store ) if -e $store;
my $response = $ua->get( "$mirror/$file", ':content_file' => $store );
unless ( $response->is_success ) {
print STDERR $response->status_line, "\n";
next;
}
my $mtime = $response->header('Last-Modified');
debug { "Fetched '$file' -> '$store'\n" };
if ( $store =~ /(.*)\.gz$/ ) {
$self->backup_file( $1 );
`gunzip -f $store`;
$store =~ s/\.gz$//;
debug { "Unzipped '$store'\n" };
}
lib/CPAN2RT.pm view on Meta::CPAN
my $old = $new .'.old';
return 1 unless -e $old;
return (stat $new)[9] > (stat $old)[9]? 1 : 0;
}
sub backup_file {
my $self = shift;
my $old = shift;
my $new = $old .'.old';
rename $old, $new;
}
view release on metacpan or search on metacpan
misc/make_dist.pl view on Meta::CPAN
use strict;
use Pod::Html;
use Cwd;
use File::Spec;
my $backup = 0;
my $root = shift @ARGV || '../';
$root =~ tr|\\|/|;
$root = "$root/" unless $root =~ m|/$|;
make_clean($root);
misc/make_dist.pl view on Meta::CPAN
my $file = shift;
local $/;
open my $fh, "+<$file" or die "Can't open $file for R/W $!\n";
binmode $fh;
my $data = <$fh>;
write_file( "$file.bak" , $data ) if $backup;
$data =~ s/\015\012/\012/g;
$data =~ s/ +\012/\012/g;
$data =~ s/\t/ /g;
seek $fh, 0, 0;
truncate $fh, 0;
view release on metacpan or search on metacpan
lib/CPANPLUS/YACSmoke/IniFiles.pm view on Meta::CPAN
use Carp;
use Symbol 'gensym','qualify_to_ref'; # For the 'any data type' hack
@CPANPLUS::YACSmoke::IniFiles::errors = ( );
# $Header: /home/shlomi/progs/perl/cpan/Config/IniFiles/config-inifiles-cvsbackup/config-inifiles/IniFiles.pm,v 2.41 2003-12-08 10:50:56 domq Exp $
=head1 NAME
Config::IniFiles - A module for reading .ini-style configuration files.
lib/CPANPLUS/YACSmoke/IniFiles.pm view on Meta::CPAN
=item *
No locking is done by [Re]WriteConfig. When writing servers, take
care that only the parent ever calls this, and consider making your
own backup.
=back
=head1 Data Structure
view release on metacpan or search on metacpan
inc/bundle/Module/Pluggable/Object.pm view on Meta::CPAN
sub _is_editor_junk {
my $self = shift;
my $name = shift;
# Emacs (and other Unix-y editors) leave temp files ending in a
# tilde as a backup.
return 1 if $name =~ /~$/;
# Emacs makes these files while a buffer is edited but not yet
# saved.
return 1 if $name =~ /^\.#/;
# Vim can leave these files behind if it crashes.
view release on metacpan or search on metacpan
the source repository: L<https://github.com/briandfoy/cpan-security-advisory>
If you find a problem, file a ticket in the L<issue
tracker|https://github.com/briandfoy/cpan-security-advisory/issues>.
There are also backup repositories hosted on other services. These
reflect the state of the main repo and exist only for redundancy:
=over 4
=item * L<https://bitbucket.com/theperlreview/cpan-security-advisory>
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/CPU/Emulator/Memory.pm view on Meta::CPAN
=over
=item file
if provided, will provide a disc-based backup of the
RAM represented. This file will be read when the object is created
(if it exists) and written whenever anything is altered. If no
file exists or no filename is provided, then memory is initialised
to all zeroes. If the file exists it must be writeable and of the
correct size.
view release on metacpan or search on metacpan
lib/CPU/Emulator/Z80/Manual.pod view on Meta::CPAN
file => 'memory.ram'
)
);
Generally, the default is what you want, but note that the default
configuration does *not* backup the CPU's RAM to a file. Note that
if you define your own memory, it *must* be little-endian.
=head1 HOW DO IT GET A PROGRAM INTO MEMORY
The hard way, which is also most suitable for very small hacks, is
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
# 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
/* discard current node */
CssDiscardNode(curr);
/* reset "head" if that's what got pruned */
if (curr == head)
head = prev ? prev : next;
/* backup and try again if possible */
curr = prev ? prev : next;
break;
case PRUNE_NEXT:
/* discard next node */
CssDiscardNode(next);
view release on metacpan or search on metacpan
lib/CSS/Object/Format.pm view on Meta::CPAN
property_separator
)];
return( $self );
}
sub backup_parameters { return( shift->clone ); }
sub class { return( ref( $_[0] ) ); }
sub close_brace_on_new_line { return( shift->_set_get_boolean( 'close_brace_on_new_line', @_ ) ); }
lib/CSS/Object/Format.pm view on Meta::CPAN
=back
=head1 METHODS
=head2 backup_parameters
This will create a deep copy of this formatter's L</parameters> and return it.
See L</restore_parameters>
lib/CSS/Object/Format.pm view on Meta::CPAN
This returns the current character value as a L<Module::Generic::Scalar> object.
=head2 restore_parameters
Provided with an hash reference, typically that created by L</backup_parameters> and this will restore this formatter's L</parameters>
It returns our object
=head2 rule_as_string
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
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
^CSS-Tidy-[0-9\.]+/$
# Exclude tarred distribution files
^CSS-Tidy-[0-9\.]+\.tar\.gz$
view release on metacpan or search on metacpan
lib/CTK/Log.pm view on Meta::CPAN
$logger->log_except( "..." ); # 9 exception, aborts program!
$logger->log_fatal( "..." ); # 8 system unusable, aborts program!
$logger->log_emerg( "..." ); # 7 system is unusable
$logger->log_alert( "..." ); # 6 failure in primary system
$logger->log_crit( "..." ); # 5 failure in backup system
$logger->log_error( "..." ); # 4 non-urgent program errors, a bug
$logger->log_warning( "..." ); # 3 possible problem, not necessarily error
$logger->log_notice( "..." ); # 2 unusual conditions
$logger->log_info( "..." ); # 1 normal messages, no action required
$logger->log_debug( "..." ); # 0 debugging messages (default)
lib/CTK/Log.pm view on Meta::CPAN
0 7 debug debugging messages, copious tracing output
1 6 info normal messages, no action required
2 5 notice note unusual conditions
3 4 warning warn possible problem, not necessarily error
4 3 error err non-urgent program errors, a bug
5 2 critical crit failure in backup system
6 1 alert failure in primary system
7 0 emergency emerg system unusable
8 0 fatal system unusable, aborts program!
9 0 exception except exception, aborts program!
view release on metacpan or search on metacpan
lib/CWB/CEQL/Parser.pm view on Meta::CPAN
arbitrary data structure such as a parse tree for I<$input>) just as B<Call>
would. If parsing fails, B<Try> does not abort but simply returns B<undef>,
ignoring any error messages generated during the attempt. In addition, the
call stack is restored and all parameters are reset to their previous values,
so that parsing can continue as if nothing had happened (note, however, that
this is based on flat backup copies, so complex data structures may have been
altered destructively).
=cut
sub Try {
lib/CWB/CEQL/Parser.pm view on Meta::CPAN
unless @_ == 3;
my ($self, $rule, $input) = @_;
confess "Sorry, we're not parsing yet"
unless defined $self->{INPUT};
## make flat backup copies of important data structures and ensure they are restored upon return
## (this is not completely safe, but should undo most changes that a failed parse may have made)
my $back_param = [ @{$self->{PARAM}} ];
my $back_callstack = [ @{$self->{CALLSTACK}} ];
my ($back_groups, $back_current_group, $back_groupstack) = (undef, undef, undef);
if (defined $self->{GROUPS}) {
lib/CWB/CEQL/Parser.pm view on Meta::CPAN
$back_groupstack = [ @{$self->{GROUPSTACK}} ];
}
my $result = eval { $self->Call($rule, $input) };
## if parsing failed, restore internal data structures from backup copies
if (not defined $result) {
$self->{PARAM} = $back_param;
$self->{CALLSTACK} = $back_callstack;
$self->{GROUPS} = $back_groups;
if (defined $back_groups and defined $back_current_group) {
view release on metacpan or search on metacpan
gen/Makefile.unix view on Meta::CPAN
all: cperl
install: cperl
@if [ -f "$(CACHEDIR)/bin/cache.old" ] ; then \
echo "sorry, there is already a backup copy of your cache binary" ; \
echo "Aborting - nothing done" ; \
exit 1 ; \
fi
mv "$(CACHEDIR)/bin/cache" "$(CACHEDIR)/bin/cache.old"
cp ./cperl "$(CACHEDIR)/bin/cperl"
view release on metacpan or search on metacpan
lib/Cache/CacheFactory.pm view on Meta::CPAN
Pruning and validity policies are set on a per-cache basis rather than
on a per-storage-policy basis, this makes multiple storage policies
largely pointless for most purposes where you'd find it useful.
If you wanted the cache to transparently use a small fast memory cache
first and fall back to a larger slower file cache as backup: you can't
do it, because the size pruning policy would be the same for both storage
policies.
About the only current use of multiple storage policies is to have a
memory cache and a file cache so that processes that haven't pulled
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\.#
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
lib/CallBackery/Config.pm view on Meta::CPAN
die mkerror(3844,trm("Wrong password!"));
}
return substr($string,16,hex($len));
}
# PBKDF2-HMAC-SHA256 rounds for the backup key; part of the CBK2 format
my $BLOB_KDF_ROUNDS = 100_000;
sub _randomBytes ($self,$n) {
open my $fh, '<:raw', '/dev/urandom';
read($fh, my $bytes, $n) == $n or croak "short read from /dev/urandom";
lib/CallBackery/Config.pm view on Meta::CPAN
# how long to keep trying when someone else holds a lock on the config
# database; package scoped so that tests can shorten it
our $RESTORE_BUSY_TIMEOUT_MS = 30_000;
# Build a replacement config database with $builder and then copy it over the
# live one with SQLite's online backup API, so that the database keeps its
# inode.
#
# Replacing the file instead (the way this used to work) leaves every long
# lived handle in the system attached to the old, now unlinked inode: the
# config daemon and its workers, the application server, and any helper that
lib/CallBackery/Config.pm view on Meta::CPAN
my $dbh = DBI->connect("dbi:SQLite:dbname=$cfgDb",'','',{
RaiseError => 1,
PrintError => 0,
AutoCommit => 1,
});
# the backup runs the destination's busy handler while it waits for
# the write lock; on top of that we retry, because a backup that
# starts while another connection sits in a read transaction gives up
# rather than waiting
$dbh->sqlite_busy_timeout($RESTORE_BUSY_TIMEOUT_MS);
my $deadline = Time::HiRes::time() + $RESTORE_BUSY_TIMEOUT_MS / 1000;
my ($busy,$tries) = (undef,0);
while (1) {
$busy = undef;
last if eval { $dbh->sqlite_backup_from_file($staging) };
$busy = $@ || $dbh->errstr || 'unknown error';
last if Time::HiRes::time() >= $deadline;
# first attempt and then roughly every five seconds, so that a
# long wait is visible without a log line per retry
$self->log->warn("Config database busy, retrying restore: $busy")
lib/CallBackery/Config.pm view on Meta::CPAN
# DBD::SQLite registers an FTS3/FTS4 tokenizer called "perl" on every
# connection; a table using it calls the Perl sub named in its definition
# whenever the table is used. A restored schema must not name it.
sub _refusePerlTokenizer ($self,$dbh) {
my $schema = $dbh->selectcol_arrayref(q{SELECT sql FROM sqlite_master WHERE sql IS NOT NULL});
die mkerror(3846,trm("The backup contains a table with a Perl tokenizer"))
if grep { /tokeni[sz]e\W*perl/i } @$schema;
return;
}
=head2 $cfg->restoreConfigBlob(configBlob)
retore the confguration state
A blob in the format used before CBK2 has no authentication; it is still
restored, with a warning, and should be replaced by a new backup.
=cut
sub restoreConfigBlob {
my $self = shift;
lib/CallBackery/Config.pm view on Meta::CPAN
my $crypt = Crypt::Rijndael->new($encKey,Crypt::Rijndael::MODE_CBC());
$crypt->set_iv($iv);
$config = $self->unpack16($crypt->decrypt(substr($config,36)));
}
else {
$self->log->warn("Restoring a backup in the old, unauthenticated format; take a new backup to replace it");
my $crypt = $self->getCrypt($password);
$config = $self->unpack16($crypt->decrypt($config));
}
my $user = $self->app->userObject->new(app=>$self->app,userId=>'__CONFIG', log=>$self->log);
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
^Makefile$
^andy/
^blib/
^pm_to_blib$
# Temp, old and emacs backup files.
~$
^\.DS_Store
\.(old|tmp|bak)$
^#.*#$
^\.#