I have the attached sub in code.pl called in the attached build.pl
When I try to call it, I get an error thrown up
Anyone any idea what I am doing wrong?
sub amver {
open (AC1,"<autogen.sh") or die "no such file3 $@";
open (AC2,">autogen1.sh") or die "no such file4";
@file1=<AC1>;
foreach $file1(@file1) {
$file1=~s/aclocal/aclocal-1.5/g;
$file1=~s/automake/automake-1.5/g;
print AC2 $file1;
}
close AC1;
close AC2;
open (AC1,"<autogen1.sh") or die "no such file3 $@";
open (AC2,"<autogen.sh") or die "no such file3 $@";
@file3=<AC1>;
print AC2 @file3;
close AC1;
close AC2;}
#!/usr/bin/perl -ww
open(BLD_LIST,"buildlist");
my @pkg=<BLD_LIST>;
my $prefix='/usr';
my $sys='/etc';
my $local='/var';
my $debug='--disable-debug --disable-more-warnings --disable-werror';
my $strip='yes';
my $stripso='yes';
my $cflags='\'-I/usr/include/freetype2 -I/usr/lib/gtk-2.0/include -I/usr/include/gstreamer-0.5\'';
sub amver {
open (AC1,"<autogen.sh") or die "no such file3 $@";
open (AC2,">autogen1.sh") or die "no such file4";
@file1=<AC1>;
foreach $file1(@file1) {
$file1=~s/aclocal/aclocal-1.5/g;
$file1=~s/automake/automake-1.5/g;
print AC2 $file1;
}
close AC1;
close AC2;
open (AC1,"<autogen1.sh") or die "no such file3 $@";
open (AC2,"<autogen.sh") or die "no such file3 $@";
@file3=<AC1>;
print AC2 @file3;
close AC1;
close AC2;}
print "$sys\n";
foreach my $pkg (@pkg){
my $dir1=$pkg;
$dir1=~chomp $dir1;
use Cwd;
$dir0=getcwd();
print "$dir0\n";
chdir $dir1;
$dir2=getcwd();
print "$dir2\n";
print "$dir1\n";
if ( "$dir1" eq "gconf" or $dir1 eq "libglade" or $dir1 eq "glade" or $dir1 eq 'gnome-vfs') {
system ("CPPFLAGS=$cflags ./autogen.sh --prefix=$prefix --sysconfdir=$sys --localstatedir=$local $debug --enable-gtk-doc=no --disable-more-warnings");
system 'make';
system ("checkinstall -R -y --pkgname=$dir1\"2\" --pkgversion=$ARGV[0] --pkgrelease=$ARGV[1] --strip=$strip --stripso=$stripso");
}
elsif ( "$dir1" eq "gtk+" or $dir1 eq "glib") {
system ("CPPFLAGS=$cflags ./autogen.sh --prefix=$prefix --sysconfdir=$sys --localstatedir=$local $debug --enable-gtk-doc=no --disable-more-warnings");
system 'make';
system ("checkinstall -R -y --pkgname=$dir1\"2\" --pkgversion=$ARGV[0] --pkgrelease=$ARGV[1] --strip=$strip --stripso=$stripso");
system ("checkinstall -R -y --pkgname=$dir1\"2\" --pkgversion=$ARGV[0] --pkgrelease=$ARGV[1] --strip=$strip --stripso=$stripso");
}
elsif ( $dir1 eq 'gnome-terminal' ) {
system ("CPPFLAGS=$cflags ./autogen.sh --prefix=$prefix --sysconfdir=$sys --localstatedir=$local $debug --enable-gtk-doc=no --disable-more-warnings --with-widget=zvt");
system 'make';
system ("checkinstall -R -y --pkgname=$dir1 --pkgversion=$ARGV[0] --pkgrelease=$ARGV[1] --strip=$strip --stripso=$stripso");
system `make distclean`;
system ("./autogen.sh --prefix=$prefix\"\/local\" $debug --enable-gtk-doc=no --disable-more-warnings --with-widget=vte");
system 'make';
system ("checkinstall -R -y --pkgname=$dir1\"vte\" --pkgversion=$ARGV[0] --pkgrelease=$ARGV[1] --strip=$strip --stripso=$stripso");
}
elsif ( $dir1 eq 'gaim' or $dir1 eq 'devilspie' ) &amver;
{
system (" ./autogen.sh --prefix=$prefix --sysconfdir=$sys --localstatedir=$local $debug --enable-gtk-doc=no --disable-werror --disable-more-warnings");
system 'make';
system ("checkinstall -R -y --pkgname=$dir1 --pkgversion=$ARGV[0] --pkgrelease=$ARGV[1] --strip=$strip --stripso=$stripso");
}
elsif ( $dir1 eq 'libgnomeprint-1.116.1' or $dir1 eq 'libgnomeprintui-1.116.0' or $dir1 eq 'startup-notification-0.3' ) {
system ("CPPFLAGS=$cflags ./configure --prefix=$prefix --sysconfdir=$sys --localstatedir=$local $debug --enable-gtk-doc=no --disable-more-warnings");
system 'make';
system ("checkinstall -R -y --pkgname=$dir1 --pkgversion=$ARGV[0] --pkgrelease=$ARGV[1] --strip=$strip --stripso=$stripso");
}
elsif ( $dir1 eq 'rhythmbox' ) {
open (AC1,"<autogen.sh") or die "no such file3 $@";
open (AC2,">autogen1.sh") or die "no such file4";
@file1=<AC1>;
foreach $file1(@file1) {
$file1=~s/aclocal/aclocal-1.5/g;
$file1=~s/automake/automake-1.5/g;
print AC2 $file1;
}
close AC1;
close AC2;
open (AC1,"<autogen1.sh") or die "no such file3 $@";
open (AC2,"<autogen.sh") or die "no such file3 $@";
@file3=<AC1>;
print AC2 @file3;
close AC1;
close AC2;
system ("./autogen.sh --prefix=$prefix --sysconfdir=$sys --localstatedir=$local $debug --enable-gtk-doc=no --disable-werror --disable-more-warnings");
system ("cd shell&&make Rhythmbox.h");
system ("cd ..");
system 'make';
system ("checkinstall -R -y --pkgname=$dir1 --pkgversion=ARGV[0] --pkgrelease=$ARGV[1] --strip=$strip --stripso=$stripso");
}
elsif ( $dir1 eq 'pkg-config' or $dir1='fontilus-0.2' ) {
system ("./configure --prefix=$prefix --sysconfdir=$sys --localstatedir=$local $debug --enable-gtk-doc=no --disable-werror --disable-more-warnings");
system 'make';
system ("checkinstall -R -y --pkgname=$dir1 --pkgversion='0.14' --pkgrelease=$ARGV[1] --strip=$strip --stripso=$stripso");
}
elsif ( $dir1 eq 'gstreamer' or $dir1 eq 'gst-player' ) {
#open (GTKDOCERR,"<common//m4//gst-doc.m4") or die "no such file3 $@";
#open (GTKDOCERR1,">gstdoc.m4") or die "no such file4";
@file1=<GTKDOCERR>;
#foreach $file1(@file1){
#$file1=~s/gtk_doc_min_version=0.7/gtk_doc_min_version=0.10/g;
#print GTKDOCERR1 $file1
#};
#close GTKDOCERR;
#close GTKDOCERR1;
#open (GTKDOCERR1,"<gstdoc.m4") or die "no such file1";
#open (GTKDOCERR,">common//m4//gst-doc.m4") or die "no such file3 $@";
#@file3=<GTKDOCERR1>;
#print GTKDOCERR @file3;
system ("CPPFLAGS=$cflags ./configure --prefix=$prefix --sysconfdir=$sys --localstatedir=$local $debug --disable-gtk-doc --disable-more-warnings --disable-plugin-builddir");
system './autogen.sh';
system ("CPPFLAGS=$cflags ./configure --prefix=$prefix --sysconfdir=$sys --localstatedir=$local $debug --disable-gtk-doc --disable-more-warnings --disable-plugin-builddir");
system 'make';
system ("checkinstall -R -y --pkgname=$dir1 --pkgversion=$ARGV[0] --pkgrelease=$ARGV[1] --strip=$strip --stripso=$stripso");
}
elsif ( $dir1 eq 'mb_client' ) {
system './autogen.sh';
system ("CPPFLAGS=$cflags ./configure --prefix=$prefix --sysconfdir=$sys --localstatedir=$local $debug --enable-gtk-doc=no --disable-more-warnings ");
system 'make';
system ("checkinstall -R -y --pkgname=$dir1 --pkgversion=$ARGV[0] --pkgrelease=$ARGV[1] --strip=$strip --stripso=$stripso");
}
elsif ( $dir1 eq 'mad-0.14.2b' or $dir1 eq 'cog-0.5.1' or $dir1 eq 'startup-notification-0.4' ) {
system ("./configure --prefix=$prefix --sysconfdir=$sys --localstatedir=$local $debug --enable-gtk-doc=no --disable-more-warnings ");
system 'make';
system ("checkinstall -R -y --pkgname=$dir1 --pkgversion=$ARGV[0] --pkgrelease=$ARGV[1] --strip=$strip --stripso=$stripso");
}
elsif ( $dir1 eq 'Hermes-1.3.2' ) {
system("rm -rf libtool lt*");
system("libtoolize --force");
system './autogen.sh';
system ("./configure --prefix=$prefix --sysconfdir=$sys --localstatedir=$local $debug --enable-gtk-doc=no --disable-more-warnings ");
system 'make';
system ("checkinstall -R -y --pkgname=$dir1 --pkgversion=$ARGV[0] --pkgrelease=$ARGV[1] --strip=$strip --stripso=$stripso");
}
elsif ( $dir1 eq 'nautilus' ) {
system ("./autogen.sh --prefix=$prefix --sysconfdir=$sys --localstatedir=$local $debug --enable-gtk-doc=no --disable-more-warnings ");
system 'make';
system ("checkinstall -R -y --pkgname=$dir1 --pkgversion=$ARGV[0] --pkgrelease=$ARGV[1] --strip=$strip --stripso=$stripso");
}
elsif ( $dir1 eq 'gtkhtml2' ) {
system ("CPPFLAGS=$cflags ./autogen.sh --prefix=$prefix --sysconfdir=$sys --localstatedir=$local $debug --enable-gtk-doc=no --disable-more-warnings ");
system 'make';
system ("checkinstall -R -y --pkgname='libgtkhtml2' --pkgversion=$ARGV[0] --pkgrelease=$ARGV[1] --strip=$strip --stripso=$stripso");
}
elsif ( $dir1 eq 'libxslt' ) {
system ("CPPFLAGS=$cflags ./autogen.sh --prefix=$prefix --sysconfdir=$sys --localstatedir=$local $debug --enable-gtk-doc=no --disable-more-warnings ");
system 'make';
system("make install");
}
else
{
system ("CPPFLAGS=$cflags ./autogen.sh --prefix=$prefix --sysconfdir=$sys --localstatedir=$local $debug --enable-gtk-doc=no --disable-more-warnings");
system 'make';
system ("checkinstall -R -y --pkgname=$dir1 --pkgversion=$ARGV[0] --pkgrelease=$ARGV[1] --strip=$strip --stripso=$stripso");
}
system("make distclean");
chdir $dir0;
$dir3=getcwd();
print "$dir3\n";
system("/home/mike/rmla");
};
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
