#!/usr/athena/bin/perl


foreach $arg (@ARGV) {
	if ($arg eq "-b") {
		print STDERR "-b no longer supported\n";
		next;
	}
	if ($arg eq "-l") {
		push(@ARGS,"-f");
		push(@ARGS,"/afs/.athena/contrib/consult/lib/dig/default_meetings");
		next;
	}
	push(@ARGS,$arg);
}

exec "/usr/athena/bin/dsgrep", @ARGS;