|
7
|
1 #!/usr/bin/perl -w
|
|
|
2 use lib '.';
|
|
|
3 use config;
|
|
|
4 use config::bootstrap;
|
|
|
5 use strict;
|
|
14
|
6 use URI;
|
|
|
7
|
|
7
|
8
|
|
|
9 use IMPL::require {
|
|
|
10 DoxygenTask => 'Benzin::Doxygen::MakedocTask',
|
|
14
|
11 HG => 'Benzin::SCC::Mercurial',
|
|
|
12 Config => 'IMPL::Config'
|
|
7
|
13 };
|
|
|
14
|
|
14
|
15 my @repos = (
|
|
|
16 {
|
|
|
17 doxyfile => '_doc/doxyfile',
|
|
|
18 src => 'https://hg.implab.org/pub/ImplabNet'
|
|
|
19 },
|
|
|
20 {
|
|
|
21 doxyfile => 'Doc/doxyfile',
|
|
|
22 src => 'https://hg.implab.org/private/Pallada.PoiskAvia'
|
|
|
23 }
|
|
7
|
24 );
|
|
|
25
|
|
14
|
26 my $base = Config->AppDir('mercurial-data');
|
|
|
27
|
|
|
28 foreach my $desc (@repos) {
|
|
|
29 my $name = pop (@{[split /\//, $desc->{src}]});
|
|
|
30 print "processing: $name\n";
|
|
|
31 my $dir = File::Spec->catdir($base,$name);
|
|
|
32 my $update;
|
|
|
33 if (-d $dir) {
|
|
|
34
|
|
|
35 my $repo = HG->new($dir,\%config::hgSettings);
|
|
|
36 my $income = $repo->Income();
|
|
|
37 if (@$income) {
|
|
|
38 print "donwloading changes\n";
|
|
|
39 $repo->Pull(['-u']);
|
|
|
40 $update = 1;
|
|
|
41 }
|
|
|
42 } else {
|
|
|
43 print "clonning $name to $dir\n";
|
|
|
44 my $repo = HG->Clone($desc->{src},$dir,[],\%config::hgSettings);
|
|
|
45 $update = 1;
|
|
|
46 }
|
|
|
47
|
|
|
48 if ($update) {
|
|
|
49 print "updating $name";
|
|
|
50 my $task = DoxygenTask->new(
|
|
|
51 doxyfile => File::Spec->catdir($dir,$desc->{doxyfile}),
|
|
|
52 makedoc => 1,
|
|
|
53 dataDirPath => Config->AppDir('doxygen-data', $name),
|
|
|
54 connection => $config::doxConnection
|
|
|
55 );
|
|
|
56
|
|
|
57 $task->DoWork();
|
|
|
58 } else {
|
|
|
59 print "$name is up to date\n";
|
|
|
60 }
|
|
|
61 }
|
|
|
62
|
|
|
63 #xmlDocPath => '/home/sergey/projects/Dusel/_doc/xml',
|
|
|
64 # collectionName => 'dusel',
|
|
|
65 # doxyfile => '/home/sergey/projects/Dusel/_doc/doxyfile',
|
|
|
66 # dataDirPath => File::Spec->catdir($base,'doxygen-data','dusel'),
|
|
|
67 # connection => $doxConnection,
|
|
|
68 # language => 'csharp'
|
|
|
69
|
|
|
70 #my $task = DoxygenTask->new(
|
|
|
71 # %config::doxSource
|
|
|
72 #);
|
|
|
73
|
|
|
74 #$task->DoWork();
|
|
7
|
75
|
|
|
76 print "completed\n"; |
