############################################################################
#    Copyright (C) 2005 by fradeff@akademia.ch                             #
#                                                                          #
#    This program is free software; you can redistribute it and#or modify  #
#    it under the terms of the GNU General Public License as published by  #
#    the Free Software Foundation; either version 2 of the License, or     #
#    (at your option) any later version.                                   #
#                                                                          #
#    This program is distributed in the hope that it will be useful,       #
#    but WITHOUT ANY WARRANTY; without even the implied warranty of        #
#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         #
#    GNU General Public License for more details.                          #
#                                                                          #
#    You should have received a copy of the GNU General Public License     #
#    along with this program; if not, write to the                         #
#    Free Software Foundation, Inc.,                                       #
#    59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.             #
############################################################################
#!/usr/bin/perl
#rm all emacs backup files *.*~ or *~
foreach $file (<*~>) { # step through a list of .~ files
    unlink($file) || warn "having trouble deleting $file: $!";
}

foreach (<*.*~>) { # step through a list of .o files
    unlink || warn "having trouble deleting $_: $!";
}

foreach (<#*.*#>) { # step through a list of .o files
    unlink || warn "having trouble deleting $_: $!";
}

foreach (<*.[Bb][Aa][Kk]>) { # step through a list of .o files
    unlink || warn "having trouble deleting $_: $!";
}

foreach (<*.[Tt][Mm][Pp]>) { # step through a list of .o files
    unlink || warn "having trouble deleting $_: $!";
}

perl /home/radeff/bin/killbak.pl

#program to kill recursively all emacs, quanta & so backup files
find . -name "*~" -exec rm {} \;