#!/usr/bin/perl
$a=$ARGV[0];$a=~s/^.(.*)/$1/;open(F,"grep $a /var/lib/aegis/refhashlist|");while(<F>){print "WARNING Following file is protected: $_";}