9 |
use Socialtext::Resting; |
use Socialtext::Resting; |
10 |
use Encode; |
use Encode; |
11 |
use HTTP::Date; |
use HTTP::Date; |
12 |
|
use POSIX qw/strftime/; |
13 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
14 |
|
|
15 |
my $max = 999; |
my $max = 999; |
43 |
|
|
44 |
$page->{ $name } = { |
$page->{ $name } = { |
45 |
content => convert_markup( $data ), |
content => convert_markup( $data ), |
46 |
date => time2str( $date ), |
date => convert_date( $date ), |
47 |
}; |
}; |
48 |
|
|
49 |
# strip path from page name |
# strip path from page name |
68 |
$Rester->workspace('razmjenavjestina'); |
$Rester->workspace('razmjenavjestina'); |
69 |
$Rester->put_workspacetag('TamTam'); |
$Rester->put_workspacetag('TamTam'); |
70 |
|
|
71 |
|
sub convert_date { |
72 |
|
my $date = shift; |
73 |
|
# return time2str( $date ); |
74 |
|
return strftime('%F %T %z', gmtime( $date )); |
75 |
|
} |
76 |
|
|
77 |
sub header { |
sub header { |
78 |
my $h = shift; |
my $h = shift; |
79 |
if ( $h =~ m/^(=+)\s+(.+?)\s+\1$/ ) { |
if ( $h =~ m/^(=+)\s+(.+?)\s+\1$/ ) { |
133 |
|
|
134 |
my @tags = ( 'TamTam' ); |
my @tags = ( 'TamTam' ); |
135 |
|
|
136 |
|
my $full_name = $name; |
137 |
|
|
138 |
if ( $name =~ m!/! ) { |
if ( $name =~ m!/! ) { |
139 |
my @page_tags = split(m!/!, $name); |
my @page_tags = split(m!/!, $name); |
140 |
$name = pop @page_tags; # remove page name |
$name = pop @page_tags; # remove page name |
147 |
$body .= qq{ |
$body .= qq{ |
148 |
---- |
---- |
149 |
|
|
150 |
Original: http://www.razmjenavjestina.org/$name |
Original sa http://www.razmjenavjestina.org/$full_name zadnja promjena {date: $date} |
151 |
}; |
}; |
152 |
|
|
153 |
Encode::_utf8_off( $body ); |
Encode::_utf8_off( $body ); |