Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 1e8655a967
Fetching contributors…

Cannot retrieve contributors at this time

executable file 126 lines (107 sloc) 2.464 kb
#!/usr/bin/perl -w
# Build an RPM. Usage:
# rpmbuild.pl [lib path]
use strict;
use warnings;
use File::Copy;
use Template;
use lib "./lib";
use RiveScript; # So we get its version no.
use RiveScript::WD;
# Use the pwd command to get the current working directory.
my $pwd = `pwd`;
chomp($pwd);
# Build number = today's date.
my @time = localtime();
my $build = join("",
sprintf("%04d", $time[5] + 1900),
sprintf("%02d", $time[4] + 1),
sprintf("%02d", $time[3]),
);
print "Preparing build root...\n";
makedir("./build", "./build/usr");
command("perl Makefile.PL PREFIX=build/usr");
command("make");
command("make test");
command("make install");
print "Copying utils from bin/...\n";
makedir("./build/usr/bin");
copy("./bin/rivescript", "./build/usr/bin/");
print "\n";
print "Preparing Template Toolkit...\n";
my $tt = Template->new ({
RELATIVE => 1,
PRE_CHOMP => 0,
POST_CHOMP => 0,
});
my $vars = {
version => $RiveScript::VERSION,
build => $build,
wd_version => $RiveScript::WD::VERSION,
files => [],
};
print "Making file list from buildroot...\n";
my @flist = &crawl("./build");
foreach my $file (@flist) {
$file =~ s/^\.\/build//i;
if ($file =~ /rpmbuild\.pl$/ || $file =~ /perllocal\.pod$/ || $file =~ /\.packlist$/) {
unlink("./build/$file");
next;
}
my $attr = "0644";
if (-d $file || $file =~ /^\/usr\/bin/i) {
$attr = "0755";
}
push (@{$vars->{files}}, "%attr($attr,root,root) $file");
}
print "Creating RPM spec file...\n";
my $output;
eval {
$tt->process("./perl-RiveScript.spec.tt", $vars, \$output) or die $@;
};
if ($@) {
die $@;
}
open (SPEC, ">perl-RiveScript.spec");
print SPEC $output;
close (SPEC);
print "Building RPM...\n";
command("rpmbuild --target=noarch --buildroot=$pwd/build -ba perl-RiveScript.spec");
print "Cleaning up...\n";
command("make clean");
command("rm -rf build/");
unlink("./perl-RiveScript.spec");
sub command {
my $cmd = shift;
print "\$ $cmd\n";
system($cmd);
}
sub crawl {
my $dir = shift;
my @files = ();
opendir (DIR, $dir);
foreach my $file (readdir(DIR)) {
next if $file eq ".";
next if $file eq "..";
if (-d "$dir/$file") {
push (@files, &crawl("$dir/$file"));
}
else {
push (@files, "$dir/$file");
}
}
return @files;
}
sub makedir {
my @dirs = @_;
foreach my $d (@dirs) {
print "mkdir $d\n";
mkdir($d) unless -d $d;
}
}
sub prompt {
my $q = shift;
print "$q ";
chomp (my $answer = <STDIN>);
return $answer;
}
Jump to Line
Something went wrong with that request. Please try again.