view release on metacpan or search on metacpan
lib/C/Utility.pm view on Meta::CPAN
package C::Utility;
use warnings;
use strict;
use File::Spec;
use Carp;
use File::Versions 'make_backup';
use File::Slurper qw/read_text write_text/;
use C::Tokenize qw/$comment_re $include $reserved_re/;
use Text::LineNumber;
require Exporter;
lib/C/Utility.pm view on Meta::CPAN
die "$c_file_name is not a C file name";
}
my $h_file_name = $c_file_name;
$h_file_name =~ s/\.c$/\.h/;
if (-f $c_file_name) {
make_backup ($c_file_name);
}
if (-f $h_file_name) {
make_backup ($h_file_name);
}
return $h_file_name;
}
sub convert_to_c_string_pc
view release on metacpan or search on metacpan
src/sparse-0.4.4/perl/t/include/block/block_int.h view on Meta::CPAN
BlockdevOnError on_target_error,
BlockDriverCompletionFunc *cb,
void *opaque, Error **errp);
/*
* backup_start:
* @bs: Block device to operate on.
* @target: Block device to write to.
* @speed: The maximum speed, in bytes per second, or 0 for unlimited.
* @sync_mode: What parts of the disk image should be copied to the destination.
* @on_source_error: The action to take upon error reading from the source.
* @on_target_error: The action to take upon error writing to the target.
* @cb: Completion function for the job.
* @opaque: Opaque pointer value passed to @cb.
*
* Start a backup operation on @bs. Clusters in @bs are written to @target
* until the job is cancelled or manually completed.
*/
void backup_start(BlockDriverState *bs, BlockDriverState *target,
int64_t speed, MirrorSyncMode sync_mode,
BlockdevOnError on_source_error,
BlockdevOnError on_target_error,
BlockDriverCompletionFunc *cb, void *opaque,
Error **errp);
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
# 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
bin/fm_check_struct view on Meta::CPAN
}
# move config.pro to create a new adapted one
if(!move(getInstallationConfigPro($path), $oldCfg)){
testFailed($test);
if($verbose > 0){
print "Could not backup ". $envCfg ."\n";
}
exit 1;
}
# adapt config
if(!open($fhOld, "<", $oldCfg)){
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
lib/CAPE/Utils.pm view on Meta::CPAN
if ( !-f $opts{file} ) {
die( '"' . $opts{file} . '" is not a file' );
}
# create a backup copy prior to munging
# also only create it if it does not exist
my $pre_munge_file = $opts{file} . '.pre-cape_utils_munge';
if ( !-f $pre_munge_file ) {
copy( $opts{file}, $pre_munge_file )
|| die( 'Creating pre-munge file for "' . $opts{file} . '" failed... ' . $! );
view release on metacpan or search on metacpan
easyxs/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 release on metacpan or search on metacpan
lib/CCCP/SQLiteWrap.pm view on Meta::CPAN
unless ($obj->db->ping()) {
return "Can't ping SQLite base from ".$obj->path."\n";
};
# check database structure
my $need_rebackup = 0;
my @table = $obj->show_tables;
foreach my $table (@table) {
next unless $table;
eval{$obj->db->selectall_arrayref("SELECT * FROM $table LIMIT 1")};
if ($DBI::errstr) {
$need_rebackup++;
last;
};
};
if ($need_rebackup) {
return "SQLite base from ".$obj->path." return error like 'database disk image is malformed' and goto re-dump";
return "Bug in re-dump SQLite" unless $obj->redump();
};
return;
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 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.
~$
\.gz$
\.old$
\.bak$
\.swp$
view release on metacpan or search on metacpan
use 5.008006;
use strict;
use warnings;
use CDP::backupTask qw /:ALL/;
use CDP::diskSafe qw /:ALL/;
use CDP::mySQL qw /:ALL/;
use CDP::taskRun qw /:ALL/;
use CDP::volume qw /:ALL/;
use CDP::Connect qw /:ALL/;
You may import all methods:
use CDP qw/:ALL/;
Or You may impliment each module independently.
use CDP::backupTask qw /:ALL/;
use CDP::diskSafe qw /:ALL/;
use CDP::mySQL qw /:ALL/;
use CDP::taskRun qw /:ALL/;
use CDP::volume qw /:ALL/;
use CDP::Connect qw /:ALL/;
view release on metacpan or search on metacpan
$node008->addArrow($node008, 1, 0, 'ACTOR', \&collectActor1);
$node008->addArrow($node013, 1, 0, 'ACTOR', \&collectActor1);
$node011->addArrow($node012, 1, 0, 'on');
$node012->addArrow($node014, 1, 0, 'STORE', \&collectStore);
$node013->addArrow($node015, 1, 0, 'active', \&collectActive);
$node013->addArrow($node015, 1, 0, 'backup', \&collectBackup);
$node013->addArrow($node015, 1, 0, 'idle', \&collectIdle);
$node013->addArrow($node015, 1, 0, 'revoked', \&collectRevoked);
$node014->addArrow($node016, 1, 0, 'and');
$node016->addDefault($node005);
}
sub collectBackup {
my $o = shift;
my $label = shift;
my $value = shift;
$o->{status} = 'backup';
}
sub collectIdle {
my $o = shift;
my $label = shift;
$ui->command('cds join ACCOUNT*');
$ui->command('cds join ACTOR on STORE');
$ui->p('Adds a member to our actor group. To complete the association, the new member must join us, too.');
$ui->space;
$ui->command('cds set member ACTOR* active');
$ui->command('cds set member ACTOR* backup');
$ui->command('cds set member ACTOR* idle');
$ui->command('cds set member ACTOR* revoked');
$ui->p('Changes the status of a member to one of the following:');
$ui->p($ui->bold('Active members'), ' share the group data among themselves, and are advertised to receive messages.');
$ui->p($ui->bold('Backup members'), ' share the group data (like active members), but are publicly advertised as not processing messages (like idle members). This is suitable for backup actors.');
$ui->p($ui->bold('Idle members'), ' are part of the group, but advertised as not processing messages. They generally do not have the latest group data, and may have no group data at all. Idle members may reactivate themselves, or get reactivated by ...
$ui->p($ui->bold('Revoked members'), ' have explicitly been removed from the group, e.g. because their private key (or device) got lost. Revoked members can be reactivated by any active member of the group.');
$ui->p('Note that changing the status does not start or stop the corresponding actor, but just change how it is regarded by others. The status of each member should reflect its actual behavior.');
$ui->space;
$ui->p('After modifying the actor group members, you should "cds announce" yourself to publish the changes.');
my $active = $actorSelector->child('active')->isSet;
my $revoked = $actorSelector->child('revoked')->isSet;
return
$revoked ? 'revoked' :
$active && $groupData ? 'active' :
$groupData ? 'backup' :
$active ? 'weird' :
'idle';
}
sub coloredType7 {
my $active = $actorSelector->child('active')->isSet;
my $revoked = $actorSelector->child('revoked')->isSet;
return
$revoked ? $o->{ui}->red('revoked') :
$active && $groupData ? $o->{ui}->green('active ') :
$groupData ? $o->{ui}->blue('backup ') :
$active ? $o->{ui}->orange('weird ') :
$o->{ui}->gray('idle ');
}
sub joinMember {
if (! $hash) {
$o->{ui}->pRed($actorHash->hex, ' is not a member of our actor group.');
next;
}
$o->setFlag($actorSelector, 'group data', $o->{status} eq 'active' || $o->{status} eq 'backup');
$o->setFlag($actorSelector, 'active', $o->{status} eq 'active');
$o->setFlag($actorSelector, 'revoked', $o->{status} eq 'revoked');
$o->{ui}->pGreen($actorHash->hex, ' is now ', $o->type($actorSelector), '.');
}
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
MapDisp2.pm view on Meta::CPAN
require Exporter;
our @ISA = qw(Exporter CGI::AppBuilder);
our @EXPORT = qw();
our @EXPORT_OK = qw(upload_sas_script
get_scrnames
backup_file mk_dir
);
our %EXPORT_TAGS = (
sas_scr => [qw(upload_sas_script)],
all => [@EXPORT_OK]
);
MapDisp2.pm view on Meta::CPAN
system("chmod -R ugo+w $dir");
}
}
}
sub backup_file {
my ($s, $ffn, $ar) = @_;
# $ffn - file name
# $ar - parameter array
# $bdr - backup dir
my @c0 = caller(0); my @c1 = caller(1);
my $cls = (exists $c1[3]) ? $c1[3] : '';
my $prg = "$cls [$c0[2]] -> $c0[3]";
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
\bBuild.bat$
# Avoid Devel::Cover generated files
\bcover_db
# Avoid temp and backup files.
~$
\#$
\.#
\.bak$
\.old$
view release on metacpan or search on metacpan
t/lib/CGI/Application/NetNewsIface/Test/Data1.pm view on Meta::CPAN
"Received: (qmail 31157 invoked by alias); 18 Apr 2006 01:24:45 -0000\n",
"X-Spam-Status: No, hits=-2.5 required=8.0\n",
"\ttests=BAYES_00,FORGED_RCVD_HELO,SPF_PASS\n",
"X-Spam-Check-By: la.mx.develooper.com\n",
"Received-SPF: pass (x1.develooper.com: domain of chromatic\@wgz.org designates 129.95.36.109 as permitted sender)\n",
"Received: from snafu-backup.csee.ogi.edu (HELO snafu.wgz.com) (129.95.36.109)\n",
" by la.mx.develooper.com (qpsmtpd/0.28) with ESMTP; Mon, 17 Apr 2006 18:24:14 -0700\n",
"Received: from localhost (snafu [127.0.0.1])\n",
"\tby snafu.wgz.com (Postfix) with ESMTP\n",
"\tid 1C4622331C; Mon, 17 Apr 2006 18:24:09 -0700 (PDT)\n",
"Received: from snafu.wgz.com ([127.0.0.1])\n",
t/lib/CGI/Application/NetNewsIface/Test/Data1.pm view on Meta::CPAN
"Received: (qmail 2428 invoked by alias); 17 Apr 2006 05:54:56 -0000\n",
"X-Spam-Status: No, hits=-2.5 required=8.0\n",
"\ttests=BAYES_00,FORGED_RCVD_HELO,SPF_PASS\n",
"X-Spam-Check-By: la.mx.develooper.com\n",
"Received-SPF: pass (x1.develooper.com: domain of chromatic\@wgz.org designates 129.95.36.109 as permitted sender)\n",
"Received: from snafu-backup.csee.ogi.edu (HELO snafu.wgz.com) (129.95.36.109)\n",
" by la.mx.develooper.com (qpsmtpd/0.28) with ESMTP; Sun, 16 Apr 2006 22:54:22 -0700\n",
"Received: from localhost (snafu [127.0.0.1])\n",
"\tby snafu.wgz.com (Postfix) with ESMTP\n",
"\tid 978C02330E; Sun, 16 Apr 2006 22:54:14 -0700 (PDT)\n",
"Received: from snafu.wgz.com ([127.0.0.1])\n",
t/lib/CGI/Application/NetNewsIface/Test/Data1.pm view on Meta::CPAN
"Received: (qmail 29752 invoked by alias); 18 Apr 2006 07:30:19 -0000\n",
"X-Spam-Status: No, hits=-2.5 required=8.0\n",
"\ttests=BAYES_00,FORGED_RCVD_HELO,SPF_PASS\n",
"X-Spam-Check-By: la.mx.develooper.com\n",
"Received-SPF: pass (x1.develooper.com: domain of chromatic\@wgz.org designates 129.95.36.109 as permitted sender)\n",
"Received: from snafu-backup.csee.ogi.edu (HELO snafu.wgz.com) (129.95.36.109)\n",
" by la.mx.develooper.com (qpsmtpd/0.28) with ESMTP; Tue, 18 Apr 2006 00:29:27 -0700\n",
"Received: from localhost (snafu [127.0.0.1])\n",
"\tby snafu.wgz.com (Postfix) with ESMTP\n",
"\tid 23FE823323; Tue, 18 Apr 2006 00:29:21 -0700 (PDT)\n",
"Received: from snafu.wgz.com ([127.0.0.1])\n",
t/lib/CGI/Application/NetNewsIface/Test/Data1.pm view on Meta::CPAN
"Received: (qmail 16459 invoked by alias); 18 Apr 2006 02:13:54 -0000\n",
"X-Spam-Status: No, hits=-2.5 required=8.0\n",
"\ttests=BAYES_00,FORGED_RCVD_HELO,SPF_PASS\n",
"X-Spam-Check-By: la.mx.develooper.com\n",
"Received-SPF: pass (x1.develooper.com: domain of chromatic\@wgz.org designates 129.95.36.109 as permitted sender)\n",
"Received: from snafu-backup.csee.ogi.edu (HELO snafu.wgz.com) (129.95.36.109)\n",
" by la.mx.develooper.com (qpsmtpd/0.28) with ESMTP; Mon, 17 Apr 2006 19:13:09 -0700\n",
"Received: from localhost (snafu [127.0.0.1])\n",
"\tby snafu.wgz.com (Postfix) with ESMTP\n",
"\tid CDC892331C; Mon, 17 Apr 2006 19:13:03 -0700 (PDT)\n",
"Received: from snafu.wgz.com ([127.0.0.1])\n",
view release on metacpan or search on metacpan
t/style-no-trailing-whitespace.t view on Meta::CPAN
my $file = $File::Find::name;
# We don't care about directories
return if ( !-f $file );
# Nor about backup files.
return if ( $file =~ /~$/ );
# or Makefiles
return if ( $file =~ /Makefile/ );
view release on metacpan or search on metacpan
t/style-no-trailing-whitespace.t view on Meta::CPAN
my $file = $File::Find::name;
# We don't care about directories
return if ( !-f $file );
# Nor about backup files.
return if ( $file =~ /~$/ );
# or Makefiles
return if ( $file =~ /Makefile/ );
view release on metacpan or search on metacpan
0.04 12 July 2007
Changed the check for a 302 response in the tests
0.03 04 June 2007
Added CGI::Application prerequisite
0.02 01 June 2007
Removed backup test file
0.01 31 May 2007
First version, released on an unsuspecting world.
view release on metacpan or search on metacpan
xt/style-no-trailing-whitespace.t view on Meta::CPAN
my $file = $File::Find::name;
# We don't care about directories
return if ( !-f $file );
# Nor about backup files.
return if ( $file =~ /~$/ );
# or Makefiles
return if ( $file =~ /Makefile/ );
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/CGI/Bus/tmsql.pm view on Meta::CPAN
: $pxpv;
my $pxcv =shift; # current value param prefix
$pxcv =!defined($pxcv) ? ''
: substr($pxcv,0,1) eq '-' ? ($s->{$pxcv} ||$pxpv)
: $pxcv;
my $b =1; # backup
if ($c =~/[ud]/) {
$s->die("Editing of version of record prohibited\n") if $v->{-npf} && $s->qparam($pxpv .$v->{-npf});
$b =$v->{-cvd} ? !&{$v->{-cvd}}($s)
:$v->{-svd} ? !($v->{-svd} eq $s->qparam($pxpv .$v->{-sf}))
:1;
lib/CGI/Bus/tmsql.pm view on Meta::CPAN
|| !$f->{-fld} || !($f->{-cdbi} || $f->{-cdbia});
$save{$f->{-fld}} =$s->qparam($pxpv .$f->{-fld});
}
$s->cmdsql('-ins',undef,undef,'-pxpv');
if ($s->{-fsd} # backup files
&& $c eq 'u'
&& (!$v->{-svd} || ($v->{-svd} eq $s->qparam($pxcv .$v->{-sf})))
&& -d $s->fspath) {
$s->fspathcp(undef, [1, $s->keyval($pxpv)]);
$s->fsacl('r', '-pxpv', [1, $s->keyval($pxpv)]);
view release on metacpan or search on metacpan
# Cache-Dependency-File updaten
$self->set_dependency ($CIPP->Get_Used_Macros);
# Perl-Syntax-Check
my %env_backup = %main::ENV; # SuSE 6.0 Workaround
%main::ENV = ();
my $error = `$Config{perlpath} -c -Mstrict $sub_filename 2>&1`;
%main::ENV = %env_backup;
if ( $error !~ m/syntax OK/) {
$error = "perl-syntax\t$error" if $error;
$self->{error} = $error;
return;
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/CGI/Kwiki.pm view on Meta::CPAN
driver
cgi
cookie
database
metadata
backup
display
edit
formatter
template
plugin
lib/CGI/Kwiki.pm view on Meta::CPAN
attribute 'plugin';
attribute 'template';
attribute 'formatter';
attribute 'database';
attribute 'metadata';
attribute 'backup';
attribute 'prefs';
attribute 'i18n';
# Constructor inherited by most classes
sub new {
lib/CGI/Kwiki.pm view on Meta::CPAN
$self->plugin($driver->plugin);
$self->template($driver->template);
$self->formatter($driver->formatter);
$self->database($driver->database);
$self->metadata($driver->metadata);
$self->backup($driver->backup);
$self->prefs($driver->prefs);
return $self;
}
sub load_driver {
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
* Added "Method Relationship Overview" section to the POD of Data::MVH.
* Changed the ignores_case() method so that you can now change that property.
When changing this property from false to true, any existing keys are
lowercased, which can not be reversed (except from a backup).
* Added method fetch_hash() to Data::MVH which returns a hash containing
all of the keys and one for each; values are all taken from the array
index specified with an argument. fetch_first() and fetch_last() have
been changed to use this to implement themselves, since they are the same
view release on metacpan or search on metacpan
lib/DemoUsage.pm view on Meta::CPAN
=head1 NAME
DemoUsage - Demo of CGI::Portable that tracks web site usage details,
as well as e-mail backups of usage counts to the site owner.
=cut
######################################################################