#!/usr/bin/perl
# Filename:	mail_editor
# Author:	David Ljung Madison <DaveSource.com>
# See License:  http://MarginalHacks.com/License
# Description:	Creates a random signature
#
# Just make this your mail editor and then make sure your mail
# program has no signature, just line dashes so the end of the
# file is just '--'
use strict;

##################################################
# Setup the variables
##################################################
my ($PROGNAME,$BASENAME) = ($0,$0);
($MAIN::PROGNAME = $0) =~ s|^.*/||;
$MAIN::BASENAME = $0 =~ m|/| ? $0 : "./$0";
$MAIN::BASENAME =~ s|/[^\/]+$||;
$MAIN::BASENAME=$MAIN::BASENAME ? $MAIN::BASENAME : "/";

# Get the language module
require "$MAIN::BASENAME/sig.pm";

##################################################
# MAIN
##################################################
sub main {
  my $editor=$ENV{EDITOR};
  $editor="vi" if (!$editor);
  # HACK - my VUE is setting EDITOR to vuepad! :(
  #$editor="/usr/local/bin/vim";

  my $file="$ARGV[0]";
  slow_death("No file argument!") if(!$file);
  my $file2="${file}.2";

  #########################
  # Make the new temp file
  #########################
  open(FILE2,">$file2") || slow_death("Couldn't open file: $file2");

  #########################
  # Copy the file over to file2, skipping the last line if it is "--"
  #########################
  my $last_line;
  while(<>) {
    print FILE2 "$last_line" if(defined($last_line));
    $last_line=$_;
  }
  #########################
  # If the last line is "--" we add a name and a sig
  #########################
  if ($last_line =~ /^--$/) {
    print FILE2 "\n", pick_name(), "\n\n", get_sig();
  } else {
    print FILE2 $last_line;
  }

  #########################
  # Put the new file where the old is
  #########################
  close(FILE2);
  system("/bin/mv -f $file2 $file");
  slow_death("Couldn't write to $file") if($?);

  #########################
  # Edit the file
  #########################
  system("$editor $file");
  slow_death("Couldn't edit $file with editor $editor") if($?);
}
main();