This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: (perl-current of 5.9.5) patch for ext/Sys/Syslog/Makefile.PL for
[perl5.git] / ext / Sys / Syslog / Makefile.PL
CommitLineData
6e4ef777 1use strict;
a650b841 2use Config;
8ce86de8 3use ExtUtils::MakeMaker;
8168e71f 4eval 'use ExtUtils::MakeMaker::Coverage';
a650b841
AT
5use File::Copy;
6use File::Path;
7use File::Spec;
d329efa2 8require 5.005;
8ce86de8 9
a650b841
AT
10
11# create a typemap for Perl 5.6
12if ($] < 5.008) {
13 open(TYPEMAP, ">typemap") or die "fatal: can't write typemap: $!";
14 print TYPEMAP "const char *\t\tT_PV\n";
15 close(TYPEMAP);
16}
17
18# create a lib/ dir in order to avoid warnings in Test::Distribution
d329efa2 19mkdir "lib", 0755;
a650b841
AT
20
21# virtual paths given to EU::MM
22my %virtual_path = ( 'Syslog.pm' => '$(INST_LIBDIR)/Syslog.pm' );
23
24# detect when to use Win32::EvenLog
25my (@extra_params, @extra_prereqs);
26my $use_eventlog = eval "use Win32::EventLog; 1";
27
28if ($use_eventlog) {
29 print " * Win32::EventLog detected.\n";
30 my $name = "PerlLog";
31
32 push @extra_prereqs, "Win32::TieRegistry" => 0, "Win32::EventLog" => 0;
33
34 $virtual_path{'win32/Win32.pm' } = '$(INST_LIBDIR)/Syslog/Win32.pm';
35 $virtual_path{'win32/PerlLog.dll'} = '$(INST_ARCHAUTODIR)/PerlLog.dll';
36
37 # recreate the DLL from its uuencoded form if it's not here
38 if (! -f File::Spec->catfile("win32", "$name.dll")) {
39 # read the uuencoded data
40 open(UU, '<' . File::Spec->catfile("win32", "$name\_dll.uu"))
41 or die "fatal: Can't read file '$name\_dll.uu': $!";
42 my $uudata = do { local $/; <UU> };
43 close(UU);
44
45 # write the DLL
46 open(DLL, '>' . File::Spec->catfile("win32", "$name.dll"))
47 or die "fatal: Can't write DLL '$name.dll': $!";
48 binmode(DLL);
49 print DLL unpack "u", $uudata;
50 close(DLL);
51 }
52}
53elsif ($^O =~ /Win32/) {
54 print <<"NOTICE"
55 *** You're running on a Win32 system, but you lack the Win32::EventLog\a
56 *** module, part of the libwin32 distribution. Although Sys::Syslog can
57 *** be used without Win32::EventLog, it won't be very useful except for
58 *** sending remote syslog messages. If you want to log messages on the
59 *** local host as well, please install libwin32 then Sys::Syslog again.
60NOTICE
61}
62
63# detect when being built in Perl core
64if (grep { $_ eq 'PERL_CORE=1' } @ARGV) {
65 push @extra_params,
66 MAN3PODS => {}; # Pods will be built by installman.
67}
68else {
69 push @extra_params,
70 DEFINE => '-DUSE_PPPORT_H';
71}
72
8ce86de8 73WriteMakefile(
8168e71f 74 NAME => 'Sys::Syslog',
6e4ef777 75 LICENSE => 'perl',
8168e71f
SP
76 VERSION_FROM => 'Syslog.pm',
77 ABSTRACT_FROM => 'Syslog.pm',
78 INSTALLDIRS => 'perl',
8168e71f 79 XSPROTOARG => '-noprototypes',
a650b841 80 PM => \%virtual_path,
8168e71f
SP
81 PREREQ_PM => {
82 'Test::More' => 0,
6e4ef777 83 'XSLoader' => 0,
a650b841 84 @extra_prereqs,
8168e71f
SP
85 },
86 dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
87 clean => { FILES => 'Sys-Syslog-*' },
a650b841
AT
88 realclean => { FILES => 'lib const-c.inc const-xs.inc macros.all PerlLog.h *.bak *.bin *.rc' },
89 @extra_params
8ce86de8 90);
cf2bd340 91
a650b841
AT
92
93# find a default value for _PATH_LOG
f66a7beb
JB
94my $_PATH_LOG;
95
a650b841 96if (-c "/dev/conslog" and -w _) {
8168e71f
SP
97 # SunOS 5.8 has a worldwritable /dev/conslog STREAMS log driver.
98 # The /dev/log STREAMS log driver on this platform has permissions
99 # and ownership `crw-r----- root sys'. /dev/conslog has more liberal
100 # permissions.
101 $_PATH_LOG = "/dev/conslog";
a650b841 102}
a650b841
AT
103elsif (-S "/var/run/syslog" and -w _) {
104 # Mac OS X puts it at a different path.
105 $_PATH_LOG = "/var/run/syslog";
106}
d329efa2
AT
107elsif (-p "/dev/log" and -w _) {
108 # On HP-UX, /dev/log isn't a unix domain socket but a named pipe.
109 $_PATH_LOG = "/dev/log";
110}
35a209d1 111elsif ((-S "/dev/log" or -c _) and -w _) {
47ebfcbb
AT
112 # Most unixes have a unix domain socket /dev/log.
113 $_PATH_LOG = "/dev/log";
114}
a650b841 115else {
8168e71f 116 $_PATH_LOG = "";
f66a7beb 117}
cf2bd340 118
a650b841
AT
119
120# if possible, generate the code that handles the constants with
121# ExtUtils::Constant, otherwise use cached copy in fallback/
8168e71f 122if(eval {require ExtUtils::Constant; 1}) {
a650b841
AT
123 my @levels = qw(
124 LOG_ALERT LOG_CRIT LOG_DEBUG LOG_EMERG LOG_ERR
125 LOG_INFO LOG_NOTICE LOG_WARNING
126 );
127
128 my @facilities = (
129 # standard facilities
130 qw(
131 LOG_AUTH LOG_AUTHPRIV LOG_CRON LOG_DAEMON LOG_FTP LOG_KERN
132 LOG_LOCAL0 LOG_LOCAL1 LOG_LOCAL2 LOG_LOCAL3 LOG_LOCAL4
133 LOG_LOCAL5 LOG_LOCAL6 LOG_LOCAL7 LOG_LPR LOG_MAIL LOG_NEWS
134 LOG_SYSLOG LOG_USER LOG_UUCP
135 ),
136 # Mac OS X specific facilities
137 { name => "LOG_INSTALL", type => "IV", default => [ "IV", "LOG_USER" ] },
138 { name => "LOG_LAUNCHD", type => "IV", default => [ "IV", "LOG_DAEMON"] },
139 { name => "LOG_NETINFO", type => "IV", default => [ "IV", "LOG_DAEMON"] },
140 { name => "LOG_RAS", type => "IV", default => [ "IV", "LOG_AUTH" ] },
141 { name => "LOG_REMOTEAUTH", type => "IV", default => [ "IV", "LOG_AUTH" ] },
142 # modern BSD specific facilities
143 { name => "LOG_CONSOLE", type => "IV", default => [ "IV", "LOG_USER" ] },
144 { name => "LOG_NTP", type => "IV", default => [ "IV", "LOG_DAEMON"] },
145 { name => "LOG_SECURITY", type => "IV", default => [ "IV", "LOG_AUTH" ] },
146 # IRIX specific facilities
147 { name => "LOG_AUDIT", type => "IV", default => [ "IV", "LOG_AUTH" ] },
148 { name => "LOG_LFMT", type => "IV", default => [ "IV", "LOG_USER" ] },
149 );
150
151 my @options = qw(
152 LOG_CONS LOG_PID LOG_NDELAY LOG_NOWAIT LOG_ODELAY LOG_PERROR
153 );
154
155 my @others_macros = (
156 qw(LOG_FACMASK),
157 { name => "_PATH_LOG", type => "PV", default => [ "PV", qq("$_PATH_LOG") ] },
158 { name => "LOG_PRIMASK", type => "IV", default => [ "IV", 7] },
159 { name => "LOG_NFACILITIES", type => "IV", default => [ "IV", scalar @facilities] },
8168e71f
SP
160 );
161
162 ExtUtils::Constant::WriteConstants(
322a00dc 163 ($] > 5.009002 ? (PROXYSUBS => 1) : ()),
8168e71f 164 NAME => 'Sys::Syslog',
a650b841 165 NAMES => [ @levels, @facilities, @options, @others_macros ],
8168e71f
SP
166 );
167
a650b841
AT
168 my @names = map { ref $_ ? $_->{name} : $_ } @levels, @facilities, @options;
169 open(MACROS, '>macros.all') or warn "warning: Can't write 'macros.all': $!\n";
170 print MACROS join $/, @names;
8168e71f 171 close(MACROS);
a650b841
AT
172}
173else {
8168e71f
SP
174 foreach my $file ('const-c.inc', 'const-xs.inc') {
175 my $fallback = File::Spec->catfile('fallback', $file);
a650b841 176 copy($fallback, $file) or die "fatal: Can't copy $fallback to $file: $!";
8168e71f
SP
177 }
178}