home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.madoka.org
/
2014.12.ftp.madoka.org.tar
/
ftp.madoka.org
/
pub
/
plum
/
1.x
/
plum11.lzh
/
plum11
/
config.plm
< prev
next >
Wrap
Text File
|
1997-08-28
|
672b
|
20 lines
package main;
print 'PLUM : ', $NAME, ' ', $VERSION, "\n";
print 'PERL : ', $^X, ' ', $], "\n";
print 'ARGV : ', join(' ', @ARGV), "\n";
print 'HOST : ', $HOSTNAME || '', ' [', join('.', unpack('C4', $THISADDR || '')), "]\n";
print 'PROTO : ', $PROTO || '', "\n";
print 'SOCKET : ', "$SOCKET [$AF_INET $PF_INET $SOCK_STREAM]\n";
print 'UID : ', "$< $>\n";
print 'NAME : ', getlogin, ' (', (getpwuid($<))[0], ")\n";
print 'GCOS : ', (getpwuid($<))[6], "\n";
print 'HOME : ', $ENV{'HOME'} || '', ' ', (getpwuid($<))[7], "\n";
print 'UMASK : ', sprintf('%03o', umask), "\n";
print 'HOST : ', `hostname`;
print 'CWD : ', `pwd`;
exit 0;
$_ = 'main';