Result:
found more than 788 distributions - search limited to the first 2001 files matching your query
( run in 1.086 )
Net-DBus-GLib
view release on metacpan or search on metacpan
lib/Net/DBus/GLib.pm view on Meta::CPAN
=back
=head1 SEE ALSO
L<Net::DBus>, L<Glib>, L<Glib::MainLoop>
C<http://dbus.freedesktop.org>, C<http://gtk.org>
=head1 AUTHOR
Daniel Berrange <dan@berrange.com>
Net-DBus-Skype
view release on metacpan or search on metacpan
lib/Net/DBus/Skype.pm view on Meta::CPAN
sub _build_skype {
my $self = shift;
my $objects = $self->dbus
->get_service("org.freedesktop.DBus")
->get_object("/org/freedesktop/DBus")
;
my $skype_found = grep $_ eq 'com.Skype.API', @{$objects->ListNames};
die 'No running API-capable Skype found'
unless $skype_found
Net-DBus
view release on metacpan or search on metacpan
examples/lshal.pl view on Meta::CPAN
use Net::DBus;
my $bus = Net::DBus->system;
# Get a handle to the HAL service
my $hal = $bus->get_service("org.freedesktop.Hal");
# Get the device manager
my $manager = $hal->get_object("/org/freedesktop/Hal/Manager", "org.freedesktop.Hal.Manager");
print "Warning. There may be a slight pause while this next\n";
print "method times out, if your version of HAL still just\n";
print "silently ignores unsupported method calls, rather than\n";
print "returning an error. The timeout is ~60 seconds\n";
Net-Domain-Parts
view release on metacpan or search on metacpan
data/tld.txt view on Meta::CPAN
fbx-os.fr
fbxos.fr
freebox-os.fr
freeboxos.fr
// freedesktop.org : https://www.freedesktop.org
// Submitted by Daniel Stone <daniel@fooishbar.org>
freedesktop.org
// freemyip.com : https://freemyip.com
// Submitted by Cadence <contact@freemyip.com>
freemyip.com
Net-Eboks
view release on metacpan or search on metacpan
`eboks-install-win32`
that will fire up a browser-based install wizard. Click "Install", then login witn eBoks
password and MitID.
* Set up your favourite desktop mail reader so it connects to a POP3 server
running on server localhost, port 8110. Username and password are your CPR# and
eBoks mobile password.
* Optionally, if you want to forward the mails, you can choose from numerous
programs that can forward mails from a POP3 server to another mail account
Use eboks.dk as a POP3 server
-----------------------------
You may want this setup if you don't have a dedicated server, or don't want
to spam your mail by eBoks. You can run everything on a single desktop.
1) On command line, type `eboks2pop`. On windows, this is done autmatically and
is not needed if you performed installation using the `eboks-install-win32`
script.
Net-FS-Flickr
view release on metacpan or search on metacpan
lib/Net/FS/Flickr.pm view on Meta::CPAN
http://www.flickr.com/services/api/key.gne
Finally you will need to get an auth key. As described here
http://www.flickr.com/services/api/auth.howto.desktop.html
the helper script C<flickrfs> supplied with this distribution can help with that.
=head1 METHODS
Net-FireEagle
view release on metacpan or search on metacpan
lib/Net/FireEagle.pm view on Meta::CPAN
The script C<fireeagle> shipped with this module gives you really
quick access to your FireEagle account - you can use it to simply
query and update your location.
It also serves as a pretty good example of how to do desktop app
authentication and how to use the API.
=head1 METHODS
=cut
Net-FullAuto
view release on metacpan or search on metacpan
installer/fa_installer.pl view on Meta::CPAN
}
sub OnClick_chkbox2 {
my ($self, $event) =@_;
my $desktop=$ENV{HOMEDRIVE}.$ENV{HOMEPATH}.'\\desktop';
my $filedlg = Wx::FileDialog->new($self, # parent
'Open File', # Caption
$desktop, # Default directory
'putty', # Default file
"putty utilities (*.exe)|*.exe", # wildcard
wxFD_SAVE|wxFD_OVERWRITE_PROMPT); #style
# If the user really selected one
if ($filedlg->ShowModal==wxID_OK)
installer/fa_installer.pl view on Meta::CPAN
}
sub OnClick_chkbox3 {
my ($self, $event) =@_;
my $desktop=$ENV{HOMEDRIVE}.$ENV{HOMEPATH}.'\\desktop';
my $filedlg = Wx::FileDialog->new($self, # parent
'Open File', # Caption
$desktop, # Default directory
'logs', # Default file
"FullAuto Log Files (*.zip)|*.zip",
# wildcard
wxFD_SAVE|wxFD_OVERWRITE_PROMPT); #style
# If the user really selected one
unless (-e "logs.zip") {
my $title="No Log Files Available";
my $message="No Log Files Available - Logs are available ".
"after an Instruction Set is run => $desktop";
my $dialog=Wx::MessageDialog->new(
$self,$message,$title,wxOK|wxICON_EXCLAMATION);
my $choice=$dialog->ShowModal();
} elsif ($filedlg->ShowModal==wxID_OK) {
my $filename = $filedlg->GetPath;
Net-Hulu
view release on metacpan or search on metacpan
Debian_CPANTS.txt view on Meta::CPAN
"libfile-changenotify-perl", "File-ChangeNotify", "0.10", "0", "0"
"libfile-chmod-perl", "File-chmod", "0.32", "0", "0"
"libfile-copy-link-perl", "File-Copy-Link", "0.112", "0", "0"
"libfile-copy-recursive-perl", "File-Copy-Recursive", "0.38", "0", "0"
"libfile-counterfile-perl", "File-CounterFile", "1.04", "0", "0"
"libfile-desktopentry-perl", "File-DesktopEntry", "0.04", "1", "1"
"libfile-dircompare-perl", "File-DirCompare", "0.5", "0", "0"
"libfile-extattr-perl", "File-ExtAttr", "not-uploaded", "0", "0"
"libfile-find-object-perl", "File-Find-Object", "0.2.1", "0", "0"
"libfile-find-object-rule-perl", "File-Find-Object-Rule", "0.0300", "0", "0"
"libfile-find-rule-perl", "File-Find-Rule", "0.32", "1", "1"
Debian_CPANTS.txt view on Meta::CPAN
"libwww-wikipedia-perl", "WWW-Wikipedia", "1.96", "0", "0"
"libwwwbrowser-perl", "http://user.cs.tu-berlin.de/~eserte/src/perl/WWWBrowser/WWWBrowser-2.23.tar.gz", "2.23", "0", "2"
"libwx-perl", "Wx", "0.94", "0", "2"
"libwx-perl-datawalker-perl", "Wx-Perl-DataWalker", "0.02", "0", "0"
"libwx-perl-processstream-perl", "Wx-Perl-ProcessStream", "0.24", "0", "0"
"libx11-freedesktop-desktopentry-perl", "X11-FreeDesktop-DesktopEntry", "0.04", "0", "1"
"libx500-dn-perl", "X500-DN", "0.29", "0", "1"
"libxml-atom-perl", "XML-Atom", "0.37", "1", "0"
"libxml-atom-service-perl", "XML-Atom-Service", "0.16.0", "0", "0"
"libxml-atom-simplefeed-perl", "XML-Atom-SimpleFeed", "0.86", "0", "0"
"libxml-autowriter-perl", "XML-AutoWriter", "0.40", "0", "1"
Net-IANA-Services
view release on metacpan or search on metacpan
lib/Net/IANA/Services.pm view on Meta::CPAN
our $IANA_REGEX_PORTS = qr{\b(?<!-)(?:1(?:1(?:1(?:[234589]|0[345689]?|6[12345]?|7[12345]?|1[012]?)?|3(?:[034589]|2[01]?|19?|67?|71?)?|7(?:[0134678]|2[03]?|51?|96?)?|2(?:[23456789]|0[128]?|1?1)?|9(?:[01234578]|9[789]?|67?)?|0(?:[1234678]|0[01]?|9?5)?|...
our $IANA_REGEX_SERVICES = qr{\b(?<![-])(?:s(?:e(?:[pt]|r(?:v(?:e(?:r(?:view(?:-(?:asn?|icc|gf|rm)|dbms)|-find|graph|start|wsd2)|xec)|i(?:ce(?:-ctrl|meter|tags)|staitsm)|s(?:erv|tat))|comm-(?:scadmin|wlink)|ialgateway|aph)|c(?:-(?:t4net-(?:clt|srv)|p...
our $IANA_REGEX_PORTS_DCCP = qr{\b(?<!-)(?:1(?:02[12]|113)|500[45]|4556|6514|9)\b}i; ## no critic(RegularExpressions)
lib/Net/IANA/Services.pm view on Meta::CPAN
our $IANA_REGEX_SERVICES_SCTP = qr{\b(?<![-])(?:a(?:sap-sctp(?:-tls)?|(?:hs|mq)p|25-fap-fgw|urora|ds-c)|s(?:i(?:mco|ps?)|(?:bc|gs)ap|1-control|mbdirect|sh|ua)|i(?:u(?:hsctpassoc|a)|tu-bicc-stc|pfixs?)|m(?:2(?:[pu]a|ap)|3(?:ap|ua)|egaco-h248)|wme(?:re...
our $IANA_REGEX_SERVICES_TCP = qr{\b(?<![-])(?:s(?:e(?:[pt]|r(?:v(?:e(?:r(?:view(?:-(?:asn?|icc|gf|rm)|dbms)|-find|graph|start|wsd2)|xec)|i(?:ce(?:-ctrl|meter|tags)|staitsm)|stat)|comm-(?:scadmin|wlink)|ialgateway|aph)|c(?:-(?:t4net-(?:clt|srv)|pc2fa...
our $IANA_REGEX_SERVICES_UDP = qr{\b(?<![-])(?:s(?:u(?:[am]|n(?:-(?:s(?:r-(?:iiop(?:-aut|s)?|https?|jm[sx]|admin)|ea-port)|as-(?:j(?:mxrmi|pda)|iiops(?:-ca)?|nodeagt)|user-https|mc-grp|dr|lm)|c(?:acao-(?:(?:jmx|sn)mp|websvc|csa|rmi)|luster(?:geo|mgr)...
####################
Net-Jabber-Bot
view release on metacpan or search on metacpan
t/07-test_message_callback.t view on Meta::CPAN
# =========================================================================
# Test 1: Personal (chat) message delivers correct parameters
# =========================================================================
{
inject_message(
from => "alice\@$server/desktop",
type => 'chat',
body => 'Hello bot!',
);
my @calls = process_and_collect();
is( scalar @calls, 1, 'chat message: callback called once' );
my $c = $calls[0];
isa_ok( $c->{bot_object}, 'Net::Jabber::Bot', 'chat message: bot_object' );
is( $c->{from_full}, "alice\@$server/desktop", 'chat message: from_full' );
is( $c->{body}, 'Hello bot!', 'chat message: body' );
is( $c->{type}, 'chat', 'chat message: type' );
is( $c->{reply_to}, "alice\@$server/desktop",
'chat message: reply_to equals from_full (no resource stripping for chat)' );
ok( !defined $c->{bot_address_from},
'chat message: bot_address_from is undef for non-groupchat' );
isa_ok( $c->{message}, 'Net::Jabber::Message', 'chat message: raw message object' );
}
t/07-test_message_callback.t view on Meta::CPAN
{
my $saved_handler = $bot->message_function;
$bot->message_function(undef);
inject_message(
from => "alice\@$server/desktop",
type => 'chat',
body => 'No handler here',
);
# Should not die
Net-LCDproc
view release on metacpan or search on metacpan
eg/music.pl view on Meta::CPAN
sub get_mpris {
my $bus = Net::DBus->session;
# find a music player
my $service = $bus->get_service("org.freedesktop.DBus");
my $dbus = $service->get_object("/org/freedesktop/DBus");
foreach (@{$dbus->ListNames}) {
next if not m/org\.mpris\.MediaPlayer2/;
$log->info("Trying '$_'");
my $mpris_service = $bus->get_service($_);
$mpris = $mpris_service->get_object('/org/mpris/MediaPlayer2');
Net-LibLO
view release on metacpan or search on metacpan
chomp($pkgconfig);
if ($pkgconfig !~ /pkg-config/ or
$pkgconfig =~ /not found/i)
{
die "Error: pkgconfig is not available on your system\n".
"It is available from http://pkgconfig.freedesktop.org/\n";
} else {
my $pkgconfig_version = `$pkgconfig --version`;
chomp( $pkgconfig_version );
print "Found pkg-config version $pkgconfig_version.\n";
}
Net-MitDK
view release on metacpan or search on metacpan
`mitdk-install-win32`
that will fire up a browser-based install wizard. Click "Install", then login with
MitID credentials as described below.
* Set up your favourite desktop mail reader so it connects to a POP3 server
running on server localhost, port 8111. Username is 'default', no password is needed.
* Optionally, if you want to forward the mails, you can choose from numerous
programs that can forward mails from a POP3 server to another mail account
[(list of
Use mit.dk as a POP3 server
-----------------------------
You may want this setup if you don't have a dedicated server, or don't want
to spam your mail by MitDK. You can run everything on a single desktop.
1) On command line, type `mitdk2pop`
2) Connect your mail client to POP3 server at localhost, where username is
'default' and password is empty string.
Net-MyOpera
view release on metacpan or search on metacpan
lib/Net/MyOpera.pm view on Meta::CPAN
where you will be able to B<sign up to the My Opera Community>
and B<create your own application> and get your set of consumer keys.
If you don't want to do it, you can use (temporarily) use the
Test application keys, for command line/desktop based applications:
Consumer key: test_desktop_key
Consumer secret: p2FlOFGr3XFm5gOwEKKDcg3CvA4pp0BC
=head1 SUBROUTINES/METHODS
=head2 CLASS CONSTRUCTOR
lib/Net/MyOpera.pm view on Meta::CPAN
where you will be able to sign up to the My Opera Community
and create your own application and get your set of consumer keys.
If you don't want to do it, you can use (temporarily) use the
Test application keys, for command line/desktop based applications:
Consumer key: test_desktop_key
Consumer secret: p2FlOFGr3XFm5gOwEKKDcg3CvA4pp0BC
=head2 INSTANCE METHODS
=head3 C<access_token()>
Net-Netconf
view release on metacpan or search on metacpan
3. For libz errors like:
/usr/bin/ld: /usr/local/lib/libz.a(crc32.o): relocation R_X86_64_32 against `.rodata' can not be used when
making a shared object; recompile with -fPIC
/usr/local/lib/libz.a: could not read symbols: Bad value
try installing from source code:
download libz source code, https://google-desktop-for-linux-mirror.googlecode.com/files/zlib-1.2.3.tar.gz
according to platform u are using.
open Makefile and add -fPIC in cflag, (smth like: CFLAGS=-O3 -DUSE_MMAP -fPIC)
then compile it:
./configure
make test
Net-OAuth-Simple
view release on metacpan or search on metacpan
lib/Net/OAuth/Simple.pm view on Meta::CPAN
Google's OAuth API requires the non-standard C<scope> parameter to be set
in C<request_token_url>, and you also explicitly need to pass an C<oauth_callback>
to C<get_authorization_url()> method, so that you can direct the user to your site
if you're authenticating users in Web Application mode. Otherwise Google will let
user grant acesss as a desktop app mode and doesn't redirect users back.
Here's an example class that uses Google's Portable Contacts API via OAuth:
package Net::AppUsingGoogleOAuth;
use strict;
lib/Net/OAuth/Simple.pm view on Meta::CPAN
If C<Math::Random::MT> is installed then any nonces generated will use a
Mersenne Twiser instead of Perl's built in randomness function.
=head1 EXAMPLES
There are example Twitter and Twitter xAuth 'desktop' apps and a FireEagle OAuth 1.0a web app
in the examples directory of the distribution.
=head1 BUGS
Non known
Net-OAuth
view release on metacpan or search on metacpan
lib/Net/OAuth.pm view on Meta::CPAN
=head1 ABSTRACT
OAuth is
"An open protocol to allow secure API authentication in a simple and standard method from desktop and web applications."
In practical terms, OAuth is a mechanism for a Consumer to request protected resources from a Service Provider on behalf of a user.
Please refer to the OAuth spec: L<http://oauth.net/documentation/spec>
Net-OpenMicroBlogging
view release on metacpan or search on metacpan
Net::OpenMicroBlogging is an implementation of the OpenMicroBlogging protocol.
OpenMicroBlogging is:
An open protocol to allow secure API authentication in a simple and standard
method from desktop and web applications.
http://oauth.net/
INSTALLATION
Net-OperaLink
view release on metacpan or search on metacpan
examples/link-api-example view on Meta::CPAN
use File::Slurp ();
# Test keys. Get your own at:
# https://auth.opera.com/service/oauth/applications/
our $CONSUMER_KEY = 'test_desktop_key';
our $CONSUMER_SECRET = 'p2FlOFGr3XFm5gOwEKKDcg3CvA4pp0BC';
my $rc_file = exists $ENV{HOME}
? "$ENV{HOME}/.operalinkrc"
: ".operalinkrc" ;
Net-Ping-Network
view release on metacpan or search on metacpan
lib/Net/Ping/Network.pm view on Meta::CPAN
The existing ping moduls are slow and can only handle one ping at a time.
Net::Ping::Networks (Net::Ping::Multi) can handle even large ip ranges and entire networks.
Depending of your computing power and memory you can scan a class c network in less then 5 seconds.
On a normal desktop computer and without any further tuning, one should be able to manage 2500-3000 ips in less then 5 minutes.
Threads are utilised to boost performace. Threads feel a still a little bit beta today.
=head2 Methodes
Net-PublicSuffixList
view release on metacpan or search on metacpan
t/cache/public_suffix_list.dat view on Meta::CPAN
fbx-os.fr
fbxos.fr
freebox-os.fr
freeboxos.fr
// freedesktop.org : https://www.freedesktop.org
// Submitted by Daniel Stone <daniel@fooishbar.org>
freedesktop.org
// Futureweb OG : http://www.futureweb.at
// Submitted by Andreas Schnederle-Wagner <schnederle@futureweb.at>
*.futurecms.at
*.ex.futurecms.at
Net-Pushover
view release on metacpan or search on metacpan
lib/Net/Pushover.pm view on Meta::CPAN
=head1 DESCRIPTION
Pushover is a service that provide an API for a notification sender service to a
big list of devices like android, iphone, ipad, desktop, smart watches, etc...
=head2 ACCESSORS
This is a list of accessors implemented for this module.
Net-RVP
view release on metacpan or search on metacpan
docs/draft-calsyn-rvp-01.txt view on Meta::CPAN
haven't been worked out yet. Which ones should receive instant
messages? If one client is "idle" and one client is "busy" what
is the user marked as?
Is there any way for another user to query the status of a
particular client? E.g. to see if the desktop is idle while the
laptop is active & vice-versa? Also, idea of addressing IM's to
a particular online client?
If multiple clients are connected, and the home server refers to
one client, that client is primary. Other clients must send
Net-Rendezvous-Publish-Backend-Avahi
view release on metacpan or search on metacpan
lib/Net/Rendezvous/Publish/Backend/Avahi.pm view on Meta::CPAN
my $class = shift;
my $self = {@_};
bless $self, $class;
my $bus = Net::DBus->system;
$self->{service} = $bus->get_service('org.freedesktop.Avahi');
$self->{server} =
$self->{service}->get_object('/', 'org.freedesktop.Avahi.Server');
return $self;
}
sub publish {
lib/Net/Rendezvous/Publish/Backend/Avahi.pm view on Meta::CPAN
map { $_ = Net::DBus::dbus_byte(ord($_)) } @{$t};
}
}
my $group = $self->{service}->get_object($self->{server}->EntryGroupNew,
'org.freedesktop.Avahi.EntryGroup');
$group->AddService(
Net::DBus::dbus_int32(-1), Net::DBus::dbus_int32(-1),
Net::DBus::dbus_uint32(0), $args{name},
$args{type}, $args{domain},
$args{host}, Net::DBus::dbus_uint16($args{port}),
Net-SinaWeibo
view release on metacpan or search on metacpan
lib/Net/SinaWeibo.pm view on Meta::CPAN
app_key => $app_key,
app_key_secret => $app_key_secret);
# authorization
my $callback_url = 'http://youdomain.com/app_callback';
my $url = $client->get_authorize_url(callback_url => $callback_url);
# or don't use callback_url,just like a desktop client.
my $url = $client->get_authorize_url;
# now $client hold the request_token, but you must authorize your app first.
# let user go to visit the authorize url.
say 'Please goto this url:',$url;
Net-Social-Service-Facebook
view release on metacpan or search on metacpan
lib/Net/Social/Service/Facebook.pm view on Meta::CPAN
parse => 1,
throw_errors => 1,
);
$client->api_key($api_key);
$client->secret($secret);
$client->desktop(1);
return $client;
}
=head1 METHODS
lib/Net/Social/Service/Facebook.pm view on Meta::CPAN
my $user = $self->{_details}->{username};
my $key = $self->{_details}->{api_key};
my $sess_key = $self->{_details}->{session_key};
my $sess_secret = $self->{_details}->{session_secret};
my $client = WWW::Facebook::API->new(
desktop => 1,
parse => 1,
throw_errors => 1,
# debug => 1,
);
#$secret = $sess_secret if defined $sess_secret.
$client->api_key($key);
$client->session_key($sess_key);
$client->secret($sess_secret);
$client->desktop(1);
my %friends;
my $uids = $client->friends->get;
# First get their details
foreach my $friend (@{$client->users->get_info(uids=>$uids,
Net-Todoist
view release on metacpan or search on metacpan
lib/Net/Todoist.pm view on Meta::CPAN
=head1 DESCRIPTION
This module provide an interface to the API for the
L<Todoist|http://todoist.com/>.
Todoist is a to-do list service that can be accessed from
a web interface or dedicated desktop or mobile clients.
The basic service is free, but you can pay to get additional features.
Read L<http://todoist.com/API/help> for more details.
=head2 METHODS
Net-Twitter-Lite
view release on metacpan or search on metacpan
examples/oauth_desktop.pl view on Meta::CPAN
#!/usr/bin/perl
#
# Net::Twitter::Lite - OAuth desktop app example
#
use warnings;
use strict;
use Net::Twitter::Lite::WithAPIv1_1;
examples/oauth_desktop.pl view on Meta::CPAN
my %consumer_tokens = (
consumer_key => 'v8t3JILkStylbgnxGLOQ',
consumer_secret => '5r31rSMc0NPtBpHcK8MvnCLg2oAyFLx5eGOMkXM',
);
# $datafile = oauth_desktop.dat
my (undef, undef, $datafile) = File::Spec->splitpath($0);
$datafile =~ s/\..*/.dat/;
my $nt = Net::Twitter::Lite::WithAPIv1_1->new(ssl => 1, %consumer_tokens);
my $access_tokens = eval { retrieve($datafile) } || [];
Net-Twitter
view release on metacpan or search on metacpan
examples/oauth_desktop.pl view on Meta::CPAN
#!/usr/bin/perl
#
# Net::Twitter - OAuth desktop app example
#
use warnings;
use strict;
use Net::Twitter;
examples/oauth_desktop.pl view on Meta::CPAN
my %consumer_tokens = (
consumer_key => 'v8t3JILkStylbgnxGLOQ',
consumer_secret => '5r31rSMc0NPtBpHcK8MvnCLg2oAyFLx5eGOMkXM',
);
# $datafile = oauth_desktop.dat
my (undef, undef, $datafile) = File::Spec->splitpath($0);
$datafile =~ s/\..*/.dat/;
my $nt = Net::Twitter->new(traits => [qw/API::RESTv1_1/], %consumer_tokens);
my $access_tokens = eval { retrieve($datafile) } || [];
( run in 1.086 second using v1.01-cache-2.11-cpan-39bf76dae61 )