#!/usr/bin/perl # # errinfo - report on syscall failures and print errno error messages. # Written using Perl and DTrace (Solaris 10 03/05) # # When system calls fail, an errno variable is set to convay a meaningful # message to the end user - so long as the program does something with it # (eg, "ls" printing "No such file or directory"). This program fetches # and prints details for all syscall failures along with their message, # whether the failing program is already printing this info or not. # # $Id: errinfo,v 1.1.1.1 2015/09/30 22:01:07 christos Exp $ # # USAGE: errinfo [-ch] [-p PID] [-n name] # # -c # counts - aggregate style # -p PID # examine this PID only # -n name # examine processes with this name only # eg, # errinfo # default output - snoop event style # errinfo -n ssh # examine "ssh" processes only # errinfo -cn ssh # examine "ssh" using counts # # FIELDS: # EXEC Program name (truncated) # SYSCALL System call name # ERR Value of errno # DESC Description of errno message # # SEE ALSO: /usr/include/sys/errno.h # # COPYRIGHT: Copyright (c) 2005, 2006 Brendan Gregg. # # CDDL HEADER START # # The contents of this file are subject to the terms of the # Common Development and Distribution License, Version 1.0 only # (the "License"). You may not use this file except in compliance # with the License. # # You can obtain a copy of the license at Docs/cddl1.txt # or http://www.opensolaris.org/os/licensing. # See the License for the specific language governing permissions # and limitations under the License. # # CDDL HEADER END # # Author: Brendan Gregg [Sydney, Australia] # # 18-Apr-2005 Brendan Gregg Created this. # 20-Apr-2006 " " Last update. # use Getopt::Std; # # Defaults # $FILTER = ""; $COUNT = 0; # # Command line arguments # &Usage() if $ARGV[0] eq "--help"; getopts('ch:n:p:') || &Usage(); &Usage() if $opt_h; $COUNT = 1 if $opt_c; $FILTER = "&& execname == \"$opt_n\"" if defined $opt_n; $FILTER = "&& pid == $opt_p" if defined $opt_p; # # Load errno descriptions # open(ERRNO,"/usr/include/sys/errno.h") || die "ERROR1: reading errno.h: $!\n"; while (chomp($line = )) { next unless $line =~ /^#define/; ($errno,$desc) = $line =~ /^#define\s+\S+\s+(\d+)\s+\/\*(.*)\*\//; $Errno{$errno} = $desc; } close ERRNO; # # Declare DTrace script # if ($COUNT) { # aggregate style $dtrace = <)) { ### Print count header if ($COUNT && $header) { printf("\n%16s %16s %4s %6s %s\n", "EXEC","SYSCALL","ERR","COUNT","DESC"); $header = 0; } ### Split data ($execname,$syscall,$errno,$counts) = split(' ',$line); next if $errno eq ""; ### Fetch errno description $desc = $Errno{$errno}; ### Print output line if ($COUNT) { printf("%16s %16s %4d %6d %s\n", $execname,$syscall,$errno,$counts,$desc); } else { printf("%16s %16s %4d %s\n",$execname,$syscall,$errno,$desc); } } close(DTRACE); # # Triggered by signals # sub Cleanup_Signal { } # # Usage message # sub Usage { print STDERR "USAGE: errinfo [-ch] [-p PID] [-n name]\n"; print STDERR <