Subversion Repositories DevTools

Rev

Rev 1042 | Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
1038 dpurdie 1 
#! /usr/bin/perl
2 
########################################################################
3 
# Copyright (C) 2011 Vix-ERG Limited, All rights reserved
4 
#
5 
# Module name   : flist2.pl
6 
# Module type   :
7 
# Compiler(s)   : Perl
8 
# Environment(s):
9 
#
10 
# Description   : Generate a package list
11 
#                 Format
12 
#                   Time GMT( gmtTime ) Pname/Pver
13 
#                 Where
14 
#                   Time            - Time in seconds since the epoch of
15 
#                                     the packages descpkg file
16 
#                   gmtTime         - Same as Time, except in text form
17 
#                   Pname           - Package Name
18 
#                   Pver            - Package Version
19 
#
20 
# Usage:
21 
#
22 
#......................................................................#
23 
 
24 
require 5.008_002;
25 
use strict;
26 
use warnings;
27 
 
28 
my $dpkg = "./dpkg_archive";
29 
 
30 
opendir(DIR, $dpkg) || die "can't opendir $dpkg: $!";
31 
my @dlist = readdir(DIR);
32 
closedir DIR;
33 
 
34 
foreach my $pname ( sort @dlist )
35 
{
36 
    next if ( $pname eq '.' );
37 
    next if ( $pname eq '..' );
38 
    my $dir = $dpkg . '/'. $pname;
39 
    next unless ( -d $dir );
40 
 
41 
    opendir(DIR, $dir )|| die "can't opendir $dir: $!";
42 
    my @vlist = readdir(DIR);
43 
    closedir DIR;
44 
 
45 
    foreach my $vname ( sort @vlist )
46 
    {
47 
        next if ( $vname eq '.' );
48 
        next if ( $vname eq '..' );
49 
        next if ( $vname =~ m~\.TMPDIR$~ );
50 
        my $vdir = $dir . '/' . $vname;
51 
        next unless ( -d $vdir );
52 
        next unless ( -f "$vdir/descpkg" );
53 
        my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
54 
            $atime,$mtime,$ctime,$blksize,$blocks) = stat(_);
55 
 
56 
        print "$mtime GMT(", scalar gmtime $mtime, ") ${pname}/${vname}\n";
57 
    }
58 
}
59