| 4 | 
 ##  $Id$ | 
 ##  $Id$ | 
| 5 | 
 ## -------------------------------------------------------------------------------- | 
 ## -------------------------------------------------------------------------------- | 
| 6 | 
 ##  $Log$ | 
 ##  $Log$ | 
| 7 | 
  | 
 ##  Revision 1.3  2003/01/20 21:50:49  joko | 
| 8 | 
  | 
 ##  + now utilizing 'org::netfrag::preambel' | 
| 9 | 
  | 
 ## | 
| 10 | 
 ##  Revision 1.2  2003/01/20 21:20:35  joko | 
 ##  Revision 1.2  2003/01/20 21:20:35  joko | 
| 11 | 
 ##  - now doesn't use a hardcoded $libpath any more | 
 ##  - now doesn't use a hardcoded $libpath any more | 
| 12 | 
 ## | 
 ## | 
| 16 | 
 use strict; | 
 use strict; | 
| 17 | 
 use warnings; | 
 use warnings; | 
| 18 | 
  | 
  | 
| 19 | 
 BEGIN { | 
 use lib qw( ../libs ); | 
| 20 | 
   use FindBin qw($Bin); | 
 use org::netfrag::preambel; | 
 | 
   use lib qw( | 
  | 
 | 
     $Bin/../../libs | 
  | 
 | 
   ); | 
  | 
 | 
 } | 
  | 
| 21 | 
  | 
  | 
| 22 | 
  | 
  | 
| 23 | 
 # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   main | 
 # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   main |