sinkovsky

parse_iso8601(Time) when is_list(Time) ->
    parse_iso8601(list_to_binary(Time));

parse_iso8601(Time) when is_binary(Time) ->
    parse_date(Time,{},parse_year).

parse_date(<<Year:32/bitstring, Rest/bitstring>>, Acc, parse_year) ->
    parse_date(Rest, {Acc, Year}, parse_month);

parse_date(<<"-", Rest/bitstring>>, Acc, State) ->

sinkovsky

вот так
parse_iso8601(Time) when is_list(Time) ->
    parse_iso8601(list_to_binary(Time));

parse_iso8601(Time) when is_binary(Time) ->
    parse_date(Time,{},parse_year).

parse_date(<<Year:32/bitstring, Rest/bitstring>>, Acc, parse_year) ->
    parse_date(Rest, {Acc, Year}, parse_month);

sinkovsky

parse_iso8601(Time) when is_list(Time) ->
    parse_iso8601(list_to_binary(Time));

parse_iso8601(Time) when is_binary(Time) ->
    parse_date(Time,{},parse_year).

parse_date(<<"-", Rest/bitstring>>, Acc, parse_second) ->
    parse_date(Rest, Acc, parse_tz_hour);

parse_date(<<"-", Rest/bitstring>>, Acc, parse_fraction) ->

sinkovsky

parse_iso8601(Time) when is_list(Time) ->
    parse_iso8601(list_to_binary(Time));
 
parse_iso8601(Time) when is_binary(Time) ->
    parse_date(Time,{},parse_year).
 
parse_date(<<"-", Rest/bitstring>>, Acc, parse_second) ->
    parse_date(Rest, Acc, parse_tz_hour);
 
parse_date(<<"-", Rest/bitstring>>, Acc, parse_fraction) ->

sinkovsky

-record(timestamp, {year, month, day, hour, minute, second, fraction, timezone}).
-record(timezone, {hour, minute}).

parse_iso8601(Time) when is_list(Time) ->
	parse_iso8601( list_to_binary(Time) );

parse_iso8601(Time) when is_binary(Time) ->
    try
        {ok, iso_to_rec(
            year,

sinkovsky

parse_iso8601(Time) when is_list(Time) ->
	parse_iso8601( list_to_binary(Time) );
 
parse_iso8601(Time) when is_binary(Time) ->
    try
        {ok, iso_to_rec(
            year,
            Time,
            #timestamp{
                year = 0,

sinkovsky

to_tz(R, Tz) ->
    Tz_offset = ((Tz#timezone.hour * 60) + Tz#timezone.minute) * 60,
    R_offset = (((R#timestamp.timezone)#timezone.hour * 60) + (R#timestamp.timezone)#timezone.minute) * 60,
    R_seconds = calendar:datetime_to_gregorian_seconds(to_datetime(R)),
    New_seconds = R_seconds - R_offset + Tz_offset,
    Datetime = calendar:gregorian_seconds_to_datetime(New_seconds),
    {ok, New_R} = from_datetime(Datetime),
    New_R#timestamp{timezone = Tz, fraction = R#timestamp.fraction}.

sinkovsky

package HP::Logger;

BEGIN {
    use FindBin qw($Bin $Script);
	$Script =~ s/.pl//;
    unshift @INC, "$Bin/../lib/perl";
	unshift @INC, "$Bin/../lib/mt/extlib";
}

use Exporter;

sinkovsky

# Setting loggers
log4perl.logger.ConsoleFile=INFO, Console, File
log4perl.logger.Console=INFO, Console
log4perl.rootLogger=INFO, Console, File

# File appender
log4perl.appender.File=Log::Log4perl::Appender::File
log4perl.appender.File.filename= sub { HP::Logger::get_log_file_name(); }
log4perl.appender.File.mode=append

sinkovsky

sub _hdlr_entry_body_has_image { 
    my($ctx, $args, $cond) = @_; 

    return 0 if (!$ctx->stash('entry')); 
    my $entry_text = &MT::Template::Context::_hdlr_entry_body; 
    my @paragraphs = split(/<p[^>]*>/i, $entry_text); 

    ## just checking for img tag in the 
    ## first three paragraphs, skip first array element, 
    ## because of that element is fake element