From 4f5c7d9201c1da32d040cdf6884194488ec846b5 Mon Sep 17 00:00:00 2001
From: Michiel Broek <mbse@mbse.eu>
Date: Sat, 2 Mar 2002 21:25:12 +0000
Subject: [PATCH] Changed hatch long filename support a bit

---
 ChangeLog        |  2 ++
 mbfido/forward.c | 20 ++++++++++++--------
 mbfido/tic.c     |  6 ++++++
 script/hatch     | 18 ++++++++++++++++--
 4 files changed, 36 insertions(+), 10 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 37ef0ba2..0ef709d8 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -4642,6 +4642,8 @@ v0.33.20        10-Feb-2002
 		the first aka is not the aka in the areas.
 		In mgr result reports, lines with connected areas do now also
 		display the aka to which they are connected.
+		The file forward function now always puts a 8.3 filename in
+		the outgoing ticfile. For most files nothing is changed.
 
 	mball:
 		Will not crash anymore when it needs more then 10 minutes to
diff --git a/mbfido/forward.c b/mbfido/forward.c
index 9b8bb314..9024142c 100644
--- a/mbfido/forward.c
+++ b/mbfido/forward.c
@@ -179,15 +179,19 @@ void ForwardFile(fidoaddr Node, fa_list *sbl)
 				subject = xstrcpy(TIC.RealName);
 			else
 				subject = xstrcpy(TIC.NewName);
+			/*
+			 * Create 8.3 filename if this is a long filename. In normal
+			 * cases mbcico will transmit the long filename to the other
+			 * node. If they can't process the TIC files which has a short
+			 * 8.3 filename and they have a long filename in the inbound
+			 * then in mbsetup these nodes need to be set to 8.3 filenames.
+			 * The mailer will then transmit the file with a 8.3 name.
+			 * Thank the inventors of the 8.3 filenames for this.
+			 */
 			temp = xstrcpy(subject);
-			if (nodes.FNC) {
-			    name_mangle(temp);
-			    fprintf(fp, "File %s\r\n", temp); // mbcico will send the file with this name
-			    fprintf(fp, "Fullname %s\r\n", subject);
-			} else {
-			    fprintf(fp, "File %s\r\n", tu(temp));
-			    fprintf(fp, "Fullname %s\r\n", subject);
-			}
+			name_mangle(temp);
+			fprintf(fp, "File %s\r\n", temp);
+			fprintf(fp, "Fullname %s\r\n", subject);
 			free(temp);
 			free(subject);
 
diff --git a/mbfido/tic.c b/mbfido/tic.c
index 11db17af..3a02434a 100644
--- a/mbfido/tic.c
+++ b/mbfido/tic.c
@@ -398,6 +398,12 @@ int LoadTic(char *inb, char *tfn)
 		tidy_falist(&sbl);
 		return 1;
 	    }
+	    if (!strlen(TIC.TicIn.File)) {
+		strcpy(Temp, TIC.TicIn.FullName);
+		name_mangle(Temp);
+		strncpy(TIC.TicIn.File, Temp, 12);
+		Syslog('f', "Local hatch created 8.3 name %s", Temp);
+	    }
 	} else {
 	    /*
 	     * Find out what the real name of the file is
diff --git a/script/hatch b/script/hatch
index 491726d5..35982f2f 100644
--- a/script/hatch
+++ b/script/hatch
@@ -49,12 +49,26 @@ cat <<EOF
    group 'bbs'. They will be removed when they are hatched, so
    this should be a temporary copy of all those files.
    These files must be real files, no symlinks.
+   Long filenames are allowed as long as there are no spaces in
+   the filename. The mbfido program will build the 8.3 filenames
+   when needed.
+   When hatching long filenames and downlinks complain about this,
+   then with mbsetup set these nodes to 8.3 names.
 
 EOF
-echo -n "Enter TIC group to hatch files in (Control-C = stop) "
+
+echo -n "Enter TIC group to hatch files in (Control-C = stop) : "
 read GROUP
-echo -n "Enter the Fidonet aka for this TIC group, ie. 2:280/2802 "
+if [ -z "$GROUP" ]; then
+    exit 0
+fi
+
+echo -n "Enter the Fidonet aka for this TIC group, ie. 2:280/2802 : "
 read AKA
+if [ -z "$AKA" ]; then
+    exit 0
+fi
+
 echo -e "Now scanning directory, add a oneline description for each file\n"
 
 i=0;