use utf8;
use strict;
use warnings; no warnings "redefine";
use Loader qw(line_in ticket_get_header ticket_insert_text);

sub add_ticket_text($;$$) {
	my($tid,$kn,$flag) = @_;
	my $temp = "/tmp/ticket.$$";

	unless($flag & 2) {
		my $ans = line_in "Ist dieser Text für die Öffentlichkeit bestimmt? ";
		if ($ans =~ /^[jy]/i) {
			print "JA => markiere entsprechend.\n";
		} else {
			print "NEIN => interne Information.\n";
			$flag |= 2;
		}
	}

	open(OUT,">$temp") or die "Temporäre Datei '$temp'";
	close OUT;

	print "Editor ".ticket_get_header($tid,1)."...\n";
	sleep 2;
	system defined $ENV{EDITOR} ? $ENV{EDITOR} : 'vi', $temp;
	unless(-s $temp > 9) { # "tut wieder" oder so...
		unlink $temp;
		return undef;
	}

	open(OUT,"$temp") or die "Temporäre Datei '$temp'";
	unlink $temp;

	my $seq = ticket_insert_text($tid,$flag,"",\*OUT);
	if($seq == 0) {
		print "Problem! $seq\n";
		return undef;
	}
	$seq;
}

1;
