view release on metacpan or  search on metacpan

lib/DynGig/CLI/Schedule/Period.pm  view on Meta::CPAN

=head1 SYNOPSIS

$exe B<--help>

$exe [B<--timezone> zone] [B<--grep> pattern] [B<--config> file]
[B<--now> time] B<--calendar> year/month

$exe [B<--timezone> zone] [B<--grep> pattern] [B<--config> file]
[B<--now> time] B<--days> days

$exe [B<--timezone> zone] [B<--config> file] [B<--now> time]

lib/DynGig/CLI/Schedule/Period.pm  view on Meta::CPAN

    my $menu = DynGig::Util::CLI->new
    (
        'h|help','help menu',
        'g|grep=s','pattern',
        'c|calendar=s',"calendar mode",
        'days=i',"[ $option{days} ] number of days to display",
        'timezone=s',"[ $option{timezone} ] timezone",
        'now=s',"[ now ] start time",
        'config=s',"[ $option{config} ]",
    );

lib/DynGig/CLI/Schedule/Period.pm  view on Meta::CPAN

    {
        warn join "\n", "Default value in [ ]", $menu->string(), "\n";
    }
    elsif ( $option{c} )
    {
        $this->_calendar();
    }
    else
    {
        $this->_list();
    }

    return 0;
}

