view release on metacpan or search on metacpan
lib/App/Timestamper/WithElapsed.pm view on Meta::CPAN
=item *
CPAN Testers
The CPAN Testers is a network of smoke testers who run automated tests on uploaded CPAN distributions.
L<http://www.cpantesters.org/distro/A/App-Timestamper-WithElapsed>
=item *
view all matches for this distribution
view release on metacpan or search on metacpan
bin/todo.pl view on Meta::CPAN
requests => sub {list_tasks($requests_query)},
hide => \&hide_task,
comment => \&comment_task,
dl => \&download_textfile,
download => \&download_textfile,
ul => \&upload_textfile,
upload => \&upload_textfile,
bd => \&braindump,
braindump => \&braindump,
editdump => \&editdump,
feedback => \&feedback,
);
bin/todo.pl view on Meta::CPAN
open (my $file, ">:utf8", $filename) || die("Can't open file '$filename': $!");
print $file $result->{_content}{result};
}
sub upload_textfile {
my $filename = shift || shift @ARGV;
pod2usage(-message => "Need to specify a file to upload.",
-exitval => 1
) unless $filename;
open (my $file, "< $filename");
bin/todo.pl view on Meta::CPAN
$fill_file->( $fn );
# Call the editor with the file as the first arg
system( "$editor $fn" );
upload_textfile( $fn );
unlink $fn;
}
sub editdump {
my $query = shift || $default_query;
bin/todo.pl view on Meta::CPAN
todo.pl hide <task-id> date
todo.pl comment <task-id>
todo.pl [options] download [file]
todo.pl upload <file>
todo.pl braindump
todo.pl [options] editdump
todo.pl feedback
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/Unding.pm view on Meta::CPAN
# ABSTRACT: dark magic, encrypted wallet
use v5.6.0;
# THIS IS A STUB MODULE FOR CPAN INDEXING
# https://www.perl.com/article/how-to-upload-a-script-to-cpan/
1;
__END__
lib/App/Unding.pm view on Meta::CPAN
=head1 SYNOPSIS
This is a stub module for cpan indexing.
No funcionality implemented.
See L<https://www.perl.com/article/how-to-upload-a-script-to-cpan/> for the reason.
You find the implementation in the script L<unding>.
=head1 AUTHOR
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/Waf.pm view on Meta::CPAN
'\.(bak|inc|old|mdb|sql|backup|java|class)$',
'\.(svn|htaccess|bash_history)',
'(vhost|bbs|host|wwwroot|www|site|root|hytop|flashfxp).*\.rar',
'(phpmyadmin|jmx-console|jmxinvokerservlet)',
'/xmlrpc.php',
'/(attachments|upimg|images|css|uploadfiles|html|uploads|templets|static|template|data|inc|forumdata|upload|includes|cache|avatar)/(\w+).(php|jsp|asp)',
);
sub tail {
view all matches for this distribution
view release on metacpan or search on metacpan
bin/wallflower view on Meta::CPAN
A possible dataflow would be processing forms on your development server
(maybe to update a local database), then I<publish> as static pages
a I<subset> of all the URLs the application supports.
Turning that application into a real static site (a set of pages
to upload to a static web server) is just a matter of generating all
possible URLs for the static site and saving the corresponding pages to files.
B<wallflower> does just that. It reads a list of URLs, strips off
any query strings, issues HTTP C<GET> requests for each in turn and
saves the response body to a file with a name derived from the request
view all matches for this distribution
view release on metacpan or search on metacpan
Windows C<cmd>/C<command.exe>-like shells.
It's worth checking that a program actually needs waxing. Many command-line
programs already support URLs, e.g:
$ eog https://upload.wikimedia.org/wikipedia/commons/4/4c/Eye_of_GNOME.png
$ gedit https://projects.gnome.org/gedit/
$ gimp https://upload.wikimedia.org/wikipedia/commons/6/6c/Gimpscreen.png
$ vim https://www.vim.org/
etc.
=head1 VERSION
view all matches for this distribution
view release on metacpan or search on metacpan
t/data/Q1085.json view on Meta::CPAN
"P854": [
{
"hash": "e6bbec4d4f393333842c6ce50cb226192520bafc",
"datatype": "url",
"datavalue": {
"value": "https://www.ovpm.org/wp-content/uploads/2024/03/liste-villes-en-regle-pour-page-web12-03-2024.pdf",
"type": "string"
},
"property": "P854",
"snaktype": "value"
}
t/data/Q1085.json view on Meta::CPAN
"P854": [
{
"hash": "1e0785746cc4d82d1cd121ebf48831ccc41f14ce",
"datatype": "url",
"datavalue": {
"value": "http://cnig.gouv.fr/wp-content/uploads/2020/02/CNT-PVM_r%C3%A9vis%C3%A9_2020-01-27-1.pdf",
"type": "string"
},
"property": "P854",
"snaktype": "value"
}
t/data/Q1085.json view on Meta::CPAN
"P854": [
{
"datatype": "url",
"hash": "1e0785746cc4d82d1cd121ebf48831ccc41f14ce",
"datavalue": {
"value": "http://cnig.gouv.fr/wp-content/uploads/2020/02/CNT-PVM_r%C3%A9vis%C3%A9_2020-01-27-1.pdf",
"type": "string"
},
"property": "P854",
"snaktype": "value"
}
view all matches for this distribution
view release on metacpan or search on metacpan
CONTRIBUTING view on Meta::CPAN
git checkout master
dzil release
The release script will take care of making the release commit (with
Changes), tagging, and uploading to the CPAN.
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/Docmake.pm view on Meta::CPAN
=item *
CPAN Testers
The CPAN Testers is a network of smoke testers who run automated tests on uploaded CPAN distributions.
L<http://www.cpantesters.org/distro/A/App-XML-DocBook-Builder>
=item *
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/YTDL/Arguments.pm view on Meta::CPAN
}
URL_DATA: for my $webpage_url ( @args ) {
my ( $ex, $up, $ids ) = @{$urls_data->{$webpage_url}};
if ( @$ids > 1 ) {
my $prompt = $data->{$ex}{$up}{$ids->[0]}{uploader} || $webpage_url;
my $chosen_ids = choose_videos( $set, $opt, $data, $ex, $up, $ids, $prompt );
if ( ! defined $chosen_ids ) {
next URL_DATA;
}
push @{$chosen->{$ex}{$up}}, @$chosen_ids;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/Ylastic/CostAgent.pm view on Meta::CPAN
accounts
config_file
dir
logger
mech
upload
ylastic_id
);
my %URL = (
ylastic_service_list => "http://ylastic.com/cost_services.list",
ylastic_upload_form => "http://ylastic.com/usage_upload.html",
aws_usage_report_form => "https://aws-portal.amazon.com/gp/aws/developer/account/index.html?ie=UTF8&action=usage-report",
);
#--------------------------------------------------------------------------#
# new -- constructor
#
# Parameters for new:
# * config_file -- path to a .ini style configuration file (required)
# * dir -- a directory to hold downloaded data (defaults to a tempdir)
# * logger -- a Log::Dispatchouli object (defaults to a null logger)
# * upload -- whether to upload data to Ylastic (default is false)
#--------------------------------------------------------------------------#
sub new {
my $class = shift;
my $self = $class->SUPER::new( @_ );
lib/App/Ylastic/CostAgent.pm view on Meta::CPAN
return $self;
}
#--------------------------------------------------------------------------#
# run -- downloads and possibly uploads data for all accounts from config
#--------------------------------------------------------------------------#
sub run {
my $self = shift;
for my $account ( @{ $self->accounts } ) {
my $zipfile = $self->_download_usage( $account );
$self->_upload_usage( $account, $zipfile )
if $self->upload;
}
return 0;
}
lib/App/Ylastic/CostAgent.pm view on Meta::CPAN
sub _start_date {
state $start_date = Time::Piece::Month->new("2010-01-01")->start;
return $start_date;
}
sub _upload_usage {
my ($self, $account, $zipfile) = @_;
$self->_initialize_mech;
$self->mech->get($URL{ylastic_upload_form});
$self->mech->submit_form(
form_name => 'upload',
fields => {
file1 => $zipfile,
}
);
$self->logger->log(["Uploaded usage reports to Ylastic for account %s",$account->[0]]);
lib/App/Ylastic/CostAgent.pm view on Meta::CPAN
accounts
config_file
dir
logger
mech
upload
ylastic_id
=for :stopwords cpan testmatrix url annocpan anno bugtracker rt cpants kwalitee diff irc mailto metadata placeholders
=head1 SUPPORT
view all matches for this distribution
view release on metacpan or search on metacpan
script/youtube-dl-timestamp view on Meta::CPAN
use 5.010001;
use strict;
use warnings;
system "youtube-dl", "-o", '%(upload_date)s-%(title)s-%(id)s.%(ext)s', @ARGV;
# PODNAME: youtube-dl-timestamp
# ABSTRACT: Download video with youtube-dl, prefix filename with upload date
__END__
=pod
=encoding UTF-8
=head1 NAME
youtube-dl-timestamp - Download video with youtube-dl, prefix filename with upload date
=head1 VERSION
This document describes version 0.007 of youtube-dl-timestamp (from Perl distribution App-YoutubeDlUtils), released on 2020-09-09.
script/youtube-dl-timestamp view on Meta::CPAN
This is a wrapper for B<youtube-dl> which does the following:
=over
=item * add upload date prefix (YYYYMMDD) to the filename
The wrapper adds this option:
C
-o '%(upload_date)s-%(title)s-%(id)s.%(ext)s'
So instead of the default '%(title)s-%(id)s.%(ext)s' filename pattern like
these:
Introduction to Astronomy: Crash Course Astronomy #1-0rHUDWjR5gg.mp4
view all matches for this distribution
view release on metacpan or search on metacpan
script/yt-dlp-timestamp view on Meta::CPAN
our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2024-07-09'; # DATE
our $DIST = 'App-YtDlpUtils'; # DIST
our $VERSION = '0.001'; # VERSION
system "yt-dlp", "-o", '%(upload_date)s-%(title)s-%(id)s.%(ext)s', @ARGV;
# PODNAME: yt-dlp-timestamp
# ABSTRACT: Download video with yt-dlp, prefix filename with upload date
__END__
=pod
=encoding UTF-8
=head1 NAME
yt-dlp-timestamp - Download video with yt-dlp, prefix filename with upload date
=head1 VERSION
This document describes version 0.001 of yt-dlp-timestamp (from Perl distribution App-YtDlpUtils), released on 2024-07-09.
script/yt-dlp-timestamp view on Meta::CPAN
This is a wrapper for B<yt-dlp> which does the following:
=over
=item * add upload date prefix (YYYYMMDD) to the filename
The wrapper adds this option:
C
-o '%(upload_date)s-%(title)s-%(id)s.%(ext)s'
So instead of the default '%(title)s-%(id)s.%(ext)s' filename pattern like
these:
Introduction to Astronomy: Crash Course Astronomy #1-0rHUDWjR5gg.mp4
view all matches for this distribution
view release on metacpan or search on metacpan
[CheckChangesHasContent]
;; Prompt before releasing to CPAN
[ConfirmRelease]
;; Automatically upload to CPAN on release
[UploadToCPAN]
;; Write the next release number to the changelog
[NextRelease]
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/ZofCMS/Plugin/ImageGallery.pm view on Meta::CPAN
unless defined $ext;
my $photo_file = File::Spec->catfile( $conf->{photo_dir}, $conf->{filename} . $ext );
my $thumb_file = File::Spec->catfile( $conf->{thumb_dir}, $conf->{filename} . $ext );
my $fh = $cgi->upload('plug_image_gallery_file')
or do {
$t->param(
error => 'Failed to upload file' . (
$cgi->cgi_error ? ': ' . $cgi->cgi_error : ''
)
);
$t->param( success => 1 );
return;
lib/App/ZofCMS/Plugin/ImageGallery.pm view on Meta::CPAN
}
sub _form_template {
return <<'END_TEMPLATE';
<tmpl_if name='success'>
<p>Your image has been successfully uploaded.</p>
<p><a href="<tmpl_var escape='html' name='success_href'>">Upload another image</a></p>
<tmpl_else>
<form action="" method="POST" id="plug_image_gallery_form" enctype="multipart/form-data">
<div>
<tmpl_if name='error'><p class="error"><tmpl_var escape='html' name='error'></p></tmpl_if>
lib/App/ZofCMS/Plugin/ImageGallery.pm view on Meta::CPAN
In your L<HTML::Template> template:
<tmpl_var name='plug_image_gallery_form'>
<tmpl_var name='plug_image_gallery_list'>
Viola, now you can upload photos with descriptions, delete them and edit descriptions. \o/
=head1 DESCRIPTION
The module is a plugin for L<App::ZofCMS> that allows one to add a CRUD-like functionality
for managing photos. The plugin automatically makes thumbnails and can also resize the
actual photos if you tell it to. So far, only
C<.jpg>, C<.png> and C<.gif> images are supported; however, plugin does not check
C<Content-Type> of the uploaded image.
The image file name and description are stored in a SQL database.
This documentation assumes you've read L<App::ZofCMS>, L<App::ZofCMS::Config> and L<App::ZofCMS::Template>
lib/App/ZofCMS/Plugin/ImageGallery.pm view on Meta::CPAN
=head3 C<filename>
filename => '[:rand:]',
B<Optional>. Specifies the name for the image file (and its thumbnail) without the extension
for when new image is uploaded. You'd obviously want to manipulate this value with some
other plugin (e.g. L<App::ZofCMS::Plugin::Sub>) to make sure it's not the same
as existing images. B<Special value> of C<[:rand:]> (value includes the brackets) will make
the plugin generate random filenames (along with check of whether the generated name
already exists). B<Defaults to:> C<[:rand:]>
lib/App/ZofCMS/Plugin/ImageGallery.pm view on Meta::CPAN
no_form => 1,
B<Optional>. Takes either true or false values. When
set to a B<false> value, the plugin will generate as well as process an HTML form that
is to be used for uploading new images or editing descriptions on existing ones.
B<Note:> even if you are making your own HTML form, the plugin will B<not> process
editing or deleting of items when C<no_form> is set to a true value. B<Defaults to:> C<1>
=head3 C<no_list>
lib/App/ZofCMS/Plugin/ImageGallery.pm view on Meta::CPAN
</ul>
<input type="submit" name="plug_image_gallery_submit" value="Update">
</div>
</form>
=head2 form when upload or update was successful
<p>Your image has been successfully uploaded.</p>
<p><a href="/index.pl?page=photos&amp;dir=/admin/">Upload another image</a></p>
=head2 list (when both C<allow_edit> and C<has_view> is set to true values)
<ul class="plug_image_gallery_list">
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/ZofCMS.pm view on Meta::CPAN
occasionally don't even offer any SQL databases. If you have more freedom
than that you may want to give L<Catalyst> a try which, my opinion, is
a great framework, not just for web, and it offers far more functionality
than ZofCMS ever will.
ZofCMS is plugin based. If you create your own plugins, please upload them
to L<App::ZofCMS::Plugin> namespace or email it to me (C<zoffix@cpan.org>)
and I will package it, upload it, and give you corresponding credits.
ZofCMS currently uses L<HTML::Template> as a module to interpret HTML
templates. And so far, I have no plans to change this to anything alike
L<Template::Toolkit>.
Despite the "core" of the framework along with all of its plugins being
on CPAN there is a helper script (C<zofcms_helper>) which can produce
a ready-for-upload set of files which you can simply upload to your server
without having to install anything from CPAN on the server itself. See
C<perldoc zofcms_helper>.
=head1 HYSTORY
lib/App/ZofCMS.pm view on Meta::CPAN
The last site I coded before starting to implement ZofCMS was a private
web application which had a message board along with a few other features.
Mostly everything was coded from scratch once more... The final breaking
point when a few weeks later I was asked to add two sections for file
uploads to that site. No, it wasn't hard to add them, it's just that
I found myself adding a couple lines of code to the "core" modules that
called modules which provided new functionality and those modules were
loaded on any page of the site; even the ones that would never require
functionality from those modules. That's where the idea of plugins came
to life including the idea of "page templates" asking for plugins which
view all matches for this distribution
view release on metacpan or search on metacpan
module_maker = "ModuleBuildTiny"
static_install = "auto"
[release]
branch = "main"
do_not_upload_to_cpan = 0
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/bsky.pm view on Meta::CPAN
my ( $content, $headers ) = $bsky->at->http->get($avatar);
use Carp;
$content // confess 'failed to download avatar from ' . $avatar;
# TODO: check content type HTTP::Tiny and Mojo::UserAgent do this differently
$avatar = $bsky->uploadFile( $content, $headers->{'content-type'} );
}
elsif ( -e $avatar ) {
use Path::Tiny;
$avatar = path($avatar)->slurp_raw;
my $type = substr( $avatar, 0, 2 ) eq pack 'H*',
'ffd8' ? 'image/jpeg' : substr( $avatar, 1, 3 ) eq 'PNG' ? 'image/png' : 'image/jpeg'; # XXX: Assume it's a jpeg?
$avatar = $bsky->uploadFile( $avatar, $type );
}
else {
$self->err('unsure what to do with this avatar; does not seem to be a URL or local file');
}
if ($avatar) {
$self->say( 'uploaded avatar... %d bytes', $avatar->{size} );
}
else {
$self->say('failed to upload avatar');
}
}
if ( defined $banner ) {
if ( $banner =~ m[^https?://] ) {
my ( $content, $headers ) = $bsky->at->http->get($banner);
use Carp;
$content // confess 'failed to download banner from ' . $banner;
# TODO: check content type HTTP::Tiny and Mojo::UserAgent do this differently
$banner = $bsky->uploadFile( $content, $headers->{'content-type'} );
}
elsif ( -e $banner ) {
use Path::Tiny;
$banner = path($banner)->slurp_raw;
my $type = substr( $banner, 0, 2 ) eq pack 'H*',
'ffd8' ? 'image/jpeg' : substr( $banner, 1, 3 ) eq 'PNG' ? 'image/png' : 'image/jpeg'; # XXX: Assume it's a jpeg?
$banner = $bsky->uploadFile( $banner, $type );
}
else {
$self->err('unsure what to do with this banner; does not seem to be a URL or local file');
}
if ($banner) {
$self->say( 'uploaded banner... %d bytes', $banner->{size} );
}
else {
$self->say('failed to upload banner');
}
}
my $res = $bsky->at->put_record(
'app.bsky.actor.profile',
'self',
view all matches for this distribution
view release on metacpan or search on metacpan
branch = "main"
hooks = [
"make -C script",
"make -C docs",
]
do_not_upload_to_cpan = 0
view all matches for this distribution
view release on metacpan or search on metacpan
ä¸è¨ã¯ Perlã®ã¢ã¸ã¥ã¼ã«ã®ã¤ã³ã¹ãã¼ã«ã§ããç¨ããããæ¹æ³ã§ããã
â cpanmãcpanã«ããä¸è¬çãªã¤ã³ã¹ãã¼ã«ã®æ¹æ³ã¯ä¸è¨ã§ç¶²ç¾
çã«èª¬æããã¦ããã
1. https://metacpan.org/release/TULAMILI/Table-Hack-0.12/source/Table-Hack.pdf
2. https://www.ite.or.jp/wp/wp-content/uploads/opendata/tool201807.pdf
ä¸è¨2åã®URLã«ããåãPDFå½¢å¼ãã¡ã¤ã«ã¯ã2018å¹´ã«ä¸é寿ä¹ãæ¸ãããã®ã§ããã
-- 2022-10-14(fri) Toshiyuki Shimono bin4tsv@gmail.com
view all matches for this distribution
view release on metacpan or search on metacpan
ä¸è¨ã¯ Perlã®ã¢ã¸ã¥ã¼ã«ã®ã¤ã³ã¹ãã¼ã«ã§ããç¨ããããæ¹æ³ã§ããã
â cpanmãcpanã«ããä¸è¬çãªã¤ã³ã¹ãã¼ã«ã®æ¹æ³ã¯ä¸è¨ã§ç¶²ç¾
çã«èª¬æããã¦ããã
1. https://metacpan.org/release/TULAMILI/Table-Hack-0.12/source/Table-Hack.pdf
2. https://www.ite.or.jp/wp/wp-content/uploads/opendata/tool201807.pdf
ä¸è¨2åã®URLã«ããåãPDFå½¢å¼ãã¡ã¤ã«ã¯ã2018å¹´ã«ä¸é寿ä¹ãæ¸ãããã®ã§ããã
view all matches for this distribution
view release on metacpan or search on metacpan
exclude_match = ['^CLAUDE\.md$']
[release]
branch = "main"
do_not_upload_to_cpan = 0
view all matches for this distribution
view release on metacpan or search on metacpan
configure.in
depcomp
gendocs.sh
gitlog-to-changelog
git-version-gen
gnupload
gnu-web-doc-update
install-sh
libtool
libtool.m4
link-warning.h
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/cloudconvert.pm view on Meta::CPAN
my %params = (
inputformat => $self->{from},
outputformat => $self->{to},
apikey => $self->{apikey},
input => "upload",
download => "inline",
file => [ $inputfile ]
);
if ($self->{dry}) {
view all matches for this distribution
view release on metacpan or search on metacpan
â cpanmãcpanã«ããä¸è¬çãªã¤ã³ã¹ãã¼ã«ã®æ¹æ³ã¯ãä¸è¨ã§ç¶²ç¾
çã«èª¬æããã¦ããã
1. https://metacpan.org/release/TULAMILI/Table-Hack-0.12/source/Table-Hack.pdf
2. https://www.ite.or.jp/wp/wp-content/uploads/opendata/tool201807.pdf
ä¸è¨2åã®URLã«ããåãPDFå½¢å¼ãã¡ã¤ã«ã¯ã2018å¹´ã«ä¸é寿ä¹ãæ¸ãããã®ã§ããã
ãããã26ãã¼ã¸ã§ããã
view all matches for this distribution
view release on metacpan or search on metacpan
ä¸è¨ã¯ Perlã®ã¢ã¸ã¥ã¼ã«ã®ã¤ã³ã¹ãã¼ã«ã§ããç¨ããããæ¹æ³ã§ããã
â cpanmãcpanã«ããä¸è¬çãªã¤ã³ã¹ãã¼ã«ã®æ¹æ³ã¯ä¸è¨ã§ç¶²ç¾
çã«èª¬æããã¦ããã
1. https://metacpan.org/release/TULAMILI/Table-Hack-0.12/source/Table-Hack.pdf
2. https://www.ite.or.jp/wp/wp-content/uploads/opendata/tool201807.pdf
ä¸è¨2åã®URLã«ããåãPDFå½¢å¼ãã¡ã¤ã«ã¯ã2018å¹´ã«ä¸é寿ä¹ãæ¸ãããã®ã§ããã
view all matches for this distribution
view release on metacpan or search on metacpan
ä¸è¨ã¯ Perlã®ã¢ã¸ã¥ã¼ã«ã®ã¤ã³ã¹ãã¼ã«ã§ããç¨ããããæ¹æ³ã§ããã
â cpanmãcpanã«ããä¸è¬çãªã¤ã³ã¹ãã¼ã«ã®æ¹æ³ã¯ä¸è¨ã§ç¶²ç¾
çã«èª¬æããã¦ããã
1. https://metacpan.org/release/TULAMILI/Table-Hack-0.12/source/Table-Hack.pdf
2. https://www.ite.or.jp/wp/wp-content/uploads/opendata/tool201807.pdf
ä¸è¨2åã®URLã«ããåãPDFå½¢å¼ãã¡ã¤ã«ã¯ã2018å¹´ã«ä¸é寿ä¹ãæ¸ãããã®ã§ããã
view all matches for this distribution
view release on metacpan or search on metacpan
t/lib/TestData.pm view on Meta::CPAN
'perl-cpan-meta-requirements>=2.120620',
'perl-extutils-makemaker',
'perl-module-metadata',
],
optdepends => [
q{perl-app-nopaste: Nopaste plugin - upload a session\'s input and output to a Pastebin},
'perl-b-keywords: Keywords completion driver - tab complete Perl keywords and operators',
'perl-cpan-meta>=2.120900',
'perl-data-dump-streamer>=2.39: DDS plugin - better format results with Data::Dump::Streamer',
'perl-data-dumper-concise: DDC plugin - even better format results with Data::Dumper::Concise',
'perl-file-next: INC completion driver - tab complete module names in use and require',
t/lib/TestData.pm view on Meta::CPAN
'perl-test-fatal'
'perl-test-simple'
'perl>=5.8.1'
)
optdepends=(
$'perl-app-nopaste: Nopaste plugin - upload a session\'s input and output to a Pastebin'
'perl-b-keywords: Keywords completion driver - tab complete Perl keywords and operators'
'perl-cpan-meta>=2.120900'
'perl-data-dump-streamer>=2.39: DDS plugin - better format results with Data::Dump::Streamer'
'perl-data-dumper-concise: DDC plugin - even better format results with Data::Dumper::Concise'
'perl-file-next: INC completion driver - tab complete module names in use and require'
t/lib/TestData.pm view on Meta::CPAN
'perl-version',
'perl>=5.10.1',
],
makedepends => ['perl-module-build-tiny>=0.035'],
optdepends => [
'perl-cpan-uploader',
'perl-devel-checklib',
'perl-devel-ppport',
'perl-dist-zilla',
'perl-pod-escapes',
'perl-software-license>=0.103010',
t/lib/TestData.pm view on Meta::CPAN
'perl-test-output'
'perl-test-requires'
'perl-test-simple'
)
optdepends=(
'perl-cpan-uploader'
'perl-devel-checklib'
'perl-devel-ppport'
'perl-dist-zilla'
'perl-pod-escapes'
'perl-software-license>=0.103010'
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/cpanel.pm view on Meta::CPAN
$ cpanel api2 Fileman mkdir path= name=new-dir-at-top
# this one is one at a time but can overwrite files
$ cpanel api2 Fileman savefile dir=public_html/cgi-bin filename=hello-world content="$(cat public_html/cgi-bin/hello-world)"
# this is multiple files but refuses to overwrite
$ cpanel upload public_html/cgi-bin hello-world
# download
$ cpanel mirror public_html public_html cpanel localfs
# upload
$ cpanel mirror public_html public_html localfs cpanel
=head1 DESCRIPTION
CLI for cPanel UAPI and also API 2, due to missing functionality in UAPI.
lib/App/cpanel.pm view on Meta::CPAN
use Mojo::Util qw(dumper encode);
my %cmd2func = (
uapi => [ \&uapi_p, 1 ],
download => [ \&download_p, 0 ],
upload => [ \&upload_p, 1 ],
api2 => [ \&api2_p, 1 ],
mirror => [ \&mirror_p, 1 ],
);
my $token_file = "$ENV{HOME}/.cpanel-token";
my $domain_file = "$ENV{HOME}/.cpanel-domain";
lib/App/cpanel.pm view on Meta::CPAN
die $res->code . ": " . $res->message . "\n" if $res->code != 200;
$res->body;
});
}
sub make_upload_form {
my $dir = shift;
my $counter = 0;
+{
dir => $dir,
map {
lib/App/cpanel.pm view on Meta::CPAN
});
} @_,
};
}
sub upload_p {
my ($dir, @files) = @_;
die "No dir\n" unless $dir;
die "No files\n" unless @files;
my ($token, $domain) = (read_token(), read_domain());
my $tx_p = api_request 'post_p', $domain, $token,
[ 'execute', 'Fileman', 'upload_files' ],
undef,
form => make_upload_form($dir, @files),
;
$tx_p->then(\&_error_or_json)->then(\&_uapi_error_or_json);
}
sub _api2_error_or_json {
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
my %prop = $d->properties;
=head1 DESCRIPTION
Many online services that are centered around CPAN attempt to
associate multiple uploads by extracting a distribution name from
the filename of the upload. For most distributions this is easy as
they have used ExtUtils::MakeMaker or Module::Build to create the
distribution, which results in a uniform name. But sadly not all
uploads are created in this way.
C<CPAN::DistnameInfo> uses heuristics that have been learnt by
L<http://search.cpan.org/> to extract the distribution name and
version from filenames and also report if the version is to be
treated as a developer release
view all matches for this distribution