diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/hostname.pl | 23 | ||||
| -rw-r--r-- | lib/open3.pl | 2 | ||||
| -rw-r--r-- | lib/timelocal.pl | 1 | ||||
| -rw-r--r-- | lib/verbose.pl | 78 |
4 files changed, 104 insertions, 0 deletions
diff --git a/lib/hostname.pl b/lib/hostname.pl new file mode 100644 index 0000000000..5394c6ec69 --- /dev/null +++ b/lib/hostname.pl @@ -0,0 +1,23 @@ +# From: asherman@fmrco.com (Aaron Sherman) + +sub hostname +{ + local(*P,@tmp,$hostname,$_); + if (open(P,"hostname 2>&1 |") && (@tmp = <P>) && close(P)) + { + chop($hostname = $tmp[$#tmp]); + } + elsif (open(P,"uname -n 2>&1 |") && (@tmp = <P>) && close(P)) + { + chop($hostname = $tmp[$#tmp]); + } + else + { + die "$0: Cannot get hostname from 'hostname' or 'uname -n'\n"; + } + @tmp = (); + close P; # Just in case we failed in an odd spot.... + $hostname; +} + +1; diff --git a/lib/open3.pl b/lib/open3.pl index f3d8138879..1dbe525f68 100644 --- a/lib/open3.pl +++ b/lib/open3.pl @@ -1,6 +1,8 @@ # &open3: Marc Horowitz <marc@mit.edu> # derived mostly from &open2 by tom christiansen, <tchrist@convex.com> # +# $Id: open3.pl,v 1.1 1993/11/23 06:26:15 marc Exp $ +# # usage: $pid = open3('wtr', 'rdr', 'err' 'some cmd and args', 'optarg', ...); # # spawn the given $cmd and connect rdr for diff --git a/lib/timelocal.pl b/lib/timelocal.pl index 95b47e1ef9..c5d8a92920 100644 --- a/lib/timelocal.pl +++ b/lib/timelocal.pl @@ -37,6 +37,7 @@ CONFIG: { $HR = 60 * $MIN; $DAYS = 24 * $HR; $YearFix = ((gmtime(946684800))[5] == 100) ? 100 : 0; + 1; } sub timegm { diff --git a/lib/verbose.pl b/lib/verbose.pl new file mode 100644 index 0000000000..ee6143c98e --- /dev/null +++ b/lib/verbose.pl @@ -0,0 +1,78 @@ +# The ground of all being. + + *MAGIC = *_ ; + +# Matching. + + *MATCH = *& ; + *PREMATCH = *` ; + *POSTMATCH = *' ; + *LAST_PAREN_MATCH = *+ ; + +# Input. + + *INPUT_LINE_NUMBER = *. ; + *NR = *. ; + *INPUT_RECORD_SEPARATOR = */ ; + *RS = */ ; + +# Output. + + *OUTPUT_AUTOFLUSH = *| ; + *OUTPUT_FIELD_SEPARATOR = *, ; + *OFS = *, ; + *OUTPUT_RECORD_SEPARATOR = *\ ; + *ORS = *\ ; + +# Interpolation "constants". + + *LIST_SEPARATOR = *" ; + *SUBSCRIPT_SEPARATOR = *; ; + *SUBSEP = *; ; + +# Formats + + *FORMAT_PAGE_NUMBER = *% ; + *FORMAT_LINES_PER_PAGE = *= ; + *FORMAT_LINES_LEFT = *- ; + *FORMAT_NAME = *~ ; + *FORMAT_TOP_NAME = *^ ; + *FORMAT_LINE_BREAK_CHARACTERS = *: ; + *FORMAT_FORMFEED = *^L ; + +# Error status. + + *CHILD_ERROR = *? ; + *OS_ERROR = *! ; + *EVAL_ERROR = *@ ; + +# Process info. + + *PROCESS_ID = *$ ; + *PID = *$ ; + *REAL_USER_ID = *< ; + *UID = *< ; + *EFFECTIVE_USER_ID = *> ; + *EUID = *> ; + *REAL_GROUP_ID = *( ; + *GID = *( ; + *EFFECTIVE_GROUP_ID = *) ; + *EGID = *) ; + *PROGRAM_NAME = *0 ; + +# Internals. + + *PERL_VERSION = *] ; + *DEBUGGING = *^D ; + *SYSTEM_FD_MAX = *^F ; + *INPLACE_EDIT = *^I ; + *PERLDB = *^P ; + *BASETIME = *^T ; + *WARNING = *^W ; + *EXECUTABLE_NAME = *^X ; + +# Deprecated. + + *ARRAY_BASE = *[ ; + *OFMT = *# ; + *MULTILINE_MATCHING = ** ; |