Result:
found more than 499 distributions - search limited to the first 2001 files matching your query
( run in 1.867 )
Apache2-AutoIndex-XSLT
view release on metacpan or search on metacpan
copyright notice that is included in or attached to the work
(an example is provided in the Appendix below).
"Derivative Works" shall mean any work, whether in Source or Object
form, that is based on (or derived from) the Work and for which the
editorial revisions, annotations, elaborations, or other modifications
represent, as a whole, an original work of authorship. For the purposes
of this License, Derivative Works shall not include works that remain
separable from, or merely link (or bind by name) to the interfaces of,
the Work and Derivative Works thereof.
Apache2-Autocomplete
view release on metacpan or search on metacpan
S;p.disabled=false}else if(I>=3||D>=10){p.value="o";p.disabled=false}S=null;return true}}newwin=function(){window.open(d.value);B();return false};idkc=function(a){if($){if(W){Ua()}var b=d.value;if(b!=Z){j=0;Oa()}Z=b;setTimeout("idkc()",10)}};function...
k,b[0],b[1],K.completeDiv.prefixStrings)}else{D++;Qa=(new Date).getTime();if(F){ob(a)}else{ta("qu",a,null,E,null,null);frames["completionFrame"].document.location.reload(true)}}d.focus()}da=false}qa=k;setTimeout("idfn()",bb(D));return true};setTimeou...
for(var c=0;c<A;c++){if(U[c]==n){r=c;break}}},ib=function(){s(this,"aAutoComplete")};function sa(a){S="t";k=M;N(M);w=M;if(!U||A<=0)return;Sa();if(n)s(n,"aAutoComplete");if(a==A||a==-1){r=-1;d.focus();return}else if(a>A){a=0}else if(a<-1){a=A-1}r=a;n=...
f.length;A=h;U=f;pa=h;M=k;if(k==""||h==0){B()}else{Sa()}var g="";if(k.length>0){var l,o;for(var l=0;l<h;l++){for(o=0;o<a.prefixStrings.length;o++){var y=a.prefixStrings[o]+k;if(ha||!aa&&b(f.item(l)).toUpperCase().indexOf(y.toUpperCase())==0||aa&&l==0...
true;break;default:break}if(!wa&&n){var ea=k;s(n,"bAutoComplete");var Q;if(e)Q=b(n).substr(a.prefixStrings[o].length);else Q=ea;if(Q!=c.value){if(c.value!=k)return;if(J){if(c.createTextRange||c.setSelectionRange)N(Q);if(c.createTextRange){var xa=c.cr...
a+"="+b+(c?"; expires="+c.toGMTString():"")+(e?"; path="+e:"")+(f?"; domain="+f:"")+(h?"; secure":"");document.cookie=g}function Ra(){var a=document.body.scrollWidth-220;a=0.73*a;d.size=Math.floor(a/6.18)}function P(a){var b=-1;if(a.createTextRange){...
1);b=a.value.length-c.text.length}else if(a.setSelectionRange){b=a.selectionStart}else{b=-1}return b}function Wa(a){if(a.createTextRange){var b=a.createTextRange();b.moveStart("character",a.value.length);b.select()}else if(a.setSelectionRange){a.setS...
a.style.paddingLeft="3";a.style.paddingRight="3";a.style.height="16px";a.style.overflow="hidden";break;case "a":a.style.backgroundColor="white";a.style.color="black";if(a.displaySpan){a.displaySpan.style.color="green"}break;case "b":a.style.backgroun...
V;a.style.width=100-v+"%";if(x=="query"){a.style.fontSize="10px";a.style.textAlign=V;a.style.color="green";a.style.paddingTop="3px"}else{a.style.color="#696969"}break}}function Ba(){v=65;if(x=="query"){var a=110,b=Ha(),c=(b-a)/b*100;v=c}else{v=65}if(...
h="display: block; margin-"+G+": 0%; width: "+v+"%; float: "+G+";",g="display: block; margin-"+G+": "+v+"%;";if(x=="query"){g+="font-size: 10px; text-align: "+V+"; color: green; padding-top: 3px;"}else{g+="color: #696969;"}z(".mAutoComplete",b);z(".l...
s(f,"aAutoComplete");f.onmousedown=gb;f.onmousemove=hb;f.onmouseout=ib;var h=document.createElement("SPAN");s(h,"lAutoComplete");if(u.substring(0,2)=="zh")h.style.height=d.offsetHeight-4;else h.style.height=d.offsetHeight-6;var g=document.createEleme...
Apache2-Banner
view release on metacpan or search on metacpan
ppport.h -- Perl/Pollution/Portability Version 3.19
Automatically created by Devel::PPPort running under perl 5.012003.
Do NOT edit this file directly! -- Edit PPPort_pm.PL and the
includes in parts/inc/ instead.
Use 'perldoc ppport.h' to view the documentation below.
----------------------------------------------------------------------
sub strip
{
my $self = do { local(@ARGV,$/)=($0); <> };
my($copy) = $self =~ /^=head\d\s+COPYRIGHT\s*^(.*?)^=\w+/ms;
$copy =~ s/^(?=\S+)/ /gms;
$self =~ s/^$HS+Do NOT edit.*?(?=^-)/$copy/ms;
$self =~ s/^SKIP.*(?=^__DATA__)/SKIP
if (\@ARGV && \$ARGV[0] eq '--unstrip') {
eval { require Devel::PPPort };
\$@ and die "Cannot require Devel::PPPort, please install.\\n";
if (eval \$Devel::PPPort::VERSION < $VERSION) {
Apache2-CondProxy
view release on metacpan or search on metacpan
t/htdocs/index.html view on Meta::CPAN
<!-- WARNING: this file is generated, do not edit
generated on Fri Jul 5 17:01:03 2013
01: /usr/local/lib/perl/5.14.2/Apache/TestConfig.pm:961
02: /usr/local/lib/perl/5.14.2/Apache/TestConfig.pm:979
03: /usr/local/lib/perl/5.14.2/Apache/TestConfig.pm:1327
04: /usr/local/lib/perl/5.14.2/Apache/TestConfig.pm:1558
Apache2-Controller
view release on metacpan or search on metacpan
lib/Apache2/Controller/Render/Template.pm view on Meta::CPAN
sub default {
my ($self, @first, @last) = @_;
my @path_args = $self->my_detaint_path_args('name'); # from $self->{path_args}
$self->{stash}{creditcards} = $self->pnotes->{a2c}{dbh}->fetchall_arrayref(
q{ SELECT ccnum, exp, addr1, zip, cac
FROM customer_credit_cards
WHERE lname = ? AND fname = ?
}, undef, @path_args
);
# request was like http://myserver.xyz/foo/Larry/Wall
lib/Apache2/Controller/Render/Template.pm view on Meta::CPAN
}
__END__
[%# /var/myapp/templates/foo/default.html %]
<p>Here is the credit card info you requested for
everyone named [% path_args.reverse.join(' ') %]:</p>
<ul>
[% FOREACH card = creditcards %]
[% FOREACH field = ['ccnum','exp','addr1','zip','cac'] %]
<li><strong>[% field %]:</strong> [% card.$field %]</li>
[% END %]
[% END %]
</ul>
Apache2-Dispatch
view release on metacpan or search on metacpan
1. 'make dist' - to make sure nothing is missing from the manifest,
etc. Now test this generated package (not svn) with as many
configurations as possible on as many platforms as possible.
a. edit ./Changes:
- find lib -type f -name "*.pm" | \
xargs perl -pi -e 's,0.12-dev,0.12-RC1,g'
- perl -pi -e 's,0.12-dev,0.12-RC1,g' Changes
- don't commit these (see dev@ archives)
a. if problems are detected during stage 2, repeat stages 1 and 2.
3. when the package has been reported to be good, prepare a new
package to be released
a. edit ./Changes:
- remove -RC\d+
- add release date
b. rerun:
% perl Makefile.PL
6. Prepare for the next cycle
a. increment version in lib/Apache/Dispatch.pm
b. edit ./Changes:
- start a new item with incremented version + '-dev'
=item 0.12-dev
c. bump up version numbers in this file to make it easier to do the
Apache2-Dummy-RequestRec
view release on metacpan or search on metacpan
Makefile.old view on Meta::CPAN
# This Makefile is for the Apache2::Dummy::Request extension to perl.
#
# It was generated automatically by MakeMaker version
# 7.24 (Revision: 72400) from the contents of
# Makefile.PL. Don't edit this file, edit Makefile.PL instead.
#
# ANY CHANGES MADE HERE WILL BE LOST!
#
# MakeMaker ARGV: ()
#
Apache2-FileManager
view release on metacpan or search on metacpan
FileManager.pm view on Meta::CPAN
=head1 DESCRIPTION
The Apache2::FileManager module is a simple HTML file manager. It provides
file manipulations such as cut, copy, paste, delete, rename, extract archive,
create directory, create file, edit file, and upload files.
Apache2::FileManager also has the ability to rsync the server htdocs tree to
another server with the click of a button.
FileManager.pm view on Meta::CPAN
#2 become root
#3 give web server user (typically nobody) a home area
I made mine /usr/local/apache/nobody
- production_server> mkdir /usr/local/apache/nobody
- edit passwd file and set new home area for nobody
- production_server> mkdir /usr/local/apache/nobody/.ssh
#4 log onto the development server
#5 become root
#6 give web server user (typically nobody) a home area
- dev_server> mkdir /usr/local/apache/nobody
- dev_server> chown -R nobody.nobody /usr/local/apache/nobody
- edit passwd file and set new home area for nobody
- dev_server> su - nobody
- dev_server> ssh-keygen -t dsa (don't use passphrase)
- dev_server> ssh production_server
(will fail but will make known_hosts file)
- log out from user nobody back to root user
FileManager.pm view on Meta::CPAN
return undef;
}
sub view_pre_editfile {
my $o = shift;
my $editfile = r->param('FILEMANAGER_editfile');
my $base = "http://".r->hostname."/$editfile";
$editfile =~ /([^\/]+)$/;
my $filename = $1;
my $fh;
if (-T $filename && -w $filename) {
$fh = IO::File->new("< ".$filename);
FileManager.pm view on Meta::CPAN
ACTION='".r->uri."'
METHOD=POST>
".$o->html_hidden_fields()."
<INPUT TYPE=HIDDEN NAME=FILEMANAGER_editfile
VALUE=\"".r->param('FILEMANAGER_editfile')."\">
<!-- Header -->
<TABLE WIDTH=100% CELLPADDING=0 CELLSPAING=0>
<TR>
<TD>
FileManager.pm view on Meta::CPAN
</TR>
</TABLE>
</TD>
</TR>
<!-- file edit box -->
<TR>
<TD ALIGN=CENTER BGCOLOR=#efefef>
<TEXTAREA NAME=FILEMANAGER_filedata
COLS=$$o{EDIT_COLS}
ROWS=$$o{EDIT_ROWS}>$data</TEXTAREA>
FileManager.pm view on Meta::CPAN
function get_num_checked() {
var sel_ar = get_sel_ckbox_array();
return sel_ar.length;
}
//function to edit file
function edit_file () {
var sel_ar = get_sel_ckbox_array();
//make sure there is 1 and only 1 selected file
if (sel_ar.length != 1) {
window.alert('Please select ONE file to edit by clicking on a '+
'check box with the mouse.');
}
else {
var f= window.document.FileManager;
var cd = escape(f.FILEMANAGER_curr_dir.value);
var editfile = escape(sel_ar[0].value);
var w = window.open('".r->uri."?FILEMANAGER_cmd=editfile".
"&FILEMANAGER_curr_dir='+cd+'".
"&FILEMANAGER_editfile='+editfile,
'FileManagerEditFile',
'scrollbars,resizable');
sel_ar[0].checked = false;
w.focus();
}
FileManager.pm view on Meta::CPAN
return false;\"
><FONT COLOR=WHITE><B>refresh</B></FONT></A>",
#Edit
"<A HREF=# onclick=\"
window.edit_file(); return false;\"
><FONT COLOR=WHITE><B>edit</B></FONT></A>",
#Cut
"<A HREF=# onclick=\"
window.save_names('cut'); return false;\"
><FONT COLOR=WHITE><B>cut</B></FONT></A>",
FileManager.pm view on Meta::CPAN
var cd = f.FILEMANAGER_curr_dir.value;
if (cd != '') {
rv = cd+'/'+rv;
}
if ((rv != null) && (rv != '')) {
var w = window.open('".r->uri."?FILEMANAGER_cmd=editfile".
"&FILEMANAGER_curr_dir='+escape(cd)+'".
"&FILEMANAGER_editfile='+escape(rv),
'FileManagerEditFile',
'scrollbars,resizable');
w.focus();
} else if (rv == '') {
FileManager.pm view on Meta::CPAN
###############################################################################
sub cmd_savefiledata {
my $o = shift;
my $base = r->param('FILEMANAGER_editfile');
$base =~ /([^\/]+)$/;
my $filename = $1;
remove $filename;
my $fh = IO::File->new("> ".$filename);
print $fh scalar(r->param('FILEMANAGER_filedata'));
$$o{MESSAGE} = "file saved";
$$o{view} = "pre_editfile";
return undef;
}
sub cmd_editfile {
my $o = shift;
my $base = r->param('FILEMANAGER_editfile');
$base =~ /([^\/]+)$/;
my $filename = $1;
if (! -e $filename) {
my $fh = IO::File->new("> ".$filename);
FileManager.pm view on Meta::CPAN
if (window.opener && window.opener.document.FileManager) {
window.opener.document.FileManager.submit();
}";
}
}
$$o{view} = "pre_editfile";
}
sub cmd_paste {
my $o = shift;
Apache2-Filter-Minifier-CSS
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
# This Makefile.PL for Apache2-Filter-Minifier-CSS was generated by
# Dist::Zilla::Plugin::MakeMaker::ApacheTest 0.04
# and Dist::Zilla::Plugin::MakeMaker::Awesome 0.48.
# Don't edit it but the dist.ini and plugins used to construct it.
use strict;
use warnings;
use 5.008001;
Apache2-Filter-Minifier-JavaScript
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
# This Makefile.PL for Apache2-Filter-Minifier-JavaScript was generated by
# Dist::Zilla::Plugin::MakeMaker::ApacheTest 0.04
# and Dist::Zilla::Plugin::MakeMaker::Awesome 0.48.
# Don't edit it but the dist.ini and plugins used to construct it.
use strict;
use warnings;
use 5.008001;
Apache2-FixupContentLanguage
view release on metacpan or search on metacpan
#!/usr/bin/perl
# WARNING: this file is generated, do not edit
# 01: /usr/lib/perl5/Apache/TestConfig.pm:940
# 02: /usr/lib/perl5/Apache/TestConfig.pm:1030
# 03: /usr/lib/perl5/Apache/TestMM.pm:135
# 04: Makefile.PL:8
Apache2-LogNotify
view release on metacpan or search on metacpan
#!/csf2/apps/bin/perl
# WARNING: this file is generated, do not edit
# generated on Thu Aug 7 23:16:37 2008
# 01: /csf2/apps/lib/perl5/site_perl/5.8.8/x86_64-linux/Apache/TestConfig.pm:955
# 02: /csf2/apps/lib/perl5/site_perl/5.8.8/x86_64-linux/Apache/TestConfig.pm:1045
# 03: /csf2/apps/lib/perl5/site_perl/5.8.8/x86_64-linux/Apache/TestRun.pm:1284
# 04: Makefile.PL:11
Apache2-ModLogConfig
view release on metacpan or search on metacpan
ppport.h -- Perl/Pollution/Portability Version 3.19
Automatically created by Devel::PPPort running under perl 5.012003.
Do NOT edit this file directly! -- Edit PPPort_pm.PL and the
includes in parts/inc/ instead.
Use 'perldoc ppport.h' to view the documentation below.
----------------------------------------------------------------------
sub strip
{
my $self = do { local(@ARGV,$/)=($0); <> };
my($copy) = $self =~ /^=head\d\s+COPYRIGHT\s*^(.*?)^=\w+/ms;
$copy =~ s/^(?=\S+)/ /gms;
$self =~ s/^$HS+Do NOT edit.*?(?=^-)/$copy/ms;
$self =~ s/^SKIP.*(?=^__DATA__)/SKIP
if (\@ARGV && \$ARGV[0] eq '--unstrip') {
eval { require Devel::PPPort };
\$@ and die "Cannot require Devel::PPPort, please install.\\n";
if (eval \$Devel::PPPort::VERSION < $VERSION) {
Apache2-ModProxyPerlHtml
view release on metacpan or search on metacpan
ModProxyPerlHtml.pm view on Meta::CPAN
that should be parsed by ModProxyPerlHTML. The default value is the following
Perl regular expresssion:
PerlAddVar ProxyHTMLContentType (text\/javascript|text\/html|text\/css|text\/xml|application\/.*javascript|application\/.*xml)
If you know exactly what you are doing by editing this regexp fill free to add
the missing Content-Type that must be parsed by ModProxyPerlHTML. Otherwise drop
me a line with the content type, I will give you the rigth expression. If you don't
know about the content type, with FireFox simply type Ctrl+i on the web page.
Some MS Office files may conflict with the above ProxyHTMLContentType regex like .docx or .xlsx
Apache2-ModXml2
view release on metacpan or search on metacpan
ppport.h -- Perl/Pollution/Portability Version 3.19
Automatically created by Devel::PPPort running under perl 5.010001.
Do NOT edit this file directly! -- Edit PPPort_pm.PL and the
includes in parts/inc/ instead.
Use 'perldoc ppport.h' to view the documentation below.
----------------------------------------------------------------------
sub strip
{
my $self = do { local(@ARGV,$/)=($0); <> };
my($copy) = $self =~ /^=head\d\s+COPYRIGHT\s*^(.*?)^=\w+/ms;
$copy =~ s/^(?=\S+)/ /gms;
$self =~ s/^$HS+Do NOT edit.*?(?=^-)/$copy/ms;
$self =~ s/^SKIP.*(?=^__DATA__)/SKIP
if (\@ARGV && \$ARGV[0] eq '--unstrip') {
eval { require Devel::PPPort };
\$@ and die "Cannot require Devel::PPPort, please install.\\n";
if (eval \$Devel::PPPort::VERSION < $VERSION) {
Apache2-PageKit
view release on metacpan or search on metacpan
eg/Model/MyPageKit/Common.pm view on Meta::CPAN
$model->output(link_color => $session->{'link_color'} || '#ff9933');
$model->output(text_color => $session->{'text_color'} || '#000000');
$model->output(bgcolor => $session->{'bgcolor'} || '#dddddd');
$model->output(mod_color => $session->{'mod_color'} || '#ffffff');
# toggle on-line editing tools
if($model->input('pkit_admin')) {
$session->{'pkit_admin'} = $model->input('pkit_admin') eq 'on' ? 1 : 0;
}
$model->output(pkit_admin => $session->{'pkit_admin'});
}
Apache2-PodBrowser
view release on metacpan or search on metacpan
lib/Apache2/PodBrowser.pm view on Meta::CPAN
=head1 HISTORY
As you may know there is already L<Apache2::Pod::HTML>. This module
has borrowed some ideas from it but is implemented anew. In fact, I
had started by editing L<Apache2::Pod::HTML> 0.27 but at a certain moment
I had patched it into something that only vaguely remembered the
original code. When the HTML functionality
was ready I discovered that L<Apache2::Pod::Text> had also to be
taken care of. That was too much to bear.
Apache2-Response-FileMerge
view release on metacpan or search on metacpan
t/.svn/text-base/TEST.svn-base view on Meta::CPAN
#!/usr/bin/perl
# WARNING: this file is generated, do not edit
# generated on Mon Nov 29 15:25:40 2010
# 01: /usr/lib/perl5/Apache/TestConfig.pm:955
# 02: /usr/lib/perl5/Apache/TestConfig.pm:1045
# 03: /usr/lib/perl5/Apache/TestRun.pm:1284
# 04: Makefile.PL:10
Apache2-SSI
view release on metacpan or search on metacpan
lib/Apache2/SSI.pm view on Meta::CPAN
# This routine must respect the caller's wantarray() context.
my( $self, $time, $zone ) = @_;
return( ( $zone && $zone =~ /GMT/ ) ? gmtime( $time ) : localtime( $time ) );
}
# Credits: Torsten Förtsch
{
# NOTE: Apache2::SSI::Filter class
package
Apache2::SSI::Filter;
lib/Apache2/SSI.pm view on Meta::CPAN
See L<Apache documentation|http://httpd.apache.org/docs/2.4/en/expr.html> for more information.
=head1 CREDITS
Credits to Ken Williams for his implementation of L<Apache::SSI> from which I borrowed some code.
=head1 AUTHOR
Jacques Deguest E<lt>F<jack@deguest.jp>E<gt>
Apache2-ScoreBoardFile
view release on metacpan or search on metacpan
ppport.h -- Perl/Pollution/Portability Version 3.19
Automatically created by Devel::PPPort running under perl 5.012001.
Do NOT edit this file directly! -- Edit PPPort_pm.PL and the
includes in parts/inc/ instead.
Use 'perldoc ppport.h' to view the documentation below.
----------------------------------------------------------------------
sub strip
{
my $self = do { local(@ARGV,$/)=($0); <> };
my($copy) = $self =~ /^=head\d\s+COPYRIGHT\s*^(.*?)^=\w+/ms;
$copy =~ s/^(?=\S+)/ /gms;
$self =~ s/^$HS+Do NOT edit.*?(?=^-)/$copy/ms;
$self =~ s/^SKIP.*(?=^__DATA__)/SKIP
if (\@ARGV && \$ARGV[0] eq '--unstrip') {
eval { require Devel::PPPort };
\$@ and die "Cannot require Devel::PPPort, please install.\\n";
if (eval \$Devel::PPPort::VERSION < $VERSION) {
Apache2-SiteControl
view release on metacpan or search on metacpan
lib/Apache2/SiteControl.pm view on Meta::CPAN
For example, your mason component might look like this:
<HTML>
<HEAD> ... </HEAD>
% if($manager->can($currentUser, "edit", $table)) {
<FORM METHOD=POST ACTION="...">
<P><INPUT TYPE=TEXT NAME="x" VALUE="<% $table->{x} %>">
...
</FORM>
% } else {
Apache2-Translation
view release on metacpan or search on metacpan
lib/Apache2/Translation/Admin.pod view on Meta::CPAN
with arrow images on the left.
Click on one of these arrows to create a new block list.
Now edit the C<Key>, C<Uri> and C<Action> fields. A symbol showing a discette
will appear. You can save the block list by clicking on it. When a block list
is saved the discette disappears but a new symbol allowing you to reload the
current block list from the provider appears. Try to click on it.
Maybe you have already noticed the symbol on the left end of a block list
Apache2-UserDirAuthz
view release on metacpan or search on metacpan
copyright notice that is included in or attached to the work
(an example is provided in the Appendix below).
"Derivative Works" shall mean any work, whether in Source or Object
form, that is based on (or derived from) the Work and for which the
editorial revisions, annotations, elaborations, or other modifications
represent, as a whole, an original work of authorship. For the purposes
of this License, Derivative Works shall not include works that remain
separable from, or merely link (or bind by name) to the interfaces of,
the Work and Derivative Works thereof.
Apache2-WebApp-Extra-Admin
view release on metacpan or search on metacpan
lib/Apache2/WebApp/Extra/Admin.pm
usr/share/webapp-toolkit/extra/class/admin.tt
usr/share/webapp-toolkit/extra/class/admin_about.tt
usr/share/webapp-toolkit/extra/class/admin_logs.tt
usr/share/webapp-toolkit/extra/class/admin_users_add.tt
usr/share/webapp-toolkit/extra/class/admin_users_edit.tt
usr/share/webapp-toolkit/extra/class/admin_users_error.tt
usr/share/webapp-toolkit/extra/class/admin_users.tt
usr/share/webapp-toolkit/extra/htdocs/admin/LICENSE
usr/share/webapp-toolkit/extra/htdocs/admin/css/base.css
usr/share/webapp-toolkit/extra/htdocs/admin/css/content.css
App-APA
view release on metacpan or search on metacpan
# This file is generated by Dist::Zilla::Plugin::CPANFile v6.030
# Do not edit this file directly. To change prereqs, edit the `dist.ini` file.
requires "Getopt::Std" => "0";
requires "HTTP::Tiny" => "0";
requires "Pod::Usage" => "0";
requires "URI" => "0";
App-AcmeCpanauthors
view release on metacpan or search on metacpan
script/_acme-cpanauthors view on Meta::CPAN
unshift @INC, bless(sub {"dummy"}, "main::_DataPacker");
}
# END DATAPACK CODE
# Note: This completer script is generated by App::GenPericmdCompleterScript version 0.125
# on Sat Jun 17 09:02:58 2023. You probably should not manually edit this file.
# NO_PERINCI_CMDLINE_SCRIPT
# PERINCI_CMDLINE_COMPLETER_SCRIPT: {load_module=>["App::AcmeCpanauthors"],program_name=>"acme-cpanauthors",read_config=>0,read_env=>0,skip_format=>undef,subcommands=>undef,url=>"/App/AcmeCpanauthors/acme_cpanauthors"}
# FRAGMENT id=shcompgen-hint completer=1 for=acme-cpanauthors
# PODNAME: _acme-cpanauthors
script/_acme-cpanauthors view on Meta::CPAN
# $m = $_ if $_ < $m;
# }
# $m;
#}
#
#our $code_editdist;
#our $editdist_flex;
#
## straight copy of Wikipedia's "Levenshtein Distance"
#sub __editdist {
# my @a = split //, shift;
# my @b = split //, shift;
#
# # There is an extra row and column in the matrix. This is the distance from
# # the empty string to a substring of the target.
script/_acme-cpanauthors view on Meta::CPAN
# }
#
# # fuzzy matching
# if ($fuzzy && !@words) {
# log_trace("[computil] Trying fuzzy matching ...") if $COMPLETE_UTIL_TRACE;
# $code_editdist //= do {
# my $env = $ENV{COMPLETE_UTIL_LEVENSHTEIN} // '';
# if ($env eq 'xs') {
# require Text::Levenshtein::XS;
# $editdist_flex = 0;
# \&Text::Levenshtein::XS::distance;
# } elsif ($env eq 'flexible') {
# require Text::Levenshtein::Flexible;
# $editdist_flex = 1;
# \&Text::Levenshtein::Flexible::levenshtein_l;
# } elsif ($env eq 'pp') {
# $editdist_flex = 0;
# \&__editdist;
# } elsif (eval { require Text::Levenshtein::Flexible; 1 }) {
# $editdist_flex = 1;
# \&Text::Levenshtein::Flexible::levenshtein_l;
# } else {
# $editdist_flex = 0;
# \&__editdist;
# }
# };
#
# my $factor = 1.3;
# my $x = -1;
script/_acme-cpanauthors view on Meta::CPAN
#
# # note: we cannot use Text::Levenshtein::Flexible::levenshtein_l_all()
# # because we perform distance calculation on the normalized array but we
# # want to get the original array elements
#
# my %editdists;
# ELEM:
# for my $i (0..$#array) {
# my $eln = $arrayn[$i];
#
# for my $l (length($wordn)-$y .. length($wordn)+$y) {
script/_acme-cpanauthors view on Meta::CPAN
# my $maxd = __min(
# __min(length($chopped), length($word))/$factor,
# $fuzzy,
# );
# my $d;
# unless (defined $editdists{$chopped}) {
# if ($editdist_flex) {
# $d = $code_editdist->($wordn, $chopped, $maxd);
# next ELEM unless defined $d;
# } else {
# $d = $code_editdist->($wordn, $chopped);
# }
# $editdists{$chopped} = $d;
# } else {
# $d = $editdists{$chopped};
# }
# #say "D: d($word,$chopped)=$d (maxd=$maxd)";
# next unless $d <= $maxd;
# push @words, $array[$i];
# push @wordsumms, $arraysumms[$i] if $summaries;
App-Acmeman
view release on metacpan or search on metacpan
lib/App/Acmeman/Apache/Layout/slackware.pm view on Meta::CPAN
sub add_command {
my ($self, $locus, $command, $text) = @_;
my $file = ($locus->filenames)[0];
my $line = ($locus->filelines($file))[0];
push @{$self->{_edits}{$file}}, { line => $line, command => $command, text => $text };
}
sub run_commands {
my ($self) = @_;
foreach my $file (keys %{$self->{_edits}}) {
$self->run_commands_for_file($file);
}
$self->apache_modules(undef);
}
sub run_commands_for_file {
my ($self, $file) = @_;
my @commands = sort { $a->{line} <=> $b->{line} } @{$self->{_edits}{$file}};
my $app = new Apache::Config::Preproc(
$file,
'-no-comment-grouping',
-expand => [ 'locus' ])
lib/App/Acmeman/Apache/Layout/slackware.pm view on Meta::CPAN
$self->${\ $cmd->{command} }($app, $node, $cmd->{text});
}
}
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");
App-Adenosine
view release on metacpan or search on metacpan
lib/App/Adenosine.pm view on Meta::CPAN
$self->stdout("$uri_base\n"), return if !$action;
if ($action =~ m/^$verb_regex$/) {
my $quote = 1;
my $interactive_edit = 0;
my $query = '';
$self->{verbose} = 0;
my ($path, $data);
$path = shift @ARGV unless $ARGV[0] && $ARGV[0] =~ /^-/;
lib/App/Adenosine.pm view on Meta::CPAN
$data ||= '';
GetOptions (
Q => sub { $quote = 0 },
"q=s" => \$query,
V => \$interactive_edit,
v => sub { $self->{verbose} = 1 },
);
my @extra = (@ARGV, $self->_get_extra_options);
my $wantdata;
$wantdata = 1 if $action =~ m/^(?:PUT|POST|TRACE|PATCH)$/;
if ($wantdata && $interactive_edit) {
require File::Temp;
my ($fh, $fn) = File::Temp::tempfile();
system($ENV{EDITOR} || 'vi', $fn);
App-Alice
view release on metacpan or search on metacpan
lib/App/Alice.pod view on Meta::CPAN
=head2 PREFERENCES WINDOW
The Preferences window can be used to set configuration options that
are not connection specific. You can toggle the use of avatars, timestamps,
and notifications. You can also edit a list of highlightable terms.
=head2 HTTP AUTHENTICATION
Some configuration options do not have a UI yet. The most notable
of these options is HTTP authentication. If you would like to use
HTTP authentication, you will have to edit your configuration file
by hand. You can find this file at ~/.alice/config.
The config is simply a perl hash. So, if you are familiar with perl it
should not be too intimidating. If you do not know perl, sorry! :)
App-Anchr
view release on metacpan or search on metacpan
doc/pacbio_consensus.md view on Meta::CPAN
git clone git://github.com/PacificBiosciences/FALCON-integrate.git
cd FALCON-integrate
git checkout master # or whatever version you want
make init
source env.sh
make config-edit-user
make -j all
# Test data stored in dropbox. f* gfw
# make test
```
( run in 1.867 second using v1.01-cache-2.11-cpan-de7293f3b23 )