view release on metacpan or search on metacpan
lib/Apache/UploadMeter/Resources/JavaScript.pm view on Meta::CPAN
New in version 0.4: Support for CSS2 and CSS3 attribute selectors:
See http://www.w3.org/TR/css3-selectors/#attribute-selectors
Version 0.4 - Simon Willison, March 25th 2003
-- Works in Phoenix 0.5, Mozilla 1.3, Opera 7, Internet Explorer 6, Internet Explorer 5 on Windows
-- Opera 7 fails
*/
function getAllChildren(e) {
// Returns all children of element. Workaround required for IE5/Windows. Ugh.
view release on metacpan or search on metacpan
lib/Apache/WebDAV.pm view on Meta::CPAN
$info->{'getcontenttype'} = 'application/octet-stream';
$info->{'resourcetype'} = '';
if($handler->test('d', $path))
{
$info->{'getcontenttype'} = 'httpd/unix-directory';
$info->{'resourcetype'} = 'collection';
}
@stat{@properties} = $handler->stat($path);
view release on metacpan or search on metacpan
WinBitHack.pm view on Meta::CPAN
sub XBitHack ($$$) {
my ($cfg, $parms, $arg) = @_;
# Let mod_include do the Unix stuff - we only do Win32.
return DECLINE_CMD unless $^O =~ m/Win32/;
if ($arg =~ m/^(On|Off|Full)$/i) {
$cfg->{_state} = uc($arg);
}
view release on metacpan or search on metacpan
General Public License for more details.
=head2 (GENERALLY) UNIX-Only
This software has only tested under Linux and Darwin, but should work
for any *nix-style system. This software is not intended for use on
windows or other delicate glassware.
=head2 Cross Scripting
This software is meant to run on mod_perl, which, unlike PHP for example, is
view release on metacpan or search on metacpan
inc/Module/Install/Can.pm view on Meta::CPAN
*ExtUtils::MM_Cygwin::maybe_command = sub {
my ($self, $file) = @_;
if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
ExtUtils::MM_Win32->maybe_command($file);
} else {
ExtUtils::MM_Unix->maybe_command($file);
}
}
}
}
view release on metacpan or search on metacpan
lib/Apache2/API.pm view on Meta::CPAN
return( $j );
}
sub lang { return( shift->_set_get_scalar( 'lang', @_ ) ); }
sub lang_unix
{
my $self = shift( @_ );
my $lang = $self->{lang};
$lang =~ tr/-/_/;
return( $lang );
lib/Apache2/API.pm view on Meta::CPAN
$locale = $req->preferred_language( Apache2::API::Status->supported_languages );
}
if( defined( $locale ) )
{
# Make sure we are dealing with unix style language code
$locale =~ tr/-/_/;
if( length( $locale ) == 2 )
{
$locale = Apache2::API::Status->convert_short_lang_to_long( $locale );
}
lib/Apache2/API.pm view on Meta::CPAN
my $bool = $api->is_perl_option_enabled;
# JSON object
my $json = $api->json( pretty => 1, sorted => 1, relaxed => 1 );
my $lang = $api->lang( 'en_GB' );
# en_GB
my $lang = $api->lang_unix;
# en-GB
my $lang = $api->lang_web;
$api->log_error( "Oops" );
$api->print( @some_data );
$api->push_handlers( $name => $code_reference );
lib/Apache2/API.pm view on Meta::CPAN
=head2 lang( $string )
Set or get the language for the API. This would typically be the HTTP preferred language.
=head2 lang_unix( $string )
Given a language, this returns a language code formatted the unix way, ie en-GB would become en_GB
=head2 lang_web( $string )
Given a language, this returns a language code formatted the web way, ie en_GB would become en-GB
view release on metacpan or search on metacpan
inc/Module/Install/Can.pm view on Meta::CPAN
*ExtUtils::MM_Cygwin::maybe_command = sub {
my ($self, $file) = @_;
if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
ExtUtils::MM_Win32->maybe_command($file);
} else {
ExtUtils::MM_Unix->maybe_command($file);
}
}
}
}
view release on metacpan or search on metacpan
inc/Module/Install/Can.pm view on Meta::CPAN
*ExtUtils::MM_Cygwin::maybe_command = sub {
my ($self, $file) = @_;
if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
ExtUtils::MM_Win32->maybe_command($file);
} else {
ExtUtils::MM_Unix->maybe_command($file);
}
}
}
}
view release on metacpan or search on metacpan
inc/Module/Install/Can.pm view on Meta::CPAN
*ExtUtils::MM_Cygwin::maybe_command = sub {
my ($self, $file) = @_;
if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
ExtUtils::MM_Win32->maybe_command($file);
} else {
ExtUtils::MM_Unix->maybe_command($file);
}
}
}
}
view release on metacpan or search on metacpan
lib/Apache2/AuthCookieLDAP.pm view on Meta::CPAN
Decrypts $str and returns the provided encrypted session string.
=head2 check_expire_time($r, $session_time)
Checks the provided session time (unixtime) with the current time
and returns '0' if the session time is still valid or '1' if passed.
=head2 authen_cred($r, $user, $password, @extra_data)
This is the overridden method of Apache::AuthCookie and is used to
view release on metacpan or search on metacpan
smb/smbval/byteorder.h view on Meta::CPAN
/*
Unix SMB/Netbios implementation.
Version 1.9.
SMB Byte handling
Copyright (C) Andrew Tridgell 1992-1995
This program is free software; you can redistribute it and/or modify
view release on metacpan or search on metacpan
examples/fakeup.pl view on Meta::CPAN
use Data::Dumper;
use constant PRINTF => '%y\t%m\t%M\t%n\t%U\t%u\t%G\t%g\t%s\t%TY-%Tm-%Td '.
'%TH:%TM\t%T@\t%CY-%Cm-%Cd %CH:%CM\t%C@\t%h\t%f\t%p\n';
use constant PRINTF_FIELDS => qw(type mode perms links uid owner gid
group size mtime unixmtime ctime unixctime path filename absfile);
my %data;
my $cmd = sprintf('find . -printf "%s"',PRINTF);
open(PH,'-|',$cmd) || die "Unable to open file handle PH for command '$cmd': $!";
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
$file .= '.pm';
foreach my $dir ( @INC ) {
next if ref $dir;
my $path = File::Spec->catfile($dir, $file);
next unless -e $path;
require ExtUtils::MM_Unix;
return ExtUtils::MM_Unix->parse_version($path);
}
return undef;
}
# Load CPAN.pm and it's configuration
view release on metacpan or search on metacpan
Makefile.old view on Meta::CPAN
TO_INST_PM = RequestRec.pm
# --- MakeMaker platform_constants section:
MM_Unix_VERSION = 7.24
PERL_MALLOC_DEF = -DPERL_EXTMALLOC_DEF -Dmalloc=Perl_malloc -Dfree=Perl_mfree -Drealloc=Perl_realloc -Dcalloc=Perl_calloc
# --- MakeMaker tool_autosplit section:
# Usage: $(AUTOSPLITFILE) FileToSplit AutoDirToSplitInto
view release on metacpan or search on metacpan
inc/Module/Install/Can.pm view on Meta::CPAN
*ExtUtils::MM_Cygwin::maybe_command = sub {
my ($self, $file) = @_;
if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
ExtUtils::MM_Win32->maybe_command($file);
} else {
ExtUtils::MM_Unix->maybe_command($file);
}
}
}
}
view release on metacpan or search on metacpan
xt/author/eol.t view on Meta::CPAN
't/perl-bin/css.pl',
't/perl-bin/plain.pl',
't/registry.t'
);
eol_unix_ok($_, { trailing_whitespace => 1 }) foreach @files;
done_testing;
view release on metacpan or search on metacpan
xt/author/eol.t view on Meta::CPAN
't/pod-coverage.t',
't/pod.t',
't/registry.t'
);
eol_unix_ok($_, { trailing_whitespace => 1 }) foreach @files;
done_testing;
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
$file .= '.pm';
foreach my $dir ( @INC ) {
next if ref $dir;
my $path = File::Spec->catfile($dir, $file);
next unless -e $path;
require ExtUtils::MM_Unix;
return ExtUtils::MM_Unix->parse_version($path);
}
return undef;
}
# Load CPAN.pm and it's configuration
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
$file .= '.pm';
foreach my $dir ( @INC ) {
next if ref $dir;
my $path = File::Spec->catfile($dir, $file);
next unless -e $path;
require ExtUtils::MM_Unix;
return ExtUtils::MM_Unix->parse_version($path);
}
return undef;
}
# Load CPAN.pm and it's configuration
view release on metacpan or search on metacpan
examples/xml2_test.html view on Meta::CPAN
<!-- $Id: xml2_test.html 31 2011-10-25 19:24:53Z jo $ -->
<HTML
xmlns:ns="http://nonsense/"><HEAD>
<META HTTP-EQUIV="CONTENT-TYPE" CONTENT="text/html; charset=utf-8">
<TITLE></TITLE>
<META NAME="GENERATOR" CONTENT="OpenOffice.org 3.2 (Unix)">
<META NAME="AUTHOR" CONTENT="jo ">
<META NAME="CREATED" CONTENT="20110629;13131700">
<META NAME="CHANGEDBY" CONTENT="jo ">
<META NAME="CHANGED" CONTENT="20110629;13144500">
<STYLE TYPE="text/css">
view release on metacpan or search on metacpan
inc/Module/Install/Can.pm view on Meta::CPAN
*ExtUtils::MM_Cygwin::maybe_command = sub {
my ($self, $file) = @_;
if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
ExtUtils::MM_Win32->maybe_command($file);
} else {
ExtUtils::MM_Unix->maybe_command($file);
}
}
}
}
view release on metacpan or search on metacpan
lib/Apache2/PageKit.pm view on Meta::CPAN
## return DECLINED;
}
sub _check_gzip {
my $pk = shift;
# check Accent-Encoding or if the user_agent field for Unix/Mac Netscape
# to see if should gzip output
my $gzip_output = $pk->{config}->get_global_attr("gzip_output") || 'none';
$pk->{use_gzip} = 'none';
my $apr = $pk->{apr};
if ($gzip_output =~ m!^(all|static)$!){
view release on metacpan or search on metacpan
lib/Apache2/SSI/Common.pm view on Meta::CPAN
darwin => '/',
dec_osf => '/',
dgux => '/',
dos => "\\",
dragonfly => '/',
dynixptx => '/',
freebsd => '/',
gnu => '/',
gnukfreebsd => '/',
haiku => '/',
hpux => '/',
lib/Apache2/SSI/Common.pm view on Meta::CPAN
irix => '/',
linux => '/',
machten => '/',
macos => ':',
midnightbsd => '/',
minix => '/',
mirbsd => '/',
mswin32 => "\\",
msys => '/',
netbsd => '/',
netware => "\\",
lib/Apache2/SSI/Common.pm view on Meta::CPAN
{
my $fh = IO::File->new( "<$file" ) ||
return( $self->error( "Unable to open file \"$file\" in read mode: $!" ) );
$fh->binmode( $binmode ) if( length( $binmode ) );
my $size;
if( $binmode eq ':unix' && ( $size = -s( $fh ) ) )
{
my $buf;
$fh->read( $buf, $size );
return( $buf );
}
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
$file .= '.pm';
foreach my $dir ( @INC ) {
next if ref $dir;
my $path = File::Spec->catfile($dir, $file);
next unless -e $path;
require ExtUtils::MM_Unix;
return ExtUtils::MM_Unix->parse_version($path);
}
return undef;
}
# Load CPAN.pm and it's configuration
view release on metacpan or search on metacpan
lib/Apache2/WebApp/Extra/Admin.pm view on Meta::CPAN
=head1 GETTING STARTED
=head2 HELPER SCRIPT
=head3 Export project settings to the Unix shell
$ source /path/to/project/.projrc
=head3 Add this I<Extra> to an existing project
view release on metacpan or search on metacpan
lib/Apache2/WebApp/Plugin/DateTime.pm view on Meta::CPAN
return Delta_Days( @date_to, @date_from );
}
#----------------------------------------------------------------------------+
# format_time( $unix_time, $format )
#
# Convert seconds-since-epoch to a human readable format.
sub format_time {
my ( $self, $unix_time, $format )
= validate_pos( @_,
{ type => OBJECT },
{ type => SCALAR },
{ type => SCALAR }
);
require Date::Format; # since POSIX imports similiar methods
return Date::Format::time2str($format, $unix_time, undef);
}
#~~~~~~~~~~~~~~~~~~~~~~~~~~[ PRIVATE METHODS ]~~~~~~~~~~~~~~~~~~~~~~~~~~~~~#
#----------------------------------------------------------------------------+
lib/Apache2/WebApp/Plugin/DateTime.pm view on Meta::CPAN
=head2 format_time
Convert seconds-since-epoch to a human readable format.
my $date = $c->plugin('DateTime')->format_time( $unix_time, '%a %b %d %T %Y' );
See L<Date::Format> for character conversion specification.
=head1 SEE ALSO
view release on metacpan or search on metacpan
lib/Apache2/WebApp.pm view on Meta::CPAN
or
$ webapp-project --config /path/to/conf/webapp.conf
=head3 Export project settings to the Unix shell
$ source /path/to/project/.projrc
=head3 Create a new class
view release on metacpan or search on metacpan
xt/author/eol.t view on Meta::CPAN
't/basic.t',
't/rc/.perlcriticrc',
't/rc/.perltidyrc'
);
eol_unix_ok($_, { trailing_whitespace => 1 }) foreach @files;
done_testing;
view release on metacpan or search on metacpan
1234567891.pm view on Meta::CPAN
App::1234567891 - Yield the sequence like '12345678911234567892...' to know the text length by comparison.
=head1 SYNOPSIS
This module provides a Unix-like command `F<1234567891>'.
=head1 DESCRIPTION
By aligning with a text sequence such as "123456789112345678921234567893.."
you can quickly know the length of the character string with your eyes.
view release on metacpan or search on metacpan
12567834.pm view on Meta::CPAN
from the original PDF in sequential order.
=head1 SYNOPSIS
This module F<App::12567834> provides a Unix-like command `F<12567834>'.
=head1 DESCRIPTION
The command F<12567834> yields the character strings which specifies how to
enter the page number specification so that every printed paper contains four