home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2006 November (DVD) / PCWELT_11_2006.ISO / casper / filesystem.squashfs / usr / lib / perl / 5.8.8 / sys / syslog.ph < prev    next >
Encoding:
Text File  |  2006-07-07  |  3.8 KB  |  84 lines
  1. require '_h2ph_pre.ph';
  2.  
  3. no warnings 'redefine';
  4.  
  5. unless(defined(&_SYS_SYSLOG_H)) {
  6.     eval 'sub _SYS_SYSLOG_H () {1;}' unless defined(&_SYS_SYSLOG_H);
  7.     require 'features.ph';
  8.     eval 'sub __need___va_list () {1;}' unless defined(&__need___va_list);
  9.     require 'stdarg.ph';
  10.     require 'bits/syslog-path.ph';
  11.     eval 'sub LOG_EMERG () {0;}' unless defined(&LOG_EMERG);
  12.     eval 'sub LOG_ALERT () {1;}' unless defined(&LOG_ALERT);
  13.     eval 'sub LOG_CRIT () {2;}' unless defined(&LOG_CRIT);
  14.     eval 'sub LOG_ERR () {3;}' unless defined(&LOG_ERR);
  15.     eval 'sub LOG_WARNING () {4;}' unless defined(&LOG_WARNING);
  16.     eval 'sub LOG_NOTICE () {5;}' unless defined(&LOG_NOTICE);
  17.     eval 'sub LOG_INFO () {6;}' unless defined(&LOG_INFO);
  18.     eval 'sub LOG_DEBUG () {7;}' unless defined(&LOG_DEBUG);
  19.     eval 'sub LOG_PRIMASK () {0x7;}' unless defined(&LOG_PRIMASK);
  20.     eval 'sub LOG_PRI {
  21.         my($p) = @_;
  22.         eval q((($p) &  &LOG_PRIMASK));
  23.     }' unless defined(&LOG_PRI);
  24.     eval 'sub LOG_MAKEPRI {
  25.         my($fac, $pri) = @_;
  26.         eval q(((($fac) << 3) | ($pri)));
  27.     }' unless defined(&LOG_MAKEPRI);
  28.     if(defined(&SYSLOG_NAMES)) {
  29.     eval 'sub INTERNAL_NOPRI () {0x10;}' unless defined(&INTERNAL_NOPRI);
  30.     eval 'sub INTERNAL_MARK () { &LOG_MAKEPRI( &LOG_NFACILITIES, 0);}' unless defined(&INTERNAL_MARK);
  31.     }
  32.     eval 'sub LOG_KERN () {(0<<3);}' unless defined(&LOG_KERN);
  33.     eval 'sub LOG_USER () {(1<<3);}' unless defined(&LOG_USER);
  34.     eval 'sub LOG_MAIL () {(2<<3);}' unless defined(&LOG_MAIL);
  35.     eval 'sub LOG_DAEMON () {(3<<3);}' unless defined(&LOG_DAEMON);
  36.     eval 'sub LOG_AUTH () {(4<<3);}' unless defined(&LOG_AUTH);
  37.     eval 'sub LOG_SYSLOG () {(5<<3);}' unless defined(&LOG_SYSLOG);
  38.     eval 'sub LOG_LPR () {(6<<3);}' unless defined(&LOG_LPR);
  39.     eval 'sub LOG_NEWS () {(7<<3);}' unless defined(&LOG_NEWS);
  40.     eval 'sub LOG_UUCP () {(8<<3);}' unless defined(&LOG_UUCP);
  41.     eval 'sub LOG_CRON () {(9<<3);}' unless defined(&LOG_CRON);
  42.     eval 'sub LOG_AUTHPRIV () {(10<<3);}' unless defined(&LOG_AUTHPRIV);
  43.     eval 'sub LOG_FTP () {(11<<3);}' unless defined(&LOG_FTP);
  44.     eval 'sub LOG_LOCAL0 () {(16<<3);}' unless defined(&LOG_LOCAL0);
  45.     eval 'sub LOG_LOCAL1 () {(17<<3);}' unless defined(&LOG_LOCAL1);
  46.     eval 'sub LOG_LOCAL2 () {(18<<3);}' unless defined(&LOG_LOCAL2);
  47.     eval 'sub LOG_LOCAL3 () {(19<<3);}' unless defined(&LOG_LOCAL3);
  48.     eval 'sub LOG_LOCAL4 () {(20<<3);}' unless defined(&LOG_LOCAL4);
  49.     eval 'sub LOG_LOCAL5 () {(21<<3);}' unless defined(&LOG_LOCAL5);
  50.     eval 'sub LOG_LOCAL6 () {(22<<3);}' unless defined(&LOG_LOCAL6);
  51.     eval 'sub LOG_LOCAL7 () {(23<<3);}' unless defined(&LOG_LOCAL7);
  52.     eval 'sub LOG_NFACILITIES () {24;}' unless defined(&LOG_NFACILITIES);
  53.     eval 'sub LOG_FACMASK () {0x3f8;}' unless defined(&LOG_FACMASK);
  54.     eval 'sub LOG_FAC {
  55.         my($p) = @_;
  56.         eval q(((($p) &  &LOG_FACMASK) >> 3));
  57.     }' unless defined(&LOG_FAC);
  58.     if(defined(&SYSLOG_NAMES)) {
  59.     }
  60.     eval 'sub LOG_MASK {
  61.         my($pri) = @_;
  62.         eval q((1<< ($pri)));
  63.     }' unless defined(&LOG_MASK);
  64.     eval 'sub LOG_UPTO {
  65.         my($pri) = @_;
  66.         eval q(((1<< (($pri)+1)) - 1));
  67.     }' unless defined(&LOG_UPTO);
  68.     eval 'sub LOG_PID () {0x1;}' unless defined(&LOG_PID);
  69.     eval 'sub LOG_CONS () {0x2;}' unless defined(&LOG_CONS);
  70.     eval 'sub LOG_ODELAY () {0x4;}' unless defined(&LOG_ODELAY);
  71.     eval 'sub LOG_NDELAY () {0x8;}' unless defined(&LOG_NDELAY);
  72.     eval 'sub LOG_NOWAIT () {0x10;}' unless defined(&LOG_NOWAIT);
  73.     eval 'sub LOG_PERROR () {0x20;}' unless defined(&LOG_PERROR);
  74.     if(defined(&__USE_BSD)) {
  75.     }
  76.     if((defined(&__USE_FORTIFY_LEVEL) ? &__USE_FORTIFY_LEVEL : 0) > 0 && !defined (defined(&__cplusplus) ? &__cplusplus : 0)) {
  77.     require 'bits/syslog.ph';
  78.     }
  79.     if(defined(&__LDBL_COMPAT)) {
  80.     require 'bits/syslog-ldbl.ph';
  81.     }
  82. }
  83. 1;
  84.