! FX-SIG2.V     E-Mail Module Version 2.02.06

# SIG

! [FiXx] AutoSignature Professional Version 2.02 by Cheeser the Preacher

# testwfc                 

test $PORT = "" wfc

go setport

# WFC

tr "3Which WFC node did you hit the 'BM3'? "
rr $checkport 0123456789 "3If unsure, please type 'B13' - "

tr

$setport = $checkport

go setport2

# setport

$setport = $PORT

# setport2

$path = "C:\VBBS\"

$temp1 = $path & "B" & $setport         
$temp2 = $temp1 & ".TMP"                      

checkfile $sze $temp2
ifval $sze = 0
   tr "-AutoSignature Professional 2.02 0:U NO MESSAGE TO SAVE"
   tr "-AutoSignature Professional 2.02 0:U AUTOSIGNATURE NOT ADDED"
endif

$file2 = "C:\VBBS\AUTO\" & $user & ".tog"

checkfile $sizey $file2
ifval $sizey = 0
 go NAH
endif

open $file2 input
read $toggle
close
test $Toggle = "OFF" NAH

$inetemail = "C:\VBBS\AUTO\INETEM.CFG"

open $inetemail input
read $email1
close

if $email1 = "does" then
tr "-AutoSignature Professional 2.02 0:U INTERNET-FIDONET SUPPORT TURNED ON"
getny $inetmail "3Is this an BInternet-Fidonet email3? "
test $inetmail = "N" paunit
test $inetmail = "Y" paunit2
ENDIF

go paunit

# paunit2

if $ansi = ON then
ts ""
ENDIF

tr "-AutoSignature Professional 2.02 0:U AUTOSIGNATURE NOT SAVED TO EMAIL"

exit

# paunit

$mm1 = $path & "B" & $setport         
$mm2 = $mm1 & ".TMP"                      

!  Left
!  Right

$mmcount = 1

if $ansi = off then

tr "-AutoSignature Professional 2.02 0:U TESTING FOR CARBON COPIED/MULTI-MAIL"
tr "-AutoSignature Professional 2.02 0:U PLEASE WAIT"

go mmloop

ENDIF

tr "-AutoSignature Professional 2.02 0:U TESTING FOR CARBON COPIED/MULTI-MAIL"

suspendpagebreak

$countll = 1
$mmcount2 = 1

# mmloop

Open $mm2 input

if $mmcount = 400 then

go initialize

ENDIF

read $mmtmp

if $mmtmp = "-ÄÄÄÄB[3FiXxB]-ÄÄÄÄÄAutoSignature Professional Version 2.02ÄÄÄÄÄÄÄÄ[CTP]'95Ä" then

go mmdone

ENDIF

test $mmtmp = "!EOF!" testeof

$gtempd = $countll + 1
$countll = $gtempd

if $countll > 4 then

$mmcount2 = $mmcount2 + 1
$countll = 1

ENDIF

if $ansi = ON then

tr " 7%" $mmcount2 

ENDIF

$rtempd = $mmcount + 1
$mmcount = $rtempd

go mmloop

# testeof

read $mmtmp
if $mmtmp <> "!EOF!" then

go mmloop

ENDIF

close

$mmcount2 = 100

if $ansi = ON then

tr " 7%" $mmcount2

ENDIF

go initialize

# mmdone

resumepagebreak

close

if $ansi = ON then

tr " 7100%"

ENDIF
if $ansi = ON then

tr "-AutoSignature Professional 2.02 0:U CARBON COPY/MULTI-MAIL DETECTED     "

ENDIF

if $ansi = OFF then

tr "-AutoSignature Professional 2.02 0:U CARBON COPY/MULTI-MAIL DETECTED     "

ENDIF

tr "-AutoSignature Professional 2.02 0:U NOT ADDING AUTOSIGNATURE"

exit

# initialize

resumepagebreak

close

! þ[ System Variable Definitions ]þúðúþúðúþúðúþúðúþúðúþúðúþúðúþúðúþúðúþúðúþúðú

