view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
view release on metacpan or search on metacpan
clib/src/panda/unievent/http/Client.cc view on Meta::CPAN
Tcp::weak(false);
_request = request;
using namespace panda::protocol::http;
if (request->compression_prefs == static_cast<std::uint8_t>(Compression::IDENTITY) && !request->headers.has("Accept-Encoding")) {
request->allow_compression(Compression::GZIP);
}
auto data = request->to_vector();
_parser.set_context_request(request);
view release on metacpan or search on metacpan
lib/VUser/SpamAssassin/SQL/Bayes.pm view on Meta::CPAN
use VUser::ExtLib::SQL;
use VUser::Extension;
use base qw(VUser::Extension);
our $log;
our $c_sec = 'Extension SpamAssassin::SQL::Userprefs';
our %meta;
our $db;
my $dsn;
my $username;
my $password;
view release on metacpan or search on metacpan
lib/VUser/SquirrelMail/Prefs.pm view on Meta::CPAN
# The name of the squirrelmail database
db name = squirrelmail
# The name of the preferences table
prefs table = userprefs
# Username and password for the database.
# Note: This user required select, insert, update and delete perms on the
# SquirrelMail userprefs table.
db user = squirrelmail
db password = secret
# Location of SquirrelMail data files
data dir = /usr/local/squirrelmail/data
lib/VUser/SquirrelMail/Prefs.pm view on Meta::CPAN
$dbh = DBI->connect ($dsn, $user, $pass,
{ RaiseError => 1, AutoCommit => 0})
or die "Database error: ".DBI->errstr;
}
$eh->register_keyword('smprefs', 'Manage SquirrelMail user preferences');
# add
$eh->register_action('smprefs', 'add', 'Add a preference for the user');
$eh->register_option('smprefs', 'add', $meta{'username'}, 1);
$eh->register_option('smprefs', 'add', $meta{'option'}, 1);
$eh->register_option('smprefs', 'add', $meta{'value'}, 1);
$eh->register_task('smprefs', 'add', \&smprefs_add);
# mod
$eh->register_action('smprefs', 'mod', 'Change a user\'s preferences');
$eh->register_option('smprefs', 'mod', $meta{'username'}, 1);
$eh->register_option('smprefs', 'mod', $meta{'option'}, 1);
$eh->register_option('smprefs', 'mod', $meta{'value'}, 1);
$eh->register_task('smprefs', 'mod', \&smprefs_mod);
# del
$eh->register_action('smprefs', 'del', 'Delete a preference for a user');
$eh->register_option('smprefs', 'del', $meta{'username'}, 1);
$eh->register_option('smprefs', 'del', $meta{'option'}, 1);
$eh->register_task('smprefs', 'del', \&smprefs_del);
# show
$eh->register_action('smprefs', 'show', 'Show the preference/user combination');
$eh->register_option('smprefs', 'show', $meta{'username'}, 0);
$eh->register_option('smprefs', 'show', $meta{'option'}, 0);
$eh->register_task('smprefs', 'show', \&smprefs_show);
# delall: Delete all options
$eh->register_action('smprefs', 'delall', 'Delete all options for a user');
$eh->register_option('smprefs', 'delall', $meta{'username'}, 1);
$eh->register_task('smprefs', 'delall', \&smprefs_delall);
# Email
$eh->register_keyword('email');
$eh->register_action('email', 'del');
$eh->register_task('email', 'del', \&smprefs_delall);
}
sub unload {}
sub smprefs_add
{
my ($cfg, $opts, $action, $eh) = @_;
if (defined $dbh) {
my $table = VUser::ExtLib::strip_ws($cfg->{$csec}{'prefs table'});
my $sql = "Insert into $table set user = ?, prefkey = ?, prefval = ?";
my $sth = $dbh->prepare($sql)
or die "Database error: ".$dbh->errstr."\n";
$sth->execute($opts->{username},
$opts->{option},
lib/VUser/SquirrelMail/Prefs.pm view on Meta::CPAN
# File-based here
}
return undef;
}
sub smprefs_mod
{
my ($cfg, $opts, $action, $eh) = @_;
if (defined $dbh) {
lib/VUser/SquirrelMail/Prefs.pm view on Meta::CPAN
}
return undef;
}
sub smprefs_show
{
my ($cfg, $opts, $action, $eh) = @_;
my $user = $opts->{username} if defined $opts->{username};
my $option = $opts->{option} if defined $opts->{option};
lib/VUser/SquirrelMail/Prefs.pm view on Meta::CPAN
$rs->add_meta($meta{'username'});
$rs->add_meta($meta{'option'});
$rs->add_meta($meta{'value'});
if (defined $dbh) {
my $table = VUser::ExtLib::strip_ws($cfg->{$csec}{'prefs table'});
my $sql = "select user,prefkey, prefval from $table";
my @params = ();
if (defined $user and defined $option) {
$sql .= " where user = ? and prefkey = ?";
lib/VUser/SquirrelMail/Prefs.pm view on Meta::CPAN
}
return $rs;
}
sub smprefs_del{}
sub smprefs_delall
{
my $cfg = shift;
my $opts = shift;
my $user = $opts->{username};
# The email extension uses 'account' instead of 'username'
$user = $opts->{account} if not $user;
if (defined $dbh) {
my $table = VUser::ExtLib::strip_ws($cfg->{$csec}{'prefs table'});
my $sql = "delete from $table where user = ?";
my $sth = $dbh->prepare($sql)
or die "Database error: ".$dbh->errstr."\n";
$sth->execute($opts->{username})
or die "Database error: ".$sth->errstr."\n";
lib/VUser/SquirrelMail/Prefs.pm view on Meta::CPAN
# The name of the squirrelmail database
db name = squirrelmail
# The name of the preferences table
prefs table = userprefs
# Username and password for the database.
# Note: This user required select, insert, update and delete perms on the
# SquirrelMail userprefs table.
db user = squirrelmail
db password = secret
# Location of SquirrelMail data files
data dir = /usr/local/squirrelmail/data
view release on metacpan or search on metacpan
lib/WWW/A9Toolbar.pm view on Meta::CPAN
{
my ($self) = @_;
return unless($self->{cookies});
my ($id, $prefs, $name, $perm);
my $scansub = sub {
my ($version, $key, $val, $path, $domain, $port, $path_spec, $secure, $expires, $discard, $hash) = @_;
if($domain eq 'a9.com')
{
$prefs = $val if($key eq 'a9Prefs');
$id = $val if($key eq 'a9id');
$name = $val if($key eq 'a9name');
$perm = $val if($key eq 'a9Perm');
}
};
$self->{cookies}->scan( $scansub );
$self->{'customer-id'} = $id;
$self->{prefs} = $prefs;
$self->{name} = $name;
$self->{perm} = $perm;
}
sub get_userdata
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
view release on metacpan or search on metacpan
2003-12-17 Kingpin <mthurn@verizon.net>
* Status.pm (as_text): new method
* code/pbay-edit.pl (edit_menu_prefs): added SMTP server authentication
* Email.pm (send): now uses Net::SMTP_auth to send email on Win32 (and it works with SMTP server that requires authentication)
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
view release on metacpan or search on metacpan
lib/WWW/Kickstarter.pm view on Meta::CPAN
sub my_id {
my ($self) = @_;
return $self->{my_id};
}
sub my_notification_prefs {
my $self = shift;
return $self->_call_api('users/self/notifications', 'list', 'NotificationPref', @_);
}
sub my_projects_created {
lib/WWW/Kickstarter.pm view on Meta::CPAN
my $myself = $ks->myself();
Fetches and returns the logged-in user as a L<WWW::Kickstarter::Data::User::Myself> object.
=head2 my_notification_prefs
my @notification_prefs = $ks->my_notification_prefs();
Fetches and returns the the logged-in user's notification preferences of backed projects as L<WWW::Kickstarter::Data::NotificationPref> objects.
The notification preferences for the project created last is returned first.
view release on metacpan or search on metacpan
examples/proxy-settings.pl view on Meta::CPAN
use Firefox::Application;
my $ff = Firefox::Application->new();
# Check the network proxy settings
my $prefs = $ff->repl->expr(<<'JS');
Components.classes["@mozilla.org/preferences-service;1"]
.getService(Components.interfaces.nsIPrefBranch);
JS
print "Your proxy settings are\n";
print "Proxy type\t", $prefs->getIntPref('network.proxy.type'),"\n";
print "HTTP proxy\t", $prefs->getCharPref('network.proxy.http'),"\n";
print "HTTP port\t", $prefs->getIntPref('network.proxy.http_port'),"\n";
print "SOCKS proxy\t", $prefs->getCharPref('network.proxy.socks'),"\n";
print "SOCKS port\t", $prefs->getIntPref('network.proxy.socks_port'),"\n";
# Switch off the proxy
if ($prefs->getIntPref('network.proxy.type') != 0) {
$prefs->setIntPref('network.proxy.type',0);
};
# Switch on the manual proxy configuration
$prefs->setIntPref('network.proxy.type',1);
=head1 NAME
proxy-settings.pl - display and change the proxy settings of Firefox
view release on metacpan or search on metacpan
lib/WWW/Myspace.pm view on Meta::CPAN
# file for defaults, then prompt them.
sub _get_acct {
# Initialize
my %prefs = ();
my $ref = "";
my ( $pref, $value, $res );
my $cache_filepath = catfile( $self->cache_dir, $self->cache_file);
# Read what we got last time.
if ( open ( PREFS, "< ", $cache_filepath ) ) {
while (<PREFS>) {
chomp;
( $pref, $value ) = split( ":" );
$prefs{"$pref"} = $value;
}
close PREFS;
}
# Prompt them for current values
unless ( defined $prefs{"email"} ) { $prefs{"email"} = "" }
print "Email [" . $prefs{"email"} . "]: ";
$res = <STDIN>; chomp $res;
if ( $res ) {
$prefs{"email"} = $res;
}
unless ( defined $prefs{"password"} ) { $prefs{"password"} = "" }
print "Password [". $prefs{"password"} . "]: ";
$res = <STDIN>; chomp $res;
if ( $res ) {
$prefs{"password"} = $res;
}
# Make the cache directory if it doesn't exist.
$self->make_cache_dir;
# Store the new values.
open ( PREFS, ">", $cache_filepath ) or croak $!;
print PREFS "email:" . $prefs{"email"} . "\n" .
"password:" . $prefs{"password"} . "\n";
close PREFS;
# Store the account info.
$self->{account_name}=$prefs{"email"};
$self->{password}=$prefs{"password"};
}
#---------------------------------------------------------------------
# _get_friend_id( $homepage )
# This internal method stores our friend ID. We get this from the
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
view release on metacpan or search on metacpan
lib/WWW/Scraper/Gmail.pm view on Meta::CPAN
$arg->{"Signature"} = "" unless defined $arg->{Signature};
$arg->{"Signature"} = HTML::Entities::encode_entities_numeric($arg->{"Signature"});
#print Dumper $arg;
my $url_pref=" http://gmail.google.com/gmail?search=inbox&view=tl&start=0&act=prefs&at=$gmail_at&p_bx_hs=1&p_ix_nt=$arg->{MaxPer}&p_bx_sc=1&p_sx_sg=$arg->{Signature}&zx=$zx";
#print "Going for $url_pref\n";
#$head = HTTP::Headers->new(Cookie => $cookie); #, Referer => $ref);
$req = HTTP::Request->new(GET=>$url_pref, $head);
$res = $ua->request($req);
return ($res->as_string() =~ /saved/);
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
view release on metacpan or search on metacpan
lib/WWW/Sitebase/Navigator.pm view on Meta::CPAN
# file for defaults, then prompt them.
sub _get_acct {
# Initialize
my $prefs = {};
my $ref = "";
my ( $pref, $value, $res );
my $cache_filepath = catfile( $self->cache_dir, $self->cache_file);
# Read what we got last time.
if ( open ( PREFS, "< ", $cache_filepath ) ) {
while (<PREFS>) {
chomp;
( $pref, $value ) = split( ":" );
$prefs->{"$pref"} = $value;
}
close PREFS;
}
# If we have a username and password, and they asked us to use the
# cached defaults, then skip the login prompts. Otherwise, prompt
# the user for login info.
unless ( $self->use_defaults && $prefs->{'email'} && $prefs->{'password'} ) {
$prefs = $self->_prompt_for_login( $prefs );
}
# Store the account info.
$self->{account_name}=$prefs->{"email"};
$self->{password}=$prefs->{"password"};
}
# _prompt_for_login( { email => $email, password => $password } )
#
# Given an optional email and password, prompt the user, displaying the
# existing email and password as defaults (well, passwords are displayed as
# "*****"). Returns the email and password entered, or defaulted to,
# by the user.
#
sub _prompt_for_login {
my ( $prefs ) = @_;
# Prompt them for current values
unless ( defined $prefs->{"email"} ) { $prefs->{"email"} = "" }
print "Email [" . $prefs->{"email"} . "]: ";
my $res = ReadLine 0; chomp $res;
if ( $res ) {
$prefs->{"email"} = $res;
}
unless ( defined $prefs->{"password"} ) { $prefs->{"password"} = "" }
my $password_indicator = $prefs->{'password'} ? '*****' : '';
print "Password [". $password_indicator . "]: ";
ReadMode 'noecho'; # From Term::ReadKey. Make password not echo.
$res = ReadLine 0;
chomp $res;
ReadMode 'normal';
print "\n"; # Because ReadLine won't output a new line when they hit return
if ( $res ) {
$prefs->{"password"} = $res;
}
# Make the cache directory if it doesn't exist.
$self->make_cache_dir;
# Store the new values. We clobber the file, set it r/w by the user,
# *then* write.
my $cache_filepath = catfile( $self->cache_dir, $self->cache_file);
open ( PREFS, ">", $cache_filepath ) or croak $!;
chmod 0600, $cache_filepath;
print PREFS "email:" . $prefs->{"email"} . "\n" .
"password:" . $prefs->{"password"} . "\n";
close PREFS || croak "Error closing file when writing username/password: $!";
return $prefs;
}
=head2 logout
Clears the current web browsing object and resets any login-specific
view release on metacpan or search on metacpan
t/local_files/list_first.html view on Meta::CPAN
<TABLE CELLPADDING=0 CELLSPACING=0 BORDER=0>
<TR><TD HEIGHT=14><IMG SRC="http://lists.topica.com/images/pixel.gif" WIDTH=1 HEIGHT=14 BORDER=0></TD></TR>
</TABLE>
</CENTER>
<MAP NAME="subbed_map">
<AREA SHAPE="rect" COORDS="0,0,48,17" HREF="/lists/UKR/prefs" ALT="Options">
<AREA SHAPE="rect" COORDS="54,0,102,17" HREF="#" onClick="window.open('/lists/UKR/read/post.html','Mail','toolbar=no,directories=no,location=no,status=no,menubar=yes,scrollbars=no,resizable=yes,width=620,height=370'); return false" ALT="Post" >
</MAP>
<TABLE CELLPADDING=0 CELLSPACING=0 BORDER=0 WIDTH="100%">
<TR BGCOLOR="#3300CC">
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
if ($query_repo =~ m!Default Remote: (http://.+)!) {
return $1;
}
}
open my $handle, '<', '_darcs/prefs/repos' or return;
while (<$handle>) {
chomp;
return $_ if m!^http://!;
}
} elsif (-e ".hg") {