#!/usr/bin/perl

###############################################################################
#                                                                             #
#  Name   : new_sig                                                           #
#  Author : Chris Koeritz                                                     #
#  Rights : Copyright (C) 1996-$now by Author                                 #
#                                                                             #
#  Purpose:                                                                   #
#                                                                             #
#    Creates a new signature file using Nechung.                              #
#                                                                             #
###############################################################################
#  This program is free software; you can redistribute it and/or modify it    #
#  under the terms of the GNU General Public License as published by the Free #
#  Software Foundation; either version 2 of the License or (at your option)   #
#  any later version.  See: "http://www.gruntose.com/Info/GNU/GPL.txt" for a  #
#  version of the License.  Please send any updates to "fred@gruntose.com".   #
###############################################################################

require "filename_helper.pl";
require "importenv.pl";

# creates a new signature file for outgoing email.
local($filename) = "$TMP/signate";
open(FILE, ">" . $filename) || die "couldn't open $filename for writing.";

print FILE "_______ chosen by the Nechung Oracle Program [ http://gruntose.com/ ] _______\n";
print FILE "\n";
close(FILE);
local($bindir) = $ENV{'BINDIR'};
$bindir = &sanitize_name($bindir);
system("$bindir/nechung >>$filename");
###always hits this.  nechung gives an error? || die "couldn't run nechung.";
open(FILE, ">>" . $filename) || die "couldn't open $filename for writing.";
print FILE "\n";
print FILE "_____________ not necessarily my opinions, not necessarily not. _____________\n";
close(FILE);

open(FILE, "<" . $filename) || die "couldn't open $filename for reading.";
foreach $line (<FILE>) { print $line; }
close(FILE);