$file = "C:\VBBS\AUTO\" & $user & ".tag"     
$filea = "C:\VBBS\AUTO\" & $user & ".001"
$fileb = "C:\VBBS\AUTO\" & $user & ".002"
$filec = "C:\VBBS\AUTO\" & $user & ".003"
$filed = "C:\VBBS\AUTO\" & $user & ".004"
$filee = "C:\VBBS\AUTO\" & $user & ".005"
$filef = "C:\VBBS\AUTO\" & $user & ".006"
$fileg = "C:\VBBS\AUTO\" & $user & ".007"
$fileh = "C:\VBBS\AUTO\" & $user & ".008"
$filei = "C:\VBBS\AUTO\" & $user & ".009"
$filej = "C:\VBBS\AUTO\" & $user & ".010"
$file2 = "C:\VBBS\AUTO\" & $user & ".tog"
$path = "C:\VBBS\"                  
$A = "-P a u s e D"
open $emailtag input
read $e1
read $e2
read $e3
close

! þ[ System Variable Definitions End ]þúðúþúðúþúðúþúðúþúðúþúðúþúðúþúðúþúðúþúðú

checkfile $Z $file
ifval $Z = 0
$UH = NOWAY
go ON_TAG
endif
$UH = YESWAY

$tagcfg = "C:\VBBS\AUTO\TAG" & $user & ".NUM"

open $tagcfg INPUT
read $max
close
open $file input
$line = $max RND 1
do $temp = 1 $line
   read $tag
loop
close

# On_TAG
Test $UH = "NOWAY" NEXT
Test $UH = "YESWAY" NEXT2
# NEXT
$Tag = " "
go NEXT2
# NEXT2
TEST $TAG = "!EOF!" NEXT
GO SIGNATURE

# signature

JC $A 79

checkfile $sizey $file2
ifval $sizey = 0
 go NAH
endif

open $file2 input
read $toggle
close
test $toggle = "ON" CONT2
test $Toggle = "OFF" NAH
test $Toggle = "ASK" ASK_SIG

# ASK_SIG
getyn $AUTO_SIG "-Add AutoSignature : "
test $auto_SIG = "Y" CONT
test $auto_SIG = "N" NAH

# CONT
tr " "
tr "3 Add Which Signature?"
tr " "
rr $Which 123456789AQ "-Add Which?U 1,2,3,4,5,6,7,8,9,A,Q: " 
tr
test $which = "1" FONE
test $which = "2" FTWO
test $which = "3" FTHREE
test $which = "4" FFour
test $which = "5" FFive
test $which = "6" FSix
test $which = "7" FSeven
test $which = "8" FEight
test $which = "9" FNine
test $which = "A" FTen
test $which = "Q" NAH

# FONE
$File1 = $filea
$signum = 1
go SIGX

# FTWO
$file1 = $FILEB
$signum = 2
go SIGX

# FTHREE
$file1 = $filec
$signum = 3
go SIGX

# FFOUR
$file1 = $Filed
$signum = 4
go SIGX

# FFIVE
$File1 = $filee
$signum = 5
go SIGX

# FSix
$File1 = $filef
$signum = 6
go SIGX

# FSeven
$File1 = $fileg
$signum = 7
go SIGX

# FEight
$File1 = $fileh
$signum = 8
go SIGX

# FNine
$File1 = $filei
$signum = 9
go SIGX

# FTen 
$File1 = $filej
$signum = 10
go SIGX

# CONT2

$sets = 0

open $fileb input
read $tmp1
close

if $tmp1 = "" then
go pats
ENDIF

if $tmp1 = "!EOF!" then
go pats
ENDIF

$sets = $sets + 1

open $filec input
read $tmp1
close

if $tmp1 = "" then
go pats
ENDIF

if $tmp1 = "!EOF!" then
go pats
ENDIF

$sets = $sets + 1

open $filed input
read $tmp1
close

if $tmp1 = "" then
go pats
ENDIF

if $tmp1 = "!EOF!" then
go pats
ENDIF

$sets = $sets + 1

open $filee input
read $tmp1
close

if $tmp1 = "" then
go pats
ENDIF

if $tmp1 = "!EOF!" then
go pats
ENDIF

$sets = $sets + 1

open $filef input
read $tmp1
close

if $tmp1 = "" then
go pats
ENDIF

if $tmp1 = "!EOF!" then
go pats
ENDIF

$sets = $sets + 1

open $fileg input
read $tmp1
close

if $tmp1 = "" then
go pats
ENDIF

if $tmp1 = "!EOF!" then
go pats
ENDIF

$sets = $sets + 1

open $fileh input
read $tmp1
close

if $tmp1 = "" then
go pats
ENDIF

if $tmp1 = "!EOF!" then
go pats
ENDIF

$sets = $sets + 1

open $filei input
read $tmp1
close

if $tmp1 = "" then
go pats
ENDIF

if $tmp1 = "!EOF!" then
go pats
ENDIF

$sets = $sets + 1

