| … | |
… | |
| 23 | $html = $pom->present ("PodRSS"); |
23 | $html = $pom->present ("PodRSS"); |
| 24 | open FH, ">", "src/news.rss" or die "src/news.rss: $!"; |
24 | open FH, ">", "src/news.rss" or die "src/news.rss: $!"; |
| 25 | print FH $html; |
25 | print FH $html; |
| 26 | close FH; |
26 | close FH; |
| 27 | |
27 | |
| 28 | system "rsync -avP src/. html/. --del --delete-excluded --exclude CVS"; |
28 | system "rsync -avP src/. html/. --exclude CVS"; |
| 29 | |
29 | |
| 30 | =head1 AUTHOR |
30 | =head1 AUTHOR |
| 31 | |
31 | |
| 32 | Copyright © 2010 The Deliantra Team |
32 | Copyright © 2010 The Deliantra Team |
| 33 | Copyright © 2007 Pippijn van Steenhoven |
33 | Copyright © 2007 Pippijn van Steenhoven |
| … | |
… | |
| 45 | |
45 | |
| 46 | use strict; |
46 | use strict; |
| 47 | use warnings; |
47 | use warnings; |
| 48 | use utf8; |
48 | use utf8; |
| 49 | |
49 | |
| 50 | my $rcsid = '$Id: generate,v 1.26 2010/04/26 13:00:54 elmex Exp $'; |
50 | my $rcsid = '$Id: generate,v 1.27 2010/04/26 13:33:42 root Exp $'; |
| 51 | |
51 | |
| 52 | use base "Pod::POM::View"; |
52 | use base "Pod::POM::View"; |
| 53 | |
53 | |
| 54 | our $subdir; |
54 | our $subdir; |
| 55 | our $dir; |
55 | our $dir; |
