Result:
found 771 distributions and 1902 files matching your query !
( run in 1.372 )
Zobel
view release on metacpan or search on metacpan
lib/LiveGeez/Cgi.pm view on Meta::CPAN
my $v;
if ( $self->{apache} ) {
my %c = Apache::Cookie->parse;
return 1 unless ( $c{prefs} );
$v = $c{prefs}->value;
}
else {
# cookies are seperated by a semicolon and a space
return 1 unless ( $ENV{'HTTP_COOKIE'} =~ /prefs/ );
my ( @rawCookies ) = split ( /; /, $ENV{'HTTP_COOKIE'} );
foreach ( @rawCookies ) {
if ( /prefs/ ) {
s/prefs\s+//;
$v = $_;
# print STDERR "Cookie: $v\n";
}
}
}
lib/LiveGeez/Cgi.pm view on Meta::CPAN
&& ( $self->{'cookie-7-bit'} eq $bit7 )
&& ( $self->{'cookie-lang'} eq $lang )
&& ( $self->{'cookie-frames'} eq $frames )
);
$prefs = "geezsys=$sysPragmaOut,frames=$frames,7-bit=$bit7,lang=$lang";
if ( $self->{config}->{useapache} ) {
my $cookie = new Apache::Cookie (
$self->{apache},
-name => 'prefs',
-value => $prefs,
-expires => $self->{config}->{cookieexpires},
-path => "/",
-domain => $self->{config}->{cookiedomain},
);
$cookie->bake;
}
else {
print "Set-Cookie: prefs=$prefs; expires=$self->{config}->{cookieexpires}; path=/; domain=$self->{config}->{cookiedomain}\n";
}
$self->{cookieset} = 1;
}
Zuzu
view release on metacpan or search on metacpan
stdlib/test-fixtures/toon/decode/arrays-nested.json view on Meta::CPAN
"expected": [],
"specSection": "9.1"
},
{
"name": "parses complex mixed object with arrays and nested objects",
"input": "user:\n id: 123\n name: Ada\n tags[2]: reading,gaming\n active: true\n prefs[0]:",
"expected": {
"user": {
"id": 123,
"name": "Ada",
"tags": ["reading", "gaming"],
"active": true,
"prefs": []
}
},
"specSection": "8"
},
{
chronos
view release on metacpan or search on metacpan
<body>
<table width="100%">
<tr><td>
<table width="100%" cellspacing=0>
<tr>
<td class=top>Chronos $VERSION - <a class=header href="$uri?action=userprefs">$user <img src="/chronos_static/home.png" border=0></a></td>
<td class=top align=right><select name="object" style="background-color:black; color:white" onChange="switchobject(this.value)">
EOF
# We next print a select widget in the top right corner that lets the user
# change the object to another one. We only show objects on which the user
return Chronos::Action::Showweek->new($self);
} elsif ( $action eq 'edittask' ) {
return Chronos::Action::EditTask->new($self);
} elsif ( $action eq 'savetask' ) {
return Chronos::Action::SaveTask->new($self);
} elsif ( $action eq 'userprefs' ) {
return Chronos::Action::UserPrefs->new($self);
} elsif ( $action eq 'saveuserprefs' ) {
return Chronos::Action::SaveUserPrefs->new($self);
} elsif ( $action eq 'getfile' ) {
return Chronos::Action::GetFile->new($self);
} elsif ( $action eq 'delfile' ) {
return Chronos::Action::DelFile->new($self);
dotReader
view release on metacpan or search on metacpan
lib/dtRdr/Library.pm view on Meta::CPAN
# this will get us by until config is operable
# (and shouldn't break after it works either)
require dtRdr::Plugins::Book;
dtRdr::Plugins::Book->init();
# requires that config sets type -> class prefs
my $book_class = dtRdr::Plugins::Book->class_for_type($B->type);
$book_class or die "cannot get a plugin for $B->{type}";
0 and warn "book class: $book_class";
my $book_object = $book_class->new();
dvdrip
view release on metacpan or search on metacpan
usage() if not $opt_ok;
my $open_cluster_control = $opt{c};
my $function = $opt{f};
my $title_nr = $opt{t};
my $prefs = $opt{p};
usage() if $function and $function !~ /^(transcode|transcode_split)$/;
$Video::DVDRip::PREFERENCE_FILE = $prefs || "$ENV{HOME}/.dvdriprc";
require Video::DVDRip;
require Video::DVDRip::GUI::Main;
# fetch filename paramter
lib-require-all
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") {
macro
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") {
new.spirit
view release on metacpan or search on metacpan
bin/dbshell.pl view on Meta::CPAN
password => $password,
selected_db => $selected_db,
autocommit => 1,
echo => 0,
get_line_cb => $get_line_cb,
preference_file => home_dir()."/.dbshell_prefs"
);
$shell->{abort_mode} = $opts_href->{x};
if ( $initialize_history ) {
onsearch
view release on metacpan or search on metacpan
lib/OnSearch/AppConfig.pm view on Meta::CPAN
require DynaLoader;
use OnSearch::Utils;
our (@ISA, @EXPORT_OK);
@ISA = qw(Exporter DynaLoader);
@EXPORT_OK = (qw/webidx_prefs_val new DESTROY/);
=head1 NAME
OnSearch::AppConfig - Configuration library for OnSearch search engine.
lib/OnSearch/AppConfig.pm view on Meta::CPAN
###
### In general, run-time changes cannot be made to OnSearch's
### pathnames or permissions, and they are not recognized here.
###
### We should not need to re-write global prefs anyway, because
### the user settings are stored in the cookies.
###
###sub write_pref {
### my $label = $_[0];
### my $value1 = $_[1];
lib/OnSearch/AppConfig.pm view on Meta::CPAN
### close NEWCONFIG;
### close OLDCONFIG;
### rename ($newcfgpath, $cfgpath);
###}
=head2 $cfg -> prefs_val (I<query_object>);
Formats and encodes the value of a search preferences cookie from the
OnSearch::CGIQuery object given as the argument.
=cut
sub prefs_val {
my $ref = $_[0];
my $q = $_[1];
my $prefs_str = "<prefs>\n" .
" <param name=\"matchcase\">" . $q->param_value('matchcase') . "</param>\n" .
" <param name=\"matchtype\">" . $q->param_value('matchtype') . "</param>\n" .
" <param name=\"partword\">".$q->param_value('partword')."</param>\n" .
" <param name=\"pagesize\">".$q->param_value('pagesize')."</param>\n" .
" <param name=\"nresults\">".$q->param_value('nresults')."</param>\n" .
"</prefs>\n";
$prefs_str = OnSearch::Base64::encode_base64 ($prefs_str);
$prefs_str =~ s/\n/!!/gm;
return $prefs_str;
}
=head2 webidx_prefs_val (I<query_object>);
Formats the value of the Web index cookie from the values in
the OnSearch::CGIQuery object given as the argument.
=cut
sub webidx_prefs_val {
my $self = $_[0];
my $q = $_[1];
$prefs_str ='<prefs>' . "\n" .
'<param name="targetscope">'.$q -> param_value('targetscope').'</param>'."\n".
'</prefs>' . "\n";
$prefs_str = OnSearch::Base64::encode_base64 ($prefs_str);
$prefs_str =~ s/\n/!!/gm;
return $prefs_str;
}
=head2 $cfg -> vols_prefs_val (I<query_object>);
Formats the value of the volume preferences cookie from the values in
the argument's OnSearch::CGIQuery object
=cut
sub vols_prefs_val {
my $self = $_[0];
my $volref = $_[1];
my $volumes = join ',', @{$volref};
my $volumes_str = OnSearch::Base64::encode_base64 ($volumes);
$volumes_str =~ s/\n/!!/gm;
return $volumes_str;
}
=head2 $cfg -> get_prefs (I<value>);
Return the preferences from the cookie value given in the argument.
=cut
sub get_prefs {
my $self = $_[0];
my $val = $_[1];
$val =~ s/!!/\n/g;
return OnSearch::Base64::decode_base64 ($val);
}
=head2 $cfg -> parse_prefs (I<str>);
Return a hash of preference key/value pairs.
=cut
sub parse_prefs {
my $self = $_[0];
my $prefs_str = $_[1];
my %prefs_hash;
return undef if $prefs_str =~ /none/;
my @prefs_list = split /\n/, $prefs_str;
my ($attrib, $val);
foreach my $p (@prefs_list) {
next if $p !~ /\s*<param/;
($attrib, $val) =
$p =~ /\s*<param name="(.*)">(.*)</;
$prefs_hash{$attrib} = $val;
}
return %prefs_hash;
}
=head2 $cfg -> Volumes ();
Return a hash of the volumes configured in F<onsearch.cfg.>
p5-Text-Xslate-Syntax-Any
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") {
perl-local-env
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") {
perl
view release on metacpan or search on metacpan
Porting/Maintainers.pl view on Meta::CPAN
'CPAN' => {
'DISTRIBUTION' => 'ANDK/CPAN-2.38.tar.gz',
'SYNCINFO' => 'tib on Mon Nov 18 08:14:50 2024',
'FILES' => q[cpan/CPAN],
'EXCLUDED' => [
qr{^distroprefs/},
qr{^inc/Test/},
qr{^t/CPAN/},
qr{^t/data/},
qr{^t/97-},
qw( lib/CPAN/Admin.pm
Porting/Maintainers.pl view on Meta::CPAN
t/14forkbomb.t
t/30shell.coverage
t/30shell.t
t/31sessions.t
t/41distribution.t
t/42distroprefs.t
t/43distroprefspref.t
t/44cpanmeta.t
t/50pod.t
t/51pod.t
t/52podcover.t
t/60credentials.t
perl_mlb
view release on metacpan or search on metacpan
# This handles MIME type globs correctly.
####
'Accept' => <<'END_OF_FUNC',
sub Accept {
my($self,$search) = self_or_CGI(@_);
my(%prefs,$type,$pref,$pat);
my(@accept) = split(',',$self->http('accept'));
foreach (@accept) {
($pref) = /q=(\d\.\d+|\d+)/;
($type) = m#(\S+/[^;]+)#;
next unless $type;
$prefs{$type}=$pref || 1;
}
return keys %prefs unless $search;
# if a search type is provided, we may need to
# perform a pattern matching operation.
# The MIME types use a glob mechanism, which
# is easily translated into a perl pattern match
# First return the preference for directly supported
# types:
return $prefs{$search} if $prefs{$search};
# Didn't get it, so try pattern matching.
foreach (keys %prefs) {
next unless /\*/; # not a pattern match
($pat = $_) =~ s/([^\w*])/\\$1/g; # escape meta characters
$pat =~ s/\*/.*/g; # turn it into a pattern
return $prefs{$_} if $search=~/$pat/;
}
}
END_OF_FUNC
perlconsole
view release on metacpan or search on metacpan
lib/PerlConsole/Commands.pm view on Meta::CPAN
join("\n- ", keys%{$help});
}
else {
# preferences have automated online help
if ($topic =~ /preferences/) {
return $console->{'prefs'}->help();
}
elsif (grep /^$topic$/, $console->{'prefs'}->getPreferences()) {
return $console->{'prefs'}->help($topic);
}
elsif (defined $help->{$topic}) {
return $help->{$topic};
}
else {
ponfish
view release on metacpan or search on metacpan
Ponfish/Config.pm view on Meta::CPAN
return glob $filespec;
}
}
my %prefs =
(
servers => undef,
dirs => {
main => ((WINDOWS) ? "c:/pf/pfdata"
: $ENV{HOME}."/pf/pfdata"),
Ponfish/Config.pm view on Meta::CPAN
incomplete => "red",
highlight => "yellow",
background => "black",
reverse => "bold",
},
prefs => {
#num_decodes => 3,
},
run_settings => { date => "on",
poster => "on",
rhs => 20,
Ponfish/Config.pm view on Meta::CPAN
CONFIG->get_dir( "conf" );
}
# Add more directories to configuration:
for ( qw(cache newsgroups articles data decode trash conf ) ) {
$prefs{dirs}{$_} = create_valid_filepath( MAIN_DIR(), $_ );
}
# Specifics:
if( WINDOWS ) {
$prefs{dirs}{decode} = "C:/pf";
}
else {
$prefs{dirs}{decode} = create_valid_filepath( $ENV{HOME} . "/pf" );
}
# Trash dir:
$prefs{dirs}{trash} = create_valid_filepath( DECODE_DIR(), "junk" );
# Ensure filepaths exist:
for( qw/cache newsgroups articles data decode trash/ ) {
# print "EDE: $_ -> ", CONFIG()->get_dir( $_ ), "\n";;
ensure_dir_exists CONFIG()->get_dir( $_ );
Ponfish/Config.pm view on Meta::CPAN
my $type = shift;
if( defined $singleton ) {
return $singleton;
}
$singleton = bless {}, $type;
$singleton->{data} = \%prefs;
return $singleton;
}
sub get_dir {
my $self = shift;
sane
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") {
smokeinabox
view release on metacpan or search on metacpan
cpansmokebox/inc/bundle/Module/CoreList.pm view on Meta::CPAN
'CGI::Switch' => '1.00',
'CGI::Util' => '1.5_01',
'CPAN' => '1.9301',
'CPAN::Debug' => '5.5',
'CPAN::DeferedCode' => '5.50',
'CPAN::Distroprefs' => '6',
'CPAN::FirstTime' => '5.5_01',
'CPAN::HandleConfig' => '5.5',
'CPAN::Kwalify' => '5.50',
'CPAN::Nox' => '5.50',
'CPAN::Queue' => '5.5',
cpansmokebox/inc/bundle/Module/CoreList.pm view on Meta::CPAN
'CPAN::CacheMgr' => '5.5',
'CPAN::Complete' => '5.5',
'CPAN::Debug' => '5.5',
'CPAN::DeferredCode' => '5.50',
'CPAN::Distribution' => '1.93',
'CPAN::Distroprefs' => '6',
'CPAN::Distrostatus' => '5.5',
'CPAN::Exception::RecursiveDependency'=> '5.5',
'CPAN::Exception::blocked_urllist'=> '1.0',
'CPAN::Exception::yaml_not_installed'=> '5.5',
'CPAN::FTP' => '5.5001',
cpansmokebox/inc/bundle/Module/CoreList.pm view on Meta::CPAN
'CPAN::CacheMgr' => '5.5',
'CPAN::Complete' => '5.5',
'CPAN::Debug' => '5.5',
'CPAN::DeferredCode' => '5.50',
'CPAN::Distribution' => '1.94',
'CPAN::Distroprefs' => '6',
'CPAN::Distrostatus' => '5.5',
'CPAN::Exception::RecursiveDependency'=> '5.5',
'CPAN::Exception::blocked_urllist'=> '1.0',
'CPAN::Exception::yaml_not_installed'=> '5.5',
'CPAN::FTP' => '5.5002',
cpansmokebox/inc/bundle/Module/CoreList.pm view on Meta::CPAN
'CPAN::CacheMgr' => '5.5',
'CPAN::Complete' => '5.5',
'CPAN::Debug' => '5.5',
'CPAN::DeferredCode' => '5.50',
'CPAN::Distribution' => '1.94',
'CPAN::Distroprefs' => '6',
'CPAN::Distrostatus' => '5.5',
'CPAN::Exception::RecursiveDependency'=> '5.5',
'CPAN::Exception::blocked_urllist'=> '1.0',
'CPAN::Exception::yaml_not_installed'=> '5.5',
'CPAN::FTP' => '5.5002',
cpansmokebox/inc/bundle/Module/CoreList.pm view on Meta::CPAN
'CPAN::CacheMgr' => '5.5',
'CPAN::Complete' => '5.5',
'CPAN::Debug' => '5.5',
'CPAN::DeferredCode' => '5.50',
'CPAN::Distribution' => '1.94',
'CPAN::Distroprefs' => '6',
'CPAN::Distrostatus' => '5.5',
'CPAN::Exception::RecursiveDependency'=> '5.5',
'CPAN::Exception::blocked_urllist'=> '1.0',
'CPAN::Exception::yaml_not_installed'=> '5.5',
'CPAN::FTP' => '5.5002',
cpansmokebox/inc/bundle/Module/CoreList.pm view on Meta::CPAN
'CPAN::CacheMgr' => '5.5',
'CPAN::Complete' => '5.5',
'CPAN::Debug' => '5.5',
'CPAN::DeferredCode' => '5.50',
'CPAN::Distribution' => '1.94',
'CPAN::Distroprefs' => '6',
'CPAN::Distrostatus' => '5.5',
'CPAN::Exception::RecursiveDependency'=> '5.5',
'CPAN::Exception::blocked_urllist'=> '1.0',
'CPAN::Exception::yaml_not_installed'=> '5.5',
'CPAN::FTP' => '5.5004',
cpansmokebox/inc/bundle/Module/CoreList.pm view on Meta::CPAN
'CPAN::CacheMgr' => '5.5',
'CPAN::Complete' => '5.5',
'CPAN::Debug' => '5.5',
'CPAN::DeferredCode' => '5.50',
'CPAN::Distribution' => '1.94',
'CPAN::Distroprefs' => '6',
'CPAN::Distrostatus' => '5.5',
'CPAN::Exception::RecursiveDependency'=> '5.5',
'CPAN::Exception::blocked_urllist'=> '1.0',
'CPAN::Exception::yaml_not_installed'=> '5.5',
'CPAN::FTP' => '5.5004',
cpansmokebox/inc/bundle/Module/CoreList.pm view on Meta::CPAN
'CPAN::CacheMgr' => '5.5',
'CPAN::Complete' => '5.5',
'CPAN::Debug' => '5.5001',
'CPAN::DeferredCode' => '5.50',
'CPAN::Distribution' => '1.9456',
'CPAN::Distroprefs' => '6',
'CPAN::Distrostatus' => '5.5',
'CPAN::Exception::RecursiveDependency'=> '5.5',
'CPAN::Exception::blocked_urllist'=> '1.0',
'CPAN::Exception::yaml_not_installed'=> '5.5',
'CPAN::FTP' => '5.5004',
cpansmokebox/inc/bundle/Module/CoreList.pm view on Meta::CPAN
'CPAN::CacheMgr' => '5.5',
'CPAN::Complete' => '5.5',
'CPAN::Debug' => '5.5001',
'CPAN::DeferredCode' => '5.50',
'CPAN::Distribution' => '1.9456_01',
'CPAN::Distroprefs' => '6',
'CPAN::Distrostatus' => '5.5',
'CPAN::Exception::RecursiveDependency'=> '5.5',
'CPAN::Exception::blocked_urllist'=> '1.0',
'CPAN::Exception::yaml_not_installed'=> '5.5',
'CPAN::FTP' => '5.5004',
cpansmokebox/inc/bundle/Module/CoreList.pm view on Meta::CPAN
'CPAN::CacheMgr' => '5.5',
'CPAN::Complete' => '5.5',
'CPAN::Debug' => '5.5001',
'CPAN::DeferredCode' => '5.50',
'CPAN::Distribution' => '1.9456_01',
'CPAN::Distroprefs' => '6',
'CPAN::Distrostatus' => '5.5',
'CPAN::Exception::RecursiveDependency'=> '5.5',
'CPAN::Exception::blocked_urllist'=> '1.0',
'CPAN::Exception::yaml_not_installed'=> '5.5',
'CPAN::FTP' => '5.5004',
cpansmokebox/inc/bundle/Module/CoreList.pm view on Meta::CPAN
'CPAN::CacheMgr' => '5.5',
'CPAN::Complete' => '5.5',
'CPAN::Debug' => '5.5001',
'CPAN::DeferredCode' => '5.50',
'CPAN::Distribution' => '1.9456_01',
'CPAN::Distroprefs' => '6',
'CPAN::Distrostatus' => '5.5',
'CPAN::Exception::RecursiveDependency'=> '5.5',
'CPAN::Exception::blocked_urllist'=> '1.0',
'CPAN::Exception::yaml_not_installed'=> '5.5',
'CPAN::FTP' => '5.5004',
cpansmokebox/inc/bundle/Module/CoreList.pm view on Meta::CPAN
'CPAN::CacheMgr' => '5.5',
'CPAN::Complete' => '5.5',
'CPAN::Debug' => '5.5001',
'CPAN::DeferredCode' => '5.50',
'CPAN::Distribution' => '1.9456_01',
'CPAN::Distroprefs' => '6',
'CPAN::Distrostatus' => '5.5',
'CPAN::Exception::RecursiveDependency'=> '5.5',
'CPAN::Exception::blocked_urllist'=> '1.0',
'CPAN::Exception::yaml_not_installed'=> '5.5',
'CPAN::FTP' => '5.5004',
cpansmokebox/inc/bundle/Module/CoreList.pm view on Meta::CPAN
'CPAN::CacheMgr' => '5.5',
'CPAN::Complete' => '5.5',
'CPAN::Debug' => '5.5001',
'CPAN::DeferredCode' => '5.50',
'CPAN::Distribution' => '1.9600',
'CPAN::Distroprefs' => '6',
'CPAN::Distrostatus' => '5.5',
'CPAN::Exception::RecursiveDependency'=> '5.5',
'CPAN::Exception::blocked_urllist'=> '1.0',
'CPAN::Exception::yaml_not_installed'=> '5.5',
'CPAN::FTP' => '5.5004',
cpansmokebox/inc/bundle/Module/CoreList.pm view on Meta::CPAN
'CPAN::CacheMgr' => 'cpan',
'CPAN::Complete' => 'cpan',
'CPAN::Debug' => 'cpan',
'CPAN::DeferredCode' => 'cpan',
'CPAN::Distribution' => 'cpan',
'CPAN::Distroprefs' => 'cpan',
'CPAN::Distrostatus' => 'cpan',
'CPAN::Exception::RecursiveDependency'=> 'cpan',
'CPAN::Exception::blocked_urllist'=> 'cpan',
'CPAN::Exception::yaml_not_installed'=> 'cpan',
'CPAN::FTP' => 'cpan',
cpansmokebox/inc/bundle/Module/CoreList.pm view on Meta::CPAN
'CPAN::CacheMgr' => undef,
'CPAN::Complete' => undef,
'CPAN::Debug' => undef,
'CPAN::DeferredCode' => undef,
'CPAN::Distribution' => undef,
'CPAN::Distroprefs' => undef,
'CPAN::Distrostatus' => undef,
'CPAN::Exception::RecursiveDependency'=> undef,
'CPAN::Exception::blocked_urllist'=> undef,
'CPAN::Exception::yaml_not_installed'=> undef,
'CPAN::FTP' => undef,
warnings-unused
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") {
xchar
view release on metacpan or search on metacpan
lib/X11/XTerms.pm view on Meta::CPAN
# $Source: /home/keck/lib/perl/X11/RCS/XTerms.pm,v $
# $Revision: 1.5 $$Date: 2007/07/04 17:00:32 $
# Contents
# 1 standard 2 new 3 localhost 4 prefs 5 notes 6 pod
# ----------------------------------------------------------------------
#1# standard
lib/X11/XTerms.pm view on Meta::CPAN
$localhost;
}
# ----------------------------------------------------------------------
#4# prefs
# perl -MData::Dumper -MX11::XTerms \
# -e 'print Dumper (X11::XTerms->new->prefs)'
sub prefs {
my $xterms = shift;
my $inprefs = {};
my $remotehost;
for (@_) {
if (ref) { $inprefs = $_ } else { $remotehost = $_ }
}
my %outprefs = %$inprefs;
$localhost = localhost unless defined $localhost;
if (
defined $remotehost &&
defined $xterms->{$localhost} &&
defined $xterms->{$localhost}{$remotehost}
) {
for my $key (keys %{$xterms->{$localhost}{$remotehost}}) {
$outprefs{$key} = $xterms->{$localhost}{$remotehost}{$key}
unless defined $outprefs{$key};
}
}
if (
defined $remotehost &&
defined $xterms->{''} &&
defined $xterms->{''}{$remotehost}
) {
for my $key (keys %{$xterms->{''}{$remotehost}}) {
$outprefs{$key} = $xterms->{''}{$remotehost}{$key}
unless defined $outprefs{$key};
}
}
if (
defined $xterms->{$localhost} &&
defined $xterms->{$localhost}{''}
) {
for my $key (keys %{$xterms->{$localhost}{''}}) {
$outprefs{$key} = $xterms->{$localhost}{''}{$key}
unless defined $outprefs{$key};
}
}
if (
defined $xterms->{''} &&
defined $xterms->{''}{''}
) {
for my $key (keys %{$xterms->{''}{''}}) {
$outprefs{$key} = $xterms->{''}{''}{$key}
unless defined $outprefs{$key};
}
}
\%outprefs;
}
# ----------------------------------------------------------------------
1;
lib/X11/XTerms.pm view on Meta::CPAN
require X11::XTerms;
$xterms = Xterms->new;
$xterms = Xterms->new(file => 'somefile');
$prefs = $xterms->prefs;
$prefs = $xterms->prefs('somehost');
$inprefs = { rcmd => 'telnet', user => 'bloggs', };
$outprefs = $xterms->prefs($inprefs);
$outprefs = $xterms->prefs($inprefs, 'somehost');
=head1 DESCRIPTION
=head1 AUTHOR
xmltv
view release on metacpan or search on metacpan
* grab/dk/tv_grab_dk: --offset was being counted twice.
2004-01-03 14:52 epaepa
* Makefile.PL, Uninstall.pm, analyse_tvprefs/analyse_tvprefs,
choose/tv_pick/merge_tvprefs, filter/Grep.pm,
grab/Config_file.pm, grab/Europe_TZ.pm, grab/Get_nice.pm,
grab/Grab_XML.pm, grab/Memoize.pm, grab/Mode.pm,
grab/nz/tv_grab_nz.PL, grab/uk_rt/tv_grab_uk_rt.PL, lib/Ask.pm,
lib/AskTerm.pm, lib/AskTk.pm, lib/Clumps.pm, lib/Date.pm,
lib/Gunzip.pm, lib/Summarize.pm, lib/TZ.pm, lib/Usage.pm,
* doc/QuickStart: Updated the list of grabbers.
2004-01-03 11:57 epaepa
* analyse_tvprefs/analyse_tvprefs: 'use warnings' instead of -w.
2004-01-03 11:52 epaepa
* grab/Grab_XML.pm: Added __DIE__ handler to print URL.
Converted some spaces to tabs (it didn't seem to matter, but
might as well be consistent).
2003-06-21 14:44 epaepa
* MANIFEST: Added merge_tvprefs to file list.
2003-06-21 14:26 epaepa
* grab/de/tv_grab_de: Fix up the downloaded XML to have
proper-looking channel ids and <channel> elements.
used. The strange thing is that this check already existed in
some parts of the code, but not everywhere.
2003-06-08 09:47 epaepa
* choose/tv_pick/merge_tvprefs: Adding trivial merge_tvprefs script
to combine two or more prefs files.
2003-06-07 17:09 epaepa
* choose/tv_pick/tv_pick_cgi: Removed support for very old tvprefs
files with 'maybe'.
2003-06-03 03:38 rmeden
* Makefile.PL: blank lines were left in new windows_dist code.
Microsoftisms including the notorious 'smart quotes' and lumps of
non-breaking spaces used for layout.
2002-12-23 20:23 epaepa
* analyse_tvprefs/analyse_tvprefs, choose/tv_pick/tv_pick_cgi,
grab/uk_rt/tv_grab_uk_rt.in: Fixed several places with
configuration-file-parsing code. You need to strip comments
_before_ stripping trailing spaces, otherwise a space before a
comment is left. Hmm, perhaps this should be factored out.
* Makefile.PL, README, doc/README.win32, lib/XMLTV.pm.in: Version
0.5.4.
2002-12-01 16:58 epaepa
* analyse_tvprefs/analyse_tvprefs: Updated link to top 3000 words
in the BNC; now it points to my mirror of that page.
2002-12-01 10:12 epaepa
* mkdist: Now there are two readme files the mkdist reminder needs
tv_check not TVCHECK or tvcheck... I hope it's author doesn't
mind too much :-(.
2002-09-01 11:53 epaepa
* ChangeLog.old, README, xmltv.dtd, analyse_tvprefs/README,
analyse_tvprefs/analyse_tvprefs,
choose/tv_check/tv_check_doc.html, choose/tv_pick/tv_pick_cgi,
filter/tv_cat, filter/tv_extractinfo_en, filter/tv_grep.in,
filter/tv_sort, filter/tv_to_latex, grab/de/tv_grab_de,
lib/XMLTV.pm.in, t/parallel_test, t/test_filters.t: Updated
references to the XMLTV website, and to my email address. Purged
* choose/tv_check/README.tv_check: Wrapped lines to 70 columns -
hope you don't mind Robert.
2002-05-23 10:50 epaepa
* analyse_tvprefs/README: Token documentation on the
analyse_tvprefs tool.
2002-05-23 10:47 epaepa
* doc/code/grabber_interface: The grabber_interface file is
currently just a placeholder, but at least it now contains a
adding the clumpidx to each programme hash. This is just cutting
out dead code.
2002-01-07 15:33 epaepa
* analyse_tvprefs/analyse_tvprefs: Tidied by removing trailing
whitespace on comments; removed CVS logs.
2002-01-07 15:30 epaepa
* ZapListings.pm: Tidied file by getting rid of spaces on lines
* ClickListings.pm, README, README.channels, UK_TZ.pm, XMLTV.pm,
ZapListings.pm, channels.dtd, filter_shown, getlistings_ca,
getlistings_na, getlistings_uk_ananova, listings_to_latex,
mkdist, pick_cgi, sort_listings, xmltv.dtd,
analyse_tvprefs/analyse_tvprefs: Whoops, just realized that the
last changelog message would itself get keyword-expanded, causing
no end of confusion. I had to perform some emergency censorship
of funny dollar signs.
2001-11-11 16:41 epaepa
* ClickListings.pm, README, README.channels, UK_TZ.pm, XMLTV.pm,
ZapListings.pm, channels.dtd, filter_shown, getlistings_ca,
getlistings_na, getlistings_uk_ananova, listings_to_latex,
mkdist, pick_cgi, sort_listings, xmltv.dtd,
analyse_tvprefs/analyse_tvprefs: Rearranged (or added) comments
at the start of each file, so the description is near the top and
the changelog near the bottom. Added $Log: $ lines to get an
automatically updated changelog from now on; I hope it works.
2001-11-11 15:57 epaepa
2001-11-02 18:35 jveldhuis
* TVChannels.pm, channels_nl.xml, channels_uk.xml, channeltest.pl,
doc.html, getlistings_nl, getlistings_pa, pick_process,
scrapped_getlistings_uk_ananova, test_memoize, test_xmltv_module,
tvprefs, tz.pl, uk_tz.pl: no longer included sometime previous to
0.2.10
2001-11-02 18:28 jveldhuis
* ChangeLog, ClickListings.pm, README, XMLTV.pm, channels.dtd,
getlistings_na, getlistings_uk_ananova, sort_listings,
towatch.dvi, xmltv.dtd, analyse_tvprefs/bnc_freq.txt:
xmltv-0.2.10
2001-11-02 18:25 jveldhuis
* ChangeLog, ClickListings.pm, README, README.channels, XMLTV.pm,
channels.dtd, getlistings_na, getlistings_uk_ananova,
listings_to_latex, xmltv.dtd, analyse_tvprefs/analyse_tvprefs:
xmltv-0.2.9
2001-11-02 18:24 jveldhuis
* ChangeLog, ClickListings.pm, README, UK_TZ.pm, XMLTV.pm,
2001-11-02 18:20 jveldhuis
* ChangeLog, README, README.channels, TVChannels.pm, channels.dtd,
channels_nl.xml, channels_uk.xml, channeltest.pl, getlistings_nl,
getlistings_uk_ananova, listings_to_latex, pick_cgi, tvprefs,
uk_tz.pl: xmltv-0.2.5
2001-11-02 18:15 jveldhuis
* ChangeLog, README, doc.html, getlistings_ca, getlistings_nl,
( run in 1.372 second using v1.01-cache-2.11-cpan-8f98c5d2c55 )