view release on metacpan or search on metacpan
lib/App/Siesh.pm view on Meta::CPAN
=item B<edit> I<script-name>
Edits a script on the server without downloading it explicitly to your
disk first. Under the hood it creates a temporary file, puts the script
content in it and calls C<$ENV{EDITOR}> on it. After that the script is
uploaded back. It's also possible to create and edit a new script with
this command.
If your script is syntactical incorrect, you will be prompted to
re-edit the file or throw away your changes.
view all matches for this distribution
view release on metacpan or search on metacpan
local/lib/perl5/Net/SFTP/Foreign.pm view on Meta::CPAN
this option. See L</On the fly data conversion> below.
=item callback =E<gt> $callback
C<$callback> is a reference to a subroutine that will be called after
every iteration of the upload process.
The callback function will receive as arguments: the current
Net::SFTP::Foreign object; the data that is going to be written to the
remote file; the offset from the beginning of the file in bytes; and
the total size of the file in bytes.
view all matches for this distribution
view release on metacpan or search on metacpan
Revision history for App-SimpleScan-Plugin-Forget
1.02 Wed Aug 2 13:20:41 PDT 2006
- remove references to @accent
1.01 Mon Apr 10 09:54:26 PDT 2006
- Failed upload; trying again
1.00 Fri Mar 17 16:55:35 PST 2006
- verified that plugin meets App::SimpleScan
1.0 interface.
view all matches for this distribution
view release on metacpan or search on metacpan
1.02 Wed Aug 2 13:29:18 PDT 2006
- remove @accent from tests
1.01 Mon Apr 10 09:55:41 PDT 2006
- failed upload; trying again
1.00 Mon Mar 20 12:10:30 PST 2006
- Now 1.0 interface conformant
- per_test changed to filter; now get proper
output in all cases
view all matches for this distribution
view release on metacpan or search on metacpan
Revision history for App-SimpleScan-Plugin-Plaintext
1.02 Wed Aug 2 13:31:19 PDT 2006
- remove @accent from tests
1.01 Mon Apr 10 09:57:04 PDT 2006
- failed upload; trying again
1.00 Fri Mar 17 17:28:10 PST 2006
- verify this works with the 1.0 interfaces
0.03 Fri Mar 17 11:57:24 PST 2006
view all matches for this distribution
view release on metacpan or search on metacpan
Revision history for App-SimpleScan-Plugin-Retry
1.02 Wed Aug 2 13:22:23 PDT 2006
- remove @accent from tests
1.01 Mon Apr 10 09:59:21 PDT 2006
- failed upload; trying again
0.02 Tue Feb 28 13:02:42 PST 2006
Update to match quoting in App::SimpleScan.
Update to match automatic stacking of user agent code.
view all matches for this distribution
view release on metacpan or search on metacpan
1.03 Tue Apr 25 17:14:47 PDT 2006
- interface mismatch: should be last_line, not
current_line
1.02 Mon Apr 10 10:01:24 PDT 2006
- failed upload; trying again
1.01 Tue Mar 21 16:15:49 PST 2006
- added changelog entry for 1.00
- added support for snap_layout pragma and
command-line option
view all matches for this distribution
view release on metacpan or search on metacpan
- mysterious 08cache.t test failure solved!
- began work on substitution optimization
- suppressed (finally) the Text::Balanced warnings
1.02 Mon Apr 10 09:51:38 PDT 2006
- Initial upload failed; trying again
1.01 Fri Mar 31 13:06:43 PST 2006
- Changed shebang line to use /usr/bin/env
(not /home/y, d'oh).
view all matches for this distribution
view release on metacpan or search on metacpan
- Tidied (Ioan Rogers)
- New critic and tidy configs (Ioan Rogers)
- perform utf8 tests (Ioan Rogers)
- Move content loading into Note, and always use utf8 (Ioan Rogers)
- Added utf8 test file (Ioan Rogers)
- Better handle files without keys which fail to upload (Ioan Rogers)
- Handle reading metadata better, there may be other xattrs on the file
(Ioan Rogers)
- Fix _check_notes_dir sig for calling via trigger (Ioan Rogers)
0.1.2 2012-05-04T10:16:39Z
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/Sky.pm view on Meta::CPAN
=encoding UTF-8
=head1 NAME
App::Sky - wrapper to rsync/etc. to upload files to a remote server and give
download links.
=head1 VERSION
version 0.8.0
lib/App/Sky.pm view on Meta::CPAN
---
default_site: homepage
sites:
homepage:
base_upload_cmd:
- 'rsync'
- '-a'
- '-v'
- '--progress'
- '--inplace'
dest_upload_prefix: 'hostgator:public_html/'
dest_upload_url_prefix: 'http://www.shlomifish.org/'
sections:
code:
basename_re: '\.(?:pl|pm|c|py)\z'
target_dir: 'Files/files/code/'
music:
lib/App/Sky.pm view on Meta::CPAN
Then you can use commands such as:
$ sky up /path/to/my-music-file.mp3
And get in return a URL to where it was uploaded.
=for :stopwords cpan testmatrix url bugtracker rt cpants kwalitee diff irc mailto metadata placeholders metacpan
=head1 SUPPORT
lib/App/Sky.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-Sky>
=item *
lib/App/Sky.pm view on Meta::CPAN
The code is open to the world, and available for you to hack on. Please feel free to browse it and play
with it, or whatever. If you want to contribute patches, please send me a diff or prod me to pull
from your repository :)
L<https://github.com/shlomif/Sky-uploader>
git clone git://github.com/shlomif/Sky-uploader.git
=head1 AUTHOR
Shlomi Fish <shlomif@cpan.org>
=head1 BUGS
Please report any bugs or feature requests on the bugtracker website
L<https://github.com/shlomif/Sky-uploader/issues>
When submitting a bug or request, please include a test-file or a
patch to an existing test-file that illustrates the bug or desired
feature.
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Slaughter/Transport/revisionControl.pm view on Meta::CPAN
B<NOTE>: A full checkout of the remote repository is always inititated by
this module.
It is possible that a future extension to this module will allow an existing
repository to be uploaded in-place.
=cut
=head1 SUBCLASSING
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/Smbxfer.pm view on Meta::CPAN
# Exports...
use base qw( Exporter );
our @EXPORT_OK = qw(
credentials do_smb_transfer parse_smb_spec
create_smb_dir_path create_local_dir_path smb_element_type
smb_upload smb_download
);
__PACKAGE__->run unless caller;
#######
lib/App/Smbxfer.pm view on Meta::CPAN
}
my $rc = 0;
if( $source_is_local ) {
# Transfer: local -> remote...
$rc = smb_upload(
SMB_OBJ => $smb,
SOURCE => $local_path,
SMB_PATH_SPEC => $smb_path_spec,
RECURSIVE => $recursive
);
lib/App/Smbxfer.pm view on Meta::CPAN
return 1;
}
#########################
sub smb_upload {
my %param = @_;
my $smb = $param{SMB_OBJ} or croak "Filesys::SmbClient object required for upload";
my $local_src = $param{SOURCE} or croak "Name of local file or directory required for upload";
my $smb_path_spec = $param{SMB_PATH_SPEC} or croak "SMB path specification of destination required for upload";
my $recursive = $param{RECURSIVE};
my $elem_type = smb_element_type( $smb, $smb_path_spec );
my ($src_basename) = ($local_src =~ m|([^/]*)$| );
lib/App/Smbxfer.pm view on Meta::CPAN
or croak "cannot opendir: $!";
while ( my $local_dir_elem = readdir( $local_dir ) ) {
next if $local_dir_elem =~ /^\.{1,2}$/; # skip . and ..
smb_upload(
SMB_OBJ => $smb,
SOURCE => $local_src . '/' . $local_dir_elem,
SMB_PATH_SPEC => $smb_path_spec . '/' . $src_basename,
RECURSIVE => 1
);
lib/App/Smbxfer.pm view on Meta::CPAN
SOURCE_IS_LOCAL => $whether_or_not_source_is_local_path,
RECURSIVE => 1,
CREATE_PARENTS => 1
);
Handles setup for upload/download, then delegates responsibility for file
transfer to the appropriate handler.
=head2 parse_smb_spec
my ($smb_parent_path, $smb_path, $smb_share_spec) =
lib/App/Smbxfer.pm view on Meta::CPAN
RECURSIVE => 0
);
Download a file from a Samba network share to the local filesystem.
=head2 smb_upload
smb_upload(
SMB_OBJ => $smb,
SOURCE => $local_path,
SMB_PATH_SPEC => $smb_path_spec,
RECURSIVE => 1
);
lib/App/Smbxfer.pm view on Meta::CPAN
specification" format: '//<server>/<share>[/<path>]'
=item C<< Error: local source F< source > is not a file or a directory >>
Only files or directories may be uploaded to a Samba server.
=item C<< Error: SMB source F< source > is not a file or a directory >>
Only files or directories may be downloaded from a Samba server.
lib/App/Smbxfer.pm view on Meta::CPAN
The --recursive option must be used for directory transfers.
=item C<< F< path > is not a directory or a file...ignoring. >>
Only files or directories can be uploaded or downloaded using smb_upload() or
smb_download().
=item C<< cannot open file: ... >>
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/Smolder/Report.pm view on Meta::CPAN
unless $self->project_id;
$self->_fatal("Required 'username' setting is empty or missing")
unless $self->username;
$self->_fatal("Required 'password' setting is empty or missing")
unless $self->password;
$self->_fatal("You must provide at least one report to upload")
unless @_;
return $self->_upload_reports(@_);
}
sub _upload_reports {
my ($self, @reports) = @_;
my $server = $self->server;
my $reports_url;
$server = "http://$server"
lib/App/Smolder/Report.pm view on Meta::CPAN
}
}
}
else {
$self->_fatal(
"Could not upload report '$report_file'",
"HTTP Code: ".$response->code,
$response->message,
);
}
}
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/SpeedTest.pm view on Meta::CPAN
$ speedtest --ping --country=BE
$ speedtest
$ speedtest -s 4358
$ speedtest --url=http://ookla.extraip.net
$ speedtest -q --no-download
$ speedtest -Q --no-upload
=head1 DESCRIPTION
The provided perl script is a command-line interface to the
L<speedtest.net|http://www.speedtest.net/> infrastructure so that
lib/App/SpeedTest.pm view on Meta::CPAN
$ speedtest -T3 -c NL -Q2
Testing for 80.x.y.z : XS4ALL Internet BV (NL)
Using 13218: 26.52 km 25 ms XS4ALL Internet BV
Test download .. Download 31.807 Mbit/s
Test upload .. Upload 86.587 Mbit/s
Using 15850: 26.09 km 25 ms QTS Data Centers
Test download .. Download 80.763 Mbit/s
Test upload .. Upload 77.122 Mbit/s
Using 11365: 26.09 km 27 ms Vancis
Test download .. Download 106.022 Mbit/s
Test upload .. Upload 82.891 Mbit/s
Rank 01: Server: 11365 26.09 km 27 ms, DL: 106.022 UL: 82.891
Rank 02: Server: 15850 26.09 km 25 ms, DL: 80.763 UL: 77.122
Rank 03: Server: 13218 26.52 km 25 ms, DL: 31.807 UL: 86.587
lib/App/SpeedTest.pm view on Meta::CPAN
$ speedtest -1s4358
Testing for 80.x.y.z : XS4ALL Internet BV ()
Using 4358: 52.33 km 64 ms KPN
Test download ........................................Download: 92.633 Mbit/s
Test upload ........................................Upload: 92.552 Mbit/s
DL: 92.633 Mbit/s, UL: 92.552 Mbit/s
This argument may be repeated to test against multile servers, more or less
like specifying your own top x (as with C<-T>).
$ speedtest -s 22400 -s 1208 -s 13218
Testing for 185.x.y.z : Freedom Internet BV ()
Using 13218: 80.15 km 32 ms XS4ALL Internet BV
Test download ........................................Download 66.833 Mbit/s
Test upload ........................................Upload 173.317 Mbit/s
Using 1208: 51.19 km 37 ms Qweb | Full-Service Hosting
Test download ........................................Download 52.077 Mbit/s
Test upload ........................................Upload 195.833 Mbit/s
Using 22400: 80.15 km 46 ms Usenet.Farm
Test download ........................................Download 96.341 Mbit/s
Test upload ........................................Upload 203.306 Mbit/s
Rank 01: Server: 22400 80.15 km 46 ms, DL: 96.341 UL: 203.306
Rank 02: Server: 1208 51.19 km 37 ms, DL: 52.077 UL: 195.833
Rank 03: Server: 13218 80.15 km 32 ms, DL: 66.833 UL: 173.317
If you pass a filename, it is expected to reflect a server-like structure as
received from the speedtest server-list, possibly completed with upload- and
download URL's. You can only pass one filename not consisting of all digits.
If you do, all remaining C<-s> arguments are ignored.
{ cc => "NL",
country => "Netherlands",
lib/App/SpeedTest.pm view on Meta::CPAN
lat => "52.37316",
lon => "4.89122",
name => "Amsterdam",
ping => 20.0,
sponsor => "Dam tot Damloop",
url => "http://unlisted.host.amsterdam/speedtest/speedtest/upload.php",
url2 => "http://unlisted.host.amsterdam/speedtest/speedtest/upload.php",
dl_list => [
"http://unlisted.host.amsterdam/files/128.bin",
"http://unlisted.host.amsterdam/files/256.bin",
# 40 URL's pointing to files in increasing size
lib/App/SpeedTest.pm view on Meta::CPAN
=item -d | --download
X<-d>
X<--download>
Run the download tests. This is default unless L</--upload> is passed.
=item -u | --upload
X<-u>
X<--upload>
Run the upload tests. This is default unless L</--download> is passed.
=item -q[#] | --quick[=#] | --fast[=#]
X<-q>
X<--quick>
X<--fast>
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/SpreadRevolutionaryDate/BlueskyLite.pm view on Meta::CPAN
$img_url = $url . $img_url;
}
my $img_response = $ua->get($img_url);
return unless $img_response->is_success;
my $blob_req = HTTP::Request->new('POST', 'https://bsky.social/xrpc/com.atproto.repo.uploadBlob');
$blob_req->header('Content-Type' => $img_response->header('Content-Type'));
$blob_req->content($img_response->content);
my $blob_response = $self->{ua}->request($blob_req);
return unless $blob_response->is_success;
lib/App/SpreadRevolutionaryDate/BlueskyLite.pm view on Meta::CPAN
local $/;
$img_bytes = <$fh>;
}
close $fh;
my $blob_req = HTTP::Request->new('POST', 'https://bsky.social/xrpc/com.atproto.repo.uploadBlob');
$blob_req->header('Content-Type' => $mime_type);
$blob_req->content($img_bytes);
my $blob_response = $self->{ua}->request($blob_req);
return unless $blob_response->is_success;
view all matches for this distribution
view release on metacpan or search on metacpan
share/res/css/bootstrap.css view on Meta::CPAN
.icon-download {
background-position: -120px -24px;
}
.icon-upload {
background-position: -144px -24px;
}
.icon-inbox {
background-position: -168px -24px;
view all matches for this distribution
view release on metacpan or search on metacpan
# App::Stopwatch
Simple console stopwatch.

## Installation
Just [save the script][script_url] somewhere in the PATH of your system.
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/SuperviseMe.pm view on Meta::CPAN
=item *
CPAN Testers
The CPAN Testers is a network of smokers who run automated tests on uploaded CPAN distributions.
L<http://www.cpantesters.org/distro/A/App-SuperviseMe>
=item *
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/Sybil/Command/release.pm view on Meta::CPAN
my $file = $self->app->output_file($version, $target);
my $type = $file =~ /\.zip$/ ? 'application/zip' : 'application/gzip';
my $data = read_file($file, { binmode => ':raw' });
my $size = length $data;
say STDERR "Uploading $file ($type): $size bytes";
my $asset = $repos->upload_asset($release->{id}, $file, $type, $data);
}
say STDERR "Released $version at $release->{html_url}";
}
view all matches for this distribution
view release on metacpan or search on metacpan
inc/Devel/CheckOS.pm view on Meta::CPAN
have access to most of them and have had to work from information
gleaned from L<perlport> and a few other places. For a complete list of
OS families, see L<Devel::CheckOS::Families>.
If you want to add your own OSes or families, see L<Devel::AssertOS::Extending>
and please feel free to upload the results to the CPAN.
=head1 BUGS and FEEDBACK
I welcome feedback about my code, including constructive criticism.
Bug reports should be made using L<http://rt.cpan.org/> or by email.
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/Tac_n.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-Tac_n>
=item *
view all matches for this distribution
view release on metacpan or search on metacpan
#! /usr/bin/perl
# PODNAME: tprove
# ABSTRACT: Tapper - alternative 'prove' which uploads results to a Tapper server
# -----------------------------------------------------------
# Keep this a single file with no external libs and only core
# dependencies, so we can use that script in any restricted
# environment. Similar spirit as bash-test-utils.
=encoding utf-8
=head1 NAME
tprove - Tapper - alternative 'prove' which uploads results to a Tapper server
=head1 SYNOPSIS
$ prove -vl t/ # normal prove until satisfied
$ tprove -vl t/ # nearly the same, just a little "t" in front
This is a drop-in replacement for C<prove> to run TAP-based test suites.
It executes the normal C<prove> but injects additional parameters to
generate C<prove>'s results into a so called I<TAP-Archive>, then
injects some meta information into this archive, and finally uploads
the generated archive to your personal B<Tapper> instance, based on
the environment variable C<TAPPER_REPORT_SERVER> (and optionally
C<TAPPER_REPORT_PORT>).
Learn more about Tapper on L<tapper-testing.org|http://tapper-testing.org>.
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/TaskBuilder.pm view on Meta::CPAN
Naming a package C<Task::Something> is a convention for distributions that
exist only to make sure that a certain set of modules is installed.
Building these Task distributions by hand is a pain. App::TaskBuilder
automates the process, giving you a tarball that you can then upload,
manipulate with CPAN/CPANPLUS, etc.
=head1 PARAMETERS
=head2 name
view all matches for this distribution
view release on metacpan or search on metacpan
local/lib/perl5/File/Remove.pm view on Meta::CPAN
=item *
CPAN Testers
The CPAN Testers is a network of smokers who run automated tests on uploaded CPAN distributions.
L<http://www.cpantesters.org/distro/F/File-Remove>
=item *
view all matches for this distribution
view release on metacpan or search on metacpan
Installation
------------
Templer is developed in a public fashion, here on github, but stable releases
are also uploaded to CPAN:
* [App::Templer](http://search.cpan.org/dist/App-Templer/)
Installation should be as simple as any other CPAN-based module:
adding the [`templer.cfg`](https://raw.github.com/skx/templer/master/templer.cfg.sample)
to it, and then creating the input tree and layout directory.
There are several [examples](examples/) provided with the distribution to illustrate the
software. These example sites are built automatically every evening and
uploaded online - so you may easily compare the input and the generated
output:
* [simple example source](https://github.com/skx/templer/tree/master/examples/simple)
* The online [generated output](http://www.steve.org.uk/Software/templer/examples/simple/output/).
* [complex example source](https://github.com/skx/templer/tree/master/examples/complex)
view all matches for this distribution
view release on metacpan or search on metacpan
author/patch-next-version.pl view on Meta::CPAN
my $expectedDist = "App-TestOnTap-$nextVersion.tar.gz";
system("$mkcmd dist 2>&1");
die("Failed making dist '$expectedDist'\n") if ($? || !-f $expectedDist);
print "The current branch is '$br[0]' with next version = '$nextVersion'\n";
print "Ready to commit => tag => push => upload? ";
my $a = <STDIN>;
chomp($a);
if (lc($a) eq 'yes')
{
print "Committing, tagging, pushing and uploading...\n";
system("git commit -a -F $msgfile2 2>&1");
die("Failed commit") if $?;
system("git tag $nextTag 2>&1");
die("Failed tag\n") if $?;
system("git push origin $br[0] $nextTag 2>&1");
die("Failed push\n") if $?;
system("cpan-upload -v --user knth $expectedDist");
die("Failed upload\n") if $?;
}
else
{
my @realclean = qx($mkcmd realclean 2>&1);
die("Failed making realclean:\n@realclean") if $?;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/Timestamper/Format.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-Format>
=item *
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/Timestamper/Log/Process.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-Log-Process>
=item *
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/Timestamper.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>
=item *
view all matches for this distribution