view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
\bBuild$
\b_build
Build.PL
Build.bat
# Avoid temp and backup files.
~$
\.gz$
\.old$
\.bak$
\.swp$
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/Apache/AuthDBI.pm view on Meta::CPAN
The data_source value has the syntax 'dbi:driver:dsn'. This parameter is
passed to the database driver for processing during connect. The data_source
parameter (as well as the username and the password parameters) may be a
tilde ('~') separated list of several data_sources. All of these triples will
be used until a successful connect is made. This way several backup-servers
can be configured. if you want to use the environment variable DBI_DSN
instead of a data_source, do not specify this parameter at all.
=item * Auth_DBI_username (Authentication and Authorization)
view release on metacpan or search on metacpan
The data_source value has the syntax 'dbi:driver:dsn'. This parameter is
passed to the database driver for processing during connect. The data_source
parameter (as well as the username and the password parameters) may be a
tilde ('~') separated list of several data_sources. All of these triples will
be used until a successful connect is made. This way several backup-servers can
be configured. if you want to use the environment variable DBI_DSN instead of
a data_source, do not specify this parameter at all.
=item *
Auth_DBI_username (Authentication and Authorization)
view release on metacpan or search on metacpan
lib/Apache/Logmonster/Utility.pm view on Meta::CPAN
}
# we failed with existing permissions, try to escalate
$self->archive_file_sudo( $file ) if ( $p{sudo} && $< != 0 );
return $log->error( "backup of $file to $archive failed: $!", %args)
if ! -e $archive;
$self->chmod( file => $file, mode => $p{mode}, %args ) if $p{mode};
$log->audit("$file backed up to $archive");
lib/Apache/Logmonster/Utility.pm view on Meta::CPAN
=item archive_file
############### archive_file #################
# Purpose : Make a backup copy of a file by copying the file to $file.timestamp.
# Usage : my $archived_file = $util->archive_file( $file );
# Returns : the filename of the backup file, or 0 on failure.
# Parameters : S - file - the filname to be backed up
# Comments : none
=item chmod
lib/Apache/Logmonster/Utility.pm view on Meta::CPAN
############ fstab_list ###################
# Usage : $util->fstab_list;
# Purpose : Fetch a list of drives that are mountable from /etc/fstab.
# Returns : an arrayref
# Comments : used in backup.pl
# See Also : n/a
=item get_dir_files
view release on metacpan or search on metacpan
scripts/pkit_rename_app.pl view on Meta::CPAN
C<pkit_root> is the name of root of your application. That is the Directory where F<Config>, F<Model>, F<View> and F<Content> is.
=head1 Description
The script renames the application B<INPLACE> so do it on a backup.
It reads the F<Config/Config.xml> to figure out what your old name is.
Then all is the file F<Config/Config.xml> and all your F<*.pm> files are scanned and and replaced with your new App's name. As a last step your directory F<Model/oldname> is moved to F<Model/newname> thats it.
This might become handy if you start a new application and you can reuse a good part of an older one. It is also helpfull if you work on more sites and you have some virtualhosts running F<Apache::Pagekit> applications.
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
\bpm_to_blib\.ts$
\bpm_to_blib$
\bblibdirs\.ts$ # 6.18 through 6.25 generated this
\bMETA.yml$
# Avoid temp and backup files.
~$
\.old$
\#$
\b\.#
\.bak$
view release on metacpan or search on metacpan
ProxyConf.pm view on Meta::CPAN
172.16.0.0/20=(172.16.0.10:3128,172.16.0.20:3128)
When proxy servers are placed between brackets, the load is distribution
amongst the proxies. Some clients will have the first proxy as primary and some
clients will have the second proxy as primary. The other proxy is used as a
backup. The order in which the proxies are tried depends on the IP address of
the client. The script is deterministic, so for a given IP address the
priority list is always the same.
=back
view release on metacpan or search on metacpan
lib/Apache/SWIT/Maker.pm view on Meta::CPAN
my ($mf_before);
local $ExtUtils::Manifest::Quiet = 1;
my $bf_name = join("_", $cmd, @args);
$bf_name =~ s/\W/_/g;
my $cwd = getcwd();
my $backup_dir = "$cwd/../$bf_name";
if ($p->[1]) {
$mf_before = maniread();
manicopy($mf_before, $backup_dir);
conv_silent_system("make realclean") if -f 'Makefile';
}
eval { $self->$cmd(@args); };
my $err = $@;
if ($err && $p->[1]) {
chdir $backup_dir;
manicopy($mf_before, $cwd);
chdir $cwd;
} elsif ($p->[1]) {
mkpath("backups");
my $mf = maniread();
$mf->{$_} = 1 for keys %$mf_before;
# diff returns 1 for some reason
system("diff -uN $backup_dir/$_ $_ >> backups/$bf_name.patch")
for (sort keys %$mf);
conv_silent_system("perl Makefile.PL");
}
rmtree($backup_dir) if $p->[1];
die "Rolled back. Original exception is $err" if $err;
return 1;
}
sub test_root {
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
\bMakeMaker-\d
\bpm_to_blib\.ts$
\bpm_to_blib$
\bblibdirs\.ts$ # 6.18 through 6.25 generated this
# Avoid temp and backup files.
~$
\.old$
\#$
\b\.#
\.bak$
view release on metacpan or search on metacpan
lib/Apache/Sling/LDAPSynch.pm view on Meta::CPAN
# Directory containing the cache and user_list files:
my $synch_cache_path =
q(_user/a/ad/admin/private/ldap_synch_cache_system_files);
# Directory containing backups of the cache and user_list files:
my $synch_cache_backup_path =
q(_user/a/ad/admin/private/ldap_synch_cache_system_files_backup);
# List of specific users previously ingested in to the sling system and their status:
my $synch_cache_file = q(cache.txt);
# List of specific ldap users that are to be ingested in to the sling system:
lib/Apache/Sling/LDAPSynch.pm view on Meta::CPAN
my $content = Apache::Sling::Content->new( $authn, $verbose, $log )
or croak q(Problem creating Sling content object!);
my $user = Apache::Sling::User->new( $authn, $verbose, $log )
or croak q(Problem creating Sling user object!);
my $ldap_synch = {
CacheBackupPath => $synch_cache_backup_path,
CachePath => $synch_cache_path,
CacheFile => $synch_cache_file,
Content => \$content,
Disabled => $disabled,
LDAP => \$ldap,
lib/Apache/Sling/LDAPSynch.pm view on Meta::CPAN
or croak q(Unable to update LDAP synch cache file!);
my $time = time;
${ $class->{'Content'} }
->upload_file( $tmp_cache_file_name, $class->{'CacheBackupPath'},
"cache$time.txt" )
or croak q(Unable to create LDAP synch cache backup file!);
unlink $tmp_cache_file_name
or croak
q(Problem clearing up temporary file after updating synch cache!);
return 1;
}
lib/Apache/Sling/LDAPSynch.pm view on Meta::CPAN
Apache::Sling::Print::print_result( ${ $class->{'Content'} } );
my $time = time;
${ $class->{'Content'} }
->upload_file( $tmp_user_list_file_name, $class->{'CacheBackupPath'},
"user_list$time.txt" )
or croak q(Unable to create LDAP synch user list backup file!);
unlink $tmp_user_list_file_name
or croak
q(Problem clearing up temporary file after updating synch user list!);
return 1;
}
view release on metacpan or search on metacpan
lib/Apache/TestRun.pm view on Meta::CPAN
# config files, the cleanup process won't be able to locate files
# to delete and re-configuration will fail
{
# in place editing
local @ARGV = $config_file;
local $^I = ".bak"; # Win32 needs a backup
while (<>) {
s{$cfg_top_dir}{$cur_top_dir}g;
print;
}
unlink $config_file . $^I;
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
\bpm_to_blib\.ts$
\bpm_to_blib$
\bblibdirs\.ts$ # 6.18 through 6.25 generated this
\b_eumm/ # 7.05_05 and above
# Avoid temp and backup files.
~$
\.old$
\#$
\b\.#
\.bak$
view release on metacpan or search on metacpan
WinBitHack.pm view on Meta::CPAN
C:\> attrib file_name
include C<archive>, C<hidden>, C<read-only>, and C<system>. Normal
user files have just the C<archive> attribute set, which some back-up
programs use to determine if the file should be included in the next
incremental backup (most backup programs now instead use the
last-modified-time of the file for this purpose). By setting certain
attributes of the file and specifying directives as in the SYNOPSIS,
particularly the C<Includes> option,
C<XBitHack> can be emulated in the following ways.
view release on metacpan or search on metacpan
# smbvalid.a (buffer overflows) PMK--fixme in smbvalid.a when possible.
for my $i ( 0..$#args ) {
$args[$i] = substr($args[$i], 0, 80);
}
my($username, $password, $server, $backup, $domain) = @args;
my $res = Valid_User($username, $password, $server, $backup, $domain);
$res
}
sub AUTOLOAD {
}
=head1 DESCRIPTION
Authen::Smb allows you to authenticate a user against an NT domain. You can
specify both a primary and a backup server to use for authentication. The
NT names of the machines should be used for specifying servers.
An authentication request will return one of four values:
NTV_NO_ERROR (0)
view release on metacpan or search on metacpan
lib/Apache2/AutoIndex/XSLT.pm view on Meta::CPAN
=head2 AddIcon
AddIcon (IMG,/icons/image.xbm) .gif .jpg .xbm
AddIcon /icons/dir.xbm ^^DIRECTORY^^
AddIcon /icons/backup.xbm *~
This sets the icon to display next to a file ending in name. Icon is either a
(%-escaped) relative URL to the icon, or of
the format (alttext,url) where alttext is the text tag given for an icon for
non-graphical browsers.
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$
MANIFEST.SKIP view on Meta::CPAN
^t/conf/apache_test_config\.pm
^t/htdocs/index\.html
^t/logs/error_log
^t/logs/access_log
# backups of this file
^MANIFEST\.SKIP\.bak
view release on metacpan or search on metacpan
scripts/pkit_rename_app.pl view on Meta::CPAN
C<pkit_root> is the name of root of your application. That is the Directory where F<Config>, F<Model>, F<View> and F<Content> is.
=head1 Description
The script renames the application B<INPLACE> so do it on a backup.
It reads the F<Config/Config.xml> to figure out what your old name is.
Then all is the file F<Config/Config.xml> and all your F<*.pm> files are scanned and and replaced with your new App's name. As a last step your directory F<Model/oldname> is moved to F<Model/newname> thats it.
This might become handy if you start a new application and you can reuse a good part of an older one. It is also helpfull if you work on more sites and you have some virtualhosts running F<Apache::Pagekit> applications.
view release on metacpan or search on metacpan
MANIFEST.SKIP view on Meta::CPAN
^Makefile$
^blib/
^pm_to_blib$
^MakeMaker-\d
# Temp, old and emacs backup files.
~$
\.old$
^#.*#$
^\.#
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/App/Acmeman/Apache/Layout/slackware.pm view on Meta::CPAN
if (@commands) {
error((0+@commands) . " left unmatched in edit queue for file $file");
error("$file left unchanged");
} else {
my $backup_name = backup_copy($app->filename, error => \my $error);
if ($backup_name) {
debug(1, "modifying ".$app->filename."; prior version saved in $backup_name");
} elsif ($error) {
error("can't backup ".$app->filename.": $error");
error("file left unchanged");
return;
}
$app->save;
}
view release on metacpan or search on metacpan
.perltidyrc
lib/App/ActivityPubClient.pm
Makefile.PL
MANIFEST This list of files
MANIFEST.SKIP
script/ap-backup
script/ap-fetch
script/ap-represent
script/webfinger
t/pleroma.t
t/pleroma_user.json
view release on metacpan or search on metacpan
Using Existing, Pre-v2.1 Configuration Files With v2.1
If you had resty installed before version 2.1 and your system uses the
XDG config directory standard and you want to continue using your
existing configuration files, please make a backup of your ~/.resty
directory and then do:
$ mkdir -p "${XDG_CONFIG_HOME}/resty" "${XDG_DATA_HOME}/resty"
$ mv ~/.resty/c "${XDG_DATA_HOME}/resty"
$ mv ~/.resty/* "${XDG_CONFIG_HOME}/resty"
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/App/Asciio/Io.pm view on Meta::CPAN
else
{
if($self->{CREATE_BACKUP} && -e $file_name)
{
use File::Copy;
copy($file_name,"$file_name.bak") or die "save_with_type: Copy failed while making backup copy: $!";
}
write_file($file_name,compress($self->serialize_self() .'$VAR1 ;')) ;
$title = $file_name ;
}
view release on metacpan or search on metacpan
t/00_autocrud.t view on Meta::CPAN
my $connect_options = {
RaiseError => 1,
sqlite_unicode => 1,
};
my $dbh = DBI->connect("dbi:SQLite:dbname=:memory:", "", "", $connect_options);
$dbh->sqlite_backup_from_file($sqlite_path);
return $dbh;
};
# setup config
view release on metacpan or search on metacpan
bin/backup.pl view on Meta::CPAN
#-------Subs---------------------
sub printHelp {
print "This Perl performs a regular, recursive backup of a directory structure\n";
print "and cleans up the target directory of old backup files:\n";
print "Syntax: backup.pl [-c <configFile> [-t <tar method>] | -h]\n";
print " -c <configFile>\tThe configuration file\n";
print " -l <log4per>\tThe log4Perl config file\n";
print " -t <tar method>\tTar method: system for system tar, or perl for Archive::Tar\t\n";
print " -h\t\t\tPrints this help.\n";
exit;
view release on metacpan or search on metacpan
lib/App/BackupTumblr.pm view on Meta::CPAN
our $VERSION = '0.03';
=head1 SYNOPSIS
App::BackupTumblr backups your Tumblr articles.
BackupTumblr <URL>
<URL> is optional, default value is L<http://dalinaum-kr.tumblr.com>. BackupTumblr backups URL's articles into a current directory.
=head1 AUTHOR
Leonardo Kim, C<< <dalinaum at gmail.com> >>
=head1 BUGS
Please report any bugs or feature requests to C<bug-app-backuptumblr at rt.cpan.org>, or through
the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=App-BackupTumblr>. I will be notified, and then you'll
automatically be notified of progress on your bug as I make changes.
view release on metacpan or search on metacpan
- POD in generated CPAN::Config to find with perldoc -l
0.10 2015-04-17
- Changed default target directory and naming schema.
Instead of /opt it now uses /$HOME/.bootstrapperl/$HOSTNAME in
order to simplify permissions, multi-machine usage, and backups.
- fine-tune build fixes for Perl <= 5.12.3
- some more notest/force cpan dependencies on Perl 5.8
- reworked meta info injection into %Config
0.09 2015-04-05