Result:
found more than 561 distributions - search limited to the first 2001 files matching your query
( run in 0.968 )
CtrlO-Crypt-XkcdPassword
view release on metacpan or search on metacpan
lib/CtrlO/Crypt/XkcdPassword/Wordlist/en_gb.pm view on Meta::CPAN
cajole
calamity
calcium
calculate
calculi
calendar
calibrate
calibre
calico
callable
caller
Curses-Devkit
view release on metacpan or search on metacpan
Cdk/Cdk/Calendar.pm view on Meta::CPAN
Cdk::Calendar::Set ($self->{'Me'}, $day, $month, $year,
$dAttrib, $mAttrib, $yAttrib, $box);
}
#
# This sets the calendar to a given date.
#
sub setDate
{
my $self = shift;
my %params = @_;
Cdk/Cdk/Calendar.pm view on Meta::CPAN
Cdk::Calendar::SetDate ($self->{'Me'}, $day, $month, $year);
}
#
# This gets the current date on the given calendar.
#
sub getDate
{
my $self = shift;
return (Cdk::Calendar::GetDate ($self->{'Me'}));
}
#
# This sets a marker in the calendar widget.
#
sub setMarker
{
my $self = shift;
my %params = @_;
Cdk/Cdk/Calendar.pm view on Meta::CPAN
Cdk::Calendar::SetMarker ($self->{'Me'}, $day, $month, $year, $marker);
}
#
# This removes a marker from the calendar widget.
#
sub removeMarker
{
my $self = shift;
my %params = @_;
Curses-UI-POE
view release on metacpan or search on metacpan
examples/demo-widgets view on Meta::CPAN
# Calendar
# ----------------------------------------------------------------------
$w{8}->add(
undef, 'Label',
-text => "The calendar can be used to select a date, somewhere between\n"
. "the years 0 and 9999. It honours the transition from the\n"
. "Julian- to the Gregorian calender in 1752."
);
$w{8}->add(
examples/demo-widgets view on Meta::CPAN
. "backward. Press <T> to go to today's date. Press\n"
. "<C> to go to the currently selected date."
);
$w{8}->add(
'calendarlabel', 'Label',
-y => 14, -x => 27,
-bold => 1,
-width => -1,
-text => 'Select a date please...'
);
$w{8}->add(
'calendar', 'Calendar',
-y => 4, -x => 0,
-border => 1,
-onchange => sub {
my $cal = shift;
my $label = $cal->parent->getobj('calendarlabel');
$label->text("You selected the date: " . $cal->get);
},
);
# ----------------------------------------------------------------------
examples/demo-widgets view on Meta::CPAN
# ----------------------------------------------------------------------
$w{14}->add(
undef, 'Label',
-text => "Curses::UI::POE has a number of ready-to-use dialog windows.\n"
. "The calendar dialog is one of them. Using this dialog\n"
. "it is possible to select a date."
);
$w{14}->add( undef, 'Label', -y => 7, -text => 'Date:' );
$w{14}->add(
examples/demo-widgets view on Meta::CPAN
-onpress => sub {
my $label = shift()->parent->getobj('datelabel');
my $date = $label->get;
print STDERR "$date\n";
$date = undef if $date eq 'none';
my $return = $cui->calendardialog(-date => $date);
$label->text($return) if defined $return;
}
},{
-label => "< Clear date >",
-onpress => sub {
Curses-UI
view release on metacpan or search on metacpan
lib/Curses/UI.pm view on Meta::CPAN
my $self = shift;
my %args = $self->process_args('-question', @_);
$self->tempdialog('Dialog::Question', %args);
}
sub calendardialog()
{
my $self = shift;
my %args = $self->process_args('-title', @_);
$self->tempdialog('Dialog::Calendar', %args);
}
CursesWidgets
view release on metacpan or search on metacpan
Widgets/Calendar.pm view on Meta::CPAN
=back
=head1 DESCRIPTION
Curses::Widgets::Calendar provides simplified OO access to Curses-based
calendars. Each object maintains it's own state information.
=cut
#####################################################################
#
Widgets/Calendar.pm view on Meta::CPAN
BORDER 1 Display a border around the field
BORDERCOL undef Foreground colour for border
FOCUSSWITCH "\t" Characters which signify end of input
HIGHLIGHT [] Days to highlight
HIGHLIGHTCOL undef Default highlighted data colour
HEADERCOL undef Default calendar header colour
MONTH (current) Month to display
VALUE 1 Day of the month where the cursor is
ONYEAR undef Callback function triggered by year
ONMONTH undef Callback function triggered by month
ONDAY undef Callback function triggered by day
Each of the ON* callback functions expect a subroutine reference that excepts
one argument: a handle to the calendar object itself. If more than one
trigger is called, it will be called in the order of day, month, and then
year.
=cut
Widgets/Calendar.pm view on Meta::CPAN
=head2 draw
$cal->draw($mwh, 1);
The draw method renders the calendar in its current state. This
requires a valid handle to a curses window in which it will render
itself. The optional second argument, if true, will cause the calendar's
selected day to be rendered in standout mode (inverse video).
=cut
sub _content {
Widgets/Calendar.pm view on Meta::CPAN
my $pos = $$conf{VALUE};
my @date = split(/\//, $$conf{MONTH});
my @highlight = @{ $$conf{HIGHLIGHT} };
my ($i, @cal);
# Get the calendar lines and print them
@cal = _gen_cal(@date[1,0]);
$i = 0;
foreach (@cal) {
# Set the header colour (if defined)
Widgets/Calendar.pm view on Meta::CPAN
}
# Save the cursor position if it's on this line
$self->{COORD} = [$i, length($1)] if $cal[$i] =~ /^(.*\b)$pos\b/;
# Print the calendar line
$dwh->addstr($i, 0, $cal[$i]);
# Highlight the necessary dates
if (exists $$conf{HIGHLIGHTCOL}) {
until ($#highlight == -1 || $cal[$i] !~ /^(.*\b)$highlight[0]\b/) {
Widgets/Calendar.pm view on Meta::CPAN
# Restore the default settings
$self->_restore($dwh);
}
sub _gen_cal {
# Generates the calendar month output, and stuffs it into a
# LOL, which is returned by the method.
#
# Modified from code provided courtesy of Michael E. Schechter,
# <mschechter@earthlink.net>
#
Widgets/Calendar.pm view on Meta::CPAN
=head1 HISTORY
=over
=item 1999/12/29 -- Original calendar widget in functional model
=item 2001/07/05 -- First incarnation in OO architecture
=back
Cyrillic
view release on metacpan or search on metacpan
lib/Cyrillic.pm view on Meta::CPAN
| UTF-8 | Latin-1 | |
+----------+-----------+---------------------+
| UTF8 | Not UTF8 |
| Flagged | Flagged |
+--------------------------------------------+
http://perl-users.jp/articles/advent-calendar/2010/casual/4
Confusion of Perl string model is made from double meanings of
"Binary string."
Meanings of "Binary string"
1. Non-Text string
DBD-DtfSQLmac
view release on metacpan or search on metacpan
MacTech_article.html view on Meta::CPAN
<TD><IMG SRC="http://www.mactech.com/mt_images/triangle_half.gif" ALT=""></TD>
<TD><FONT SIZE="2"><A HREF="http://www.mactech.com/editorial/abouteditors.html">Contact the Editors</A></FONT></TD>
</TR>
<TR VALIGN=TOP>
<TD><IMG SRC="http://www.mactech.com/mt_images/triangle_half.gif" ALT=""></TD>
<TD><FONT SIZE="2"><A HREF="http://www.mactech.com/editorial/calendar.html">Issue Contents, Editorial Calendar</A></FONT></TD>
</TR>
<TR VALIGN=TOP>
<TD><IMG SRC="http://www.mactech.com/mt_images/triangle_half.gif" ALT=""></TD>
<TD><FONT SIZE="2"><A HREF="http://www.devdepot.com/catpage.html?CREF=32">Back Issues</A></FONT></TD>
</TR>
DBD-Informix
view release on metacpan or search on metacpan
lib/DBD/Informix/Summary.pm view on Meta::CPAN
DATE supports dates in the range 01/01/0001 through 31/12/9999.
It is fairly flexible in its input and output formats. Internally,
it is represented by the number of days since December 31 1899,
so January 1 1900 was day 1. It does not understand the calendric
gyrations of 1752, 1582-4, or the early parts of the first millenium,
and imposes the calendar as of 1970-01-01 on these earlier times.
DATETIME has to be qualified by two components from the set:
YEAR MONTH DAY HOUR MINUTE SECOND FRACTION FRACTION(n) for n = 1..5
DBD-SQLcipher
view release on metacpan or search on metacpan
** All other code has file scope.
**
** SQLite processes all times and dates as julian day numbers. The
** dates and times are stored as the number of days since noon
** in Greenwich on November 24, 4714 B.C. according to the Gregorian
** calendar system.
**
** 1970-01-01 00:00:00 is JD 2440587.5
** 2000-01-01 00:00:00 is JD 2451544.5
**
** This implementation requires years to be expressed as a 4-digit number
** which means that only dates between 0000-01-01 and 9999-12-31 can
** be represented, even though julian day numbers allow a much wider
** range of dates.
**
** The Gregorian calendar system is used for all dates and times,
** even those that predate the Gregorian calendar. Historians usually
** use the julian calendar for dates prior to 1582-10-15 and for some
** dates afterwards, depending on locale. Beware of this difference.
**
** The conversion algorithms are implemented based on descriptions
** in the following text:
**
return 0;
}
/*
** Convert from YYYY-MM-DD HH:MM:SS to julian day. We always assume
** that the YYYY-MM-DD is according to the Gregorian calendar.
**
** Reference: Meeus page 61
*/
static void computeJD(DateTime *p){
int Y, M, D, A, B, X1, X2;
/*
** Find the current time (in Universal Coordinated Time). Write into *piNow
** the current time and date as a Julian Day number times 86_400_000. In
** other words, write into *piNow the number of milliseconds since the Julian
** epoch of noon in Greenwich on November 24, 4714 B.C according to the
** proleptic Gregorian calendar.
**
** On success, return SQLITE_OK. Return SQLITE_ERROR if the time and date
** cannot be found.
*/
static int unixCurrentTimeInt64(sqlite3_vfs *NotUsed, sqlite3_int64 *piNow){
/*
** Find the current time (in Universal Coordinated Time). Write into *piNow
** the current time and date as a Julian Day number times 86_400_000. In
** other words, write into *piNow the number of milliseconds since the Julian
** epoch of noon in Greenwich on November 24, 4714 B.C according to the
** proleptic Gregorian calendar.
**
** On success, return SQLITE_OK. Return SQLITE_ERROR if the time and date
** cannot be found.
*/
static int winCurrentTimeInt64(sqlite3_vfs *pVfs, sqlite3_int64 *piNow){
DBD-SQLeet
view release on metacpan or search on metacpan
** All other code has file scope.
**
** SQLite processes all times and dates as julian day numbers. The
** dates and times are stored as the number of days since noon
** in Greenwich on November 24, 4714 B.C. according to the Gregorian
** calendar system.
**
** 1970-01-01 00:00:00 is JD 2440587.5
** 2000-01-01 00:00:00 is JD 2451544.5
**
** This implementation requires years to be expressed as a 4-digit number
** which means that only dates between 0000-01-01 and 9999-12-31 can
** be represented, even though julian day numbers allow a much wider
** range of dates.
**
** The Gregorian calendar system is used for all dates and times,
** even those that predate the Gregorian calendar. Historians usually
** use the julian calendar for dates prior to 1582-10-15 and for some
** dates afterwards, depending on locale. Beware of this difference.
**
** The conversion algorithms are implemented based on descriptions
** in the following text:
**
p->isError = 1;
}
/*
** Convert from YYYY-MM-DD HH:MM:SS to julian day. We always assume
** that the YYYY-MM-DD is according to the Gregorian calendar.
**
** Reference: Meeus page 61
*/
static void computeJD(DateTime *p){
int Y, M, D, A, B, X1, X2;
/*
** Find the current time (in Universal Coordinated Time). Write into *piNow
** the current time and date as a Julian Day number times 86_400_000. In
** other words, write into *piNow the number of milliseconds since the Julian
** epoch of noon in Greenwich on November 24, 4714 B.C according to the
** proleptic Gregorian calendar.
**
** On success, return SQLITE_OK. Return SQLITE_ERROR if the time and date
** cannot be found.
*/
static int unixCurrentTimeInt64(sqlite3_vfs *NotUsed, sqlite3_int64 *piNow){
/*
** Find the current time (in Universal Coordinated Time). Write into *piNow
** the current time and date as a Julian Day number times 86_400_000. In
** other words, write into *piNow the number of milliseconds since the Julian
** epoch of noon in Greenwich on November 24, 4714 B.C according to the
** proleptic Gregorian calendar.
**
** On success, return SQLITE_OK. Return SQLITE_ERROR if the time and date
** cannot be found.
*/
static int winCurrentTimeInt64(sqlite3_vfs *pVfs, sqlite3_int64 *piNow){
DBD-SQLite-Amalgamation
view release on metacpan or search on metacpan
sqlite-amalgamation.c view on Meta::CPAN
** $Id: date.c,v 1.87 2008/07/28 19:34:53 drh Exp $
**
** SQLite processes all times and dates as Julian Day numbers. The
** dates and times are stored as the number of days since noon
** in Greenwich on November 24, 4714 B.C. according to the Gregorian
** calendar system.
**
** 1970-01-01 00:00:00 is JD 2440587.5
** 2000-01-01 00:00:00 is JD 2451544.5
**
** This implemention requires years to be expressed as a 4-digit number
** which means that only dates between 0000-01-01 and 9999-12-31 can
** be represented, even though julian day numbers allow a much wider
** range of dates.
**
** The Gregorian calendar system is used for all dates and times,
** even those that predate the Gregorian calendar. Historians usually
** use the Julian calendar for dates prior to 1582-10-15 and for some
** dates afterwards, depending on locale. Beware of this difference.
**
** The conversion algorithms are implemented based on descriptions
** in the following text:
**
sqlite-amalgamation.c view on Meta::CPAN
return 0;
}
/*
** Convert from YYYY-MM-DD HH:MM:SS to julian day. We always assume
** that the YYYY-MM-DD is according to the Gregorian calendar.
**
** Reference: Meeus page 61
*/
static void computeJD(DateTime *p){
int Y, M, D, A, B, X1, X2;
DBD-SQLite
view release on metacpan or search on metacpan
** All other code has file scope.
**
** SQLite processes all times and dates as julian day numbers. The
** dates and times are stored as the number of days since noon
** in Greenwich on November 24, 4714 B.C. according to the Gregorian
** calendar system.
**
** 1970-01-01 00:00:00 is JD 2440587.5
** 2000-01-01 00:00:00 is JD 2451544.5
**
** This implementation requires years to be expressed as a 4-digit number
** which means that only dates between 0000-01-01 and 9999-12-31 can
** be represented, even though julian day numbers allow a much wider
** range of dates.
**
** The Gregorian calendar system is used for all dates and times,
** even those that predate the Gregorian calendar. Historians usually
** use the julian calendar for dates prior to 1582-10-15 and for some
** dates afterwards, depending on locale. Beware of this difference.
**
** The conversion algorithms are implemented based on descriptions
** in the following text:
**
p->isError = 1;
}
/*
** Convert from YYYY-MM-DD HH:MM:SS to julian day. We always assume
** that the YYYY-MM-DD is according to the Gregorian calendar.
**
** Reference: Meeus page 61
*/
static void computeJD(DateTime *p){
int Y, M, D, A, B, X1, X2;
/*
** Find the current time (in Universal Coordinated Time). Write into *piNow
** the current time and date as a Julian Day number times 86_400_000. In
** other words, write into *piNow the number of milliseconds since the Julian
** epoch of noon in Greenwich on November 24, 4714 B.C according to the
** proleptic Gregorian calendar.
**
** On success, return SQLITE_OK. Return SQLITE_ERROR if the time and date
** cannot be found.
*/
static int unixCurrentTimeInt64(sqlite3_vfs *NotUsed, sqlite3_int64 *piNow){
/*
** Find the current time (in Universal Coordinated Time). Write into *piNow
** the current time and date as a Julian Day number times 86_400_000. In
** other words, write into *piNow the number of milliseconds since the Julian
** epoch of noon in Greenwich on November 24, 4714 B.C according to the
** proleptic Gregorian calendar.
**
** On success, return SQLITE_OK. Return SQLITE_ERROR if the time and date
** cannot be found.
*/
static int winCurrentTimeInt64(sqlite3_vfs *pVfs, sqlite3_int64 *piNow){
DBD-SQLite2
view release on metacpan or search on metacpan
** NOTES:
**
** SQLite processes all times and dates as Julian Day numbers. The
** dates and times are stored as the number of days since noon
** in Greenwich on November 24, 4714 B.C. according to the Gregorian
** calendar system.
**
** 1970-01-01 00:00:00 is JD 2440587.5
** 2000-01-01 00:00:00 is JD 2451544.5
**
** This implemention requires years to be expressed as a 4-digit number
** which means that only dates between 0000-01-01 and 9999-12-31 can
** be represented, even though julian day numbers allow a much wider
** range of dates.
**
** The Gregorian calendar system is used for all dates and times,
** even those that predate the Gregorian calendar. Historians usually
** use the Julian calendar for dates prior to 1582-10-15 and for some
** dates afterwards, depending on locale. Beware of this difference.
**
** The conversion algorithms are implemented based on descriptions
** in the following text:
**
return 0;
}
/*
** Convert from YYYY-MM-DD HH:MM:SS to julian day. We always assume
** that the YYYY-MM-DD is according to the Gregorian calendar.
**
** Reference: Meeus page 61
*/
static void computeJD(DateTime *p){
int Y, M, D, A, B, X1, X2;
DBIx-Class-CustomPrefetch
view release on metacpan or search on metacpan
Debian_CPANTS.txt view on Meta::CPAN
"libcache-fastmmap-perl", "Cache-FastMmap", "1.34", "0", "0"
"libcache-memcached-perl", "Cache-Memcached", "1.28", "0", "0"
"libcache-mmap-perl", "Cache-Mmap", "0.11", "0", "0"
"libcache-simple-timedexpiry-perl", "Cache-Simple-TimedExpiry", "0.27", "0", "0"
"libcairo-perl", "http://qa.debian.org/watch/sf.php/gtk2-perl/Cairo-1.061.tar.gz", "1.061", "0", "0"
"libcalendar-simple-perl", "Calendar-Simple", "1.20", "0", "0"
"libcapture-tiny-perl", "Capture-Tiny", "0.06", "0", "0"
"libcarp-always-perl", "Carp-Always", "0.09", "0", "0"
"libcarp-assert-more-perl", "Carp-Assert-More", "1.12", "0", "0"
"libcarp-assert-perl", "Carp-Assert", "0.20", "0", "0"
"libcarp-clan-perl", "Carp-Clan", "6.02", "0", "0"
Debian_CPANTS.txt view on Meta::CPAN
"libsys-virt-perl", "Sys-Virt", "0.2.2", "0", "0"
"libsysadm-install-perl", "Sysadm-Install", "0.33", "0", "0"
"libtemplate-alloy-perl", "Template-Alloy", "1.013", "0", "0"
"libtemplate-declare-perl", "Template-Declare", "0.43", "0", "0"
"libtemplate-multilingual-perl", "Template-Multilingual", "1.00", "0", "0"
"libtemplate-plugin-calendar-simple-perl", "Template-Plugin-Calendar-Simple", "0.02", "0", "0"
"libtemplate-plugin-class-perl", "Template-Plugin-Class", "0.13", "0", "0"
"libtemplate-plugin-clickable-perl", "Template-Plugin-Clickable", "0.06", "0", "0"
"libtemplate-plugin-javascript-perl", "Template-Plugin-JavaScript", "0.01", "0", "0"
"libtemplate-plugin-textile2-perl", "Template-Plugin-Textile2", "1.21", "0", "0"
"libtemplate-plugin-yaml-perl", "Template-Plugin-YAML", "1.23", "0", "0"
DBIx-Class
view release on metacpan or search on metacpan
lib/DBIx/Class/Storage/DBI.pm view on Meta::CPAN
L<connection option|/DBIx::Class specific connection attributes>
on_connect_call => 'datetime_setup'
This way one does not need to know in advance whether the underlying
storage requires any sort of hand-holding when dealing with calendar
data.
=cut
sub connect_call_datetime_setup { 1 }
DBIx-HTML
view release on metacpan or search on metacpan
t/03-methods.t view on Meta::CPAN
ok $table->south, "south";
ok $table->west, "west";
ok $table->layout, "layout";
ok $table->handson, "handson";
ok $table->banner, "banner";
ok $table->calendar, "calendar";
ok $table->sudoku( attempts => 0 ), "sudoku";
ok $table->checkers, "checkers";
ok $table->beadwork, "beadwork";
ok $table->calculator, "calculator";
ok $table->conway, "conway";
DBIx-Schema-Changelog
view release on metacpan or search on metacpan
examples/changelog/changelog-002-tables.yml view on Meta::CPAN
length: 1
name: system_news
type: bit
- default: 0
length: 1
name: calendar
type: bit
- default: 0
length: 1
name: meta_datas
type: bit
DBIx-TextIndex
view release on metacpan or search on metacpan
testdata/encantadas.txt view on Meta::CPAN
but begun as in somnambulism. Day after day, week after week, she trod the
cindery beach, till at length a double motive edged every eager glance.
With equal longing she now looked for the living and the dead, the brother
and the captain, alike vanished, never to return. Little accurate note of
time had Hunilla taken under such emotions as were hers, and little,
outside herself, served for calendar or dial. As to poor Crusoe in the
selfsame sea, no saint's bell pealed forth the lapse of week or month; each
day went by unchallenged; no chanticleer announced those sultry dawns, no
lowing herds those poisonous nights. All wonted and steadily recurring
sounds, human, or humanized by sweet fellowship with man, but one stirred
that torrid trance -- the cry of dogs; save which naught but the rolling
DBIx-Web
view release on metacpan or search on metacpan
lib/DBIx/Web.pm view on Meta::CPAN
#
# Future ToDo:
# - !!! ??? *** review, code review
# - record references finder via 'wikn://', 'key://', bracket notation
# - root hierarchical record functionality: -ridRoot
# - calendar views: type and start/end time; start sub{}, entry sub{}, periodical rec.
# - mail-in interface - records and message browser source
# - logfile reading interface - message browser source
# - acknowledgements feature - message browser implementation
# - replication feature - distributing data
# - 'recRead' alike calls may return an objects, knows metadata
DMAMisc
view release on metacpan or search on metacpan
lib/DMA/ISODate.pm view on Meta::CPAN
Four digit year formats are not limited to 4 digits. We can express dates far
into the future. In any place hereafter where we use "YYYY", any number of
extra digits are possible.
[We aren't affected by the size of Unix timval (ie the 2038 max year) except
it is not convenient right now to do a perpetual calendar of my own to check
the validity of a date.]
We do not, however, have any means of representing dates BC. For this we might
consider using the Peter Kokh dating system which adds 10000 to the AD date to
represent all of human history after the end of the most recent Ice Age. This
DOCSIS-ConfigFile
view release on metacpan or search on metacpan
lib/DOCSIS/ConfigFile/mibs/DIFFSERV-MIB view on Meta::CPAN
STATUS current
DESCRIPTION
"The Queue Table enumerates the individual queues. Note that the
MIB models queuing systems as composed of individual queues, one
per class of traffic, even though they may in fact be structured
as classes of traffic scheduled using a common calendar queue, or
in other ways."
::= { diffServQueue 2 }
diffServQEntry OBJECT-TYPE
SYNTAX DiffServQEntry
DPKG-Log
view release on metacpan or search on metacpan
test_data/big.log view on Meta::CPAN
2011-01-17 10:52:19 configure libdata-dump-perl 1.19-1 1.19-1
2011-01-17 10:52:19 status unpacked libdata-dump-perl 1.19-1
2011-01-17 10:52:19 status half-configured libdata-dump-perl 1.19-1
2011-01-17 10:52:19 status installed libdata-dump-perl 1.19-1
2011-01-17 11:38:19 startup archives install
2011-01-17 11:38:19 install libnet-google-calendar-perl <keine> 0.99-1
2011-01-17 11:38:19 status half-installed libnet-google-calendar-perl 0.99-1
2011-01-17 11:38:19 status triggers-pending man-db 2.5.7-7
2011-01-17 11:38:19 status half-installed libnet-google-calendar-perl 0.99-1
2011-01-17 11:38:20 status unpacked libnet-google-calendar-perl 0.99-1
2011-01-17 11:38:20 status unpacked libnet-google-calendar-perl 0.99-1
2011-01-17 11:38:20 configure libnet-google-calendar-perl 0.99-1 0.99-1
2011-01-17 11:38:20 status unpacked libnet-google-calendar-perl 0.99-1
2011-01-17 11:38:20 status half-configured libnet-google-calendar-perl 0.99-1
2011-01-17 11:38:20 status triggers-awaited libnet-google-calendar-perl 0.99-1
2011-01-17 11:38:20 trigproc man-db 2.5.7-7 2.5.7-7
2011-01-17 11:38:20 status half-configured man-db 2.5.7-7
2011-01-17 11:38:20 status installed libnet-google-calendar-perl 0.99-1
2011-01-17 11:38:32 status installed man-db 2.5.7-7
2011-01-17 11:39:19 startup archives unpack
2011-01-17 11:39:20 install liblwp-authen-wsse-perl <keine> 0.05-1
2011-01-17 11:39:20 status half-installed liblwp-authen-wsse-perl 0.05-1
2011-01-17 11:39:20 status triggers-pending man-db 2.5.7-7
Dallycot
view release on metacpan or search on metacpan
lib/Dallycot/Library/Core/DateTime.pm view on Meta::CPAN
use DateTime::Calendar::Hebrew;
use DateTime::Calendar::Julian;
use DateTime::Calendar::Pataphysical;
use DateTime::Calendar::Hijri;
# Hack to get the Islamic calendar convertable
sub DateTime::Calendar::Hijri::clone { $_[0] }
use DateTime::Format::Flexible;
use List::Util qw(all any);
lib/Dallycot/Library/Core/DateTime.pm view on Meta::CPAN
'date' => (
hold => 0,
arity => 1,
options => {
timezone => Dallycot::Value::String->new("UTC"),
calendar => Dallycot::Value::String->new("Gregorian")
}
),
sub {
my ( $engine, $options, $vector ) = @_;
lib/Dallycot/Library/Core/DateTime.pm view on Meta::CPAN
croak 'The argument for date must be a vector of numerics';
}
if(!all { $_ -> isa('Dallycot::Value::Numeric') } $vector->values) {
croak 'The argument for date must be a vector of numerics';
}
my @valid_calendars = grep { defined $CALENDAR_ARGS{$_}{date_names} } keys %CALENDAR_ARGS;
if(!$options->{calendar}->isa('Dallycot::Value::String')) {
croak 'The calendar option for date must be one of ' . join(', ', @valid_calendars);
}
if(!$options->{timezone}->isa('Dallycot::Value::String') && !$options->{timezone}->isa('Dallycot::Value::Undefined')) {
croak 'The timezone option for date must be a string or nil';
}
my $calendar = $options->{calendar}->value;
if(!any { $_ eq $calendar } @valid_calendars) {
croak 'The calendar option for date must be one of ' . join(', ', @valid_calendars);
}
my @values = map { $_ -> value -> numify } $vector -> values;
my @arg_names = @{$CALENDAR_ARGS{$calendar}{date_names}};
my $class = $CALENDAR_ARGS{$calendar}{class};
$#arg_names = $#values if $#values < $#arg_names;
my %args;
@args{@arg_names} = @values;
if($options->{timezone}->isa('Dallycot::Value::String') && $CALENDAR_ARGS{$calendar}{time_zone}) {
$args{time_zone} = $options->{timezone}->value;
}
return Dallycot::Value::DateTime -> new(
object => $class -> new(%args),
class => $class
);
};
define
'calendar-convert' => (
hold => 0,
arity => [1,2],
options => {}
), sub {
my ( $engine, $options, $date, $calendar ) = @_;
if($calendar && !$calendar->isa('Dallycot::Value::String')) {
croak 'The calendar argument to calendar-convert must be a string';
}
if($calendar) {
$calendar = $calendar->value;
}
else {
$calendar = 'Gregorian';
}
if(!$CALENDAR_ARGS{$calendar}) {
croak 'Calendar-convert only supports ' . join(', ', sort keys %CALENDAR_ARGS);
}
if(!$date -> isa('Dallycot::Value::DateTime')) {
croak 'Calendar-convert expects a date object as its first argument';
}
return Dallycot::Value::DateTime->new(
object => $date->value,
class => $CALENDAR_ARGS{$calendar}{class}
);
};
define
'duration' => (
hold => 0,
arity => [1,2],
options => {
calendar => Dallycot::Value::String->new("Gregorian")
}
),
sub {
my ( $engine, $options, $vector, $target ) = @_;
lib/Dallycot/Library/Core/DateTime.pm view on Meta::CPAN
}
if(!all { $_ -> isa('Dallycot::Value::Numeric') } $vector->values) {
croak 'The argument for duration must be a vector of numerics';
}
my @valid_calendars = grep { defined $CALENDAR_ARGS{$_}{duration_names} } keys %CALENDAR_ARGS;
if(!$options->{calendar}->isa('Dallycot::Value::String')) {
croak 'The calendar option for duration must be one of ' . join(', ', @valid_calendars);
}
my $calendar = $options->{calendar}->value;
if(!any { $_ eq $calendar } @valid_calendars) {
croak 'The calendar option for duration must be one of ' . join(', ', @valid_calendars);
}
my @values = map { $_ -> value -> numify } $vector -> values;
my @arg_names = @{$CALENDAR_ARGS{$calendar}{duration_names}};
my $class = $CALENDAR_ARGS{$calendar}{class};
$#arg_names = $#values;
my %args;
@args{@arg_names} = @values;
Dancer-Layout-Bootstrap
view release on metacpan or search on metacpan
public/css/bootstrap-3/bootstrap.css view on Meta::CPAN
content: "\e107";
}
.glyphicon-plane:before {
content: "\e108";
}
.glyphicon-calendar:before {
content: "\e109";
}
.glyphicon-random:before {
content: "\e110";
}
Dancer-Plugin-MobileDevice
view release on metacpan or search on metacpan
lib/Dancer/Plugin/MobileDevice.pm view on Meta::CPAN
=back
=head1 ACKNOWLEDGEMENTS
This plugin was initially written for an article of the Dancer advent
calendar 2010.
=head1 AUTHOR
Dancer Core Developers
Dancer-SearchApp
view release on metacpan or search on metacpan
bin/index-ical.pl view on Meta::CPAN
env => \%ENV,
config => LoadFile($config_file),
names => [
['elastic_search/index' => 'elastic_search/index' => 'SEARCHAPP_ES_INDEX', 'dancer-searchapp'],
['elastic_search/nodes' => 'elastic_search/nodes' => 'SEARCHAPP_ES_NODES', 'localhost:9200'],
['calendars' => 'calendars' => undef, []],
],
);
my $index_name = $config->{elastic_search}->{index};
my $node = $config->{elastic_search}->{nodes};
bin/index-ical.pl view on Meta::CPAN
sub in_exclude_list {
my( $item, $list ) = @_;
scalar grep { $item =~ /$_/ } @$list
};
sub get_messages_from_calendar {
my( $calendar )= @_;
# Add rate-limiting counter here, so we don't flood the IMAP server
# with reconnect attempts
my $c = $calendar->cal;
my $en = $c->entries;
return
grep {
$_->ical_entry_type =~ /^VEVENT$/
}
bin/index-ical.pl view on Meta::CPAN
organizer => ical_property($event,'organizer'),
body => $body,
html_content => $html_content,
uid => ical_property($event,'uid'),
url => ical_property($event,'url'),
# better open the event in the calendar app!
# But iCal doesn't support that
}
}
my @calendars = @{ $config->{calendars} || [] };
if( @ARGV ) {
@calendars = map { +{ calendar => $_, name => $_, exclude => [], } } @ARGV;
};
for my $calendar_def (@calendars) {
my @messages;
my $calendar_file = $calendar_def->{calendar};
print "Reading $calendar_def->{name}\n";
# Also support network access here?!
my $caldav = Cal::DAV->new(
user => $calendar_def->{user} || 'none',
pass => $calendar_def->{pass} || 'none',
url => "file://$calendar_file",
calname => $calendar_def->{name},
);
if( $calendar_file !~ m!://! ) {
my $res = $caldav->parse(
filename => $calendar_file,
);
if(! $res or ! $caldav->cal) {
# Yes, parse errors result in ->cal being a Class::ReturnValue
# object that is false but has the ->error_message method
die "Couldn't parse calendar '$calendar_file': "
. $caldav->cal->error_message;
};
};
push @messages, map {
# This doesn't handle attachments yet :-/
ical_to_msg($_)
} get_messages_from_calendar( $caldav );
my $done = AnyEvent->condvar;
print sprintf "Importing %d items\n", 0+@messages;
collect(
bin/index-ical.pl view on Meta::CPAN
# index bcc, cc, to, from
# content-type, ...
body => { # "body" for non-bulk, "source" for bulk ...
#source => {
url => $msg->{url},
title => $msg->{summary} . "($calendar_def->{name})",
title_suggest => $msg->{title_suggest}, # ugh
folder => $calendar_def->{name},
from => $msg->{organizer},
#to => [ $msg->recipients ],
content => $msg->{html_content},
language => $lang,
#date => $msg->date->strftime('%Y-%m-%d %H:%M:%S'),
}
});
})->then(sub{ $|=1; print "."; }, sub {warn Dumper \@_});
} @messages
)->then(sub {
print "$calendar_file done\n";
$done->send;
});
$done->recv;
};
Dancer2-Plugin-MobileDevice
view release on metacpan or search on metacpan
lib/Dancer2/Plugin/MobileDevice.pm view on Meta::CPAN
Adds the hooks described above.
=head1 ACKNOWLEDGEMENTS
This plugin is a Dancer2 port of L<Dancer::Plugin::MobileDevice>,
initially written for an article of the Dancer advent calendar 2010.
Thanks to the Dancer core developers for contributions. Please see the
package metadata for additional contributors.
=head1 LICENSE
Danga-Socket
view release on metacpan or search on metacpan
lib/Danga/Socket.pm view on Meta::CPAN
push @Timers, $timer;
return $timer;
}
# Now, where do we insert? (NOTE: this appears slow, algorithm-wise,
# but it was compared against calendar queues, heaps, naive push/sort,
# and a bunch of other versions, and found to be fastest with a large
# variety of datasets.)
for (my $i = 0; $i < @Timers; $i++) {
if ($Timers[$i][0] > $fire_time) {
splice(@Timers, $i, 0, $timer);
Dash
view release on metacpan or search on metacpan
lib/Dash/Core/Components/DatePickerRange.pm view on Meta::CPAN
has 'max_date_allowed' => ( is => 'rw' );
has 'initial_visible_month' => ( is => 'rw' );
has 'start_date_placeholder_text' => ( is => 'rw' );
has 'end_date_placeholder_text' => ( is => 'rw' );
has 'day_size' => ( is => 'rw' );
has 'calendar_orientation' => ( is => 'rw' );
has 'is_RTL' => ( is => 'rw' );
has 'reopen_calendar_on_clear' => ( is => 'rw' );
has 'number_of_months_shown' => ( is => 'rw' );
has 'with_portal' => ( is => 'rw' );
has 'with_full_screen_portal' => ( is => 'rw' );
has 'first_day_of_week' => ( is => 'rw' );
has 'minimum_nights' => ( is => 'rw' );
( run in 0.968 second using v1.01-cache-2.11-cpan-c333fce770f )