r3273 bursa - /trunk/netsurfbuild/autobuild.pl
by netsurf＠semichrome.net
Author: bursa
Date: Sun May 13 18:33:10 2007
New Revision: 3273
URL: http://svn.semichrome.net?rev=3D3273&view=3Drev
Log:
Include !System, !Boot, etc in zip.
Modified:
trunk/netsurfbuild/autobuild.pl
Modified: trunk/netsurfbuild/autobuild.pl
URL: http://svn.semichrome.net/trunk/netsurfbuild/autobuild.pl?rev=3D3273&r=
1=3D3272&r2=3D3273&view=3Ddiff
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/netsurfbuild/autobuild.pl (original)
+++ trunk/netsurfbuild/autobuild.pl Sun May 13 18:33:10 2007
@@ -6,41 +6,10 @@
use strict;
use warnings;
=
+$ENV{PATH} =3D '/usr/local/bin:/usr/bin:/bin';
+
open LOG, ">autobuild_try.log" or die "failed to open autobuild_try.log: $=
!\n";
$| =3D 1;
-
-sub command {
- my $cmd =3D shift;
- print LOG "> $cmd\n";
- my @output =3D `$cmd 2>&1`;
- foreach my $line (@output) {
- print LOG "| $line";
- }
- my $status =3D $? / 256;
- print LOG "exit status $status\n" if $status;
- print LOG "\n";
- die "$cmd:\nexit status $status\n" if $status;
- return @output;
-}
-
-sub load {
- my $path =3D shift;
- open FILE, $path or die "failed to open $path: $!\n";
- my $data;
- {
- local $/ =3D undef;
- $data =3D <FILE>;
- }
- close FILE;
- return $data;
-}
-
-sub save {
- my ($path, $data) =3D @_;
- open FILE, ">$path" or die "failed to open $path: $!\n";
- print FILE $data;
- close FILE;
-}
=
=
# find where we are being run
@@ -84,8 +53,8 @@
chdir "$root/netsurf";
command("make riscos riscos_small");
chdir $root;
-command("rm --recursive --force --verbose !NetSurf");
-command("rsync --archive --verbose --exclude=3D.svn netsurf/!NetSurf .");
+command("rm --recursive --force --verbose riscos-zip/!NetSurf");
+command("rsync --archive --verbose --exclude=3D.svn netsurf/!NetSurf risco=
s-zip/");
=
# copy docs, processing as required
sub process_html {
@@ -117,15 +86,15 @@
if ($doc =3D~ /([a-z]+)[.]([a-z][a-z])$/) { # html with language extension
my $leaf =3D $1;
my $language =3D $2;
- my $dest =3D "!NetSurf/Docs/${leaf}_$language,faf";
+ my $dest =3D "riscos-zip/!NetSurf/Docs/${leaf}_$language,faf";
print LOG "=3D> $dest (html)\n";
process_html($source, $dest, $language);
} elsif ($doc =3D~ /(.*)[.]css$/) {
- my $dest =3D "!NetSurf/Docs/$1,f79";
+ my $dest =3D "riscos-zip/!NetSurf/Docs/$1,f79";
print LOG "=3D> $dest\n";
command("cp --archive --verbose $source $dest");
} elsif ($doc =3D~ /(.*)[.]png$/) {
- my $dest =3D "!NetSurf/Docs/$1_png,b60";
+ my $dest =3D "riscos-zip/!NetSurf/Docs/$1_png,b60";
print LOG "=3D> $dest\n";
command("cp --archive --verbose $source $dest");
} else {
@@ -133,23 +102,26 @@
}
}
=
-print LOG "!NetSurf/Docs/about,faf (html)\n";
-process_html('!NetSurf/Docs/about,faf', '!NetSurf/Docs/about,faf', 'en');
-
-mkdir '!NetSurf/Docs/images', 0755;
+print LOG "riscos-zip/!NetSurf/Docs/about,faf (html)\n";
+process_html('riscos-zip/!NetSurf/Docs/about,faf',
+ 'riscos-zip/!NetSurf/Docs/about,faf', 'en');
+
+mkdir 'riscos-zip/!NetSurf/Docs/images', 0755;
foreach my $png (glob 'netsurfweb/images/*') {
$png =3D~ /images\/(.*)[.]png$/;
my $leaf =3D $1;
$leaf =3D~ s/[.]/_/g;
- command("cp --archive --verbose $png !NetSurf/Docs/images/$leaf,b60");
+ command("cp --archive --verbose $png riscos-zip/!NetSurf/Docs/images/$lea=
f,b60");
}
=
# create zip for regular build
-my $slot_size =3D (command('./slotsize !NetSurf/!RunImage,ff8'))[0];
+my $slot_size =3D (command('./slotsize riscos-zip/!NetSurf/!RunImage,ff8')=
)[0];
my $run =3D load('netsurf/!NetSurf/!Run,feb');
$run =3D~ s/2240/$slot_size/g;
-save('!NetSurf/!Run,feb', $run);
-command('/home/riscos/cross/bin/zip -9vr, netsurf.zip !NetSurf');
+save('riscos-zip/!NetSurf/!Run,feb', $run);
+chdir "$root/riscos-zip";
+command('/home/riscos/cross/bin/zip -9vr, ../netsurf.zip *');
+chdir $root;
command('mv --verbose netsurf.zip builds/');
=
# make RiscPkg package
@@ -157,7 +129,7 @@
Package: NetSurf
Priority: Optional
Section: Web
-Maintainer: NetSurf developers <netsurf-develop(a)lists.sourceforge.net>
+Maintainer: NetSurf developers <netsurf-develop\(a)lists.sourceforge.net>
Version: $pkg_version
Depends: SharedUnixLibrary (>=3D1.0.7), Tinct (>=3D0.1.3), Iconv (>=3D0.0.=
8), RiscPkg (>=3D0.3.1.1)
Licence: Free
@@ -172,7 +144,7 @@
mkdir "$root/builds/riscpkg";
command('rm --verbose --force builds/riscpkg/netsurf-*.zip');
command('rm --recursive --verbose --force netsurfpkg/Apps/!NetSurf');
-command('mv --verbose !NetSurf netsurfpkg/Apps/');
+command('mv --verbose riscos-zip/!NetSurf netsurfpkg/Apps/');
chdir "$root/netsurfpkg";
command("/home/riscos/cross/bin/zip -9vr, " .
"../builds/riscpkg/netsurf-$pkg_version.zip " .
@@ -181,15 +153,17 @@
command("$root/packageindex.pl http://www.netsurf-browser.org/builds/riscp=
kg/ ".
'> packages');
chdir $root;
-command('mv --verbose netsurfpkg/Apps/!NetSurf ./');
+command('mv --verbose netsurfpkg/Apps/!NetSurf ./riscos-zip/');
=
# create zip for small build
-command('cp --archive --verbose netsurf/u!RunImage,ff8 !NetSurf/!RunImage,=
ff8');
-$slot_size =3D (command('./slotsize !NetSurf/!RunImage,ff8'))[0];
+command('cp --archive --verbose netsurf/u!RunImage,ff8 riscos-zip/!NetSurf=
/!RunImage,ff8');
+$slot_size =3D (command('./slotsize riscos-zip/!NetSurf/!RunImage,ff8'))[0=
];
$run =3D load('netsurf/!NetSurf/!Run,feb');
$run =3D~ s/2240/$slot_size/g;
-save('!NetSurf/!Run,feb', $run);
-command('/home/riscos/cross/bin/zip -9vr, unetsurf.zip !NetSurf');
+save('riscos-zip/!NetSurf/!Run,feb', $run);
+chdir "$root/riscos-zip";
+command('/home/riscos/cross/bin/zip -9vr, ../unetsurf.zip *');
+chdir $root;
command('mv --verbose unetsurf.zip builds/');
=
# TODO nstheme
@@ -228,6 +202,40 @@
command('rsync --verbose --compress --times --recursive ' .
'builds/*.zip builds/index.* builds/netsurf.log ' .
'builds/riscpkg ' .
- 'netsurf@pike.pepperfish.net:/home/netsurf/websites/' .
+ 'netsurf@netsurf-browser.org:/home/netsurf/websites/' .
'www.netsurf-browser.org/docroot/builds/');
=
+
+sub command {
+ my $cmd =3D shift;
+ print LOG "> $cmd\n";
+ my @output =3D `$cmd 2>&1`;
+ foreach my $line (@output) {
+ print LOG "| $line";
+ }
+ my $status =3D $? / 256;
+ print LOG "exit status $status\n" if $status;
+ print LOG "\n";
+ die "$cmd:\nexit status $status\n" if $status;
+ return @output;
+}
+
+sub load {
+ my $path =3D shift;
+ open FILE, $path or die "failed to open $path: $!\n";
+ my $data;
+ {
+ local $/ =3D undef;
+ $data =3D <FILE>;
+ }
+ close FILE;
+ return $data;
+}
+
+sub save {
+ my ($path, $data) =3D @_;
+ open FILE, ">$path" or die "failed to open $path: $!\n";
+ print FILE $data;
+ close FILE;
+}
+