open $filej input
read $tmp1
close

if $tmp1 = "" then
go pats
ENDIF

if $tmp1 = "!EOF!" then
go pats
ENDIF

$sets = $sets + 1

# PATS

$BLAH = $sets RND 1
Testval $blah = 1 RONE
Testval $blah = 2 RTWO
TestVal $blah = 3 RTHREE
TESTVAL $blah = 4 RFOUR
TestVal $blah = 5 RFIVE
Testval $blah = 6 RSix
Testval $blah = 7 RSeven
TestVal $blah = 8 REight
TESTVAL $blah = 9 RNine
TestVal $blah = 10 RTen 

# RONE
$File1 = $filea
$signum = 1
go SIGX

# RTWO
$file1 = $FILEB
$signum = 2
go SIGX

# RTHREE
$file1 = $filec
$signum = 3
go SIGX

# RFOUR
$file1 = $Filed
$signum = 4

go SIGX

# RFIVE
$File1 = $filee
$signum = 5
go SIGX

# RSix 
$File1 = $filef
$signum = 6
go SIGX

# RSeven
$File1 = $fileg
$signum = 7
go SIGX

# REight
$File1 = $fileh
$signum = 8
go SIGX

# RNine
$File1 = $filei
$signum = 9
go SIGX

# RTen 
$File1 = $filej
$signum = 10
go SIGX

# SIGX

$TEMP1 = $path & "B" & $PORT         
$Temp2 = $temp1 & ".TMP"                      

checkfile $sze $temp2
ifval $sze = 0
   tr "-AutoSignature Professional 2.02 0:U NO MESSAGE TO SAVE"
   go end
endif

checkfile $sze $file1
ifval $sze = 0
 go ENDNO
endif

# begin
Open $FILE1 input
Read $line1
read $line2
read $line3
close
Test $line1 = "" ENDNO
Test $line2 = "" ONE_LINE
TeSt $line3 = "" TWO_LINE 

Open $temp2 append
write " "
Write $line1
Write $line2
Write $line3
write "-ÄÄÄÄB[3FiXxB]-ÄÄÄÄÄAutoSignature Professional Version 2.02ÄÄÄÄÄÄÄÄ[CTP]'95Ä"
Write "-" $Tag

Close
go end

# ONE_LINE
open $temp2 append
write " "
Write $line1                                                                    
write "-ÄÄÄÄB[3FiXxB]-ÄÄÄÄÄAutoSignature Professional Version 2.02ÄÄÄÄÄÄÄÄ[CTP]'95Ä"
Write "-" $Tag

close
go end

# TWO_LINE
open $temp2 append
write " "
write $line1
write $line2
write "-ÄÄÄÄB[3FiXxB]-ÄÄÄÄÄAutoSignature Professional Version 2.02ÄÄÄÄÄÄÄÄ[CTP]'95Ä"
Write "-" $Tag

close
go end

# ENDNO
tr "-AutoSignature Professional 2.02 0:U SIGNATURE " $signum " NOT CONFIGURED"
go emailtag

# NAH
tr "-AutoSignature Professional 2.02 0:U TURNED OFF - NOT ADDED"
go emailtag

# END

tr "-AutoSignature Professional 2.02 0:U AUTOSIGNATURE ADDED TO MESSAGE"

# emailtag

ifval $max5 <> 0 then
tr "-AutoSignature Professional 2.02 0:U " $max5 " CONFIGURED USER TAGLINES - USING # " $line
ENDIF

$emailtag = "C:\VBBS\AUTO\EMAIL.CFG"
open $emailtag input
read $e1
read $e2
read $e3
close
$areatype = "C:\VBBS\AUTO\AREATYPE.CFG"
open $areatype input
read $type
read $emailtype
close

testval $emailtype = 1 addemailtag

ifval $security >= 255 then
tr "-AutoSignature Professional 2.02 0:U E-MAIL TAGLINE NOT ADDED"
ENDIF
exit

# addemailtag

test $e1 = "" exitit
open $temp2 append
if $e1 <> "" then
write " "
write $e1
ENDIF
if $e2 <> "" then
write $e2
ENDIF
if $e3 <> "" then
write $e3
ENDIF
close
ifval $security >= 255 then
tr "-AutoSignature Professional 2.02 0:U E-MAIL TAGLINE ADDED"
ENDIF
exit

# exitit

ifval $security >= 255 then
tr "-AutoSignature Professional 2.02 0:U E-MAIL TAGLINE NOT ADDED"
ENDIF
exit