Commit c18ce4c6 authored by Mike Hibler's avatar Mike Hibler
Browse files

Make sure we have the old Mysql.pm laden p5-DBD package installed

parent 9a27f509
......@@ -151,6 +151,10 @@ my $APACHE_KEYFILE_OPS = "$APACHE_ETCDIR/ssl.key/${USERNODE}.key";
#
my $TFTPD_PKG = "emulab-tftp-hpa-0.48";
#
# XXX temporary for perl DBD mysql access
my $P5DBD_PKG = "p5-DBD-mysql50-3.0002";
#
# Named pid file.
#
......@@ -453,6 +457,22 @@ Phase "ports", "Installing ports", sub {
my $pname = GetPackage("pubsub", $packagedir);
ExecQuietFatal("$ENV PKG_PATH=$packagedir $PKG_ADD $pname");
};
# XXX Ditto
if ($FBSD_MAJOR == 6 && $FBSD_MINOR > 2) {
Phase "p5-DBD-mysql50", "Installing old Perl Mysql package", sub {
my $pname = `$PKG_INFO -E 'p5-DBD-mysql50-*' 2>/dev/null`;
chomp($pname);
if ($pname eq $P5DBD_PKG) {
PhaseSkip("p5-DBD-mysql50 already up to date");
}
if (!$packagedir) {
PhaseSkip("No package directory provided");
}
ExecQuietFatal("$ENV PKG_PATH=$packagedir $PKG_DEL -f $pname")
if ($pname);
ExecQuietFatal("$ENV PKG_PATH=$packagedir $PKG_ADD $P5DBD_PKG");
};
}
}
};
PhaseSkip("Package directory provided; not installing from sources")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment