statcode/post.bot.pl at master · lilongen/statcode · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
#!/usr/bin/perl -I ./thirds
# author: lilong'en([email protected])
# date:   09/12/2012
#

use strict;
use English;
use Data::Dumper;
use CcvUtil;

sub main();
sub constructOutJson();
sub writeJsonToFile($);
sub structureBotInfo();

my $GV_OUT_FILE = '.bot/.gv';
my $BOT_OUT_FILE = '.bot/.bot';
my $BOT_OUT_JS_FILE = '.bot/bot.info.json';
my $BOT_OUT_JS_WEB_FILE = 'web/bot.info.json';

my $ccvUtil = new CcvUtil();
exit main();

sub main() {
    my $outJsonText = constructOutJson();
    $ccvUtil->writeJsonToFile($outJsonText, $BOT_OUT_JS_FILE);
    system("cp -f $BOT_OUT_JS_FILE $BOT_OUT_JS_WEB_FILE");

    return 0;
}

sub constructOutJson() {
    my $GV = $ccvUtil->loadFile($GV_OUT_FILE);
    my $finalJSON = {
        xmlsReposURIs => undef,
        reposURIRevsInfo => undef
    };
    my $xmlsReposURIs = {};
    foreach my $xml (keys %{$GV->{xmlsReposURIs}}) {
        my @reposURIs = sort keys %{$GV->{xmlsReposURIs}->{$xml}};
        $xmlsReposURIs->{$xml} = \@reposURIs;
    }
    $finalJSON->{xmlsReposURIs} = $xmlsReposURIs || {};
    $finalJSON->{reposURIRevsInfo} = structureBotInfo() || {};

    return $finalJSON;
}

sub structureBotInfo() {
	my $hBot;
	if (!open($hBot, $BOT_OUT_FILE)) {
		return undef;
	}

	my $reReposURI = qr/^ccv.bot - (.*)$/;
	my $reposRevs = {};
	my $revInfo = undef;
	my $status = -1;#0: repos uri, 1: branches out end, 2: tags out end
	my $reposURI = undef;
	while (1) {
		my $line = <$hBot>;
		if (!defined($line)) {
			last;
		}

		if ($line =~ $reReposURI) {
			$reposURI = $1;
			$status = 0;
			$revInfo = {
				branches => [],
				tags => []
			};
			next;
		}

		if (length($line) == 1) {#empty line(^\n$), branches and tags separator
			$status++;

			if ($status == 2) {
				if ($#{$revInfo->{branches}} >= 0 || $#{$revInfo->{tags}} >= 0) {
					$reposRevs->{$reposURI} = $revInfo;
				}
			}
			next;
		}

		$line = substr($line, 0, -2); #trash last character '\n' and '/'
		if ($status == 0) {
			push(@{$revInfo->{branches}}, $line);
			next;
		}
		if ($status == 1) {
			push(@{$revInfo->{tags}}, $line);
			next;
		}
	}
	close($hBot);

	return $reposRevs;
}