40 |
$ref->{widgets}->{widget}->{Body}->{data} || |
$ref->{widgets}->{widget}->{Body}->{data} || |
41 |
die "no data in $path ",dump( $ref ); |
die "no data in $path ",dump( $ref ); |
42 |
|
|
43 |
|
$data .= qq{ |
44 |
|
---- |
45 |
|
|
46 |
|
Original: http://www.razmjenavjestina.org/$path |
47 |
|
}; |
48 |
|
|
49 |
$page->{ $name } = [ $data, $date ]; |
$page->{ $name } = [ $data, $date ]; |
50 |
|
|
51 |
# strip path from page name |
# strip path from page name |
52 |
$name =~ s,^.+/([^/]+)$,$1,; |
$name =~ s,^.+/([^/]+)$,$1,; |
53 |
push @page_names, $name; |
push @page_names, $name; |
54 |
|
|
55 |
#warn dump( $ref ); |
# warn dump( $ref ); |
56 |
}, |
}, |
57 |
}, shift @ARGV || '.'); |
}, shift @ARGV || '.'); |
58 |
|
|