misc/strmode/perl_strmode.pl - diff

Return to perl_strmode.pl CVS log

Up to [local] / misc / strmode

Diff for /misc/strmode/perl_strmode.pl between version 1.1.1.1 and 1.5

version 1.1.1.1, 2011/03/27 21:54:35

version 1.5, 2011/03/28 03:38:52

Line 1

#!/usr/bin/perl -T

# $AFresh1$

# $AFresh1: perl_strmode.pl,v 1.4 2011/03/28 02:37:48 andrew Exp $

# Permission to use, copy, modify, and distribute this software for any

# Redistribution and use in source and binary forms, with or without

# purpose with or without fee is hereby granted, provided that the above

# modification, are permitted provided that the following conditions

# copyright notice and this permission notice appear in all copies.

# are met:

# 1. Redistributions of source code must retain the above copyright

# notice, this list of conditions and the following disclaimer.

# 2. Redistributions in binary form must reproduce the above copyright

# notice, this list of conditions and the following disclaimer in the

# documentation and/or other materials provided with the distribution.

# 3. Neither the name of the University nor the names of its contributors

# may be used to endorse or promote products derived from this software

# without specific prior written permission.

# THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES

# THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND

# WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF

# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE

# MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR

# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE

# ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES

# ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE

# WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN

# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL

# ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF

# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS

# OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.

# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)

# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT

# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY

# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF

# SUCH DAMAGE.

use warnings;

use strict;

Line 38

Line 52

when (S_IFREG) { $p .= '-' } # regular

when (S_IFLNK) { $p .= 'l' } # symbolic link

when (S_IFSOCK) { $p .= 's' } # socket

#ifdef S_IFIFO XXX How important is this? Is S_IFIFO ever not set?

#ifdef S_IFIFO XXX How important is this ifdef?

when (S_IFIFO) { $p .= 'p' } # fifo

#endif

default { $p .= '?' } # unknown

}

Line 84

Line 96

@files = '.' unless @files;

foreach my $file (@files) {

next unless -e $file;

my ( $mode, $nlink, $uid, $gid, $size, $mtime )

= ( stat(_) )[ 2 .. 5, 7, 9 ];

= ( lstat($file) )[ 2 .. 5, 7, 9 ]

or next;

my $time = localtime($mtime);

$time =~ s/^\w+\s+//;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>