| 27 |
use Getopt::Long; #to parse the args |
use Getopt::Long; #to parse the args |
| 28 |
use LWP::UserAgent; |
use LWP::UserAgent; |
| 29 |
use Debian::L10n::Html; |
use Debian::L10n::Html; |
| 30 |
|
use File::Path; |
| 31 |
|
|
| 32 |
|
|
| 33 |
my $progname = $0; |
my $progname = $0; |
| 210 |
opendir D, './include' or die "Cannot open .: $!"; |
opendir D, './include' or die "Cannot open .: $!"; |
| 211 |
my @files = readdir D; |
my @files = readdir D; |
| 212 |
closedir D; |
closedir D; |
| 213 |
|
mkpath ("html/include", 02775) or die "Cannot create include directory\n" unless (-d "html/include"); |
| 214 |
|
|
| 215 |
foreach (@files) { |
foreach (@files) { |
| 216 |
next unless /\.inc$/; |
next unless /\.inc$/; |