#!/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;

$Desc = param('errordesc');

$Temp = "Betroffenes Programm: $program\nReproduzierbar: $reprod\n\nBetroffene Betriebssysteme:\n";
$Temp .= "Windows 95: " . $W95 . "\nWindows 98: " . $W98 . "\nWindows ME: " . $WME . "\nWindows NT 4.0: " . $WNT4;
$Temp .= "\nWindows 2000: " . $W2k . "\nWindows XP: " . $WXP . "\nWindows Vista: " . $WVi . "\n\nFehlerbeschreibung:\n\n" . $Desc;

Send_Email($Temp);