#!/usr/bin/perl
use strict;
use warnings;
use File::Basename;

my $file=shift;
chomp $file;

exit 0 if -d $file;

my($fn,$dirName,$debris)=fileparse $file;
my $cwd=`pwd`; chomp $cwd;
printf "cwd:    %s\n",$cwd;
printf "dirName:%s\n",$dirName;
printf "fn:     %s\n",$fn;
#$file=sprintf "%s%s%s",$cwd,$dirName,$fn;
$file=sprintf "%s%s",$dirName,$fn;
printf "file:     %s\n",$file;

my $bakFile=$file.'~';

$file=qq/$file/;
$bakFile=qq/$bakFile/;

if ( -f "$bakFile") {
  printf "Found %s\n", $bakFile;
} else {
  exit 0;
}

#printf STDERR "%s\n", $file;
#printf STDERR "%50s\n", $bakFile;
my $thisSize= -s $file;
my $thatSize= -s $bakFile;

if ( $thisSize > $thatSize ) {
  printf "%s  (%s) is bigger than\n%s (%s)\n",$file,$thisSize,$bakFile,$thatSize;
  exit 1;
}

if ( $thisSize < $thatSize ) {
  printf "%s  (%s) is smaller than\n%s (%s)\n",$file,$thisSize,$bakFile,$thatSize;
  exit -1;
}

my $cmd=sprintf "du -b %s %s", $file, $bakFile;
my @results=`$cmd`;
my $result=$results[1];
chomp $result;

$cmd=sprintf "/bin/rm %s", qq/$bakFile/;
my $rmer='/tmp/rmer.sh';
my @lines;

open (my $RMER, '<', $rmer);
while (<$RMER>) {
  my $line=$_;
  chomp $line;
  last if $line=~/$cmd/;
  push @lines,$line;
}
close $RMER;
push @lines, $cmd;

open ($RMER, '>', $rmer) or die $!;
foreach my $line (@lines) {
  printf $RMER "%s\n", $line;
}

my($fnm,$size)=split ' ',$result;
printf "%10s %-50s %s\n", $fnm,$size,$rmer;