1#!/usr/bin/perl 2 3# Sort.pm, distributed as part of Snortsnarf v021111.1 4# Author: James Hoagland, Silicon Defense (hoagland@SiliconDefense.com) 5# copyright (c) 2001 by Silicon Defense (http://www.silicondefense.com/) 6# Released under GNU General Public License, see the COPYING file included 7# with the distribution or http://www.silicondefense.com/software/snortsnarf/ 8# for details. 9 10# This file is a package holding an instance of some common sorters. 11 12# Please send complaints, kudos, and especially improvements and bugfixes to 13# hoagland@SiliconDefense.com. As described in GNU General Public License, no 14# warranty is expressed for this program. 15 16package Sort; 17use BasicSorters; 18 19sub BEGIN { 20 $bytime= NumFieldSorter->new('utime'); 21 $byhighestanom= NumHighestPktFieldSorter->new('anom'); 22 $bypkt1time= FirstPktFieldNumSorter->new('utime',NumFieldPktSorter->new('utime')); 23} 24 251; 26