view release on metacpan or search on metacpan
corpus/PL-ConfigRequires/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
lib/CPAN/Site/Index.pm view on Meta::CPAN
if $fallback;
create_details $details, $newlist, $mypkgs, $lazy, $undefs;
if(-f $details)
{ trace "backup old details file to $details.bak";
safe_copy $details, "$details.bak";
}
if(-f $newlist)
{ trace "promoting $newlist to current";
view release on metacpan or search on metacpan
bin/addresses.pl view on Meta::CPAN
[--verbose|v] --config|c=<file> \
( [--help|h] \
| [--update=<file>] \
| [--reindex] [--lastid=<num>] \
| [--clean] \
| [--backup] \
| [--mailrc|m=<file>] [--month=<string>] [--match] ) \
[--logfile=<file>] [--logclean=(0|1)]
=head1 DESCRIPTION
Using the cpanstats database, this program can be used to update, reindex,
backup and search the tester address tables.
When searching, the program tries to match unmatched tester addresses to either
a cpan author or an already known tester. For the remaining addresses, an
attempt at pattern matching is made to try and identify similar addresses in
the hope they can be manually identified.
view release on metacpan or search on metacpan
lib/CPAN/Testers/Data/Release.pm view on Meta::CPAN
__PACKAGE__->mk_accessors(qw( idfile logfile logclean ));
sub process {
my $self = shift;
if($self->{clean}) { $self->clean() }
elsif($self->{RELEASE}{exists}) { $self->backup_from_last() }
else { $self->backup_from_start() }
}
sub backup_from_last {
my $self = shift;
$self->_log("Find new start");
my $lastid = 0;
lib/CPAN/Testers/Data/Release.pm view on Meta::CPAN
}
$self->_log("Backup completed");
}
sub backup_from_start {
my $self = shift;
my $lastid = 0;
$self->_log("Create backup database");
# start with a clean slate
$self->{RELEASE}{dbh}->do_query($phrasebook{'DeleteTable'});
$self->{RELEASE}{dbh}->do_query($phrasebook{'CreateTable'});
$self->{RELEASE}{dbh}->do_query($phrasebook{'CreateDistIndex'});
$self->{RELEASE}{dbh}->do_query($phrasebook{'CreateVersIndex'});
$self->_log("Generate backup data");
# store data from master database
my %data;
my $dist = '';
my $rows = $self->{CPANSTATS}{dbh}->iterator('hash',$phrasebook{'SelectAll'});
lib/CPAN/Testers/Data/Release.pm view on Meta::CPAN
=item * process
Shorthand function to run methods based on command line options.
=item * backup_from_last
Run backup processes from the last known update.
=item * backup_from_start
Run backup processes recreating the complete backup database from scratch.
=item * clean
Run database table clean processes.
view release on metacpan or search on metacpan
examples/uploads.pl view on Meta::CPAN
uploads.pl - creates, updates and/or backs up the uploads database.
=head1 SYNOPSIS
perl uploads.pl --config=<file> (-generate | -update | -backup | -h | -v)
=head1 DESCRIPTION
This program allows the user to create, update and backup the uploads database,
either as separate commands, or a combination of all three. The process order
will always be CREATE->UPDATE->BACKUP, regardless of the order the options
appear on the command line.
The Uploads database contains basic information about the history of CPAN. It
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
vhost/dumper.sh view on Meta::CPAN
mysqldump -u barbie --skip-add-locks --add-drop-table --skip-disable-keys --skip-extended-insert cpanadmin >cgi-bin/db/cpanadmin-backup.sql
#mysqldump -u barbie --skip-add-locks --add-drop-table --skip-disable-keys --skip-extended-insert cpanstats ixaddress tester_address tester_profile >cgi-bin/db/tester-backup.sql
#mysqldump -u barbie --skip-add-locks --add-drop-table --skip-disable-keys --skip-extended-insert testers >cgi-bin/db/testers-backup.sql
mysqldump -u barbie --skip-add-locks --add-drop-table --skip-disable-keys --skip-extended-insert --no-data cpanadmin >cgi-bin/db/cpanadmin-schema.sql
mysqldump -u barbie --skip-add-locks --add-drop-table --skip-disable-keys --skip-extended-insert --no-data testers >cgi-bin/db/testers-schema.sql
#mysqldump -u barbie --skip-add-locks --add-drop-table --skip-disable-keys --skip-extended-insert testers profile address >cgi-bin/db/testers-profile.sql
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 cpanblog >cgi-bin/db/cpanblog-backup.sql
mysqldump -u secret -p --create-options --add-drop-table --no-data cpanblog >cgi-bin/db/cpanblog-schema.sql
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 cpanprefs >cgi-bin/db/cpanprefs-backup.sql
mysqldump -u barbie --skip-add-locks --add-drop-table --skip-disable-keys --skip-extended-insert --no-data cpanprefs >cgi-bin/db/cpanprefs-schema.sql
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/briandfoy/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$