view release on metacpan or search on metacpan
[Improvements]
- Major refactoring
0.009
- fix minor documentation bugs
- tuple signature check
- remove tidy backup and cache
0.008
- private methods, correct package name
0.007
- remove required test dependencies
0.006
view release on metacpan or search on metacpan
src/boost/utility/value_init.hpp
src/boost/variant/apply_visitor.hpp
src/boost/variant/detail/apply_visitor_binary.hpp
src/boost/variant/detail/apply_visitor_delayed.hpp
src/boost/variant/detail/apply_visitor_unary.hpp
src/boost/variant/detail/backup_holder.hpp
src/boost/variant/detail/bool_trait_def.hpp
src/boost/variant/detail/bool_trait_undef.hpp
src/boost/variant/detail/cast_storage.hpp
src/boost/variant/detail/config.hpp
src/boost/variant/detail/enable_recursive_fwd.hpp
view release on metacpan or search on metacpan
include/boost/variant/apply_visitor.hpp
include/boost/variant/bad_visit.hpp
include/boost/variant/detail/apply_visitor_binary.hpp
include/boost/variant/detail/apply_visitor_delayed.hpp
include/boost/variant/detail/apply_visitor_unary.hpp
include/boost/variant/detail/backup_holder.hpp
include/boost/variant/detail/bool_trait_def.hpp
include/boost/variant/detail/bool_trait_undef.hpp
include/boost/variant/detail/cast_storage.hpp
include/boost/variant/detail/config.hpp
include/boost/variant/detail/enable_recursive.hpp
view release on metacpan or search on metacpan
lib/Bot/BasicBot/Pluggable/Module/Excuse.pm view on Meta::CPAN
SIMM crosstalk.
IRQ dropout
Collapsed Backbone
Power company testing new voltage spike (creation) equipment
operators on strike due to broken coffee machine
backup tape overwritten with copy of system manager's favourite CD
UPS interrupted the server's power
The electrician didn't know what the yellow cable was so he yanked the ethernet out.
The keyboard isn't plugged in
The air conditioning water supply pipe ruptured over the machine room
The electricity substation in the car park blew up.
lib/Bot/BasicBot/Pluggable/Module/Excuse.pm view on Meta::CPAN
Change your language to Finnish.
Fluorescent lights are generating negative ions. If turning them off doesn't work, take them out and put tin foil on the ends.
High nuclear activity in your area.
What office are you in? Oh, that one. Did you know that your building was built over the universities first nuclear research site? And wow, aren't you the lucky one, your office is right over where the core is buried!
The MGs ran out of gas.
The UPS doesn't have a battery backup.
Recursivity. Call back if it happens again.
Someone thought The Big Red Button was a light switch.
The mainframe needs to rest. It's getting old, you know.
I'm not sure. Try calling the Internet's head office -- it's in the book.
The lines are all busy (busied out, that is -- why let them in to begin with?).
lib/Bot/BasicBot/Pluggable/Module/Excuse.pm view on Meta::CPAN
Root name servers corrupted.
Budget cuts forced us to sell all the power cords for the servers.
Someone hooked the twisted pair wires into the answering machine.
Operators killed by year 2000 bug bite.
We've picked COBOL as the language of choice.
Operators killed when huge stack of backup tapes fell over.
Robotic tape changer mistook operator's tie for a backup tape.
Someone was smoking in the computer room and set off the halon systems.
Your processor has taken a ride to Heaven's Gate on the UFO behind Hale-Bopp's comet.
it's an ID-10-T error
Dyslexics retyping hosts file on servers
The Internet is being scanned for viruses.
view release on metacpan or search on metacpan
lib/Bot/BasicBot/Pluggable/Module/Notify.pm view on Meta::CPAN
Each line in the file should consist of 3 fields. The first being the 'nick',
the second being the ident of the account connection, and the third being the
email address to send mail to.
The connection ident is optional, and only used as a backup check in the event
that the user may be roaming and their nick may be automatically switched to
something like '_barbie' instead of 'barbie'. An connection ident is used
within a regex pattern, but should not be a regex itself. Any regex characters
will be treated as literal string characters.
view release on metacpan or search on metacpan
bin/bot-basicbot-pluggable-infobot-upgrade view on Meta::CPAN
unless (-e "Infobot.storable") {
die "I can't see Infobot.storable in ./\n";
}
if (-e "Infobot.storable.backup") {
die "There's already a backup of Infobot.storable in ./\n";
}
cp("Infobot.storable", "Infobot.storable.backup")
or die "Can't back up Infobot.storable: $!\n";
unless (-s "Infobot.storable" == -s "Infobot.storable.backup") {
die "Infobot.storable backup isn't the same size!\n"
}
my $data = retrieve("Infobot.storable")
or die "Can't load Infobot.storable for some reason\n";
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
examples/classes/Admin/apt/init.yml
examples/classes/Admin/apt/popcon.yml
examples/classes/Admin/apt/tools/changes.yml
examples/classes/Admin/apt/tools/init.yml
examples/classes/Admin/auto.yml
examples/classes/Admin/backup/init.yml
examples/classes/Admin/backup/remote.yml
examples/classes/Admin/base.yml
examples/classes/Admin/disk/lvm.yml
examples/classes/Admin/etc/functions.yml
examples/classes/Admin/etc/track.yml
examples/classes/Admin/harden/account/init.yml
view release on metacpan or search on metacpan
lib/Brackup/Target/Gmail.pm view on Meta::CPAN
# returns bool
sub has_chunk {
my ($self, $chunk) = @_;
my $dig = $chunk->backup_digest; # "sha1:sdfsdf" format scalar
if (my $dbh = $self->{dbh}) {
my $ans = $dbh->selectrow_array("SELECT COUNT(*) FROM ${CACHE_TABLE} WHERE key=?", undef, $dig);
warn "gmail database for $dig is = $ans\n";
return 1 if $ans;
lib/Brackup/Target/Gmail.pm view on Meta::CPAN
sub store_chunk {
my ($self, $chunk) = @_;
my ($fh, $filename) = tempfile( UNLINK => 1 );
print $fh ${ $chunk->chunkref };
close($fh);
$self->{_gmail}->store($filename, $chunk->backup_digest);
}
sub store_backup_meta {
my ($self, $name, $file) = @_;
my ($fh, $filename) = tempfile( UNLINK => 1 );
print $fh $file;
close($fh);
$self->{_gmail}->store($filename, $name);
view release on metacpan or search on metacpan
lib/Brackup.pm view on Meta::CPAN
__END__
=head1 NAME
Brackup - Flexible backup tool. Slices, dices, encrypts, and sprays across the net.
=head1 FURTHER READING
L<Brackup::Manual::Overview>
view release on metacpan or search on metacpan
the source repository: L<https://github.com/briandfoy/brick>
If you find a problem, file a ticket in the L<issue
tracker|https://github.com/briandfoy/brick/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/brick>
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
\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
lib/Bundler/MultiGem/Model/Gem.pm view on Meta::CPAN
}
=head2 process_single_file
Manipulates each file as follows:
* create a backup of the original file C<.bak>
* replace gem name reference with gem vname (C<foo> with C<v010-foo>)
* replace gem main_module reference with gem vmodule_name (C<Foo> with C<V010::Foo>)
* unlink the backup C<.bak>
=cut
sub process_single_file {
my ($self, $v, $f) = @_;
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
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.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
zlib/os400/make.sh view on Meta::CPAN
CMD="${CMD} TEXT('ZLIB ${VERSION} dynamic library')"
CMD="${CMD} TGTRLS(${TGTRLS})"
system "${CMD}"
LINK=YES
# Duplicate the service program for a versioned backup.
BACKUP=`echo "${SRVPGM}${VERSION}" |
sed -e 's/.*\(..........\)$/\1/' -e 's/\./_/g'`
BACKUP="`db2_name \"${BACKUP}\"`"
BKUPIFSNAME="${LIBIFSNAME}/${BACKUP}.SRVPGM"
view release on metacpan or search on metacpan
lib/Business/LiveDrive.pm view on Meta::CPAN
croak("Unable to connect to LiveDrive API");
}
return $result;
}
=head2 addbackup
$livedrive->addbackup('123456');
Upgrades a user account to include Backup. The account is specified by
passing the account user ID.
Returns details for the upgraded account.
=cut
sub addbackup {
my ($self, $id) = @_;
croak('You must pass the cutomer ID') unless $id;
my $res = $self->_call("AddBackup", $id);
if ( $res->{Header}->{Code} ne 'UserUpgraded' ) {
croak($res->{Header}->{Description});
}
delete $res->{Header};
return $res;
}
=head2 addbackupwithlimit
$livedrive->addbackupwithlimit( userID => '123456',
capacity => 'OneTeraByte');
Upgrades a user account to include Backup with a limit as specified
Parameters:
lib/Business/LiveDrive.pm view on Meta::CPAN
Returns a hashref with the new details for the account
=cut
sub addbackupwithlimit {
my ($self, %args) = @_;
my @params = ();
foreach (qw/userID capacity/) {
croak("You must pass the $_ parameter") unless $args{$_};
push @params, $_;
view release on metacpan or search on metacpan
0.03 Tue Aug 2 17:56:11 PDT 2005
- Fix inadvertant clobbering of zip code, patch from
<phil@perkpartners.com>, CPAN bug #13896
0.02 Thu Oct 7 15:58:44 PDT 2004
- sponsored by Pro Softnet Corp. / ibackup.com:
- cvv2 support
- authorization only, post authorization, void and credit support
- patch from Robert Graff <rgraff@workingdemo.com> for credits
0.01 Wed Jan 22 02:47:25 PST 2003
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
\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/BuzzSaw/UserClassifier.pm view on Meta::CPAN
if ( $username eq 'tmp' ) {
$username = 'temp';
}
my @startlike = ( 'account','admin','backup','cacti','cvs',
'ftp','gast','guest','mysql','nagios','oracle',
'postgres','shoutcast','smb','spam','support',
'sysadm',
'teamspeak','newsreaderg','data','usr','team',
'marketing','monitoring','svn','feedback',
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
lib/C/Blocks.xs view on Meta::CPAN
ensure_perlapi(aTHX_ pstate->data);
/* We just identified the character that is one past the end of our
* Perl variable name. Identify the type and construct the mangled
* name for the C-side variable. */
char backup = *pstate->data->end;
*pstate->data->end = '\0';
char * type;
char * long_name;
if (*pstate->sigil_start == '$') {
type = "SV";
lib/C/Blocks.xs view on Meta::CPAN
long_name = savepv(form("_PERL_HASH_%s",
pstate->sigil_start + 1));
}
else {
/* should never happen */
*pstate->data->end = backup;
croak("C::Blocks internal error: unknown sigil %c\n",
*pstate->sigil_start);
}
/* replace any double-colons */
lib/C/Blocks.xs view on Meta::CPAN
else {
int var_offset = (int)pad_findmy_pv(pstate->sigil_start, 0);
/* Ensure that the variable exists in the pad */
if (var_offset == NOT_IN_PAD) {
CopLINE(PL_curcop) += pstate->data->N_newlines;
*pstate->data->end = backup;
croak("Could not find lexically scoped \"%s\"",
pstate->sigil_start);
}
/* If the variable has an annotated type, use the type's
lib/C/Blocks.xs view on Meta::CPAN
}
}
}
/* Reset the character just following the var name */
*pstate->data->end = backup;
/* Add the long name to the main code block in place of the sigiled
* expression, and remove the sigiled varname from the buffer. */
sv_catpv_nomg(pstate->data->code_main, long_name);
lex_unstuff(pstate->data->end);
lib/C/Blocks.xs view on Meta::CPAN
}
void run_filters (pTHX_ c_blocks_data * data, int keyword_type) {
/* Get $_ and place the code in it */
SV * underbar = find_rundefsv();
SV * under_backup = newSVsv(underbar);
sv_setpvf(underbar, "%s%s%s", SvPVbyte_nolen(data->code_top),
SvPVbyte_nolen(data->code_main), SvPVbyte_nolen(data->code_bottom));
/* Apply the different filters */
SV * filters_SV = cophh_fetch_pvs(data->hints_hash, "C::Blocks/filters", 0);
if (filters_SV != &PL_sv_placeholder) {
dSP;
char * filters = SvPVbyte_nolen(filters_SV);
char * start = filters;
char backup;
while(1) {
if (*filters == '\0' && start == filters) break;
if (*filters == '|') {
backup = *filters;
*filters = '\0';
/* construct the function name to call */
char * full_method;
/* if it starts with an ampersand, it's a function name */
if (*start == '&') {
lib/C/Blocks.xs view on Meta::CPAN
full_method = form("%s::c_blocks_filter", start);
}
PUSHMARK(SP);
call_pv(full_method, G_DISCARD|G_NOARGS);
start = filters + 1;
*filters = backup;
}
filters++;
}
}
/* copy contents of underbar into main */
sv_setsv(data->code_main, underbar);
/* restore underbar when done */
sv_setsv(underbar, under_backup);
}
/*************************/
/**** Keyword plugin ****/
/************************/