#!/usr/bin/perl
# $Id: //depot/cad/tools/1.0/icp4-1.1/bin/p4rm#4 $
#
# CSWITCH CORPORATION CONFIDENTIAL PROPRIETARY
#
# This file contains information which is the
# proprietary property of Cswitch Corporation.
# This file is confidential and its contents may
# not be disclosed without the expressed written
# consent of Cswitch Corporation.
use strict;
use warnings;
use FindBin qw($Bin);
use lib "$Bin/../lib";
use Icp4;
use Getopt::Std;
use File::Basename;
our (%opt, $Program);
MAIN: {
my ($nflag, $cell, $cells);
$Program = $FindBin::Script;
getopts('hDn', \%opt);
if ($opt{h} || $#ARGV < 0) {
print "Usage: $Program [-h] [-n] [-i] cell+\n";
print " Returns file status\n";
print " -h: help usage\n";
print " cell: cell name(s)\n";
exit;
}
$Icp4::debug = ($opt{D}) ? 1 : 0 ;
$cell = $ARGV[0];
if (-d $cell) {
print "0";
}
my %fstat = &Icp4::fstat("$cell");
foreach my $file (keys %fstat) {
my $filestatus = $fstat{$file};
#print "$fstat{$file}\n";
if ($filestatus =~ /\#(\d+)\/\#(\d+)/) {
my $cur = $1;
my $ci = $2;
if ($cur == $ci) {
print "latest\n";
} else {
print "old\n";
}
}
elsif ($filestatus =~ /\?/) {
print "new\n";
}
else {
print "$filestatus\n";
}
}
if (! -f $cell) {
print "notfound\n";
}
exit 0;
}
# |
Change |
User |
Description |
Committed |
|
#4
|
7334 |
robert_yu |
checking in |
|
|
#3
|
6494 |
robert_yu |
removed for now |
|
|
#2
|
6492 |
robert_yu |
kxtext |
|
|
#1
|
6491 |
robert_yu |
new thing |
|
|