Unplug/ecpluginbuilder.pl at master · electric-cloud/Unplug · 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
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
#!/usr/bin/env perl

# Build, upload and promote Unplug using ecpluginbuilder
#		https://github.com/electric-cloud/ecpluginbuilder

use Getopt::Long;
use Data::Dumper;
use strict;
use File::Copy;

use ElectricCommander ();
$| = 1;
my $ec = new ElectricCommander->new();

my $epb="../ecpluginbuilder";

my $pluginVersion = "2.2.5";
my $pluginKey = "unplug";

GetOptions ("version=s" => \$pluginVersion)
		or die (qq(
Error in command line arguments

	createPlugin.pl
		[--version <version>]
		)
);

# Read buildCounter
my $buildCounter;
{
  local $/ = undef;
  open FILE, "buildCounter" or die "Couldn't open file: $!";
  $buildCounter = <FILE>;
  close FILE;

 $buildCounter++;
 $pluginVersion .= ".$buildCounter";
 print "[INFO] - Incrementing build number to $buildCounter...\n";

 open FILE, "> buildCounter" or die "Couldn't open file: $!";
 print FILE $buildCounter;
 close FILE;
}
my $pluginName = "${pluginKey}-${pluginVersion}";

print "[INFO] - Creating plugin '$pluginName'\n";


#
# creates pages un_run*.xml files from the template directory
print "[INFO] - Processing 'pages/un_run.xml' files...\n";
print "    ";
# $xs = XML::Simple->new(
# 	ForceArray => 1,
# 	KeyAttr    => {['plugin'] },
# 	KeepRoot   => 1,
# );

foreach my $var ("", 0 .. 9, "a" .. "z") {
  print "$var ";
	my $xmlFile="pages/un_run${var}.xml";
	# my $template="template/un_run.xml";
	open(my $fh, '>', $xmlFile) or die "Could not write file '$xmlFile' $!";

	print $fh "<componentContainer>\n";
	print $fh "  <helpLink>help</helpLink>\n";
	print $fh "  <title>$pluginKey $pluginVersion</title>\n";
	print $fh "  <component plugin=\"EC-Core\" ref=\"urlLoader\">\n";
	print $fh "    <style>../../lib/styles/data.css</style>\n";
	print $fh "    <plugin>unplug</plugin>\n";
	print $fh "    <version>$pluginVersion</version>\n";
	print $fh "    <evalScripts>true</evalScripts>\n";
	print $fh "    <url>cgi-bin/un.cgi</url>\n";
	print $fh "    <requests>\n";
	print $fh "      <request requestId=\"v\">\n";
	print $fh "        <getProperty>\n";
	print $fh "          <propertyName>/javascript getProperty(&quot;/server/${pluginKey}/v${var}&quot;)</propertyName>\n";
	print $fh "        </getProperty>\n";
	print $fh "      </request>\n";
	print $fh "    </requests>\n";
	print $fh "  </component>\n";
	print $fh "</componentContainer>\n";
	close $fh;

	# Update un_runXXX.xml with key, version, label, description
	# Bug cannot change the <plugin> attribute, it's confused with the element in <component plugin="EC-Core">
	# $ref  = $xs->XMLin($template);
	# print Dumper ($ref);
	# $ref->{componentContainer}[0]->{title}[0] = "$pluginKey $pluginVersion";
	# $ref->{componentContainer}[0]->{component}[0]->{version}[0] = $pluginVersion;
	# $ref->{componentContainer}[0]->{component}[0]->{plugin}[1] = $pluginKey;
	# $ref->{componentContainer}[0]->{component}[0]->{requests}[0]->
	# 	{request}[0]->{getProperty}[0]->{propertyName}[0] = "/javascript getProperty(&quot;/server/${pluginKey}/v${var}&quot;)";
	#
	# # save file
	# open(my $fh, '>', $xmlFile) or die "Could not write file '$xmlFile' $!";
	# print $fh $xs->XMLout($ref);
	# close $fh;
}
print "\n";


system ("$epb -pack-jar -plugin-name $pluginKey -plugin-version $pluginVersion " .
	" -folder cgi-bin" .
	" -folder META-INF" .
	" -folder htdocs" .
	" -folder pages" .
	" -folder dsl"
);

move("build/${pluginKey}.jar", ".");

# Uninstall old plugin
print "[INFO] - Uninstalling old plugin...\n";
$ec->uninstallPlugin($pluginKey) || print "No old plugin\n";

# Install plugin
print "[INFO] - Installing plugin ${pluginKey}.jar...\n";
$ec->installPlugin("${pluginKey}.jar");

# Promote plugin
print "[INFO] - Promoting plugin...\n";
$ec->promotePlugin($pluginName);