aboutsummaryrefslogtreecommitdiffstats
path: root/lang/perl5.12/files/use.perl
blob: 2d1dde6fcda080099463c8010614f574ecf3b8c9 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
#!/bin/sh

# $FreeBSD$

this=`echo -n $0 | /usr/bin/sed -e 's!^.*/!!'`
PERL_VERSION="%%PERL_VERSION%%"
PERL_VER="%%PERL_VER%%"
MAKE_CONF=%%MAKE_CONF%%
banner=`date +"%F %T"`
banner="# added by use.perl $banner"
if [ -z "${OSVERSION}" ]; then
    if [ -f /sbin/sysctl -a -x /sbin/sysctl ] ; then
            osreldate=`/sbin/sysctl -n kern.osreldate`
    else
            osreldate=`/usr/sbin/sysctl -n kern.osreldate`
    fi
else
        osreldate=${OSVERSION}
fi

if [ "$2" = "POST-INSTALL" ] ; then
    need_remove_links=%%LINK_USRBIN%%
    need_create_links=%%LINK_USRBIN%%
    need_cleanup_make_conf=yes
    need_spam_make_conf=yes
    need_post_install=yes
    if [ "${osreldate}" -lt 900022 ]; then
        need_cleanup_manpath=yes
        need_spam_manpath=yes
    fi
elif [ "$2" = "POST-DEINSTALL" ] ; then
    need_remove_links=%%LINK_USRBIN%%
    need_cleanup_make_conf=yes
    if [ "${osreldate}" -lt 900022 ]; then
        need_cleanup_manpath=yes
    fi
else
    exit 0;
fi

special_link_list="
    perl
    perl5"

do_remove_links()
{
    echo "Removing stale symlinks from /usr/bin..."
    for binary in $special_link_list
    do
        if [ -L "/usr/bin/$binary" ] ; then
            echo "    Removing /usr/bin/$binary"
            /bin/rm -f "/usr/bin/$binary"
        else
            echo "    Skipping /usr/bin/$binary"
        fi
    done
    bins=`/bin/ls /usr/bin/*perl*5.* ${PKG_PREFIX}/bin/*perl*5.* 2>/dev/null`
    for binary in $bins
    do
        if [ -L "$binary" ] ; then
            echo "    Removing $binary installed by an older perl port"
            /bin/rm -f "$binary"
        fi
    done
    echo "Done."
}

do_create_links()
{
    echo "Creating various symlinks in /usr/bin..."
    for binary in $special_link_list
    do
        if [ -f "/usr/bin/$binary" ] ; then
            echo "    Backing up /usr/bin/$binary as /usr/bin/$binary.freebsd"
            /bin/mv -f "/usr/bin/$binary" "/usr/bin/$binary.freebsd"
        fi
        bin=`echo $binary | /usr/bin/sed -e 's!perl5!perl!'`
        if [ -e "/usr/bin/$binary" ] ; then
            echo "    *** /usr/bin/$binary is still there, which should not happen"
        elif [ -e "$PKG_PREFIX/bin/${bin}%%PERL_VERSION%%" ] ; then
            echo "    Symlinking $PKG_PREFIX/bin/${bin}%%PERL_VERSION%% to /usr/bin/$binary"
            /bin/ln -sf "$PKG_PREFIX/bin/${bin}%%PERL_VERSION%%" "/usr/bin/$binary"
        else
            echo "    *** $PKG_PREFIX/bin/${bin}%%PERL_VERSION%% is not there, a symlink won't do any good"
        fi
    done
    echo "Done."
}

do_post_install()
{
    INCLUDEDIR=/usr/include
    install -d ${PKG_PREFIX}/lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/auto
    install -d ${PKG_PREFIX}/lib/perl5/site_perl/%%PERL_VER%%/auto
    install -d ${PKG_PREFIX}/lib/perl5/%%PERL_VER%%/man/man3
    cd ${INCLUDEDIR} && ${PKG_PREFIX}/bin/h2ph *.h machine/*.h sys/*.h >/dev/null
}

do_cleanup_make_conf()
{
    echo -n "Cleaning up ${MAKE_CONF}..."
    if [ -f ${MAKE_CONF} ] ; then
        /bin/cp -p ${MAKE_CONF} ${MAKE_CONF}.new
        /usr/bin/awk 's=0;
            /^#.*use.perl/ { s=1; mode=1 }
            /^#/ { s=1; if (mode != 1) { mode=0 } }
            /.*PERL.*=/ { s=1; if (mode == 1) { mode=2 } }
            /^$/ { s=1; if (mode != 2) { mode = 0 } }
            { if (s != 1) { mode = 0 } if (mode == 0) print }' ${MAKE_CONF} >${MAKE_CONF}.new
        /bin/mv ${MAKE_CONF} ${MAKE_CONF}.bak
        /bin/mv ${MAKE_CONF}.new ${MAKE_CONF}
    fi
    echo " Done."
}

do_cleanup_manpath()
{
    if [ -f /etc/manpath.config ] ; then
        echo -n "Cleaning up /etc/manpath.config..."
        /bin/cp -p /etc/manpath.config /etc/manpath.config.new
        /usr/bin/awk 's=0;
            /^#.*use.perl/ { s=1; mode=1 }
            /^#/ { s=1; if (mode != 1) { mode=0 } }
            /^OPTIONAL_MANPATH.*perl5/ { s=1; if (mode == 1) { mode=2 } }
            /^$/ { s=1; if (mode != 2) { mode = 0 } }
            { if (s != 1) { mode = 0 } if (mode == 0) print }' /etc/manpath.config >/etc/manpath.config.new
        /bin/mv /etc/manpath.config /etc/manpath.config.bak
        /bin/mv /etc/manpath.config.new /etc/manpath.config
        echo " Done."
    fi
}

do_spam_make_conf()
{
    echo -n "Spamming ${MAKE_CONF}..."
    echo "$banner" >>${MAKE_CONF}
    echo "PERL_VERSION=%%PERL_VERSION%%" >>${MAKE_CONF}
    echo " Done."
}

do_spam_manpath()
{
    if [ -f /etc/manpath.config ] ; then
        echo -n "Spamming /etc/manpath.config..."
        echo "$banner" >>/etc/manpath.config
        echo "OPTIONAL_MANPATH  ${PKG_PREFIX}/lib/perl5/%%PERL_VER%%/man" >>/etc/manpath.config
        echo "OPTIONAL_MANPATH  ${PKG_PREFIX}/lib/perl5/%%PERL_VER%%/perl/man" >>/etc/manpath.config
        echo " Done."
    fi
}

[ "$need_remove_links" = "yes" ] && do_remove_links
[ "$need_create_links" = "yes" ] && do_create_links
[ "$need_post_install" = "yes" ] && do_post_install
[ "$need_cleanup_make_conf" = "yes" ] && do_cleanup_make_conf
[ "$need_spam_make_conf" = "yes" ] && do_spam_make_conf
[ "$need_cleanup_manpath" = "yes" ] && do_cleanup_manpath
[ "$need_spam_manpath" = "yes" ] && do_spam_manpath 

exit 0