Result:
found more than 723 distributions - search limited to the first 2001 files matching your query
( run in 2.262 )
Amethyst
view release on metacpan or search on metacpan
factpacks/Linux.fact view on Meta::CPAN
authlocal => <reply> $who, Automatic authentication of connections from localhost. URL: http://shadowlands.org/authlocal/
auth_ipc_module => <reply> $who, Shadow password authentication module for Apache. URL: http://sb.123.org/mod_auth_ipc.html
auth_ldap => <reply> $who, LDAP authentication for Apache. URL: http://www.rudedog.org/auth_ldap/
Auto DynDns => <reply> $who, Perl Frontend to DDUP, a dyndns updater. URL: http://www.iol7.com/funtaff/autodyndns/
Auto Redialer => <reply> $who, Auto Redialer for ppp-go and ppp-on scripts. URL: http://members.xoom.com/jengelbr/
auto-upload => <reply> $who, program that uploads files to an FTP account non-interactively. URL: http://cryogen.com/ror4/work/
Autobuse => <reply> $who, Log monitoring and reporting tool. URL: http://www.picante.com/~gtaylor/autobuse/
AutoCD => <reply> $who, Autostarts audio/data/mixed CDs when they're inserted.. URL: http://www.linuxstart.com/~igloo/download/autocd/
Autoclose => <reply> $who, This utility automatically closes one app when another is finished. URL: http://www.crosswinds.net/~pkrishnan/
autoconf => <reply> $who, Package of m4 macros to produce scripts that automatically configures sourcecode. URL: http://sourceware.cygnus.com/autoconf/
autoconf-sectest => <reply> $who, GNU autoconf macros to test for various common secure holes at configure time. URL: http://checkps.alcom.co.uk/
factpacks/Linux.fact view on Meta::CPAN
DWUN => <reply> $who, Controls PPP link by client requests for connection. URL: http://homepages.ihug.co.nz/~umbrella/
dxpc => <reply> $who, X protocol compressor. URL: http://www.vigor.nu/dxpc/
DXSpider DX Cluster => <reply> $who, A Ham Radio DX Cluster written in perl for Linux. URL: http://www.dxcluster.org
DyDNS => <reply> $who, Dynamic DNS environment for intranets. URL: http://freetings.com/linux/index.html
dyn-html => <reply> $who, Scripts which generate redirection Web pages for dynamic IP users. URL: http://www.linuxnetmag.de/series/projects/dyn_html.html
dyn-ip-page.sh => <reply> $who, This script makes files containing your IP and uploads them. URL: http://www.apci.net/~shorti/dyn-ip-page.html
dynahtml.pl => <reply> $who, HTML-editing Perl script. URL: http://www.angelfire.com/wi/spoon/index.html
Dynamic DNS Perl Scripts => <reply> $who, A Set of Perl scripts to update a domain using bind8 Dynamic Update Feature. URL: http://www.dynam.ac/dns/
Dynamic DNS Server Client => <reply> $who, The server opens port 7007 and listens for incoming connections. URL: http://www.crashed.net/~chet/
DynamicJava => <reply> $who, Java source interpreter. URL: http://www.inria.fr/koala/djava/
Dynamics - HUT Mobile IP => <reply> $who, Dynamic, scalable, hierarchical Mobile IP system with localized location updates. URL: http://www.cs.hut.fi/Research/Dynamics/
factpacks/Linux.fact view on Meta::CPAN
GtkShadow => <reply> $who, web-oriented graphic tool. URL: http://www.comm.cc/~gianx/linux.html
GtkSheet => <reply> $who, A matrix/grid widget for Gtk+. URL: http://www.ifir.edu.ar/grupos/gtk/index.html
GtkSigGen => <reply> $who, An audio signal generator with a GTK+ interface.. URL: http://cygnus.ipal.org/
gtkSlash => <reply> $who, Gtk+ based Slashdot headlines news ticker. URL: http://www.sonic.net/~tengel/gtkslash/
GtkSQL => <reply> $who, Interactive query tool for PostgreSQL. URL: http://www.multimania.com/bbrox/GtkSQL/
gtkstamp => <reply> $who, A GTK+ app for grabbing, timestamping, and uploading jpegs from a quickcam. URL: http://stamp.netpedia.net
GTKstep => <reply> $who, Improves the default look and feel of the GTK+ widget set. URL: http://ulli.linuxbox.com/gtkstep/
GTKtalog => <reply> $who, Fast Disk Catalog using a friendly interface.. URL: http://gtktalog.iskewl.com/
gtktetcolor => <reply> $who, A small Tetris clone for X.. URL: http://www.dvgu.ru/ifit/~panov/gtktetcolor/
GtkTiLink => <reply> $who, A TI calculators <-> PC communication program using a GTK interface. URL: http://gtktilink.ticalc.org/
GTKtrue => <reply> $who, The long awaited GUI to /bin/true. URL: http://www.mds.mdh.se/~dat95jnn/linux/gtrue/
factpacks/Linux.fact view on Meta::CPAN
mp3agent => <reply> $who, Automatic search and retrieval for mp3 files. URL: http://www.digitallabyrinth.com/linux/mp3agent/index.html
mp3album.pl => <reply> $who, MP3 Album list generator in Perl. URL: http://zeus.informatik.uni-frankfurt.de/~corion/
mp3blaster => <reply> $who, Provides interactive playing of mp3 files on a text console. URL: http://www.stack.nl/~brama/mp3blaster.html
MP3c => <reply> $who, Audio-CD to MP3-Converter, with use of CDDB. URL: http://excelsior.kullen.rwth-aachen.de/WSPse/Linux-MP3c.php3
mp3d => <reply> $who, Client-server MP3-player. URL: http://student.fho-emden.de/~hhaak/progs.html
mp3db => <reply> $who, Recursively scans a directory for mp3s and uploads them to a database or file.. URL: http://www.malign.net/~bojay/hacks/
MP3ENC => <reply> $who, Demo version of a commercial MP3 encoder. URL: http://www.iis.fhg.de/amm/download/mp3enc/
MP3html => <reply> $who, Make configurable listings of MP3s based on their ID3v1 tags. URL: http://ns.bethany.edu/bdc/software/mp3html.html
MP3info => <reply> $who, A small program to set MP3s' ID3. URL: ftp://ftp.ssi.aaum.pt/pub/linux/mp3info/
mp3info (second) => <reply> $who, A simple utility to read, write and print MP3-TAG info. URL:
Mp3Jukebox => <reply> $who, Internet/Web-based Mp3Jukebox. URL: http://ananke.worldonline.nl/~t755188/
factpacks/Linux.fact view on Meta::CPAN
ocsadmin => <reply> $who, ocsadmin is a web admin tool to maintain user accounts. URL: http://demo.obsidian.co.za/
ocscal => <reply> $who, An intranet calendar system featuring shared appointments. URL: http://demo.obsidian.co.za/
ocschat => <reply> $who, Intranet Chat server and embedded java client, assimilated for ocsweb project. URL: http://demo.obsidian.co.za/
ocsemail => <reply> $who, Electronic web email system for you intranet. URL: http://demo.obsidian.co.za/
ocsexplorer => <reply> $who, ocsexplorer is an intranet file explorer for linux. URL: http://demo.obsidian.co.za
ocsfiles => <reply> $who, Front-end to your ftp site, allowing easy uploads and indexing. URL: http://demo.obsidian.co.za/
Octave => <reply> $who, . URL: http://bevo.che.wisc.edu/octave/
OCTREE => <reply> $who, 3D-CAD for architects / Powerful User Interface by Menu Motion Control. URL: http://www.octree.de
ODARS ISP Server => <reply> $who, Lets you easily host and manage Win clients' Web databases.. URL: http://www.odars.com/
ODBC-ODBC Bridge => <reply> $who, Provides ODBC access from Unix to remote ODBC data sources. URL: http://beta.easysoft.com/
oFBis => <reply> $who, Framebuffer graphical library for Linux.. URL: http://osis.nocrew.org/ofbis/
factpacks/Linux.fact view on Meta::CPAN
PCI40A/FastDAC Linux driver => <reply> $who, Device driver for PCI40 Industry pack carrier board and FastDAC. URL: http://www.csee.umbc.edu/~vkorol1/pci40/
pciaudio => <reply> $who, . URL: http://www.ife.ee.ethz.ch/~sailer/linux/pciaudio.html
pcl-cvs => <reply> $who, emacs frontend to CVS. URL: ftp://rum.cs.yale.edu/pub/monnier/pcl-cvs/
pclock => <reply> $who, A customizable dockable analog clock for Window Maker.. URL: http://www.kourakos.com/~awk/pclock/
pcmcia-cs => <reply> $who, Card Services for Linux is a complete PCMCIA or ``PC Card'' support package.. URL: http://pcmcia.sourceforge.org/
PCP => <reply> $who, Stubborn upload/download program. URL: http://www.pike-community.org/code/show_single.html?id=2
PCRE => <reply> $who, A library that implements Perl 5-style regular expressions.. URL: ftp://ftp.cus.cam.ac.uk/pub/software/programs/pcre/
pcwd => <reply> $who, Berkshire Products PC Watchdog Card Linux Kernel Driver. URL: http://www.eiboeck.de/goodies/linux/
PD AI => <reply> $who, Primitive AI for study, porting and further development.. URL: http://www.geocities.com/Athens/Agora/7256/pdai.html
PDAddUser => <reply> $who, Tool for administering large amounts of users easily from simple text lists. URL: http://ghs.ssd.k12.wa.us/~pdavis/
PDAI => <reply> $who, Public Domain Artificial Intelligence for Linux, etc.. URL: http://www.geocities.com/Athens/Agora/7256/pdai.html
factpacks/Linux.fact view on Meta::CPAN
Site Studio => <reply> $who, Site Studio is an online template-based Web site creation tool. URL:
RSync Manager => <reply> $who, RSync Manager (RSM) is a set of Python scripts to add and update packages for rsync-based mirror sites, and also create some nice HTML statistics from the logs. URL: http://www.softlab.ece.ntua.gr/~ckotso/RSM/RSM-0.2.0....
lispreader => <reply> $who, lispreader is a small library for reading expressions in Lisp syntax. URL: http://www.complang.tuwien.ac.at/~schani/lispreader/lispreader-0.1.tar.gz
KIrcPoker => <reply> $who, KIrcPoker is a graphical interface client to the on-line poker games that are played on the popular IRC (Internet Relay Chat) server at irc.poker.net.. URL: http://www.geocities.com/~engstad/kircpoker/kircpoker-0.3.tar.gz
Euro Converter => <reply> $who, Euro Converter is a little calculator which automagically converts Euro amounts into other equivalent currency values. URL: http://www.jedi.claranet.fr/euroconvert.tar.gz
PHP File Upload Class => <reply> $who, fileupload.class extends PHP's native support for uploading image and text files through a Web browser. URL: http://dave.imarc.net/downloads/fileupload.tar.gz
ixj => <reply> $who, Device drivers for Quicknet's Internet LineJACK and Internet PhoneJACK telephony/VoIP cards.. URL: http://www.quicknet.net/develop.htm
RDX => <reply> $who, RDX (Reverse Distributed Cron-like System) is a set of clients to connect to a server, and identify themselves via a string, and get a job list with schedules. URL: http://www.nobis.com/~ora/CS.tar.gz
dnscvsutil => <reply> $who, dnscvsutil maintains your DNS zone files under CVS control, and automatically updates reverse zones.. URL: http://hq.yok.utu.fi/download/
Moe Music => <reply> $who, Moe Music is a Web front end to mpg123 that contains a list of songs that can be queued and selected.. URL: http://www.users.bigpond.com/jwrennie/moe_music.0.1.0.tar.gz
RandGen => <reply> $who, RandGen is a small applet that can generate random data in CSV format which can be imported into postgresql or other DBMs.. URL:
Amon2-Plugin-Web-FormValidator-Simple
view release on metacpan or search on metacpan
0.04 Sun Sep 9 16:33:00 2012
- arrange dist tar.gz
0.03 Sun Sep 2 13:00:00 2012
- first CPAN upload
0.01 Sat Sep 1 09:51:51 2012
- original version
Amon2
view release on metacpan or search on metacpan
script/amon2-setup.pl view on Meta::CPAN
% amon2-setup.pl MyApp
--flavor=Basic basic flavour (default)
--flavor=Lite Amon2::Lite flavour (need to install)
--flavor=Minimum minimalistic flavour for benchmarking
--flavor=Standalone CPAN uploadable web application(EXPERIMENTAL)
--vc=Git setup the git repository (default)
--list-flavors (or -l) Shows the list of flavors installed
Analizo
view release on metacpan or search on metacpan
### Release task
The Dist::Zilla task `dzil release` do:
* run all tests
* build a tar.gz package and upload to CPAN
* create and push git tag to GitHub
### Debian package
Analizo has oficial Debian package and it's managed at Debian Perl Group
Anansi-Script
view release on metacpan or search on metacpan
-AX Anansi::Script
0.02 Wed May 22 11:05:25 2013
- modified POD
- corrected HASH reference deprecations.
0.03 Sat May 25 02:02:56 2013
- CPAN re-upload.
0.04 Tue Apr 09 16:27:51 2019
- modified module dependencies in makefile.
- modified README to reflect module dependencies.
Ansible-Util
view release on metacpan or search on metacpan
t/ansible-test1/ansible.cfg view on Meta::CPAN
# The daemon timeout is measured in minutes. This time is measured
# from the last activity to the accelerate daemon.
#accelerate_daemon_timeout = 30
# If set to yes, accelerate_multi_key will allow multiple
# private keys to be uploaded to it, though each user must
# have access to the system via SSH to add a new key. The default
# is "no".
#accelerate_multi_key = yes
[selinux]
Antsy
view release on metacpan or search on metacpan
lib/Antsy.pm view on Meta::CPAN
More on File Transfers
By omitting the inline argument (or setting its value to 0), files will be downloaded and saved in the Downloads folder instead of being displayed inline. Any kind of file may be downloaded, but only images will display inline. Any image format that ...
If the file's size exceeds the declared size, the transfer may be canceled. This is a security measure to prevent a download gone wrong from using unbounded memory.
=item * uploads
To request the user select one or more files to upload, send:
OSC 1337 ; RequestUpload=format=[type] ST
In the future the [type] may be configurable, but for now it must always be tgz, which is a tar and gzipped file.
When iTerm2 receives this it will respond with a status of ok or abort followed by a newline. If the status is ok then it will be followed by a base-64 encoded tar.gz file.
Any-Daemon-HTTP
view release on metacpan or search on metacpan
lib/Any/Daemon/HTTP/VirtualHost.pod view on Meta::CPAN
that tree.
example:
$vhost->addHandler('/' => \&default_handler
, '/upload' => \&upload_handler);
$vhost->addHandler(\&default_handler);
# [0.21] will call $vhost->formHandle
$vhost->addHandler('/form' => 'formHandler');
lib/Any/Daemon/HTTP/VirtualHost.pod view on Meta::CPAN
When a request for an URI is received, it is first checked whether
a static file can fulfil the request. If not, a search is started
for the handler with the longest path.
# /upload($|/*) goes to the upload_handler
$vhost->addHandlers
( '/' => \&default_handler
, '/upload' => \&upload_handler
);
# Missing files go to the default_handler
# which is actually replacing the existing one
$vhost->addHandler(\&default_handler);
lib/Any/Daemon/HTTP/VirtualHost.pod view on Meta::CPAN
$vhost->addHandler('/form' => 'formHandler');
The handlers are called with many arguments, and should return an
HTTP::Response object:
$vhost->addHandler('/upload' => $handler);
my $resp = $hander->($vhost, $session, $req, $uri, $tree);
$vhost->addHandler('/form' => $method);
my $resp = $vhost->$method($session, $req, $uri, $tree);
AnyEvent-BitTorrent
view release on metacpan or search on metacpan
lib/AnyEvent/BitTorrent.pm view on Meta::CPAN
}
has $_ => (is => 'ro',
isa => Int,
default => sub {0},
writer => '_set_' . $_
) for qw[uploaded downloaded];
has infohash => (is => 'ro',
lazy => 1,
builder => '_build_infohash',
isa => $INFOHASH,
init_arg => undef
lib/AnyEvent/BitTorrent.pm view on Meta::CPAN
s/([^A-Za-z0-9])/sprintf("%%%2.2X", ord($1))/ge;
$_;
}
->($s->infohash)
. ('&peer_id=' . $s->peerid)
. ('&uploaded=' . $s->uploaded)
. ('&downloaded=' . $s->downloaded)
. ('&left=' . $s->_left)
. ('&port=' . $s->port)
. '&compact=1'
. ($e ? '&event=' . $e : '');
lib/AnyEvent/BitTorrent.pm view on Meta::CPAN
AE::log trace => 'Choke timer...';
my @interested
= grep { $_->{remote_interested} && $_->{remote_choked} }
values %{$s->peers};
# XXX - Limit the number of upload slots
for my $p (@interested) {
$p->{remote_choked} = 0;
$s->_send_encrypted($p->{handle}, build_unchoke());
AE::log trace => 'Choked %s', $p->{peerid};
}
lib/AnyEvent/BitTorrent.pm view on Meta::CPAN
)
);
$total_sent += $req->[2];
}
}
$s->_set_uploaded($s->uploaded + $total_sent);
}
);
}
);
has _peer_timer => (is => 'ro',
lib/AnyEvent/BitTorrent.pm view on Meta::CPAN
=head2 C<name( )>
Returns the UTF-8 encoded string the metadata suggests we save the file (or
directory, in the case of multi-file torrents) under.
=head2 C<uploaded( )>
Returns the total amount uploaded to remote peers.
=head2 C<downloaded( )>
Returns the total amount downloaded from other peers.
AnyEvent-Connection
view release on metacpan or search on metacpan
.gitignore
.portupload.yml
Changes
ex/example.pl
inc/Module/AutoInstall.pm
inc/Module/Install.pm
inc/Module/Install/AutoInstall.pm
AnyEvent-CouchDB
view release on metacpan or search on metacpan
1.22 2010-10-12
- Reverted a change to the exception code that serialized the exception data to JSON.
1.21 2010-09-13
- Had some problems with PAUSE. Same as 1.20. Reuploading.
1.20 2010-05-13
- a double-utf8 bug was fixed (by Stéphane)
- fetch attachments using open_attachment(). (by Michael Zedeler)
(by Yuval Kogman)
- added support for /db/_all_docs URL via the new open_docs() method.
(by Jan-Felix Wittmann)
1.07 2008-12-25
- 1.06 was a failed upload. Let's try this again.
1.06 2008-12-25
- not only 200 is OK, bulk docs returns 201 on success
(by Yuval Kogman)
- use URI->path to set the DB name (no problems with missing leading slash)
AnyEvent-Curl-Multi
view release on metacpan or search on metacpan
lib/AnyEvent/Curl/Multi.pm view on Meta::CPAN
connect_time => $easy_h->getinfo(CURLINFO_CONNECT_TIME),
start_transfer_time =>
$easy_h->getinfo(CURLINFO_STARTTRANSFER_TIME),
download_bytes =>
$easy_h->getinfo(CURLINFO_SIZE_DOWNLOAD),
upload_bytes => $easy_h->getinfo(CURLINFO_SIZE_UPLOAD),
};
if ($rv) {
# Error
$state->{cv}->croak($easy_h->errbuf);
$req->event('error', $easy_h->errbuf, $stats)
AnyEvent-FTP
view release on metacpan or search on metacpan
example/fget.pl view on Meta::CPAN
{
say STDERR "usage: perl fget.pl [ -d | -p ] [ -a ] remote";
say STDERR " where remote is a URL for a file on an FTP server";
say STDERR " and local is a local filename (optional) where to transfer it to";
say STDERR " -d (optional) prints FTP commands and responses";
say STDERR " -p (optional) displays a progress bar as the file uploads";
say STDERR " -a (optional) use active mode transfer";
exit 2;
}
$remote = URI->new($remote);
AnyEvent-HTTP
view release on metacpan or search on metacpan
- require scheme in urls, also use a stricter match to match urls,
leading or trailing garbage is no longer tolerated.
- EXPERIMENTAL: allow '=' in cookie values.
2.03 Tue Jan 18 18:49:35 CET 2011
- dummy reupload, file gone from cpan somehow.
2.02 Wed Jan 12 04:29:37 CET 2011
- do not lowercase cookie names, only parameter names.
2.01 Tue Jan 11 07:38:15 CET 2011
AnyEvent-HTTPD-ExtDirect
view release on metacpan or search on metacpan
lib/AnyEvent/HTTPD/ExtDirect.pm view on Meta::CPAN
: undef
;
};
# If any files are attached, extUpload field will be set to 'true'
my $has_uploads = $req->param('extUpload') eq 'true';
# Outgoing hash
my %keyword;
# Pluck all parameters from the Request object
lib/AnyEvent/HTTPD/ExtDirect.pm view on Meta::CPAN
: @values == 1 ? $values[0]
: [ @values ]
;
};
# Find all file uploads
for ( $has_uploads ? ($has_uploads) : () ) {
# The list of fields that contain file uploads
my @upload_fields = $req->upload_fields;
last unless @upload_fields;
my @uploaded_files;
for my $field_name ( @upload_fields ) {
my $uploads = $req->raw_param($field_name);
# We need files as a formatted list
my @field_uploads = map { $self->_format_upload($_) } @$uploads;
push @uploaded_files, @field_uploads;
# Now remove the field that contained files
delete @keyword{ $field_name };
}
$keyword{ '_uploads' } = \@uploaded_files if @uploaded_files;
};
# Metadata is JSON encoded; decode_metadata lives by side effects!
if ( exists $keyword{metadata} ) {
RPC::ExtDirect::Util::decode_metadata($self, \%keyword);
lib/AnyEvent/HTTPD/ExtDirect.pm view on Meta::CPAN
#
# Take the file content and metadata and format it in a way
# that RPC::ExtDirect handlers expect
#
sub _format_upload {
my ($self, $upload) = @_;
my $content_length = do { use bytes; length $upload->[0] };
my ($fh, $fname) = File::Temp::tempfile;
binmode $fh;
syswrite $fh, $upload->[0], $content_length;
sysseek $fh, 0, 0;
# We don't need the file content anymore, so try to release
# the memory it takes
$upload->[0] = undef;
my $filename = $upload->[2];
my $basename = File::Basename::basename($filename);
my $type = $upload->[1];
my $handle = IO::File->new_from_fd($fh->fileno, '<');
return {
filename => $filename,
basename => $basename,
lib/AnyEvent/HTTPD/ExtDirect.pm view on Meta::CPAN
# AnyEvent::HTTPD::Request stores the form parameters in a peculiar format:
# $self->{parm} is a hashref of arrayrefs; each arrayref contain one
# or more values, again in arrayrefs with fixed number of items:
# [ content, content-type, file-name ]
#
# For anything but file uploads, the last 2 elements are undef; for the
# file uploads they're the file MIME type and name, respectively.
#
# A dump might look like this:
#
# $self->{parm}:
# 0 HASH
lib/AnyEvent/HTTPD/ExtDirect.pm view on Meta::CPAN
# 0 'second file content'
# 1 'second file MIME type'
# 2 'second file name'
#
# There is no method that returns multiple values for a non-file field,
# and no method that returns file upload parameters, so we have to
# roll our own
#
sub param {
my ($self, $key) = @_;
lib/AnyEvent/HTTPD/ExtDirect.pm view on Meta::CPAN
return wantarray ? @values : shift @values;
}
# Go over the fields and return the list of names for the fields
# that contain file uploads
sub upload_fields {
my ($self) = @_;
my @upload_fields;
my $params = $self->{parm};
FIELD:
for my $field_name ( keys %$params ) {
my $values = $params->{ $field_name };
for my $value ( @$values ) {
# We surmise that for a file upload, at least MIME type
# should be defined (name is optional)
if ( defined $value->[1] ) {
push @upload_fields, $field_name;
next FIELD;
}
}
}
return @upload_fields;
}
sub raw_param {
my ($self, $key) = @_;
AnyEvent-Handle-Throttle
view release on metacpan or search on metacpan
lib/AnyEvent/Handle/Throttle.pm view on Meta::CPAN
use Errno qw[EAGAIN EINTR];
use AnyEvent::Util qw[WSAEWOULDBLOCK];
use parent 'AnyEvent::Handle';
our $MAJOR = 0.00; our $MINOR = 2; our $DEV = -5; our $VERSION = sprintf('%1.3f%03d' . ($DEV ? (($DEV < 0 ? '' : '_') . '%03d') : ('')), $MAJOR, $MINOR, abs $DEV);
sub upload_limit {
$_[1] ? $_[0]->{upload_limit} = $_[1] : $_[0]->{upload_limit};
}
sub download_limit {
$_[1] ? $_[0]->{download_limit} = $_[1] : $_[0]->{download_limit};
}
sub upload_total { $_[0]->{upload_total} }
sub download_total { $_[0]->{download_total} }
sub upload_speed { $_[0]->{upload_speed} }
sub download_speed { $_[0]->{download_speed} }
my ($global_upload_total, $global_download_total,
$global_upload_limit, $global_download_limit,
$global_upload_speed, $global_download_speed
);
my $global_period = 1;
sub global_upload_limit {
$_[1] ? $global_upload_limit = $_[1] : $global_upload_limit;
}
sub global_download_limit {
$_[1] ? $global_download_limit = $_[1] : $global_download_limit;
}
sub global_upload_total {$global_upload_total}
sub global_download_total {$global_download_total}
sub global_upload_speed {$global_upload_speed}
sub global_download_speed {$global_download_speed}
my ($global_read_size, $global_write_size,
$global__upload_speed, $global__download_speed);
my $global_reset_cb = sub {
$global_read_size = $global_download_limit;
$global_write_size = $global_upload_limit || 8 * 1024;
$global_upload_speed = $global__upload_speed;
$global_download_speed = $global__download_speed;
$global__upload_speed = $global__download_speed = 0;
};
$global_reset_cb->();
our $global_reset = AE::timer(0, $global_period, $global_reset_cb);
sub _start {
my $self = shift;
my $reset = sub {
$self->{read_size} = $self->{download_limit};
$self->{write_size} = $self->{upload_limit} || 8 * 1024;
$self->{upload_speed} = $self->{_upload_speed};
$self->{download_speed} = $self->{_download_speed};
$self->{_upload_speed} = $self->{_download_speed} = 0;
};
$self->{_period} ||= 1;
$self->{_reset} = AE::timer(0, $self->{_period}, $reset);
$reset->();
$self->SUPER::_start(@_);
lib/AnyEvent/Handle/Throttle.pm view on Meta::CPAN
}
my $len = syswrite $self->{fh}, $self->{wbuf}, $write;
if (defined $len) {
$self->{write_size} -= $len;
$global_write_size -= $len;
$self->{upload_total} += $len;
$global_upload_total += $len;
$self->{_upload_speed} += $len;
$global__upload_speed += $len;
substr $self->{wbuf}, 0, $len, "";
$self->{_activity} = $self->{_wactivity} = AE::now;
$self->{on_drain}($self)
if $self->{low_water_mark}
|| 0 >= length($self->{wbuf} || '')
lib/AnyEvent/Handle/Throttle.pm view on Meta::CPAN
use AnyEvent;
use AnyEvent::Handle::Throttle;
my $condvar = AnyEvent->condvar;
my $handle;
$handle = AnyEvent::Handle::Throttle->new(
upload_limit => 2, # Very...
download_limit => 50, # ...slow
connect => ['google.com', 'http'],
on_error => sub {
warn "error $_[2]\n";
$_[0]->destroy;
lib/AnyEvent/Handle/Throttle.pm view on Meta::CPAN
L<< C<<< AnyEvent::Handle->new( ... ) >>>|AnyEvent::Handle >>, this
constructor supports these arguments (all as C<< key => value >> pairs).
=over
=item upload_limit => <bytes>
This is the maximum amount of data (in bytes) written to the filehandle per
period. If C<upload_limit> is not specified, the upload rate is not limited.
Note that this value can/will override C<read_size>.
=item download_limit => <bytes>
This is the maximum amount of data (in bytes) read from the filehandle per
period. If C<download_limit> is not specified, the upload rate is not limited.
=back
=item $handle->B<upload_limit>( $bytes )
Sets/returns the current upload rate in bytes per period.
=item $handle->B<download_limit>( $bytes )
Sets/returns the current download rate in bytes per period.
=item $bytes = $handle->B<upload_speed>( )
Returns the amount of data written during the previous period.
=item $bytes = $handle->B<download_speed>( )
lib/AnyEvent/Handle/Throttle.pm view on Meta::CPAN
limit bandwidth and realize you'd rather set flat limits on the B<total>
bandwidth instead of per-handle, try these methods:
=over
=item AnyEvent::Handle::Throttle->B<global_upload_limit>( $bytes )
Sets/returns the current global upload rate in bytes per period.
=item AnyEvent::Handle::Throttle->B<global_download_limit>( $bytes )
Sets/returns the current global download rate in bytes per period.
=item $bytes = $handle->B<global_upload_speed>( )
Returns the amount of data written through all
L<AnyEvent::Handle::Throttle|AnyEvent::Handle::Throttle> objects during the
previous period.
lib/AnyEvent/Handle/Throttle.pm view on Meta::CPAN
=item $bytes = $handle->B<download_total>( )
Returns the total amount of data read through the
L<AnyEvent::Handle::Throttle|AnyEvent::Handle::Throttle> object.
=item $bytes = $handle->B<upload_total>( )
Returns the total amount of data written through the
L<AnyEvent::Handle::Throttle|AnyEvent::Handle::Throttle> object.
=item $bytes = $handle->B<global_download_total>( )
Returns the total amount of data read through all
L<AnyEvent::Handle::Throttle|AnyEvent::Handle::Throttle> objects so far.
=item $bytes = $handle->B<global_upload_total>( )
Returns the total amount of data sent through all
L<AnyEvent::Handle::Throttle|AnyEvent::Handle::Throttle> objects so far.
=back
lib/AnyEvent/Handle/Throttle.pm view on Meta::CPAN
The current default period is C<1> second.
=item *
On destruction, all remaining data is sent ASAP, ignoring the user defined
upload limit. This may change in the future.
=back
=head1 Bugs
AnyEvent-I3
view release on metacpan or search on metacpan
* fix MANIFEST
0.02 2010-03-23
* first upload to CPAN
AnyEvent-IMAP
view release on metacpan or search on metacpan
t/01_envelope.t view on Meta::CPAN
use warnings;
use utf8;
use Test::More;
use Mail::IMAP::Envelope;
my $envelope = Mail::IMAP::Envelope->new(['Thu, 2 Aug 2012 01:56:00 +0200','PAUSE indexer report TOKUHIROM/Amon2-3.38.tar.gz',[['PAUSE',undef,'upload','pause.perl.org']],[['PAUSE',undef,'upload','pause.perl.org']],[['PAUSE',undef,'upload','pause.perl...
is($envelope->date, 'Thu, 2 Aug 2012 01:56:00 +0200');
is($envelope->subject, 'PAUSE indexer report TOKUHIROM/Amon2-3.38.tar.gz');
is(join(',', map { $_->as_string } @{$envelope->from}), 'PAUSE <upload@pause.perl.org>');
is(join(',', map { $_->as_string } @{$envelope->sender}), 'PAUSE <upload@pause.perl.org>');
is(join(',', map { $_->as_string } @{$envelope->reply_to}), 'PAUSE <upload@pause.perl.org>');
is(join(',', map { $_->as_string } @{$envelope->to}), 'tokuhirom@gmail.com,andreas.koenig.gmwojprw+pause@franz.ak.mind.de');
is(join(',', map { $_->as_string } @{$envelope->cc}), '');
is(join(',', map { $_->as_string } @{$envelope->bcc}), '');
done_testing;
AnyEvent-ImageShack
view release on metacpan or search on metacpan
lib/AnyEvent/ImageShack.pm view on Meta::CPAN
$AnyEvent::HTTP::USERAGENT = $opt->{'user_agent'} || 'Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10_6_7; en-US) AppleWebKit/534.16 (KHTML, like Gecko) Chrome/10.0.648.205 Safari/534.16';
$AnyEvent::HTTP::MAX_PER_HOST ||= $opt->{'max_per_host'};
$AnyEvent::HTTP::ACTIVE ||= $opt->{'active' };
my $p = POST
'http://www.imageshack.us/upload_api.php',
Content_Type => 'multipart/form-data',
Content => [
fileupload => $file ? [ $file ] : [ '' ],
url => $url,
tags => $opt->{'tags'} || '',
rembar => $opt->{'remove_size'} || 1,
optimage => 1,
key => $opt->{'key'},
AnyEvent-Impl-NSRunLoop
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.
AnyEvent-Inotify-Simple
view release on metacpan or search on metacpan
lib/AnyEvent/Inotify/Simple.pm view on Meta::CPAN
use AnyEvent::Inotify::Simple;
use EV; # or POE, or Event, or ...
my $inotify = AnyEvent::Inotify::Simple->new(
directory => '/tmp/uploads/',
wanted_events => [ qw(create move) ],
event_receiver => sub {
my ($event, $file, $moved_to) = @_;
given($event) {
when('create'){
say "Someone just uploaded $file!"
}
};
},
);
AnyEvent-JSONRPC
view release on metacpan or search on metacpan
- Testing of new features (support for multiple versions)
- Making sure that marshalling of parameters makes sense in both ends
INSTALLATION (Not uploaded to CPAN yet)
AnyEvent::JSONRPC installation is straightforward. If your CPAN shell is set up,
you should just be able to do
% cpan AnyEvent::JSONRPC
AnyEvent-MP
view release on metacpan or search on metacpan
0.02 Sun Aug 2 17:46:43 CEST 2009
- design has stabilised a bit, sitll unusable.
0.01 Sat Aug 1 11:43:31 CEST 2009
- dummy upload to reserve namespace on CPAN.
0.0 Thu Jul 30 06:10:15 CEST 2009
- original version, an AnyEvent::AIO clone.
AnyEvent-MPV
view release on metacpan or search on metacpan
this is C<audio-delay>, and the current audio/subtitle track, which it
sets, and also creates an observer. Again, this doesn'T use the observe
functionality of this module, but handles it itself, assigning obsevrer
ids 100+ to temporary/per-file observers.
Lastly, it sets some global (or per-youtube-uploader) parameters, such as
speed, and unpauses. Property changes are handled like other input events:
} elsif ($INPUT eq "mpv/property-change") {
my $prop = $INPUT_DATA->{name};
AnyEvent-Net-Amazon-S3
view release on metacpan or search on metacpan
lib/AnyEvent/Net/Amazon/S3/Client/Object.pm view on Meta::CPAN
# TODO: _content_sub might become more async manner?
# NOTE: exists and delete have HIGH risk.
use Module::AnyEvent::Helper::Filter -as => __PACKAGE__, -target => 'Net::Amazon::S3::Client::Object',
-transformer => 'Net::Amazon::S3::Client::Object',
-translate_func => [qw(exists _get get get_decoded get_filename _put put put_filename delete
initiate_multipart_upload complete_multipart_upload abort_multipart_upload put_part)],
-replace_func => [qw(_send_request_raw _send_request _send_request_xpc)]
;
1;
lib/AnyEvent/Net/Amazon/S3/Client/Object.pm view on Meta::CPAN
key => 'my secret',
encryption => 'AES256',
);
$object->put('this data will be stored using encryption.');
# upload a file
my $object = $bucket->object(
key => 'images/my_hat.jpg',
content_type => 'image/jpeg',
);
$object->put_filename('hat.jpg');
# upload a file if you already know its md5_hex and size
my $object = $bucket->object(
key => 'images/my_hat.jpg',
content_type => 'image/jpeg',
etag => $md5_hex,
size => $size,
lib/AnyEvent/Net/Amazon/S3/Client/Object.pm view on Meta::CPAN
=item put_async
=item put_filename_async
=item complete_multipart_upload_async
=item initiate_multipart_upload_async
=item abort_multipart_upload_async
=item put_part_async
=back
AnyEvent-Net-Curl-Queued
view release on metacpan or search on metacpan
inc/Test/HTTP/AnyEvent/Server.pm view on Meta::CPAN
> Host: 127.0.0.1:44721
> Accept: */*
> Content-Length: 27
> Content-Type: application/x-www-form-urlencoded
>
* upload completely sent off: 27 out of 27 bytes
* HTTP 1.0, assume close after body
< HTTP/1.0 200 OK
< Connection: close
< Date: Mon, 15 Oct 2012 19:19:50 GMT
< Server: Test::HTTP::AnyEvent::Server/0.003 AnyEvent/7.02 Perl/5.016001 (linux)
AnyEvent-RPC
view release on metacpan or search on metacpan
.cvsignore
.portupload.yml
Changes
ex/sample.pl
inc/Module/AutoInstall.pm
inc/Module/Install.pm
inc/Module/Install/AutoInstall.pm
AnyEvent-Redis-Federated
view release on metacpan or search on metacpan
0.03 Mon Jul 30 10:06:41 2012
- fix tests to start redis-server if found
0.02 Wed Jul 25 16:06:41 2012
- bump version so I can re-upload to CPAN
0.01 Wed Jul 25 15:59:41 2012
- re-generated a few files, including Changes using h2xs
AnyEvent-SparkBot
view release on metacpan or search on metacpan
lib/AnyEvent/HTTP/Spark.pm view on Meta::CPAN
Posting files to channel steps outside of the traditional json data format.
=over 4
=item * Blocking my $result=$self->uploadFile('/path/to/file',%args);
Returns a L<Data::Result> Object, when true it contains the data, when false it contains why it failed.
=item * Non-Blocking my $result=$self->que_uploadFile($cb,'/path/to/file',%args);
Example Callback
$cb=sub {
my ($self,$id,$result,$request,$response,$roomId,$hashRef)=@_;
lib/AnyEvent/HTTP/Spark.pm view on Meta::CPAN
=back
=cut
sub que_uploadFile {
my ($self,$cb,$file,%args)=@_;
my $post=[
%args,
files=>[$file],
AnyEvent-Twitter
view release on metacpan or search on metacpan
lib/AnyEvent/Twitter.pm view on Meta::CPAN
=back
=head3 UPLOADING MEDIA FILE
You can use C<statuses/update_with_media> API to upload photos by specifying parameters as arrayref like below example.
Uploading photos will be tranferred with Content-Type C<multipart/form-data> (not C<application/x-www-form-urlencoded>)
use utf8;
$ua->post(
( run in 2.262 seconds using v1.01-cache-2.11-cpan-b16cb0d3907 )