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
######################################################################
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
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
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
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
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
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
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
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
- added test to verify thumbnail size
- refactored resize code into gen_thumb(). This will make it easier
to support other resize modules besides Image::Magick.
- Added Image::Size as a dependency. It's a fast tool for size checking
which does not depend on a graphics module being installed.
- Initial support for resizing with GD as a backup. It needs tested.
0.62_01
- Added File::Temp to Makefile.PL.
- Refactored to remove store_thumb(). This should help eventually support other
graphics modules besides Image::Magick
view release on metacpan or search on metacpan
bin/simple-user-setup.pl view on Meta::CPAN
=item clear
Wipes out all preexisting data within your wiki. This is great
while you are testing and playing around, and fatal unless you
have good backups.
=item force
Overwrites already existing nodes with the content from this
file. This is still great while you are playing around and not
totally fatal, but good backups are still advisable.
=back
=head1 AUTHOR