package Main;

use Common;

sub print_message {
  my $msg = shift;
  # Use default site name if no message specified.
  unless ($msg) { $msg = Common::GLOB_SITE_NAME; }
  # Prepend with "DEBUG: " if in debug mode.
  $msg = "DEBUG: $msg" if (Common::GLOB_DEBUG_MODE);
  
  print $msg;
}

1;