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