Parent Directory | Revision Log | Patch
revision 19 by dpavlin, Wed Dec 12 23:08:14 2007 UTC | revision 21 by dpavlin, Thu Dec 13 11:39:52 2007 UTC | |
---|---|---|
# | Line 12 use HTTP::Date; | Line 12 use HTTP::Date; |
12 | use POSIX qw/strftime/; | use POSIX qw/strftime/; |
13 | use File::Slurp; | use File::Slurp; |
14 | use File::MMagic::XS; | use File::MMagic::XS; |
15 | use Getopt::Long; | |
16 | use Data::Dump qw/dump/; | use Data::Dump qw/dump/; |
17 | ||
18 | my $debug = 0; | my $debug = 0; |
19 | my $max = 999; | my $max = 999; |
20 | ||
21 | GetOptions( | |
22 | 'debug+' => \$debug, | |
23 | 'max=i' => \$max, | |
24 | ); | |
25 | ||
26 | my $page; | my $page; |
27 | my $page_date; | my $page_date; |
28 | ||
# | Line 191 foreach my $name ( keys %$page ) { | Line 197 foreach my $name ( keys %$page ) { |
197 | $body .= qq{ | $body .= qq{ |
198 | ---- | ---- |
199 | ||
200 | Original http://www.razmjenavjestina.org/$full_name {date: $date} | "original"<http://www.razmjenavjestina.org/$full_name> {date: $date} |
201 | }; | }; |
202 | ||
203 | Encode::_utf8_off( $body ); | Encode::_utf8_off( $body ); |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |