31e55aa60f
Lots of bug fixes and a new sequence menu. The configuration is changed to allow the creation of a distibutable package (before, the port relied on the local domain name as discovered at configuration time). Now there is no default domain ... i.e. the MTA should fully qualify addresses (as god intended).
102 lines
2.9 KiB
Bash
Executable File
102 lines
2.9 KiB
Bash
Executable File
#!/bin/sh
|
|
#
|
|
# Configuration script for exmh-2.6.1.
|
|
# $OpenBSD: configure,v 1.3 2003/04/16 08:40:59 wilfried Exp $
|
|
#
|
|
|
|
perl << 'EOPERL'
|
|
|
|
use DirHandle;
|
|
use FileHandle;
|
|
|
|
#
|
|
# We used to try and work out the default mail domain, but this make
|
|
# it difficult to build a package. Well configured MTAs should
|
|
# fully qualify all addresses anyway.
|
|
#
|
|
my $domain = "";
|
|
|
|
my $prefix = exists $ENV{"PREFIX"} ? $ENV{"PREFIX"} : "/usr/local";
|
|
my $localbase = exists $ENV{"LOCALBASE"} ? $ENV{"LOCALBASE"} : "/usr/local";
|
|
my $config = "
|
|
# Saved state from exmh.install
|
|
# Fri Apr 4 10:35:26 EST 2003
|
|
set wish $localbase/bin/wish8.3
|
|
set exmh(version) {version 2.6.1 02/18/2003}
|
|
set exmh(name) exmh
|
|
set exmh(maintainer) welch\@acm.org
|
|
set mh_path $localbase/bin
|
|
set exmh(slocal) $localbase/libexec/slocal
|
|
set mime(dir) $localbase/bin
|
|
set mailcap_default /etc/mailcap
|
|
set mimetypes_default $prefix/share/exmh/mime.types
|
|
set exmh(expect) $localbase/bin/expect
|
|
set exmh(expectk) $localbase/bin/expectk
|
|
set faces(dir) $localbase/faces/faces
|
|
set faces(set,user) {local users usenix misc}
|
|
set faces(set,unknown) {domains unknown}
|
|
set faces(set,news) news
|
|
set faces(defaultDomain) {$domain}
|
|
set faces(suffix) {xpm gif xbm}
|
|
set pgp(pgp,path) $localbase/bin
|
|
set pgp(pgp5,path) $localbase/bin
|
|
set pgp(gpg,path) $localbase/bin
|
|
set pgp(pgp6,path) $localbase/bin
|
|
set glimpse(path) $localbase/bin
|
|
set sound(cmd) /usr/bin/aucat
|
|
set exmh(library) $prefix/share/exmh
|
|
set install(dir,bin) $prefix/bin
|
|
set install(dir,man) $prefix/man/man1
|
|
set install(dir,lib) $prefix/share/exmh
|
|
";
|
|
|
|
exists $ENV{"WRKSRC"} or die ("WRKSRC: missing from environment\n");
|
|
exists $ENV{"WRKBUILD"} or die ("WRKBUILD: missing from environment\n");
|
|
|
|
my $srcdir = $ENV{"WRKSRC"};
|
|
my $dstdir = $ENV{"WRKBUILD"};
|
|
my $dir = new DirHandle ($srcdir) or die ("$srcdir: $!\n");
|
|
while (my $name = $dir->read ()){
|
|
$name =~ m/^([^.].*)\.MASTER$/ or next;
|
|
$src = "$srcdir/$name";
|
|
$dst = "$dstdir/$1";
|
|
|
|
my $in = new FileHandle ($src, "r") or die ("$src: $!\n");
|
|
my $out = new FileHandle ($dst, "w") or die ("$dst: $!\n");
|
|
|
|
if (my $line = $in->getline ()){
|
|
$line =~ s|^#!expect|#!$localbase/bin/expect|;
|
|
$line =~ s|^#!tclsh|#!$localbase/bin/tclsh8.3|;
|
|
$line =~ s|^#!wish|#!$localbase/bin/wish8.3|;
|
|
$out->print ($line) or die ("$dst: $!\n");
|
|
|
|
while ($line = $in->getline ()){
|
|
if ($line =~ m/^#CONFIGURATION$/){
|
|
$out->print ($line) or die ("$dst: $!\n");
|
|
$out->print ($config) or die ("$dst: $!\n");
|
|
while ($line = $in->getline ()){
|
|
if ($line =~ m/^#END CONFIGURATION$/){
|
|
$out->print ($line) or die (
|
|
"$dst: $!\n");
|
|
last;
|
|
}
|
|
}
|
|
$in->eof () and die ("$src: "
|
|
. "missing 'END CONFIGURATION'\n");
|
|
}
|
|
else {
|
|
$out->print ($line) or die ("$dst: $!\n");
|
|
}
|
|
}
|
|
}
|
|
$in->eof () or die ("$src: $!\n");
|
|
|
|
$in->close () or die ("$src: $!\n");
|
|
$out->close () or die ("$dst: $!\n");
|
|
}
|
|
$dir->close () or die ("$srcdir: $!\n");
|
|
|
|
exit (0);
|
|
|
|
EOPERL
|