Re^4: [SOLVED] Configuring Apache VirtualHosts using mod

Let's see, I inserted the following into my Apache conf perl section:

while ( my $user = getpwent() ) { $users{$user} = 1; }
while ( my $group = getgrent() ) { $groups{$group} = 1; }
open (my $fh, '>>', '/var/log/httpd/fudge.log');
print $fh Fudge();
close $fh;

sub Fudge {
    use Errno();
    join qq/\n/,
      "Error @_",
      map { "  $_" } int( $! ) . q/ / . $!,
      int( $^E ) . q/ / . $^E,
      grep( { $!{$_} } keys %! ),
      q/ /;
}
[download]

Here's what I got after restarting httpd:

Error 
  25 Inappropriate ioctl for device
  25 Inappropriate ioctl for device
  ENOTTY
Error 
  25 Inappropriate ioctl for device
  25 Inappropriate ioctl for device
  ENOTTY
[download]

All I can tell from this is that the config is indeed executed twice (as mentioned in the OP) but the actual messages don't mean much to me.

If I had a gun pointed at me and had to guess, I'd say it has something to do with the environment presented to httpd by systemd.

-- FloydATC

Time flies when you don't know what you're doing

Comment on Re^4: [SOLVED] Configuring Apache VirtualHosts using mod_perl 2 Select or Download Code

Replies are listed 'Best First'.
Re^5: [SOLVED] Configuring Apache VirtualHosts using mod_perl 2 by Anonymous Monk on Dec 03, 2014 at 20:22 UTC
All I can tell from this is that the config is indeed executed twice (as mentioned in the OP) but the actual messages don't mean much to me. Fudge() is only meaningful immediately after a system call, therefore `my @fudge; while ( my $user = getpwent() ) { $users{$user} = 1; } push @fudge, Fudge(); while ( my $group = getgrent() ) { $groups{$group} = 1; } push @fudge, Fudge(); open (my $fh, '>>', '/var/log/httpd/fudge.log') or die Fudge("fudge.lo +g"); print $fh Fudge() or die Fudge("print fudge.log"); close $fh or die Fudge("close fudge.log"; undef @fudge; sub Fudge { use Errno(); join qq/\n/, "Error @_", map { " $_" } int( $! ) . q/ / . $!, int( $^E ) . q/ / . $^E, grep( { $!{$_} } keys %! ), q/ /; }` [download]	[reply] [d/l]
Re^6: [SOLVED] Configuring Apache VirtualHosts using mod_perl 2 by FloydATC (Deacon) on Dec 04, 2014 at 07:17 UTC
Hmm. That didn't actually dump the array @fudge so I made one or two changes: # For the mongers my @fudge; while ( my $user = getpwent() ) { $users{$user} = 1; } push @fudge, Fudge()."\n"; while ( my $group = getgrent() ) { $groups{$group} = 1; } push @fudge, Fudge(),"\n"; open (my $fh, '>>', '/var/log/httpd/fudge.log') or die Fudge("fudge.lo +g"); print $fh Fudge() or die Fudge("print fudge.log"); foreach my $line (@fudge) { print $fh $line; } close $fh or die Fudge("close fudge.log"); undef @fudge; sub Fudge { use Errno(); join qq/\n/, "Error @_", map { " $_" } int( $! ) . q/ / . $!, int( $^E ) . q/ / . $^E, grep( { $!{$_} } keys %! ), q/ /; } [download] Cleared the log and restarted httpd, this is what I got: `$ cat /var/log/httpd/fudge.log Error 25 Inappropriate ioctl for device 25 Inappropriate ioctl for device ENOTTY Error 2 No such file or directory 2 No such file or directory ENOENT Error 2 No such file or directory 2 No such file or directory ENOENT Error 25 Inappropriate ioctl for device 25 Inappropriate ioctl for device ENOTTY Error 2 No such file or directory 2 No such file or directory ENOENT Error 2 No such file or directory 2 No such file or directory ENOENT` [download] -- FloydATC Time flies when you don't know what you're doing	[reply] [d/l] [select]
Re^7: [SOLVED] Configuring Apache VirtualHosts using mod_perl 2 by Anonymous Monk on Dec 04, 2014 at 08:40 UTC
Well then :) thats interesting Makes me think of chroot and child processes without STDIN/STDOUT/STDERR and with different $PATH or other vars ... ENOTTY getpwent -> getlogin man page on HP-UX Read more... (661 Bytes) So not exactly on point but same ballpark ... apache is creating some kind of limited child processes ... i've seen this on win32 ... Next step I might take would be strace :) Or just kick the report up the chain (mod_perl, apache, ossupport..??) Maybe consult some crontab ... faqs.. Neat :)	[reply] [d/l]
Re^8: [SOLVED] Configuring Apache VirtualHosts using mod_perl 2 by FloydATC (Deacon) on Dec 04, 2014 at 09:30 UTC
Re^5: [SOLVED] Configuring Apache VirtualHosts using mod_perl 2 by FloydATC (Deacon) on Dec 04, 2014 at 07:15 UTC
	[reply]