sub _calendar
{
    my $this = shift @_;

    return unless $this->{c} =~ /^(\d+)(?:\/+(0?[1-9]|1[0-2]))?$/;

 view release on metacpan or  search on metacpan

lib/DynGig/Util.pm  view on Meta::CPAN

Interpret time expressions

=head2 DynGig::Util::Calendar

Print calendar

=head2 DynGig::Util::TCPServer

A generic multithreaded TCP Server interface.

 view release on metacpan or  search on metacpan

lib/EAI/Common.pm  view on Meta::CPAN

		executeOnInit => "", # code to be executed during INIT of EAI::Wrap to allow for assignment of config/execute parameters from commandline params BEFORE Logging!
		folderEnvironmentMapping => {}, # ref to hash {Test => "Test", Dev => "Dev", "" => "Prod"}, mapping for $execute{envraw} to $execute{env}
		fromaddress => "", # from address for central logcheck/errmail sending, also used as default sender address for sendGeneralMail
		historyFolder => {}, # ref to following hash: {"scriptname.pl + optional addToScriptName" => "folder"}, folders where downloaded files are historized, lookup key as in checkLookup, default in "" => "defaultfolder". historyFolder, historyFolderUploa...
		historyFolderUpload => {}, # ref to following hash: {"scriptname.pl + optional addToScriptName" => "folder"}, folders where uploaded files are historized, lookup key as in checkLookup, default in "" => "defaultfolder"
		logCheckHoliday => "", # calendar for business days in central logcheck/errmail sending. builtin calendars are AT (Austria), TG (Target), UK (United Kingdom) and WE (for only weekends). Calendars can be added with EAI::DateUtil::addCalendar
		logs_to_be_ignored_in_nonprod => qr//, # regular expression to specify logs to be ignored in central logcheck/errmail sending
		logprefixForLastLogfile => sub {}, # prefix for previous (day) logs to be set in error mail (link), if not given, defaults to get_curdate(). In case Log::Dispatch::FileRotate is used as the File Appender in Log4perl config, the previous log is iden...
		logRootPath => {}, # ref to following hash: {"scriptname.pl + optional addToScriptName" => "folder"}, paths to log file root folders (environment is added to that if non production), lookup key as checkLookup, default in "" => "defaultfolder"
		prodEnvironmentInSeparatePath => 1, # set to 1 if the production scripts/logs etc. are in a separate Path defined by folderEnvironmentMapping (prod=root/Prod, test=root/Test, etc.), set to 0 if the production scripts/logs are in the root folder and...
		redoDir => {}, # ref to following hash: {"scriptname.pl + optional addToScriptName" => "folder"}, folders where files for redo are contained, lookup key as checkLookup, default in "" => "defaultfolder"

lib/EAI/Common.pm  view on Meta::CPAN

		retrySecondsErr => 60, # retry period in case of error
		retrySecondsErrAfterXfails => 600, # after fail count is reached this alternate retry period in case of error is applied. If 0/undefined then job finishes after fail count
		retrySecondsXfails => 3, # fail count after which the retrySecondsErr are changed to retrySecondsErrAfterXfails
		retrySecondsPlanned => 300, # retry period in case of planned retry
		skipHolidays => "", # skip script execution on holidays
		skipHolidaysDefault => "", # holiday calendar to take into account for skipHolidays
		skipWeekends => 0, # skip script execution on weekends
		skipForFirstBusinessDate => "", # used for "wait with execution for first business date", either this is a calendar or 1 (then calendar is skipHolidaysDefault), this cannot be used together with skipHolidays
	},
);
# alternate type checking for these as they might have different types
my %alternateType = (
	configexecuteOnInit => sub {}, # can be eval string or anonymous sub

lib/EAI/Common.pm  view on Meta::CPAN

	Filecolumns => [], # can be ref to hash or ref to array
	Fileformat_skip => 1, # can be "skip until pattern" string or line number (int)
	Fileformat_sep => qr//, # can be separator string or regex split
	FilelineCode => sub {}, # can be eval string or anonymous sub
	FTPremoteHost => "", # can also be string
	taskskipHolidays => 1, # can be calendar string or true (1)
	taskskipForFirstBusinessDate => 1, # can be calendar string or true (1)
);
# passed options containing numerical strings are converted to numbers if their hash check (definition) looks like a number and their leading zero shouldn't be preserved
# currently below two parameters are to be treated as strings.
my %allow_leading_zeros = (
	task => {

lib/EAI/Common.pm  view on Meta::CPAN

	my ($arg) = @_;
	my $logger = get_logger();
	my ($task) = extractConfigs("checking starting conditions",$arg,"task");
	my $curdate = get_curdate();
	$logger->debug("checkStartingCond for \$curdate: $curdate, task config:".dumpFlat($task,1));
	# skipHolidays is either a calendar or 1 (then defaults to $task->{skipHolidaysDefault})
	my $holidayCal = $task->{skipHolidays} if $task->{skipHolidays};
	# skipForFirstBusinessDate is for "wait with execution for first business date", either this is a calendar or 1 (then calendar is skipHolidaysDefault), this cannot be used together with skipHolidays
	$holidayCal = $task->{skipForFirstBusinessDate} if $task->{skipForFirstBusinessDate};
	# default setting (1 becomes $task->{skipHolidaysDefault})
	$holidayCal = $task->{skipHolidaysDefault} if ($task->{skipForFirstBusinessDate} eq "1" or $task->{skipHolidays} eq "1");
	if ($holidayCal) {
		if (is_holiday($holidayCal,$curdate) and !$task->{redoFile}) {

lib/EAI/Common.pm  view on Meta::CPAN

	}
	if (($task->{skipWeekends} or $task->{skipForFirstBusinessDate}) and is_weekend($curdate) and !$task->{redoFile}) {
		$logger->info("skip processing (skipWeekends = ".$task->{skipWeekends}.", skipForFirstBusinessDate = ".$task->{skipForFirstBusinessDate}.") as $curdate is day of weekend !");
		return 1;
	}
	# if there are were any business days (meaning that nonBusinessDays are less than calendar days) since the 1st of the month, then skip if $task->{skipForFirstBusinessDate}
	if ($task->{skipForFirstBusinessDate} and !$task->{redoFile}) {
		my $nonBusinessDays; 
		my $daysfrom1st = substr($curdate,-2)-1; # get the first decimal from day part of today, this is the number of days from the 1st
		# count non business days since the 1st of the month
		for (1..$daysfrom1st) {

 view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

web/cgi-bin/item
web/cgi-bin/job
web/cgi-bin/schedule
web/cgi-bin/user
web/javascript/builder.js
web/javascript/calendarview.js
web/javascript/controls.js
web/javascript/dragdrop.js
web/javascript/effects.js
web/javascript/etlp.js
web/javascript/prototype.js
web/javascript/scriptaculous.js
web/javascript/slider.js
web/javascript/sound.js
web/javascript/unittest.js
web/stylesheets/calendarview.css
web/stylesheets/style.css
web/view/ETLp/Audit/Browser/Controller/FileProcess/list.tmpl
web/view/ETLp/Audit/Browser/Controller/Item/list.tmpl
web/view/ETLp/Audit/Browser/Controller/Job/list.tmpl
web/view/ETLp/Audit/Browser/Controller/Monitor/Oracle/show_sql.tmpl

 view release on metacpan or  search on metacpan

libev/ev.pod  view on Meta::CPAN

Periodic watchers are also timers of a kind, but they are very versatile
(and unfortunately a bit complex).

Unlike C<ev_timer>, periodic watchers are not based on real time (or
relative time, the physical time that passes) but on wall clock time
(absolute time, the thing you can read on your calendar or clock). The
difference is that wall clock time can run faster or slower than real
time, and time jumps are not uncommon (e.g. when you adjust your
wrist-watch).

You can tell a periodic watcher to trigger after some specific point

 view release on metacpan or  search on metacpan

lib/EVDB/API.pm  view on Meta::CPAN

    # and run 
    #   /main/trunk/evdb/public_api/force_array/enforcer
    # instead.
    # 
    # BEGIN REPLACE
    if($method eq 'calendars/latest/stickers') {
      $force_array = ['site'];
    }

    elsif($method eq 'calendars/tags/cloud') {
      $force_array = ['tag'];
    }

    elsif($method eq 'demands/get') {
      $force_array = ['link', 'comment', 'image', 'tag', 'event', 'member'];

lib/EVDB/API.pm  view on Meta::CPAN

    elsif($method eq 'demands/search') {
      $force_array = ['demand', 'event'];
    }

    elsif($method eq 'events/get') {
      $force_array = ['link', 'comment', 'trackback', 'image', 'parent', 'child', 'tag', 'feed', 'calendar', 'group', 'user', 'relationship', 'performer', 'rrule', 'exrule', 'rdate', 'exdate', 'date', 'category'];
    }

    elsif($method eq 'events/recurrence/list') {
      $force_array = ['recurrence'];
    }

lib/EVDB/API.pm  view on Meta::CPAN

    elsif($method eq 'events/validate/hcal') {
      $force_array = ['tag', 'event_url', 'venue_url', 'event'];
    }

    elsif($method eq 'groups/get') {
      $force_array = ['user', 'calendar', 'link', 'comment', 'trackback', 'image', 'tag'];
    }

    elsif($method eq 'groups/search') {
      $force_array = ['group'];
    }

lib/EVDB/API.pm  view on Meta::CPAN

    elsif($method eq 'performers/search') {
      $force_array = ['performer'];
    }

    elsif($method eq 'users/calendars/get') {
      $force_array = ['rule', 'feed'];
    }

    elsif($method eq 'users/calendars/list') {
      $force_array = ['calendar'];
    }

    elsif($method eq 'users/comments/get') {
      $force_array = ['comment'];
    }

lib/EVDB/API.pm  view on Meta::CPAN

    elsif($method eq 'users/events/recent') {
      $force_array = ['event'];
    }

    elsif($method eq 'users/get') {
      $force_array = ['site', 'im_account', 'event', 'venue', 'performer', 'comment', 'trackback', 'calendar', 'locale', 'link', 'event'];
    }

    elsif($method eq 'users/groups/list') {
      $force_array = ['group'];
    }

lib/EVDB/API.pm  view on Meta::CPAN

    elsif($method eq 'users/venues/get') {
      $force_array = ['user_venue'];
    }

    elsif($method eq 'venues/get') {
      $force_array = ['link', 'comment', 'trackback', 'image', 'parent', 'child', 'event', 'tag', 'feed', 'calendar', 'group'];
    }

    elsif($method eq 'venues/tags/cloud') {
      $force_array = ['tag'];
    }

    else {
      $force_array = ['event', 'venue', 'comment', 'trackback', 'calendar', 'group', 'user', 'performer', 'member'];
    }

    # END REPLACE

  }

 view release on metacpan or  search on metacpan

bin/ews_calendar_viewer_cgi.pl  view on Meta::CPAN

1;

=head1 NAME

ews_calendar_viewer_cgi.pl - Catalyst CGI

=head1 SYNOPSIS

See L<Catalyst::Manual>

 view release on metacpan or  search on metacpan

examples/demo.pl  view on Meta::CPAN

    username    => 'oliver',
    password    => 's3kr1t', # or set in $ENV{EWS_PASS}
    use_negotiated_auth => 1, # only for NTLM
});

my $entries = $ews->calendar->retrieve({
    start => DateTime->now(),
    end   => DateTime->now->add( months => 1 ),
});

print "I retrieved ". $entries->count ." items\n";

 view release on metacpan or  search on metacpan

t/htmls/links.html  view on Meta::CPAN

			.widget button,
			.widget input[type="button"],
			.widget input[type="reset"],
			.widget input[type="submit"],
			.widget_calendar tbody a,
			.widget_calendar tbody a:hover,
			.widget_calendar tbody a:focus {
				color: #ddd1b5;
			}
		}
	
</style>

 view release on metacpan or  search on metacpan

IsFree.pm  view on Meta::CPAN

4buses.com
4businessinsurance.com
4cable.com
4cabletv.com
4cake.com
4calendars.com
4californiacoast.com
4cameras.com
4camping.com
4camps.com
4cancer.com

 view release on metacpan or  search on metacpan

t/test-mails/long-msgid  view on Meta::CPAN

more. It's simple to become a quarterly subscriber, too. Register now at
http://www.hp.com/products1/evolution/customertimes/customertimes_reg.html!
 
EVENTS CALENDAR
Encompass and HP community events are promoted via an online events
calendar at http://www.encompassUS.org/calendar/index.cfm  Check this
calendar on a regular basis to learn about upcoming Encompass events.
Forward calendar posting requests to information@encompassUS.org.


WE WANT YOUR FEEDBACK AND SUBMISSIONS
Is there something you'd like to see in Encompass Points? Let us know.
If you have news, updates or something special you'd like to let the

 view release on metacpan or  search on metacpan

t/test-mails/long-msgid  view on Meta::CPAN

more. It's simple to become a quarterly subscriber, too. Register now at
http://www.hp.com/products1/evolution/customertimes/customertimes_reg.html!
 
EVENTS CALENDAR
Encompass and HP community events are promoted via an online events
calendar at http://www.encompassUS.org/calendar/index.cfm  Check this
calendar on a regular basis to learn about upcoming Encompass events.
Forward calendar posting requests to information@encompassUS.org.


WE WANT YOUR FEEDBACK AND SUBMISSIONS
Is there something you'd like to see in Encompass Points? Let us know.
If you have news, updates or something special you'd like to let the

 view release on metacpan or  search on metacpan

t/test-mails/long-msgid  view on Meta::CPAN

more. It's simple to become a quarterly subscriber, too. Register now at
http://www.hp.com/products1/evolution/customertimes/customertimes_reg.html!
 
EVENTS CALENDAR
Encompass and HP community events are promoted via an online events
calendar at http://www.encompassUS.org/calendar/index.cfm  Check this
calendar on a regular basis to learn about upcoming Encompass events.
Forward calendar posting requests to information@encompassUS.org.


WE WANT YOUR FEEDBACK AND SUBMISSIONS
Is there something you'd like to see in Encompass Points? Let us know.
If you have news, updates or something special you'd like to let the

 view release on metacpan or  search on metacpan

eg/forms/css/EmbperlForm.css  view on Meta::CPAN

.cGridRowSelected, .cGridRowSelected input, .cGridRowSelected select, .cGridRowSelected td { background-color: lightblue} 




/* ---------- The main calendar widget.  DIV containing a table. ------------- */

.calendar {
  position: relative;
  display: none;
  border-top: 2px solid #fff;
  border-right: 2px solid #000;
  border-bottom: 2px solid #000;

eg/forms/css/EmbperlForm.css  view on Meta::CPAN

  cursor: default;
  background: #c8d4d0;
  font-family: tahoma,verdana,sans-serif;
}

.calendar table {
  border-top: 1px solid #000;
  border-right: 1px solid #fff;
  border-bottom: 1px solid #fff;
  border-left: 1px solid #000;
  font-size: 11px;

eg/forms/css/EmbperlForm.css  view on Meta::CPAN

  font-family: tahoma,verdana,sans-serif;
}

/* Header part -- contains navigation buttons and day names. */

.calendar .button { /* "<<", "<", ">", ">>" buttons have this class */
  text-align: center;
  padding: 1px;
  border-top: 1px solid #fff;
  border-right: 1px solid #000;
  border-bottom: 1px solid #000;
  border-left: 1px solid #fff;
}

.calendar .nav {
  background: transparent url(menuarrow.gif) no-repeat 100% 100%;
}

.calendar thead .title { /* This holds the current "month, year" */
  font-weight: bold;
  padding: 1px;
  border: 1px solid #000;
  background: #788480;
  color: #fff;
  text-align: center;
}

.calendar thead .headrow { /* Row <TR> containing navigation buttons */
}

.calendar thead .daynames { /* Row <TR> containing the day names */
}

.calendar thead .name { /* Cells <TD> containing the day names */
  border-bottom: 1px solid #000;
  padding: 2px;
  text-align: center;
  background: #e8f4f0;
}

.calendar thead .weekend { /* How a weekend day name shows in header */
  color: #f00;
}

.calendar thead .hilite { /* How do the buttons in header appear when hover */
  border-top: 2px solid #fff;
  border-right: 2px solid #000;
  border-bottom: 2px solid #000;
  border-left: 2px solid #fff;
  padding: 0px;
  background-color: #d8e4e0;
}

.calendar thead .active { /* Active (pressed) buttons in header */
  padding: 2px 0px 0px 2px;
  border-top: 1px solid #000;
  border-right: 1px solid #fff;
  border-bottom: 1px solid #fff;
  border-left: 1px solid #000;
  background-color: #b8c4c0;
}

/* The body part -- contains all the days in month. */

.calendar tbody .day { /* Cells <TD> containing month days dates */
  width: 2em;
  text-align: right;
  padding: 2px 4px 2px 2px;
}
.calendar tbody .day.othermonth {
  font-size: 80%;
  color: #aaa;
}
.calendar tbody .day.othermonth.oweekend {
  color: #faa;
}

.calendar table .wn {
  padding: 2px 3px 2px 2px;
  border-right: 1px solid #000;
  background: #e8f4f0;
}

.calendar tbody .rowhilite td {
  background: #d8e4e0;
}

.calendar tbody .rowhilite td.wn {
  background: #c8d4d0;
}

.calendar tbody td.hilite { /* Hovered cells <TD> */
  padding: 1px 3px 1px 1px;
  border-top: 1px solid #fff;
  border-right: 1px solid #000;
  border-bottom: 1px solid #000;
  border-left: 1px solid #fff;
}

.calendar tbody td.active { /* Active (pressed) cells <TD> */
  padding: 2px 2px 0px 2px;
  border-top: 1px solid #000;
  border-right: 1px solid #fff;
  border-bottom: 1px solid #fff;
  border-left: 1px solid #000;
}

.calendar tbody td.selected { /* Cell showing selected date */
  font-weight: bold;
  border-top: 1px solid #000;
  border-right: 1px solid #fff;
  border-bottom: 1px solid #fff;
  border-left: 1px solid #000;
  padding: 2px 2px 0px 2px;
  background: #d8e4e0;
}

.calendar tbody td.weekend { /* Cells showing weekend days */
  color: #f00;
}

.calendar tbody td.today { /* Cell showing today date */
  font-weight: bold;
  color: #00f;
}

.calendar tbody .disabled { color: #999; }

.calendar tbody .emptycell { /* Empty cells (the best is to hide them) */
  visibility: hidden;
}

.calendar tbody .emptyrow { /* Empty row (some months need less than 6 rows) */
  display: none;
}

/* The footer part -- status bar and "Close" button */

.calendar tfoot .footrow { /* The <TR> in footer (only one right now) */
}

.calendar tfoot .ttip { /* Tooltip (status bar) cell <TD> */
  background: #e8f4f0;
  padding: 1px;
  border: 1px solid #000;
  background: #788480;
  color: #fff;
  text-align: center;
}

.calendar tfoot .hilite { /* Hover style for buttons in footer */
  border-top: 1px solid #fff;
  border-right: 1px solid #000;
  border-bottom: 1px solid #000;
  border-left: 1px solid #fff;
  padding: 1px;
  background: #d8e4e0;
}

.calendar tfoot .active { /* Active (pressed) style for buttons in footer */
  padding: 2px 0px 0px 2px;
  border-top: 1px solid #000;
  border-right: 1px solid #fff;
  border-bottom: 1px solid #fff;
  border-left: 1px solid #000;
}

/* Combo boxes (menus that display months/years for direct selection) */

.calendar .combo {
  position: absolute;
  display: none;
  width: 4em;
  top: 0px;
  left: 0px;

eg/forms/css/EmbperlForm.css  view on Meta::CPAN

  font-size: 90%;
  padding: 1px;
  z-index: 100;
}

.calendar .combo .label,
.calendar .combo .label-IEfix {
  text-align: center;
  padding: 1px;
}

.calendar .combo .label-IEfix {
  width: 4em;
}

.calendar .combo .active {
  background: #c8d4d0;
  padding: 0px;
  border-top: 1px solid #000;
  border-right: 1px solid #fff;
  border-bottom: 1px solid #fff;
  border-left: 1px solid #000;
}

.calendar .combo .hilite {
  background: #048;
  color: #aef;
}

.calendar td.time {
  border-top: 1px solid #000;
  padding: 1px 0px;
  text-align: center;
  background-color: #e8f0f4;
}

.calendar td.time .hour,
.calendar td.time .minute,
.calendar td.time .ampm {
  padding: 0px 3px 0px 4px;
  border: 1px solid #889;
  font-weight: bold;
  background-color: #fff;
}

.calendar td.time .ampm {
  text-align: center;
}

.calendar td.time .colon {
  padding: 0px 2px 0px 3px;
  font-weight: bold;
}

.calendar td.time span.hilite {
  border-color: #000;
  background-color: #667;
  color: #fff;
}

.calendar td.time span.active {
  border-color: #f00;
  background-color: #000;
  color: #0f0;
}

 view release on metacpan or  search on metacpan

lib/Encode/UTF8Mac.pm  view on Meta::CPAN

it encode/decode text with that rule in mind. This will help
when you decode file name on Mac.

See more information and Japanese example:

L<Encode::UTF8Mac makes you happy while handling file names on MacOSX|http://perl-users.jp/articles/advent-calendar/2010/english/24>

=head1 ENCODING

=over 4

 view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

Makefile.PL
MANIFEST			This list of files
README
t/00-load.t
t/01-http.t
t/02-calendar.t
t/03-country.t
t/04-currency.t
t/05-country-iso.t
t/06-mime.t
t/07-color.t

 view release on metacpan or  search on metacpan

t/basic.t  view on Meta::CPAN

            undefined ->
                "";
            RawAge ->
                When = case proplists:get_value(local_time, Options) of
                           undefined ->
                               calendar:local_time();
                           LocalTime ->
                               LocalTime
                       end,
                Age = case RawAge < 0 of
                          true ->

t/basic.t  view on Meta::CPAN

%% Return a date in the form of: Wdy, DD-Mon-YYYY HH:MM:SS GMT
%% See also: rfc2109: 10.1.2
rfc2109_cookie_expires_date(LocalTime) ->
    {{YYYY,MM,DD},{Hour,Min,Sec}} =
        case calendar:local_time_to_universal_time_dst(LocalTime) of
            [Gmt]   -> Gmt;
            [_,Gmt] -> Gmt
        end,
    DayNumber = calendar:day_of_the_week({YYYY,MM,DD}),
    lists:flatten(
      io_lib:format("~s, ~2.2.0w-~3.s-~4.4.0w ~2.2.0w:~2.2.0w:~2.2.0w GMT",
                    [httpd_util:day(DayNumber),DD,httpd_util:month(MM),YYYY,Hour,Min,Sec])).

add_seconds(Secs, LocalTime) ->
    Greg = calendar:datetime_to_gregorian_seconds(LocalTime),
    calendar:gregorian_seconds_to_datetime(Greg + Secs).

age_to_cookie_date(Age, LocalTime) ->
    rfc2109_cookie_expires_date(add_seconds(Age, LocalTime)).

%% @spec parse_cookie(string()) -> [{K::string(), V::string()}]

t/basic.t  view on Meta::CPAN

    C1 = cookie('Customer', 'WILE_E_COYOTE', [{path, '/acme'}]),
    C1 = cookie(<<"Customer">>, <<"WILE_E_COYOTE">>, [{path, <<"/acme">>}]),

    {"Set-Cookie","=NoKey; Version=1"} = cookie("", "NoKey", []),
    {"Set-Cookie","=NoKey; Version=1"} = cookie("", "NoKey"),
    LocalTime = calendar:universal_time_to_local_time({{2007, 5, 15}, {13, 45, 33}}),
    C2 = {"Set-Cookie",
          "Customer=WILE_E_COYOTE; "
          "Version=1; "
          "Expires=Tue, 15-May-2007 13:45:33 GMT; "
          "Max-Age=0"},

 view release on metacpan or  search on metacpan

lib/EveOnline/SSO.pm  view on Meta::CPAN

    # return url for open in browser
    print $sso->get_code();
    # or
    print $sso->get_code(state => 'some_ids_or_flags');
    # or
    print $sso->get_code(state => 'some_ids_or_flags', scope=>'esi-calendar.respond_calendar_events.v1 esi-location.read_location.v1');

    # return hash with access and refresh tokens by auth code
    print Dumper $sso->get_token(code=>'tCaVozogf45ttk-Fb71DeEFcSYJXnCHjhGy');
    # or hash with access and refresh tokens by refresh_token
    print Dumper $sso->get_token(refresh_token=>'berF1ZVu_bkt2ud1JzuqmjFkpafSkobqdso');
    
    # return hash with access and refresh tokens through listening light web-server
    print Dumper $sso->get_token_through_webserver(
                        scope=>'esi-calendar.respond_calendar_events.v1 esi-location.read_location.v1', 
                        state=> 'Awesome'
                    );


=head1 DESCRIPTION

lib/EveOnline/SSO.pm  view on Meta::CPAN

    
    # or
    print $sso->get_code(state => 'some_ids_or_flags');
    
    # or
    print $sso->get_code(scope=>'esi-calendar.respond_calendar_events.v1 esi-location.read_location.v1');

=back
=cut

sub get_code {

 view release on metacpan or  search on metacpan

lib/Excel/ValueReader/XLSX/Backend/LibXML.pm  view on Meta::CPAN

      my $name = $reader->getAttribute('name')
        or die "sheet node without name";
      $workbook_data{sheets}{$name} = $sheet_id++;
    }
    elsif ($reader->name eq 'workbookPr' and my $date_attr = $reader->getAttribute('date1904')) {
      $workbook_data{base_year} = 1904 if $date_attr eq '1' or $date_attr eq 'true'; # this workbook uses the 1904 calendar
    }
    elsif ($reader->name eq 'workbookView' and my $active_attr = $reader->getAttribute('activeTab')) {
      $workbook_data{active_sheet} = $active_attr + 1 if defined $active_attr;
    }
  }

 view release on metacpan or  search on metacpan

public/assets/css/bootstrap.css  view on Meta::CPAN

.icon-plane {
  background-position: -168px -120px;
}

.icon-calendar {
  background-position: -192px -120px;
}

.icon-random {
  background-position: -216px -120px;

 view release on metacpan or  search on metacpan

t/ExtUtils/SVDmaker/Data/Secs2.pm  view on Meta::CPAN

and that the real originators of the SECS-II yielded
and allowed Tony Blair to take illegal credit for 
inventing SECS-II.
After all the practical definition of politics is
getting your own way. 
Julius Ceasar invented the Julian calendar and the month of July,
Augustus Ceasar the month of Auguest,
Al Gore the information highway and
Tony Blair not only SECS-II but SECS-I and High-Speed SECS.

=head2 SECSII Format

 view release on metacpan or  search on metacpan

lib/FAQ/OMatic/SearchMod.pm  view on Meta::CPAN

	my $durationdays = $params->{'_duration'};
		# used directly to compare against perl's floating-point -M file test
	my $then = time() - $durationdays*24*60*60;
		# Used to compare against LastModifiedSecs field.
		# By 'days' we mean 24-hour periods, not calendar days.
		# (In the US, for example, there is a 23-hour calendar day in
		# April and a 25-hour one in the fall, what, in October? for daylight
		# savings time.)

	my $filei;
	foreach $filei (FAQ::OMatic::getAllItemNames()) {

 view release on metacpan or  search on metacpan

lib/FBP/Perl.pm  view on Meta::CPAN

	} elsif ( $window->isa('FBP::BitmapButton') ) {
		$lines = $self->bitmapbutton_create($window, $parent);
	} elsif ( $window->isa('FBP::Button') ) {
		$lines = $self->button_create($window, $parent);
	} elsif ( $window->isa('FBP::CalendarCtrl') ) {
		$lines = $self->calendarctrl_create($window, $parent);
	} elsif ( $window->isa('FBP::CheckBox') ) {
		$lines = $self->checkbox_create($window, $parent);
	} elsif ( $window->isa('FBP::Choice') ) {
		$lines = $self->choice_create($window, $parent);
	} elsif ( $window->isa('FBP::Choicebook') ) {

lib/FBP/Perl.pm  view on Meta::CPAN

	}

	return $lines;
}

sub calendarctrl_create {
	my $self     = shift;
	my $control  = shift;
	my $parent   = $self->object_parent(@_);
	my $id       = $self->object_id($control);
	# my $value    = $self->wx('wxDefaultDateTime'); # NOT IMPLEMENTED

 view release on metacpan or  search on metacpan

t/03_simple.t  view on Meta::CPAN

isa_ok( $datepicker, 'FBP::DatePickerCtrl' );
is( $datepicker->name, 'm_datePicker1', '->name' );
is( $datepicker->style, 'wxDP_DEFAULT', '->style' );

# CalendarCtrl properties
my $calendar = $fbp->find_first(
	isa => 'FBP::CalendarCtrl',
);
isa_ok( $calendar, 'FBP::CalendarCtrl' );
is( $calendar->name, 'm_calendar1', '->name' );
is( $calendar->style, 'wxCAL_SHOW_HOLIDAYS', '->style' );

# ScrolledWindow properties
my $scrolled = $fbp->find_first(
	isa => 'FBP::ScrolledWindow',
);

 view release on metacpan or  search on metacpan

eg/recipe2/lib/recipe2.pm  view on Meta::CPAN

    # download ical feed
    my $ical = LWP::UserAgent->new
	->get(request->params->{ical_uri})
	->content;

    # process ical into calendar
    my $calendar = Data::ICal->new( data => $ical );

    # post events
    foreach my $entry (@{$calendar->entries}) {
       $fb->add_event
           ->set_name($entry->properties->{summary}[0]->value)
           ->set_location($entry->properties->{location}[0]->value)
           ->set_description($entry->properties->{description}[0]->value)
           ->set_start_time(DateTime::Format::ICal->parse_datetime($entry->properties->{dtstart}[0]->value))

 view release on metacpan or  search on metacpan

lib/Facebook/Manual.pod  view on Meta::CPAN

=head3 L<facebook-publisher on WebGUI Bazaar|http://www.webgui.org/bazaar/facebook-publisher>

Facebook Publisher is the skeleton of a system to cross publish content from a WebGUI site onto Facebook pages. An example 
workflow activity is given that publishes a title, link, and synopsis to Facebook every time a new thread is started in a 
Collaboration System. However, this could also be directly integrated into assets, command line utilities, or into other 
workflow activities. It could be made to publish photos, calendar entries, or anything, really, to Facebook.

This module does not use the L<Facebook> package it is an independent development.

=head2 L<Mojolicious>

 view release on metacpan or  search on metacpan

lib/Farabi/files/public/assets/bootstrap/css/bootstrap.min.css  view on Meta::CPAN

 * Copyright 2012 Twitter, Inc
 * Licensed under the Apache License v2.0
 * http://www.apache.org/licenses/LICENSE-2.0
 *
 * Designed and built with all the love in the world @twitter by @mdo and @fat.
 */.clearfix{*zoom:1}.clearfix:before,.clearfix:after{display:table;line-height:0;content:""}.clearfix:after{clear:both}.hide-text{font:0/0 a;color:transparent;text-shadow:none;background-color:transparent;border:0}.input-block-level{display:block;wi...

 view release on metacpan or  search on metacpan

lib/Feed/Data.pm  view on Meta::CPAN

=head1 SYNOPSIS 

	use Feed::Data;

	my $feed = Feed::Data->new();
	$feed->parse( 'https://services.parliament.uk/calendar/lords_main_chamber.rss' );

	$feed->all;
	$feed->count;
	$feed->delete($index);
	$feed->get($index);

lib/Feed/Data.pm  view on Meta::CPAN

	use Feed::Data;

	my $feed = Feed::Data->new();
	
	$feed->parse( 'https://services.parliament.uk/calendar/commons_main_chamber.rss' );

	my $string = $feed->render('styled_table');

	$feed->clear;

 view release on metacpan or  search on metacpan

examples/yahoo-google.xml  view on Meta::CPAN

               <node ip="200.152.161.132" hostname="frontpage.americas.fy5.b.yahoo.com"/>
               <node ip="66.196.80.116" hostname="bravo.fy3.b.yahoo.com"/>
               <node ip="217.12.5.162" hostname="bt.fy2.b.yahoo.com"/>
               <node ip="66.94.253.59" hostname="ui.bugzilla.b1.b.corp.yahoo.com"/>
               <node ip="206.190.34.135" hostname="frontpage.ca.fy10.b.yahoo.com"/>
               <node ip="209.191.93.123" hostname="calendar.yahoo.com"/>
               <node ip="66.196.80.186" hostname="careers.fy9.b.yahoo.com"/>
               <node ip="98.136.112.81" hostname="p.chat.vip.ac4.yahoo.com"/>
               <node ip="68.180.206.75" hostname="hostrc.a02.yahoodns.net"/>
               <node ip="216.145.54.163" hostname="surf.corp.yahoo.com"/>
               <node ip="66.196.85.48" hostname="proxy1.groups.fy3.b.yahoo.com"/>

 view release on metacpan or  search on metacpan

lib/File/Extension.pm  view on Meta::CPAN

    'ic2'          => 'Medium Resolution Imagic Graphics File',
    'ic3'          => 'High Resolution Imagic Graphics File',
    'ic3d'         => 'IC3D Scene File',
    'ica'          => 'Image Object Content Architecture File',
    'ical'         => 'iCalendar File',
    'icalendar'    => 'iCalendar File',
    'icalevent'    => 'iCal Event File',
    'icaltodo'     => 'iCal To Do File',
    'icap'         => 'InCopy Package File',
    'icb'          => 'Targa ICB Bitmap Image',
    'icbu'         => 'Calendar Backup File',