#! /tools/bin/perl

use DBI;
use strict;
use vars qw ($dbh $sth);

require './getrev20.pl';
require './sqlcommon20.pl';
require './common20.pl';

my $dir_file="./dirlist20";
$dbh=generic_connect_to_db('push20');

open (F, $dir_file);
my @files=<F>;
chomp @files;
close (F);

foreach my $full_path (@files) { 
	my $pos=rindex($full_path,"/");
	my $dir=substr($full_path,0,$pos);
	my $file=substr($full_path,$pos+1);
	print "FILE-$file DIR-$dir\n";
	&getrev($file,$dir);
} # End of foreach