#!/usr/bin/perl

#support.pm
#  Utilities for mail sending (*******@dustsigns.de)
#  (c) by Dust Signs Andreas Unterweger 2005-2006

sub Send_Email { #Sends an email

  $AText = shift; #Parameter (text)

  open MAIL_PIPE, '|-', '/usr/lib/sendmail -t -oi' or die "Fatal error: $!";
  print MAIL_PIPE <<EOM;
From: *******@dustsigns.de
To: *********@dustsigns.de
Subject: Bugreport

$AText

EOM

  close MAIL_PIPE or die "Fatal error: $!";

}

1;