Result:
found more than 862 distributions - search limited to the first 2001 files matching your query
( run in 1.714 )
Compress-LZO
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$
Compress-Raw-Bzip2
view release on metacpan or search on metacpan
private/MakeUtil.pm view on Meta::CPAN
use File::Copy ;
return if -d $file ;
my $backup = $file . ($^O eq 'VMS') ? "_bak" : ".bak";
copy($file, $backup)
or die "Cannot copy $file to $backup: $!";
my @keep = ();
{
open F, "<$file"
Compress-Raw-Lzma
view release on metacpan or search on metacpan
private/MakeUtil.pm view on Meta::CPAN
use File::Copy ;
return if -d $file ;
my $backup = $file . ($^O eq 'VMS') ? "_bak" : ".bak";
copy($file, $backup)
or die "Cannot copy $file to $backup: $!";
my @keep = ();
{
open F, "<$file"
Compress-Raw-Zlib
view release on metacpan or search on metacpan
private/MakeUtil.pm view on Meta::CPAN
use File::Copy ;
return if -d $file ;
my $backup = $file . ($^O eq 'VMS') ? "_bak" : ".bak";
copy($file, $backup)
or die "Cannot copy $file to $backup: $!";
my @keep = ();
{
open F, "<$file"
Compress-Stream-Zstd
view release on metacpan or search on metacpan
ext/zstd/lib/common/compiler.h view on Meta::CPAN
/* C11 support */
# include <stdalign.h>
# define ZSTD_ALIGNOF(T) alignof(T)
# else
/* No known support for alignof() - imperfect backup */
# define ZSTD_ALIGNOF(T) (sizeof(void*) < sizeof(T) ? sizeof(void*) : sizeof(T))
# endif
#endif /* ZSTD_ALIGNOF */
Compress-Zstd
view release on metacpan or search on metacpan
ext/zstd/contrib/adaptive-compression/README.md view on Meta::CPAN
`-l#` : set a lower bound on the compression level (default is 1)
`-u#` : set an upper bound on the compression level (default is 22)
### Benchmarking / Test results
#### Artificial Tests
These artificial tests were run by using the `pv` command line utility in order to limit pipe speeds (25 MB/s read and 5 MB/s write limits were chosen to mimic severe throughput constraints). A 40 GB backup file was sent through a pipeline, compresse...
<table>
<tr><th> 25 MB/s read limit </th></tr>
<tr><td>
ext/zstd/contrib/adaptive-compression/README.md view on Meta::CPAN
`cat FILE | pv -q | COMPRESSION | pv -L 5m -q > tmp.zst # impose 5 MB/s write limit`
#### SSH Tests
The following tests were performed by piping a relatively large backup file (approximately 80 GB) through compression and over SSH to be stored on a server. The test data includes statistics for time and compressed size on `zstd` at several compress...
pipe throughput.
| Compressor Name | Ratio | Compressed Size | Compression Time |
|:----------------|------:|----------------:|-----------------:|
| zstd -3 | 2.212 | 32.426 GB | 1h 17m 59.756s |
Comskil-JIRA
view release on metacpan or search on metacpan
bin/jmerge.pl view on Meta::CPAN
#!perl
# File: jmerge.pl
# Desc: A program that examines a local JIRA backup file and then interogates
# remote JIRA instances for data to be combined into a new backup file
# in preparation of a project restore in order to import and integrate
# the data from the remote system into a controlled instance.
#
# TODO Add in Perl documentations for the comman-line tool.
bin/jmerge.pl view on Meta::CPAN
## $dd = Data::Dumper->new([$wand]); print $dd->Dump();
__END__ ### End of Program Source
=head1 NAME
jira-remote-merge.pl - A tool to integrate a remote JIRA instance with a local XML backup file.
=head1 SYNOPSIS
jira-remote-merge.pl [<option> [...]] [<arg> [...]]
Concierge-Auth
view release on metacpan or search on metacpan
examples/05-api-keys.pl view on Meta::CPAN
my @key_specs = (
['alice', 'webapp', 'standard', ['read', 'write']],
['alice', 'mobile', 'readonly', ['read']],
['bob', 'dashboard', 'admin', ['read', 'write', 'delete', 'admin']],
['charlie', 'webhook', 'webhook', ['webhook']],
['alice', 'backup', 'readonly', ['read', 'export']]
);
my @generated_keys;
for my $spec (@key_specs) {
Concierge-Sessions
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
\.so$
# CPAN metadata (auto-generated; MYMETA only — META must ship in dist)
^MYMETA\.(json|yml)
# Temporary and backup files
~$
\.bak$
\.backup$
\.tmp$
\.swp$
\.swo$
^\#
Concierge-Users
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
\.so$
# CPAN metadata (auto-generated; MYMETA only — META must ship in dist)
^MYMETA\.(json|yml)
# Temporary and backup files
~$
\.bak$
\.backup$
\.tmp$
\.swp$
\.swo$
^\#
Concierge
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
\.so$
# CPAN metadata (auto-generated; MYMETA only — META must ship in dist)
^MYMETA\.(json|yml)
# Temporary and backup files
~$
\.bak$
\.backup$
\.tmp$
\.swp$
\.swo$
^\#
Cond-Expr
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|
Config-AST
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$
Config-Abstraction
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$
Config-Augeas
view release on metacpan or search on metacpan
lib/Config/Augeas.pm view on Meta::CPAN
Use C<root> as the filesystem root. If not specified, use the value of
the environment variable C<AUGEAS_ROOT>. If that doesn't exist either,
use "C</>".
=item save => backup | newfile | noop
Specify how to save the configuration file. Either create a newfile
(with extension C<.augnew>, and do not overwrite the original file) or
move the original file into a backup file (C<.augsave> extension).
C<noop> make saves a no-op process, just record what would have
changed
=item type_check => 1
lib/Config/Augeas.pm view on Meta::CPAN
my $flags = 0 ;
my $loadpath = delete $args{loadpath} || '';
my $root = delete $args{root} || '';
my $save = delete $args{save} || '';
if ($save eq 'backup') { $flags |= &AUG_SAVE_BACKUP }
elsif ($save eq 'newfile') { $flags |= &AUG_SAVE_NEWFILE }
elsif ($save =~ 'noop') { $flags |= &AUG_SAVE_NOOP }
elsif ($save) {
croak __PACKAGE__," new: unexpected save value: $save. ",
"Expected backup or newfile";
}
$flags |= &AUG_TYPE_CHECK if ( delete $args{type_check} || 0 );
$flags |= &AUG_NO_STDINC if ( delete $args{no_std_inc} || 0 ) ;
$flags |= &AUG_NO_LOAD if ( delete $args{no_load} || 0 ) ;
lib/Config/Augeas.pm view on Meta::CPAN
=head2 save
Write all pending changes to disk. Return 0 if an error is
encountered, 1 on success. Only files that had any changes made to
them are written. C<save> will follow backup files as specified with
Config::Augeas::new C<backup> parameter.
=cut
sub save {
my $self = shift ;
Config-Auto
view release on metacpan or search on metacpan
t/05_rt69984.t view on Meta::CPAN
use Test::More 'no_plan';
BEGIN { chdir 't' if -d 't'; }
my $expecting = {
'backup.jobs.list' => [
'production',
'development',
'infrastructure',
'jaguararray'
],
Config-Basic
view release on metacpan or search on metacpan
server cache1 10.10.118.41:80 maxconn 400 check inter 2000 fall 8 weight 3
server cache2 10.10.118.43:80 maxconn 400 check inter 2000 fall 8 weight 2
server cache4 10.10.118.44:80 maxconn 400 check inter 2000 fall 8 weight 2
server cache5 10.10.118.46:80 maxconn 400 check inter 2000 fall 8 weight 2
server bck 127.0.0.1:8881 check backup
####################
# TESTTIJD frontend
####################
# listen testbackend 10.10.17.39:80
## capture request header X-Forwarded-For len 15
# capture response header X-Serverside-Cache len 30
#
# server testcache2 10.10.118.3:1080 maxconn 100 check inter 2000 fall 3
# server testcache4 10.10.118.4:1080 maxconn 100 check inter 2000 fall 3
# server bck 127.0.0.1:8881 check backup
#
#####################
# TIJD backend
####################
listen backend 10.10.118.65:80
# server www17 10.10.118.72:80 maxconn 100 check inter 2000 fall 3
server www18 10.10.118.73:80 maxconn 100 check inter 2000 fall 3
server www19 10.10.118.74:80 maxconn 100 check inter 2000 fall 3
server www20 10.10.118.75:80 maxconn 100 check inter 2000 fall 3
server bck 127.0.0.1:8881 check backup
####################
# TESTTIJD backend
####################
#
## capture request header X-Forwarded-For len 15
# capture response header Cache-Control len 15
#
# server www20 10.10.118.75:80 maxconn 100 check inter 2000 fall 3
# server bck 127.0.0.1:8881 check backup
#
#
Config-Checker
view release on metacpan or search on metacpan
t/checker.t view on Meta::CPAN
-
# ----------------------------------------------------------------
name: client logs
hosts:
- ds16-r50
path: /data1/delogs/backup/%YYYY%/%MM%/%DD%/clientlog_%loghost=\w+-r\d+%.%YYYY%-%M%-%D%-%hour=\d+%-%=\d+%
remove_after: 90 days
format: JSON
valid_from: 2008-03-03
valid_to: 2008-09-30
# ----------------------------------------------------------------
Config-Crontab
view release on metacpan or search on metacpan
## add this block to the crontab object
$ct->last($block);
## make another block using Block methods
$block = new Config::Crontab::Block;
$block->last( new Config::Crontab::Comment( -data => '## do backups' ) );
$block->last( new Config::Crontab::Env( -name => 'MAILTO', -value => 'bob' ) );
$block->last( new Config::Crontab::Event( -minute => 40,
-hour => 3,
-command => '/sbin/backup --partition=all' ) );
## add this block to crontab file
$ct->last($block);
## write out crontab file
$ct->write;
## changing an existing crontab
###############################
my $ct = new Config::Crontab; $ct->read;
## comment out the command that runs our backup
$_->active(0) for $ct->select(-command_re => '/sbin/backup');
## save our crontab again
$ct->write;
###############################
$c->remove($c->block($c->select(-command_re => "/bin/unwanted"))); \
$c->write'
=item *
reschedule the backups to run just Monday thru Friday:
perl -MConfig::Crontab -e '$c=new Config::Crontab; $c->read; \
$_->dow("1-5") for $c->select(-command_re => "/sbin/backup"); $c->write'
=item *
reschedule the backups to run weekends too:
perl -MConfig::Crontab -e '$c=new Config::Crontab; $c->read; \
$_->dow("*") for $c->select(-command_re => "/sbin/backup"); $c->write'
=item *
change all 'MAILTO' environment settings in this crontab to 'joe@schmoe.org':
$ct = new Config::Crontab;
$ct->read;
## reads the crontab from a file
$ct = new Config::Crontab;
$ct->read( -file => '/var/cronbackups/cron1' );
## same thing as above
$ct = new Config::Crontab( -file => '/var/cronbackups/cron1' );
$ct->read; ## '-file' attribute already set
## ditto using 'file' method
$ct = new Config::Crontab;
$ct->file('/var/cronbackups/cron1');
$ct->read;
## ditto, using a pipe
$ct = new Config::Crontab;
$ct->file('cat /var/cronbackups/cron1|');
$ct->read;
## ditto, using 'read' method
$ct = new Config::Crontab;
$ct->read( -file => 'cat /var/cronbackups/cron1|');
## now fortified with error-checking
$ct->read
or do {
warn $ct->error;
## get all lines in the crontab
@lines => $ct->select;
## get a line: note list context, also, no 'type' specified
($line) = $ct->select( -data_re => 'start backups' );
=head2 select_blocks([%criteria])
Returns a list of crontab Block objects that match the specified
criteria. If no criteria are specified, B<select_blocks> behaves just
return;
};
## set 'file' and write simultaneously (future calls to read and
## write will use this filename)
$ct->write('/var/mycronbackups/cron1.txt');
## same thing
$ct->file('/var/mycronbackups/cron1.txt');
$ct->write;
=head2 remove_tab([file])
Removes a crontab. If B<file> is set, that file will be unlinked. If
Line Block Block Line Entry
1 1 1 ## grind disks
2 1 2 5 5 * * * /bin/grind
3 1 3
4 2 1 ## backup reminder to joe
5 2 2 MAILTO=joe
6 2 3 5 0 * * Fri /bin/backup
7 2 4
8 3 1 ## meeting reminder to bob
9 3 2 MAILTO=bob
10 3 3 30 9 * * Wed /bin/meeting
Line Block Block Line Entry
1 1 1 ## grind disks
2 2 1 5 5 * * * /bin/grind
3 3 1
4 4 1 ## backup reminder to joe
5 5 1 MAILTO=joe
6 6 1 5 0 * * Fri /bin/backup
7 7 1
8 8 1 ## meeting reminder to bob
9 9 1 MAILTO=bob
10 10 1 30 9 * * Wed /bin/meeting
Line Block Block Line Entry
1 1 1 ## grind disks
2 1 2 5 5 * * * /bin/grind
3 1 3
4 1 4 ## backup reminder to joe
5 1 5 MAILTO=joe
6 1 6 5 0 * * Fri /bin/backup
7 1 7
8 1 8 ## meeting reminder to bob
9 1 9 MAILTO=bob
10 1 10 30 9 * * Wed /bin/meeting
Examples:
## create an empty block object & populate it with the data method
$block = new Config::Crontab::Block;
$block->data( <<_BLOCK_ ); ## via a 'here' document
## 2:05a Friday backup
MAILTO=sysadmin@mydomain.ext
5 2 * * Fri /sbin/backup /dev/da0s1f
_BLOCK_
## create a block in the constructor (also via 'here' document)
$block = new Config::Crontab::Block( -data => <<_BLOCK_ );
## 2:05a Friday backup
MAILTO=sysadmin@mydomain.ext
5 2 * * Fri /sbin/backup /dev/da0s1f
_BLOCK_
## create an array of crontab objects
my @lines = ( new Config::Crontab::Comment(-data => '## run bar'),
new Config::Crontab::Event(-data => '5 8 * * * /foo/bar') );
Get block data as a list of B<Config::Crontab::*> objects. Set block
data using a list reference.
Example:
$block->lines( [ new Config::Crontab::Comment( -data => "## run backup" ),
new Config::Crontab::Event( -data => "5 4 * * 1-5 /sbin/backup" ) ] );
## sorta like $block->dump
for my $obj ( $block->lines ) {
print $obj->dump . "\n";
}
## simple case: you need to get a handle on these objects first
$block->remove( $obj1, $obj2, $obj3 );
## more complex: remove an event from a block by searching
for my $event ( $block->select( -type => 'event') ) {
next unless $event->command =~ /\bbackup\b/; ## look for backup command
$block->remove($event); last; ## and remove it
}
=head2 replace($oldobj, $newobj)
Config-HAProxy
view release on metacpan or search on metacpan
lib/Config/HAProxy.pm view on Meta::CPAN
}
}
return 1 if $dry_run;
my $sb = stat($self->filename);
$self->backup;
rename($tempfile, $self->filename)
or croak "can't rename $tempfile to ".$self->tempfile.": $!";
# This will succeed: we've created the file, so we're owning it.
chmod $sb->mode & 0777, $self->filename;
# This will fail unless we are root, let it be so.
lib/Config/HAProxy.pm view on Meta::CPAN
$self->tree->clear_dirty;
return 1;
}
sub backup_name {
my $self = shift;
$self->filename . '~'
}
sub backup {
my $self = shift;
my $backup = $self->backup_name;
if (-f $backup) {
unlink $backup
or croak "can't unlink $backup: $!"
}
rename $self->filename, $self->backup_name
or croak "can't rename :"
. $self->filename
. " to "
. $self->backup_name
. ": $!";
}
1;
__END__
lib/Config/HAProxy.pm view on Meta::CPAN
$cfg->save(%hash);
$cfg->write($file_or_handle, %hash);
$cfg->backup;
$name = $self->backup_name;
$cfg->reset;
$cfg->push($node);
$node = $cfg->pop;
$node = $cfg->tos;
Config-INI-RefVars
view release on metacpan or search on metacpan
lib/Config/INI/RefVars.pm view on Meta::CPAN
my ($cleanup, $src, $tocopy_section, $tocopy_vars, $not_tocopy)
= @args{qw(cleanup src tocopy_section tocopy_vars not_tocopy)};
croak("'src': missing mandatory argument") if !defined($src);
my $backup = $self->{+BACKUP} //= {};
if (defined($tocopy_section)) {
$backup->{tocopy_section} = $self->{+TOCOPY_SECTION};
$self->{+TOCOPY_SECTION} = $tocopy_section;
}
else {
$tocopy_section = $self->{+TOCOPY_SECTION};
}
$self->{+CURR_TOCP_SECTION} = $tocopy_section;
$Globals{'=TO_CP_SEC'} = $tocopy_section;
if ($tocopy_vars) {
$backup->{tocopy_vars} = $self->{+TOCOPY_VARS};
$self->$_check_tocopy_vars($tocopy_vars, 1);
}
if ($not_tocopy) {
$backup->{not_tocopy} = $self->{+NOT_TOCOPY};
$self->$_check_not_tocopy($not_tocopy, 1);
}
$self->{+SECTIONS} = [];
$self->{+SECTIONS_H} = {};
lib/Config/INI/RefVars.pm view on Meta::CPAN
@{$sec_vars}{keys(%$global_vars)} = values(%$global_vars);
}
}
}
$self->{+TOCOPY_SECTION} = $backup->{tocopy_section} if exists($backup->{tocopy_section});
$self->{+TOCOPY_VARS} = $backup->{tocopy_vars} if exists($backup->{tocopy_vars});
$self->{+NOT_TOCOPY} = $backup->{not_tocopy} if exists($backup->{not_tocopy});
$backup = {};
return $self;
}
Config-Inetd
view release on metacpan or search on metacpan
lib/Config/Inetd.pm view on Meta::CPAN
The inetd configuration file is tied as instance data with newlines
preserved; it may be accessed via C<< $inetd->config >>.
=head1 BUGS & CAVEATS
It is strongly advised that the configuration file is B<backuped> first
if one is intending to work with the default (i.e., system-wide)
configuration file and not a customized one.
Accessing C<< @{$inetd->{CONF}} >> is deprecated and superseded by
C<< $inetd->config >>.
Config-IniFiles
view release on metacpan or search on metacpan
lib/Config/IniFiles.pm view on Meta::CPAN
use File::Basename qw( dirname );
use File::Temp qw/ tempfile /;
@Config::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 $
sub _nocase
{
my $self = shift;
lib/Config/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
Config-Model-Backend-Augeas
view release on metacpan or search on metacpan
lib/Config/Model/Backend/Augeas.pm view on Meta::CPAN
Use C<augeas> (or C<Augeas>)in this case.
=item save
Either C<backup> or C<newfile>. See L<Config::Augeas/Constructor> for
details.
=item file
Name of the configuration file.
lib/Config/Model/Backend/Augeas.pm view on Meta::CPAN
For instance:
read_config => {
backend => 'augeas' ,
save => 'backup',
file => '/etc/ssh/sshd_config',
# declare "seq" Augeas elements
sequential_lens => [/AcceptEnv AllowGroups/],
},
Config-Model-Backend-Yaml
view release on metacpan or search on metacpan
t/backend_yaml.t view on Meta::CPAN
my $written = $yaml_file->slurp;
unlike($written, qr/record/, "check that list element name is not written");
};
subtest 'test automatic file backup' => sub {
my $i_hosts = $model->instance(
instance_name => 'hosts_inst_backup',
root_class_name => 'Hosts',
root_dir => $wr_root->stringify,
model_file => 'test_yaml_model.pl',
backup => ''
);
ok( $i_hosts, "Created instance" );
my $i_root = $i_hosts->config_root;
t/backend_yaml.t view on Meta::CPAN
$i_root->load("record:2 ipaddr=192.168.0.3 canonical=stuff");
$i_hosts->write_back;
ok( 1, "yaml write back done" );
my $backup = path($yaml_file.'.old');
ok ($backup->exists, "backup file was written");
# restore backup to undo the load done 4 lines ago
# so the next subtest tests that the backup content is right
$backup->move($yaml_file);
};
subtest 'another instance to read the yaml that was just written' => sub {
my $i2_hosts = $model->instance(
instance_name => 'hosts_inst2',
Config-Model-OpenSsh
view release on metacpan or search on metacpan
lib/Config/Model/models/Sshd/MatchElement.pl view on Meta::CPAN
B<without-password>), password and keyboard-interactive
authentication are disabled for root.If this option
is set to B<forced-commands-only>, root login with
public key authentication will be allowed, but only if the
I<command> option has been specified (which may be
useful for taking remote backups even if root login is
normally not allowed). All other authentication methods are
disabled for root.If this option
is set to B<no>, root is not allowed to log in.',
'type' => 'leaf',
'value_type' => 'enum'
Config-Model-Systemd
view release on metacpan or search on metacpan
lib/Config/Model/models/Systemd/Section/Timer.pl view on Meta::CPAN
congestion on a remote service, from a fleet of similarly-configured clients. Unlike
C<RandomizedDelaySec>, this setting applies its offset with no regard to manager
startup time. This maintains the periodicity of configured C<OnCalendar> events
across manager restarts.
For example, let\'s say you\'re running a backup service and have a fleet of laptops that wish
to make backups weekly. To distribute load on the backup service, each laptop should randomly pick
a weekday to upload its backups. This could be achieved by setting C<OnCalendar> to
C<weekly>, and then configuring a C<RandomizedDelaySec> of
C<5 days> with C<FixedRandomDelay> enabled. Let\'s say that some
laptop randomly chooses a delay of 4 days. If this laptop is restarted more often than that, then the
timer will never fire: on each fresh boot, the 4 day delay is restarted and will not be finished by
the time of the next shutdown. Instead, you should use C<RandomizedOffsetSec>, which
Config-Model-Xorg
view release on metacpan or search on metacpan
lib/Config/Model/Xorg.pm view on Meta::CPAN
configuration of your favourite X server.
Installing Config::Model::CursesUI is recommended as you'll have a
more user friendly curses based user interface.
Once this module is installed, you can run (as root, but please backup
/etc/X11/xorg.conf before):
# config-edit -model Xorg
You may want to try it safely first by writing the resulting xorg.conf
Config-Model
view release on metacpan or search on metacpan
lib/Config/Model/AnyId.pm view on Meta::CPAN
around BUILDARGS => sub {
my $orig = shift;
my $class = shift;
my %args = @_;
my %h = map { ( $_ => $args{$_} ); } grep { defined $args{$_} } @allowed_warp_params;
return $class->$orig( backup => dclone( \%h ), @_ );
};
has [qw/cargo/] => ( is => 'ro', isa => 'HashRef', required => 1 );
has warp => ( is => 'ro', isa => 'Maybe[HashRef]' );
has [qw/morph/] => ( is => 'ro', isa => 'Bool', default => 0 );
Config-MyConfig2
view release on metacpan or search on metacpan
bin/myconfig-demo.pl view on Meta::CPAN
$conftemplate->{global}->{tar} = { type => 'single', match => '.+' };
$conftemplate->{global}->{ssh} = { type => 'single', match => '.+' };
$conftemplate->{global}->{rsync} = { type => 'single', match => '.+' };
$conftemplate->{global}->{debuglevel} = { type => 'single', match => '^\d$' };
$conftemplate->{backup}->{hostname} = { type => 'single', match => '^[a-zA-Z0-9\.]+$' };
$conftemplate->{backup}->{backupschedule} = { type => 'list', match => '^[Mon]|[Tue]|[Wed]|[Thu]|[Fri]|[Sat]|[Sun]$' };
$conftemplate->{backup}->{archiveschedule} = { type => 'list', match => '^[Mon]|[Tue]|[Wed]|[Thu]|[Fri]|[Sat]|[Sun]$' };
$conftemplate->{backup}->{archivemaxdays} = { type => 'list', match => '^\d+$' };
$conftemplate->{backup}->{add} = { type => 'list', match => '.+' };
$conftemplate->{backup}->{excl} = { type => 'list', match => '.+' };
$myconfig->SetupDirectives($conftemplate);
my $config = $myconfig->ReadConfig();
bin/myconfig-demo.pl view on Meta::CPAN
my $global_value = $myconfig->GetGlobalValue('rsync');
print "Global value rsync: $global_value\n";
print "\n* Get some directive values\n";
my @backup_identifiers = $myconfig->GetDirectiveIdentifiers('backup');
foreach my $identifier (@backup_identifiers)
{
my $backup_value_array_ref = $myconfig->GetDirectiveVaue('backup',$identifier,'backupschedule');
foreach my $val (@$backup_value_array_ref)
{
print "Backup directive with identifier $identifier, parameter archiveschedule has value $val\n";
}
}
bin/myconfig-demo.pl view on Meta::CPAN
print " - Changing debuglevel to /has/been/changed: ";
$error = $myconfig->SetGlobalValue('debuglevel','ultra-maximum');
$error ? print "$error\n" : print "ok\n";
print " - Inserting new backup directive with the name new-directive: ";
$error = $myconfig->SetDirectiveValue('backup','new-directive','hostname','somenewhostname.com');
$error ? print "$error\n" : print "ok\n";
print " - Adding new archiveschedule day for directive server-system: ";
$error = $myconfig->SetDirectiveValue('backup','server-system','archiveschedule','Thu');
$error ? print "$error\n" : print "ok\n";
my $file = 'new_demo.cfg';
print "\n* Write the modified configuration file to $file\n";
$myconfig->WriteConfig('Server Backup Configuration File',$file);
( run in 1.714 second using v1.01-cache-2.11-cpan-c966e8aa7e8 )