Subversion Repositories svn.Prod repos

Rev

Rev 13 | Rev 43 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 13 Rev 37
Line 26... Line 26...
26 
sub Usage
 26 
sub Usage
27 
{
 27 
{
28 
       
 28 
       
29 
        my ($progname, $mesg) = @_;
 29 
        my ($progname, $mesg) = @_;
30 
 
 30 
 
31 
        print "Usage : $progname directory\n";
 31 
        print "Usage: $progname directory\n";
32 
        print "$mesg\n"
 32 
        print "$mesg\n"
33 
}
 33 
}
34 
 
 34 
 
35 
#
 35 
#
36 
# dir is directory to traverse
 36 
# dir is directory to traverse
Line 91... Line 91...
91 
        {
 91 
        {
92 
                start_traverse($directory);
 92 
                start_traverse($directory);
93 
        }
 93 
        }
94 
        else
 94 
        else
95 
        {
 95 
        {
96 
                Usage ($progname, "ERROR: No directory $directory found");
 96 
                Usage ($progname, "ERROR: Not a directory : $directory");
97 
        }
 97 
        }
98 
}
 98 
}
99 
else
 99 
else
100 
{
 100 
{
101 
        Usage ($progname, "ERROR: 1 argument expected");
 101 
        Usage ($progname, "ERROR: 1 argument expected");