Result:
found more than 636 distributions - search limited to the first 2001 files matching your query
( run in 0.271 )
IURL-XS
view release on metacpan or search on metacpan
src/yuarel.c view on Meta::CPAN
url->path = find_path(u);
/* (Credentials) */
u = strchr(url->host, '@');
if (NULL != u) {
/* Missing credentials? */
if (u == url->host) {
return -1;
}
url->username = url->host;
Image-Grab
view release on metacpan or search on metacpan
lib/Image/Grab/RequestAgent.pm view on Meta::CPAN
$realm{$realm}->{user} = $user;
$realm{$realm}->{pass} = $pass;
}
sub get_basic_credentials {
my ($self, $realm) = @_;
if(defined $realm{$realm}) {
return ($realm{$realm}->{user},
$realm{$realm}->{pass});
Imager-Bing-MapLayer
view release on metacpan or search on metacpan
lib/Imager/Bing/MapLayer.pm view on Meta::CPAN
=head1 VIEWING MAP LAYERS
=head2 Bing Maps
You can view tiles using the following web page, replacing the
C<credentials> option with your Bing Maps Key:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xmlns:v="urn:schemas-microsoft-com:vml"
xml:lang="en" lang="en">
lib/Imager/Bing/MapLayer.pm view on Meta::CPAN
<script>
//<![CDATA[
var map;
function init(){
var map_options = {
credentials : "YOUR BING MAPS KEY HERE",
center : new Microsoft.Maps.Location(51.5171, 0.1062),
zoom : 10,
showMapTypeSelector : false,
useInertia : true,
inertiaIntensity : 0,
Integrator-Module-Build
view release on metacpan or search on metacpan
lib/Integrator/Module/Build.pm view on Meta::CPAN
--email='my-email@cydone.com' \
--author='User Name' \
--module='My::Test::Module'
Then, you want to edit the Build.PL file under My-Test-Module with the
proper Integrator credentials (go to L<https://www.partnerscydone.com> to
request your demo credentials, a specific Build.PL file will be sent
to you within a demo test harness).
Here is a typical Build.PL file used to instantiate such a perl test
harness (note the 'Integrator::Module::Build' lines):
lib/Integrator/Module/Build.pm view on Meta::CPAN
require Digest::Perl::MD5;
import Digest::Perl::MD5 'md5_hex'
}
}
### # We need to protect the credentials of the harness user since they
### # could be stored locally. But the warning is not required when first
### # installing IMB. Hence we test Build.PL to see if it contains IMB before
### # going any further. Then we can issue the warning if the credentails
### # are not properly protected.
### if (_file_contains_text('Build.PL', qr{Integrator::Module::Build\s*->\s*new})) {
lib/Integrator/Module/Build.pm view on Meta::CPAN
my $self = shift;
my $xml = shift;
my $t = time;
my $store_mode='YES'; #initial assumption
my $credentials = _get_integrator_credentials($self);
print "== LOCAL DATABASE LOOKUP ===========================================\n";
unless (defined $xml) {
$store_mode='NO';
lib/Integrator/Module/Build.pm view on Meta::CPAN
unless ($names eq '') {
my $stored = $self->config_data('regressions');
#list reports to upload
print "Loading test runs that are ready for upload:\n";
$xml = _generate_signed_xml_from_struct($self, $credentials, $stored);
########### Removed this on Jan 8th 2007, not needed !!!!
########### #url encode the document
########### $xml =~ s/([^A-Za-z0-9])/sprintf("%%%02X", ord($1))/seg;
########### Removed this on Jan 8th 2007, not needed !!!!
lib/Integrator/Module/Build.pm view on Meta::CPAN
}
}
print "== INTEGRATOR SERVER DATA UPLOADING ================================\n";
print "Sending data to server\n";
my $response = _harness_post_url($credentials, $xml);
print "done.\n";
#look in the server response and update local stuff
if ($response->{_rc} eq "200") {
print "HTTP transfer done.\n";
lib/Integrator/Module/Build.pm view on Meta::CPAN
=cut
sub ACTION_integrator_download_test_definition {
my $self = shift;
my $credentials = _get_integrator_credentials($self);
$credentials->{integrator_test_definition_post}{value} = 'api/downloadTestDefinition';
#$credentials->{integrator_test_definition_post}{value} = 'frontend_dev.php/api/downloadTestDefinition';
my $t = time;
my @files;
my $xml;
#get the filenames of xml files to complete, or setup default download
lib/Integrator/Module/Build.pm view on Meta::CPAN
@files = _get_valid_filenames($self->{args}{param_file});
}
else {
push(@files, '___DEFAULT___weird_file_name___');
print "Default download: all data.\n";
$xml = _get_default_xml($credentials);
}
foreach my $file (@files) {
#list file to upload
unless ($file eq '___DEFAULT___weird_file_name___') {
print "Loading xml file '$file' for upload:\n";
lib/Integrator/Module/Build.pm view on Meta::CPAN
print "Contacting server: ... fake ping for now ...";
print "done.\n";
print "Sending data to server\n";
my $response = _test_definition_post_url($credentials, $xml);
print "done.\n";
_analyse_server_answer($self, $response);
last if ($file eq '___DEFAULT___weird_file_name___');
lib/Integrator/Module/Build.pm view on Meta::CPAN
print "Performed download in " .(time - $t). " sec.\n";
}
# a template sub to fake a default xml file
sub _get_default_xml {
my $credentials = shift;
return << "EOT";
<xml>
<version>1.0</version>
<integrator_version>1.0</integrator_version>
<integrator_test>
<project_code>$credentials->{integrator_project_code}{value}</project_code>
</integrator_test>
</xml>
EOT
}
lib/Integrator/Module/Build.pm view on Meta::CPAN
=cut
sub ACTION_integrator_send_xml {
my $self = shift;
my $credentials = _get_integrator_credentials($self);
$credentials->{integrator_test_definition_post}{value} = 'api/doapi';
my $t = time;
my @files;
#get the filenames to upload
lib/Integrator/Module/Build.pm view on Meta::CPAN
print "Contacting server: ... fake ping for now ...";
print "done.\n";
print "Sending data to server\n";
my $response = _test_definition_post_url($credentials, $xml);
print "done.\n";
_analyse_server_answer($self, $response);
}
print "Performed upload in " .(time - $t). " sec.\n";
lib/Integrator/Module/Build.pm view on Meta::CPAN
=cut
sub ACTION_integrator_upload_test_definition {
my $self = shift;
my $credentials = _get_integrator_credentials($self);
$credentials->{integrator_test_definition_post}{value} = 'api/uploadTestDefinition';
#$credentials->{integrator_test_definition_post}{value} = 'frontend_dev.php/api/uploadTestDefinition';
my $t = time;
my @files;
#get the filenames to upload
lib/Integrator/Module/Build.pm view on Meta::CPAN
print "Contacting server: ... fake ping for now ...";
print "done.\n";
print "Sending data to server\n";
my $response = _test_definition_post_url($credentials, $xml);
print "done.\n";
_analyse_server_answer($self, $response);
}
print "Performed upload in " .(time - $t). " sec.\n";
lib/Integrator/Module/Build.pm view on Meta::CPAN
# the _build/integrator file (under the integrator_test_log key) in one huge xml file
# using the Test::TAP::XML report tool
sub ACTION_integrator_xml_report {
my $self = shift;
my $credentials = _get_integrator_credentials($self, qr{or_project_code|or_lab_code});
my $t = time;
my $xml = _generate_signed_xml_from_struct( $self, $credentials, $self->config_data('regressions'));
open FOUT, ">", "report.xml" or die "Error: could not create report.xml file, $!, $?";
print FOUT $xml;
close FOUT or die "Error: could not close report.xml after creating, $!, $?";
print STDERR "Generated xtml report in file \"report.xml\". Took ". (time - $t). " sec.\n";
lib/Integrator/Module/Build.pm view on Meta::CPAN
<th colspan="4" class="r">Test case run by $user, started on $date</th>
</tr>
EOT
}
sub _get_integrator_credentials {
my $self = shift;
my $filter = shift; #optional parameter to filter-in credentials to use
my $p = $self->{properties};
my $cred = {
integrator_project_code => {
default => 'my_project',
question => 'a project code',
lib/Integrator/Module/Build.pm view on Meta::CPAN
$cred->{integrator_sync_page}{value} =~ s/\/$//g;
$cred->{integrator_sync_page}{value} =~ s/^\///g;
$cred->{complete_url}{value} = $cred->{integrator_url}{value} .'/'. $cred->{integrator_sync_page}{value};
if($cred->{integrator_http_realm}) {
$browser->credentials(URI->new($cred->{integrator_url}{value})->host_port, #yark !
$cred->{integrator_http_realm}{value},
$cred->{integrator_http_user}{value} => $cred->{integrator_http_pwd}{value});
}
# Pass request to the user agent and get a response back
lib/Integrator/Module/Build.pm view on Meta::CPAN
$cred->{integrator_test_definition_post}{value} =~ s/^\///g;
$cred->{complete_url}{value} = $cred->{integrator_url}{value}
.'/'. $cred->{integrator_test_definition_post}{value};
if($cred->{integrator_http_realm}) {
$browser->credentials(URI->new($cred->{integrator_url}{value})->host_port, #yark !
$cred->{integrator_http_realm}{value},
$cred->{integrator_http_user}{value} => $cred->{integrator_http_pwd}{value});
}
# Pass request to the user agent and get a response back
JIRA-Client
view release on metacpan or search on metacpan
lib/JIRA/Client.pm view on Meta::CPAN
C<https://jira.example.net> or C<https://example.net/jira>), to which
the default WSDL descriptor path
(C</rpc/soap/jirasoapservice-v2?wsdl>) will be appended in order to
construct the underlying SOAP::Lite object.
C<USER> and C<PASSWD> are the credentials that will be used to
authenticate into JIRA.
Any other arguments will be passed to the L<SOAP::Lite> object that
will be created to talk to JIRA.
JIRA-REST-Class
view release on metacpan or search on metacpan
lib/JIRA/REST/Class.pm view on Meta::CPAN
#pod
#pod throws_ok(
#pod sub {
#pod JIRA::REST::Class->new('http://not.a.good.server.com');
#pod },
#pod qr/No credentials found/,
#pod q{JIRA::REST::Class->new with just url tries to find credentials},
#pod );
#pod
#pod lives_ok(
#pod sub {
#pod JIRA::REST::Class->new(TestServer_url(), 'user', 'pass');
lib/JIRA/REST/Class.pm view on Meta::CPAN
The username and password of a JIRA user to use for authentication.
If B<anonymous> is false then, if either B<username> or B<password> isn't
defined the module looks them up in either the C<.netrc> file or via
L<Config::Identity|Config::Identity> (which allows C<gpg> encrypted credentials).
L<Config::Identity|Config::Identity> will look for F<~/.jira-identity> or
F<~/.jira>. You can change the filename stub from C<jira> to a custom stub
with the C<JIRA_REST_IDENTITY> environment variable.
lib/JIRA/REST/Class.pm view on Meta::CPAN
A method to take the provided URL and strip the protocol and host from it. For example, if the URL C<http://jira.example.com/rest/api/latest> was passed to this method, C</rest/api/latest> would be returned.
=head2 B<jira>
Returns a L<JIRA::REST::Class|JIRA::REST::Class> object with credentials for the last JIRA user.
=head2 B<factory>
An accessor for the L<JIRA::REST::Class::Factory|JIRA::REST::Class::Factory>.
lib/JIRA/REST/Class.pm view on Meta::CPAN
throws_ok(
sub {
JIRA::REST::Class->new('http://not.a.good.server.com');
},
qr/No credentials found/,
q{JIRA::REST::Class->new with just url tries to find credentials},
);
lives_ok(
sub {
JIRA::REST::Class->new(TestServer_url(), 'user', 'pass');
( run in 0.271 second using v1.01-cache-2.11-cpan-4d50c553e7e )