src/db_sql.pl

   1 #
   2 # db_mysql.pl: {my,pg}SQL database frontend.
   3 #      Author: dms
   4 #     Version: v0.1 (20010908)
   5 #     Created: 20010908
   6 #
   7
   8 package main;
   9
  10 if (&IsParam("useStrict")) { use strict; }
  11
  12 sub SQLDebug {
  13     return unless (&IsParam("SQLDebug"));
  14
  15     return unless (fileno SQLDEBUG);
  16
  17     print SQLDEBUG $_[0]."\n";
  18 }
  19
  20 1;