lib/Blog/Helper/Util.pm

   1 package Blog::Helper::Util;
   2
   3 use strict;
   4
   5 use base 'Blog::Helper';
   6
   7 sub mon2name {
   8     my ( $self, $mon, $short ) = @_;
   9
  10     return unless defined $mon && ( $mon >= 0 && $mon < 12 );
  11
  12     $short ||= '';
  13     my $abbr = $self->{ "_helper_util_mon2name_abbr$short" };
  14
  15     unless ( $abbr ) {
  16         my @abbr =
  17           split(
  18             ' ',
  19             $self->{ c }->loc(
  20                 $short
  21                 ? 'Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec'
  22                 : 'January February March April May June July August '
  23                   . 'September October November December'
  24             )
  25           );
  26
  27         $abbr = $self->{ "_helper_util_mon2name_abbr$short" } = \@abbr;
  28     }
  29
  30     return $abbr->[ $mon ];
  31 }
  32
  33 sub datefmt {
  34     my ( $self, $dt ) = @_;
  35
  36     return unless ref $dt;
  37
  38     #my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) =
  39       #localtime( $date );
  40
  41     return sprintf(
  42         qq#<span class="dateformat"><span class="date">%02d %s, %d</span>#,
  43         $dt->day, $self->mon2name( $dt->month - 1, 1 ), $dt->year
  44     );
  45 }
  46
  47 sub datediff {
  48     my ( $self, $addtime, $modtime ) = @_;
  49
  50     return $modtime->delta_days( $addtime )->days;
  51 }
  52
  53 sub uuid {
  54     my ( $self ) = @_;
  55
  56     my $uuid = int( rand( 9 ) ) + 1;
  57     foreach ( 1 .. 5 ) {
  58         $uuid .= int( rand( 10 ) );
  59     }
  60
  61     return $uuid;
  62 }
  63
  64 sub cut {
  65     my ( $self, $text, $maxlength ) = @_;
  66
  67     $maxlength ||= 50;
  68
  69     if ( $text =~ m/^<p>(.*?)<\/p>/os ) {
  70         $text = $1;
  71     }
  72
  73     $text =~ s/<.*?>//g;
  74
  75     my $toolong = 1 if length $text > $maxlength;
  76
  77     if ( $toolong ) {
  78         $text = substr( $text, 0, $maxlength );
  79         $text =~ s/[^[:blank:]]+$//o;
  80         $text .= '[...]';
  81     }
  82
  83     return $text ? $text : '[...]';
  84 }
  85
  86 =head1 AUTHOR
  87
  88 vti
  89
  90 =head1 LICENSE
  91
  92 This library is free software, you can redistribute it and/or modify
  93 it under the same terms as Perl itself.
  94
  95 =cut
  96
  97 1;