Return to wpqio.pm CVS log | Up to [local] / wpscripts / wpquotas |
1.1 ! yason 1: # $Id$ ! 2: # ! 3: package wpqio; ! 4: ! 5: our $DEBUG = 1; # set this to true for verbose output ! 6: ! 7: ! 8: sub print($) ! 9: { ! 10: return if !$DEBUG; ! 11: ! 12: my $data = shift; ! 13: print "$data"; ! 14: } ! 15: ! 16: ! 17: return 1;