Import archive

master
Brie Bruns 2017-12-11 22:23:06 -07:00
commit 534fb5f54b
8 changed files with 1218 additions and 0 deletions

0
README.md Normal file
View File

View File

@ -0,0 +1,12 @@
#!/bin/bash
export CFLAGS="-O2 -march=pentium -mtune=pentium4 -DFD_SETSIZE=2048 \
-fno-strict-aliasing -fomit-frame-pointer -pipe"
export LDFLAGS="-Wl,--enable-auto-image-base \
-Wl,--enable-runtime-pseudo-reloc -s"
export CC="ccache gcc"
#make distclean
../configure --prefix=/cygdrive/c/epic4 \
--cache-file=/usr/src/config-cache/epic4-cache \
--with-ssl --without-perl --without-tcl --with-ipv6 \
--disable-dependency-tracking

View File

@ -0,0 +1,46 @@
#!/bin/bash
mkdir /cygdrive/c/epic4
mkdir /cygdrive/c/epic4/bin
mkdir /cygdrive/c/epic4/libexec
mkdir -p /cygdrive/c/epic4/terminfo/x
mkdir /cygdrive/c/epic4/docs
mkdir -p /cygdrive/c/epic4/share/epic
mkdir -p /cygdrive/c/epic4/share/epic/script
mkdir -p /cygdrive/c/epic4/sosdg
cp -f source/epic.exe /cygdrive/c/epic4/bin/epic.exe
cp -f source/wserv4.exe /cygdrive/c/epic4/libexec/wserv4.exe
cp -f /bin/cygwin1.dll /cygdrive/c/epic4/bin/cygwin1.dll
cp -f /bin/cygssl-0.9.8.dll /cygdrive/c/epic4/bin/
cp -f /bin/cygcrypto-0.9.8.dll /cygdrive/c/epic4/bin/
cp -f /bin/cygcrypt-0.dll /cygdrive/c/epic4/bin/
cp -f /bin/cygncurses-8.dll /cygdrive/c/epic4/bin/cygncurses-8.dll
cp -f /bin/libW11.dll /cygdrive/c/epic4/bin/libW11.dll
cp -f /bin/rxvt.exe /cygdrive/c/epic4/bin/rxvt.exe
cp -f /usr/share/terminfo/x/xterm /cygdrive/c/epic4/terminfo/x/xterm
cp -f /usr/share/terminfo/c/cygwin /cygdrive/c/epic4/terminfo/c/cygwin
strip /cygdrive/c/epic4/bin/*.exe
strip /cygdrive/c/epic4/libexec/*.exe
mount -t C:/epic4 /mnt/epic4
cp -f epic4-noncygwin-install.sh epic4-noncygwin-configure.sh "C:/installer scripts/epic4.nsi" /mnt/epic4/sosdg/
DOCFILES="Readme Bug_form KNOWNBUGS COPYRIGHT Votes"
cd ../
for i in $DOCFILES; do
echo "Converting $i..."
rm -f /mnt/epic4/docs/$i
awk 1 $i > /mnt/epic4/docs/$i
done
cp -fr doc/* /mnt/epic4/docs
mv /cygdrive/c/epic4/docs/Readme /cygdrive/c/epic4/docs/readme-unix.txt
rm -fr /cygdrive/c/epic4/share/epic/help /cygdrive/c/epic4/share/epic/script
mkdir /cygdrive/c/epic4/share/epic/script
cp -fr help /mnt/epic4/share/epic/
cp -fr script/* /mnt/epic4/share/epic/script/
umount /mnt/epic4
cd /cygdrive/c/epic4
find /cygdrive/c/epic4 -name CVS | xargs rm -frv
find /cygdrive/c/epic4 -name cvs | xargs rm -frv
find $CLAMAV -name ".cvsignore" | xargs rm -frv
find $CLAMAV -name ".\#*" | xargs rm -frv
chown -R Administrators:Users /cygdrive/c/epic4

72
epic4.nsi Normal file
View File

@ -0,0 +1,72 @@
;Title Of Your Application
Name "ircII EPIC4 For Windows 2.6 Build 238"
CompletedText "You have successfully installed ircII EPIC4 for Windows. Enjoy!"
CRCCheck On
SetCompress Auto
SetCompressor lzma
SetOverwrite IfNewer
SetDatablockOptimize on
;Output File Name
OutFile "installers\epic4-installer-2.6-build238.exe"
;License Page Introduction
LicenseText "Please read the following license information before using this program:"
;License Data
LicenseData "C:\epic4\docs\copyright.txt"
;The Default Installation Directory
InstallDir "C:\epic4"
;The text to prompt the user to enter a directory
DirText "Please select the folder below you wish to install to. Do not change it unless you absolutely need to."
Section "Install"
;Install Files
SetOutPath $INSTDIR
SetCompress Auto
SetOverwrite IfNewer
File /r "C:\epic4\bin"
File /r "C:\epic4\libexec"
File /r "C:\epic4\share"
File /r "C:\epic4\docs"
File /r "C:\epic4\terminfo"
File /r "C:\epic4\identd"
File "C:\epic4\ircservers.txt"
File "C:\epic4\menu.exe"
; Write the uninstall keys for Windows
WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\ircII EPIC4 For Windows" "DisplayName" "ircII EPIC4 For Windows (remove only)"
WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\ircII EPIC4 For Windows" "UninstallString" "$INSTDIR\Uninst.exe"
WriteUninstaller "Uninst.exe"
SectionEnd
Section "Shortcuts"
;Add Shortcuts
CreateDirectory "$SMPROGRAMS\ircII EPIC4"
CreateShortCut "$SMPROGRAMS\ircII EPIC4\Uninstall.lnk" "$INSTDIR\uninst.exe" "" "$INSTDIR\uninst.exe" 0
CreateShortCut "$SMPROGRAMS\ircII EPIC4\ircII EPIC4.lnk" "$INSTDIR\menu.exe" "" "$INSTDIR\menu.exe" 0
CreateShortCut "$SMPROGRAMS\ircII EPIC4\ircII EPIC4 License.lnk" "$INSTDIR\docs\copyright.txt" "" "$INSTDIR\docs\copyright.txt" 0
CreateShortCut "$SMPROGRAMS\ircII EPIC4\Identd Daemon.lnk" "$INSTDIR\identd\identd_win32.exe" "" $INSTDIR\identd\identd_win32.exe" 0
CreateShortCut "$SMPROGRAMS\ircII EPIC4\Identd Source Code.lnk" "$INSTDIR\identd\src" "" "$INSTDIR\identd\src" 0
CreateShortCut "$SMPROGRAMS\ircII EPIC4\Identd License.lnk" "$INSTDIR\identd\license.rtf" "" "$INSTDIR\identd\license.rtf" 0
SectionEnd
UninstallText "This will uninstall ircII EPIC4 from your system"
Section Uninstall
;Delete Files
RMDir /r "$INSTDIR"
; Additional Files To Remove During Uninstall
RMDir /r "$SMPROGRAMS\ircII EPIC4"
;Delete Uninstaller And Unistall Registry Entries
Delete "$INSTDIR\Uninst.exe"
DeleteRegKey HKEY_LOCAL_MACHINE "SOFTWARE\ircII EPIC4 For Windows"
DeleteRegKey HKEY_LOCAL_MACHINE "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\ircII EPIC4 For Windows"
RMDir "$INSTDIR"
SectionEnd

View File

@ -0,0 +1,13 @@
#!/bin/bash
export CFLAGS="-O2 -march=pentium -mtune=pentium4 -DFD_SETSIZE=2048 \
-fno-strict-aliasing -fomit-frame-pointer -pipe"
export LDFLAGS="-Wl,--enable-auto-image-base \
-Wl,--enable-runtime-pseudo-reloc -s"
export CC="ccache gcc"
#make distclean
../configure --prefix=/cygdrive/c/epic5 \
--cache-file=/usr/src/config-cache/epic5-cache \
--with-ssl --without-perl --without-tcl --with-ipv6 \
--disable-dependency-tracking
cp sig.inc source/

View File

@ -0,0 +1,46 @@
#!/bin/bash
mkdir /cygdrive/c/epic5
mkdir /cygdrive/c/epic5/bin
mkdir /cygdrive/c/epic5/libexec
mkdir -p /cygdrive/c/epic5/terminfo/x
mkdir /cygdrive/c/epic5/docs
mkdir -p /cygdrive/c/epic5/share/epic5
mkdir -p /cygdrive/c/epic5/share/epic5/script
mkdir -p /cygdrive/c/epic5/sosdg
cp -f source/epic5.exe /cygdrive/c/epic5/bin/epic.exe
cp -f source/wserv4.exe /cygdrive/c/epic5/libexec/wserv4.exe
cp -f /bin/cygwin1.dll /cygdrive/c/epic5/bin/cygwin1.dll
cp -f /bin/cygssl-0.9.8.dll /cygdrive/c/epic5/bin/
cp -f /bin/cygcrypto-0.9.8.dll /cygdrive/c/epic5/bin/
cp -f /bin/cygcrypt-0.dll /cygdrive/c/epic5/bin/
cp -f /bin/cygncurses-8.dll /cygdrive/c/epic5/bin/cygncurses-8.dll
cp -f /bin/libW11.dll /cygdrive/c/epic5/bin/libW11.dll
cp -f /bin/rxvt.exe /cygdrive/c/epic5/bin/rxvt.exe
cp -f /usr/share/terminfo/x/xterm /cygdrive/c/epic5/terminfo/x/xterm
cp -f /usr/share/terminfo/c/cygwin /cygdrive/c/epic5/terminfo/c/cygwin
strip /cygdrive/c/epic5/bin/*.exe
strip /cygdrive/c/epic5/libexec/*.exe
mount -t C:/epic5 /mnt/epic5
cp -f epic5-noncygwin-install.sh epic5-noncygwin-configure.sh "C:/installer scripts/epic5.nsi" /mnt/epic5/sosdg/
DOCFILES="Readme Bug_form KNOWNBUGS COPYRIGHT Votes"
cd ../
for i in $DOCFILES; do
echo "Converting $i..."
rm -f /mnt/epic5/docs/$i
awk 1 $i > /mnt/epic5/docs/$i
done
cp -fr doc/* /mnt/epic5/docs
mv /cygdrive/c/epic5/docs/Readme /cygdrive/c/epic5/docs/readme-unix.txt
rm -fr /cygdrive/c/epic5/share/epic5/help /cygdrive/c/epic5/share5/epic/script
mkdir /cygdrive/c/epic5/share/epic5/script
cp -fr /usr/src/epic4-noncygwin/help /mnt/epic5/share/epic5/
cp -fr script/* /mnt/epic5/share/epic5/script/
umount /mnt/epic5
cd /cygdrive/c/epic5
find /cygdrive/c/epic5 -name CVS | xargs rm -frv
find /cygdrive/c/epic5 -name cvs | xargs rm -frv
find $CLAMAV -name ".cvsignore" | xargs rm -frv
find $CLAMAV -name ".\#*" | xargs rm -frv
chown -R Administrators:Users /cygdrive/c/epic5

72
epic5.nsi Normal file
View File

@ -0,0 +1,72 @@
;Title Of Your Application
Name "ircII EPIC5 For Windows 0.3.2 Build 4"
CompletedText "You have successfully installed ircII EPIC5 for Windows. Enjoy!"
CRCCheck On
SetCompress Auto
SetCompressor lzma
SetOverwrite IfNewer
SetDatablockOptimize on
;Output File Name
OutFile "installers\epic5-installer-0.3.2-build4.exe"
;License Page Introduction
LicenseText "Please read the following license information before using this program:"
;License Data
LicenseData "C:\epic5\docs\copyright.txt"
;The Default Installation Directory
InstallDir "C:\epic5"
;The text to prompt the user to enter a directory
DirText "Please select the folder below you wish to install to. Do not change it unless you absolutely need to."
Section "Install"
;Install Files
SetOutPath $INSTDIR
SetCompress Auto
SetOverwrite IfNewer
File /r "C:\epic5\bin"
File /r "C:\epic5\libexec"
File /r "C:\epic5\share"
File /r "C:\epic5\docs"
File /r "C:\epic5\terminfo"
File /r "C:\epic5\identd"
File "C:\epic5\ircservers.txt"
File "C:\epic5\menu.exe"
; Write the uninstall keys for Windows
WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\ircII epic5 For Windows" "DisplayName" "ircII epic5 For Windows (remove only)"
WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\ircII epic5 For Windows" "UninstallString" "$INSTDIR\Uninst.exe"
WriteUninstaller "Uninst.exe"
SectionEnd
Section "Shortcuts"
;Add Shortcuts
CreateDirectory "$SMPROGRAMS\ircII epic5"
CreateShortCut "$SMPROGRAMS\ircII epic5\Uninstall.lnk" "$INSTDIR\uninst.exe" "" "$INSTDIR\uninst.exe" 0
CreateShortCut "$SMPROGRAMS\ircII epic5\ircII epic5.lnk" "$INSTDIR\menu.exe" "" "$INSTDIR\menu.exe" 0
CreateShortCut "$SMPROGRAMS\ircII epic5\ircII epic5 License.lnk" "$INSTDIR\docs\copyright.txt" "" "$INSTDIR\docs\copyright.txt" 0
CreateShortCut "$SMPROGRAMS\ircII epic5\Identd Daemon.lnk" "$INSTDIR\identd\identd_win32.exe" "" $INSTDIR\identd\identd_win32.exe" 0
CreateShortCut "$SMPROGRAMS\ircII epic5\Identd Source Code.lnk" "$INSTDIR\identd\src" "" "$INSTDIR\identd\src" 0
CreateShortCut "$SMPROGRAMS\ircII epic5\Identd License.lnk" "$INSTDIR\identd\license.rtf" "" "$INSTDIR\identd\license.rtf" 0
SectionEnd
UninstallText "This will uninstall ircII epic5 from your system"
Section Uninstall
;Delete Files
RMDir /r "$INSTDIR"
; Additional Files To Remove During Uninstall
RMDir /r "$SMPROGRAMS\ircII epic5"
;Delete Uninstaller And Unistall Registry Entries
Delete "$INSTDIR\Uninst.exe"
DeleteRegKey HKEY_LOCAL_MACHINE "SOFTWARE\ircII epic5 For Windows"
DeleteRegKey HKEY_LOCAL_MACHINE "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\ircII epic5 For Windows"
RMDir "$INSTDIR"
SectionEnd

957
menu-v2.0.2.bas Normal file
View File

@ -0,0 +1,957 @@
' SOSDG Menu Application
' Copyright (c) 2002-2004 Brian Bruns <bruns@2mbit.com>
' Copyright (c) 2002-2004 The Summit Open Source Development Group / Administrative Team - http://www.2mbit.com
' All Rights Reserved
'
' URL: http://www.2mbit.com/software.html
' Build: 2.0.2
' License: See Below
' Source: YES (e-mail bruns@2mbit.com for more info and latest version)
' Notes:
'
'* Redistribution and use in source and binary forms, with or without
'* modification, are permitted provided that the following conditions
'* are met:
'* 1. Redistributions of source code must retain the above copyright
'* notice, this list of conditions and the following disclaimer.
'* 2. Redistributions in binary form must reproduce the above copyright
'* notices, the above paragraph (the one permitting redistribution),
'* this list of conditions and the following disclaimer in the
'* documentation and/or other materials provided with the distribution.
'* 3. The names of the author(s) may not be used to endorse or promote
'* products derived from this software without specific prior written
'* permission.
'*
'* THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS OR
'* IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
'* OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
'* IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY DIRECT, INDIRECT,
'* INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
'* BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
'* LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED
'* AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
'* OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
'* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
'* SUCH DAMAGE.
' VERSION HISTORY
' 1.0 - Development, initial test version
' 1.2 - Limited testing
' 1.3 - Bug fixing stage 1
' 1.4 - Bug fixing stage 2
' 1.5 - Bug fixing state 3
' 1.6 - Solid stable public version used in builds prior to Dec 16th 2002
' 1.7 - Testing INI config file
' 1.8 - Solid stable public version using INI file, changed server listing slightly, bug fixes,
' disabled the Real Name field (still not implemented properly, why get users hopes up?),
' and removed cruft from old builds that I left in for my own reference.
' 1.9 - See version.txt from the ircii epic4 installer, or check the website
$OPTIMIZE ON
$INCLUDE "RAPIDQ.INC"
' RQ INI File Support - Contact: StarBase12@OneBox.com
$INCLUDE "QLibrary.inc"
$TYPECHECK OFF
$ESCAPECHARS OFF
APPLICATION.TITLE = "ircII EPIC4"
DECLARE SUB NickClick
DECLARE SUB FullNameClick
DECLARE SUB UserNameClick
DECLARE SUB ServerNameClick
DECLARE SUB SaveOptToDisk
DECLARE SUB AboutMenuShow
DECLARE SUB AboutMenuClose
DECLARE SUB QuitProgram
DECLARE SUB DelOptFile
DECLARE SUB RunWithCurrOpt
DECLARE SUB LoadOptionsFile
DECLARE SUB DispServerList
DECLARE SUB DispServerListClose
DECLARE SUB ChangeServerName2 (Sender AS QLISTBOX)
DECLARE SUB ReadOptFromDisk
DECLARE SUB ShowVerHistory
DECLARE SUB CloseVerHistory
DECLARE SUB ShowMenuOpt
DECLARE SUB CloseMenuOpt
DECLARE SUB CancelMenuOpt
DECLARE SUB ReadMenuOpt
DECLARE SUB LoadWin32Readme
DECLARE SUB LoadUNIXReadme
DECLARE SUB LoadLicense
DECLARE SUB LoadVersHistory
DECLARE SUB SaveTempOpt
DECLARE SUB OptWinResetDefaults
DECLARE SUB Editircrc
Declare Sub SaveEPICini
DECLARE Sub AddNoConFlag
DECLARE Sub AddNoircrcFlag
DECLARE Sub AddXDebugFlag
DECLARE Sub JoinChanOnCon
DECLARE Sub AddJoinChannel
DECLARE Sub PasswdConnectOpt
DECLARE Sub LoadServerList
DECLARE Sub ChkServerListExist
DIM CmdLineOpts AS STRING
DIM JoinChanStr AS STRING
DIM PasswordStr AS STRING
DIM ServerConnectStr AS STRING
DIM NoConStr AS STRING
DIM NoircrcStr AS STRING
DIM XDebugStr AS STRING
DIM EPIC4PathCurr AS STRING
DIM EPIC4BinCurr AS STRING
DIM EPIC4TermInfoCurr AS STRING
DIM EPIC4DocsCurr AS STRING
DIM EPIC4ExtraOptCurr AS STRING
DIM RXVTBinCurr AS STRING
DIM DOCREADMEWIN AS STRING
DIM DOCREADMEUNIX AS STRING
DIM DOCREADMELICENSE AS STRING
DIM DOCREADMEVERSION AS STRING
DIM ServerFile AS QFILESTREAM
DIM ServerListFile AS QFILESTREAM
'DIM ConfigFile AS QFILESTREAM
DIM HeaderFont AS QFONT
DIM HeaderFont2 AS QFONT
DIM HeaderFont3 AS QFONT
DIM HeaderFont4 AS QFONT
HeaderFont.Name = "Tahoma"
HeaderFont.AddStyles(fsBold)
HeaderFont.Size = 24
HeaderFont2.Name = "Tahoma"
HeaderFont2.Size = 12
HeaderFont3.Name = "Tahoma"
HeaderFont3.Size = 8
HeaderFont4.Name = "Tahoma"
HeaderFont4.Size = 10
Create EPICIniFile As QIniFile
Name = "epic4.ini"
End Create
Create MenuIniFile AS QIniFile
Name = "menu.ini"
End Create
Dim EPICContent As QStringList
Dim I As Integer
Dim MenuContent AS QStringList
CREATE MainForm AS QFORM
Center
Caption = "ircII EPIC Config App"
Height = 350
Width = 500
BorderStyle = bsToolWindow
CREATE MainMenu AS QMainMenu
CREATE FileMenu AS QMenuItem
Caption = "&File"
CREATE LoadConfig AS QMenuItem
Caption = "Load &Options"
OnClick = ReadOptFromDisk
ShortCut = "CTRL+O"
END CREATE
CREATE SaveConfig AS QMenuItem
Caption = "&Save Options"
OnClick = SaveOptToDisk
ShortCut = "CTRL+S"
END CREATE
CREATE Break1 AS QMenuItem
Caption = "-"
END CREATE
CREATE StartEpic AS QMenuItem
Caption = "Run Epic"
OnClick = RunWithCurrOpt
ShortCut = "CTRL+R"
END CREATE
CREATE Break2 AS QMenuItem
Caption = "-"
END CREATE
CREATE MenuOptMenu AS QMenuItem
Caption = "Configure Menu Settings"
OnClick = ShowMenuOpt
END CREATE
CREATE Break3 AS QMenuItem
Caption = "-"
END CREATE
CREATE ExitApp AS QMenuItem
Caption = "&Exit"
OnClick = QuitProgram
ShortCut = "ALT+F4"
END CREATE
END CREATE
CREATE Tools AS QMenuItem
Caption = "&Tools"
CREATE DelOptions AS QMenuItem
Caption = "Delete User Options"
OnClick = DelOptFile
ShortCut = "CTRL+D"
END CREATE
CREATE EditircrcOpt AS QMenuItem
Caption = "Edit ircrc in Notepad"
OnClick = Editircrc
ShortCut = "CTRL+E"
END CREATE
END CREATE
CREATE Help AS QMenuItem
Caption = "&Help"
CREATE EPICTxtInfo AS QMenuItem
Caption = "EPIC Information..."
OnClick = ShowVerHistory
END CREATE
CREATE AboutOpt AS QMenuItem
Caption = "About..."
OnClick = AboutMenuShow
END CREATE
END CREATE
END CREATE
CREATE NickLabel AS QLABEL
Caption = "Nickname:"
Top = 2
Left = 10
END CREATE
CREATE NickEdit AS QEDIT
Top = NickLabel.Top + 17
Left = NickLabel.Left
Width = 230
Text = "EpicUser"
MaxLength = 30
END CREATE
'CREATE NickHelp AS QBUTTON
' Top = NickEdit.Top - 2
' Left = 250
' Width = 20
' Caption = "?"
' OnClick = NickClick
'END CREATE
CREATE FullNameLabel AS QLABEL
Caption = "Full Name:"
Top = NickEdit.Top + 27
Left = NickLabel.Left
END CREATE
CREATE FullNameEdit AS QEDIT
Top = FullNameLabel.Top + 17
Left = NickLabel.Left
Width = 230
MaxLength = 100
Text = "Some Random EPIC User"
END CREATE
'CREATE FullNameHelp AS QBUTTON
' Top = FullNameEdit.Top - 2
' Left = NickHelp.Left
' Width = 20
' Caption = "?"
' OnClick = FullNameClick
'END CREATE
CREATE UserNameLabel AS QLABEL
Caption = "User Name:"
Top = FullNameEdit.Top + 27
Left = NickLabel.Left
END CREATE
CREATE UserNameEdit AS QEDIT
Top = UserNameLabel.Top + 17
Left = NickLabel.Left
Width = 230
Text = "epicuser"
END CREATE
'CREATE UserNameHelp AS QBUTTON
' Top = UserNameEdit.Top - 2
' Left = NickHelp.Left
' Width = 20
' Caption = "?"
' OnClick = UserNameClick
'END CREATE
CREATE ServerNameLabel AS QLABEL
Caption = "Server:"
Top = UserNameEdit.Top + 27
Left = NickLabel.Left
END CREATE
CREATE ServerNameEdit AS QEDIT
Top = ServerNameLabel.Top + 17
Left = NickLabel.Left
Width = 230
Text = "irc.oftc.net"
END CREATE
'CREATE ServerNameHelp AS QBUTTON
' Top = ServerNameEdit.Top - 2
' Left = NickHelp.Left
' Width = 20
' Caption = "?"
' OnClick = ServerNameClick
'END CREATE
' CREATE ServerNameMult AS QBUTTON
' Top = ServerNameHelp.Top
' Left = ServerNameEdit.Left + 205
' Width = 18
' Caption = "..."
' Enabled = True
' OnClick = DispServerList
' END CREATE
CREATE PortNumLabel AS QLABEL
Caption = "Port:"
Top = ServerNameEdit.Top + 27
Left = NickLabel.Left
END CREATE
CREATE PortNumEdit AS QEDIT
Top = PortNumLabel.Top + 17
Left = NickLabel.Left
Width = 60
Text = "6667"
MaxLength = 6
END CREATE
CREATE ServerListLabel2 AS QLABEL
Left = 280
Top = NickLabel.Top
Width = 300
Caption = "Please Select A Server Below:"
END CREATE
CREATE ServerListBox1 AS QLISTBOX
Left = ServerListLabel2.Left
Top = ServerLabelList2.Top + 20
Height = 120
Width = 200
MultiSelect = False
'AddItems "OFTC (http://www.oftc.net)", "EFNet (http://www.efnet.net)", "DALNet (http://www.dalnet.net)"
'AddItems "FreeNode (http://www.freenode.net)", "IRCNet (http://www.ircnet.org)
OnClick = ChangeServerName2
END CREATE
'CREATE ServerListOK AS QBUTTON
' 'Kind = bkOK
' Width = 80
'Caption = "Set Server"
' Top = ServerNameHelp.Top
' Left = ServerListLabel2.Left + 57
' 'ModalResult = mrOK
' OnClick = ChangeServerName2
'END CREATE
CREATE NoConCheckBox AS QCHECKBOX
Left = ServerListLabel2.Left
Top = ServerListBox1.Top + 130
Caption = "Don't connect automatically"
Width = 170
OnClick = AddNoConFlag
END CREATE
CREATE NoircrcCheckBox AS QCHECKBOX
Left = NoConCheckBox.Left
Top = NoConCheckBox.Top + 20
Caption = "Don't load ircrc"
Width = 170
OnClick = AddNoircrcFlag
END CREATE
CREATE XDebugCheckBox AS QCHECKBOX
Left = NoConCheckBox.Left
Top = NoircrcCheckBox.Top + 20
Caption = "X_Debug Mode"
OnClick = AddXDebugFlag
Width = 170
END CREATE
CREATE ChanConnectCheckBox AS QCHECKBOX
Left = PortNumLabel.Left + 70
Top = PortNumLabel.Top
Caption = "Join channel:"
OnClick = AddJoinChannel
Width = 170
END CREATE
CREATE ChannelNameEdit AS QEDIT
Top = ChanConnectCheckBox.Top + 17
Left = ChanConnectCheckBox.Left
Width = 160
Text = "#irchelp"
Enabled = False
MaxLength = 100
END CREATE
CREATE PassConnectCheckBox AS QCHECKBOX
Left = ChanConnectCheckBox.Left
Top = ChannelNameEdit.Top + 30
Caption = "Server password:"
OnClick = PasswdConnectOpt
Width = 170
END CREATE
CREATE PassConnectEdit AS QEDIT
Top = PassConnectCheckBox.Top + 17
Left = PassConnectCheckBox.Left
Width = 160
Enabled = False
MaxLength = 32
END CREATE
CREATE RunEpic AS QBUTTON
Top = 260
Left = 350
Width = 100
Caption = "Run EPIC"
OnClick = RunWithCurrOpt
END CREATE
'CREATE URLLabel1 AS QLABEL
' Left = 10
' Top = 270
' Width = 100
' Caption = "http://www.2mbit.com/software.html - v2.0.2"
' Font = HeaderFont3
'END CREATE
CREATE StatusBar AS QStatusBar
AddPanels "",""
Panel(0).Width = 380
'Panel(0).Caption = str$(StatusBar.Panel(0).Width)
Panel(1).Caption = "Version 2.0.2"
SizeGrip = False
END CREATE
END CREATE
SUB SaveOptToDisk
SaveEPICini
ShowMessage("The config has been saved.")
LoadConfig.Enabled = True
DelOptions.Enabled = True
END SUB
SUB ReadOptFromDisk
IF FILEEXISTS("epic4.ini") THEN
NickEdit.Text = EPICIniFile.ReadEntry("Config","IRCNICK")
UserNameEdit.Text = EPICIniFile.ReadEntry("Config","IRCUSER")
PortNumEdit.Text = EPICIniFile.ReadEntry("Config","IRCPORT")
ServerNameEdit.Text = EPICIniFile.ReadEntry("Config","IRCSERVER")
FullNameEdit.Text = EPICIniFile.ReadEntry("Config","REALNAME")
ChannelNameEdit.Text = EPICIniFile.ReadEntry("Config","CHANNEL")
PassConnectEdit.Text = EPICIniFile.ReadEntry("Config","PASSWORD")
'ShowMessage("The config file has been loaded")
ELSE
ShowMessage("The config file does not exist. You should change the options above and click Save Options first.")
END IF
END SUB
'--------- NickName Help Display
SUB NickClick
ShowMessage("You can enter a nickname here. Nicknames must consist of letters and numbers and _
can be up to 30 characters on most IRC networks. The only exception is EFNet, _
which has a max of 9 characters.")
END SUB
'-------- Full Name Help Display
SUB FullNameClick
ShowMessage("You can enter your full name here. If you don't want to put your full name here, _
that is ok too - anything is acceptable. It is part of your WHOIS response.")
END SUB
'-------- User Name Help Display
SUB UserNameClick
ShowMessage("You can enter your user name here. If you don't have Identd installed, this is the _
username passed to the server. This can be only letters and numbers, and is a _
max of 9 characters. If you have an Ident (AKA Auth) server installed on your machine_
, this has no affect.")
END SUB
'---------- Server Name Help
SUB ServerNameClick
ShowMessage("You can enter a server name here, or click one of the servers to the right to use a preset.")
END SUB
'-------- About Dialog Display
CREATE AboutMenuDlg AS QFORM
BorderStyle = bsDialog
Center
Caption = "About This Program..."
Height = 200
Width = 500
CREATE AboutMenuLabel1 AS QLABEL
Left = 47
Top = 2
Width = 300
Caption = "ircII EPIC4 Config Menu"
Font = HeaderFont
END CREATE
CREATE AboutMenuLabel2 AS QLABEL
Left = 20
Top = AboutMenuLabel1.Top + 40
Width = 300
Caption = "Copyright The Summit Open Source Development Group 2002"
Font = HeaderFont2
END CREATE
CREATE AboutMenuLabel3 AS QLABEL
Left = 5
Top = 160
Width = 100
Caption = "http://www.2mbit.com"
Font = HeaderFont3
END CREATE
CREATE AboutMenuLabel4 AS QLABEL
Left = 25
Top = AboutMenuLabel2.Top + 30
WordWrap = True
Width = 524
Caption = "Developed by Brian Bruns (bruns@2mbit.com) for use with the ircII EPIC4 client on Windows 9x/ME/NT/2k/XP. Developed under Rapid-Q from basicguru.com."
Font = HeaderFont4
END CREATE
CREATE AboutMenuOK AS QBUTTON
Kind = bkOK
Width = 50
Top = 145
Left = 225
ModalResult = mrOK
OnClick = AboutMenuClose
END CREATE
END CREATE
SUB AboutMenuShow
AboutMenuDlg.Show
END SUB
SUB AboutMenuClose
AboutMenuDlg.Close
END SUB
'-- Quit Program
SUB QuitProgram
'MainForm.Close
Application.Terminate
END SUB
SUB ChangeServerName2 (Sender AS QLISTBOX)
ServerNameEdit.Text = REPLACESUBSTR$(FIELD$(Sender.item(Sender.ItemIndex),":",2),CHR$(09),"")
END SUB
SUB DispServerList
'ServerListDlg.Show
END SUB
SUB DispServerListClose
'ServerListDlg.Close
END SUB
CREATE MenuOptWin AS QFORM
BorderStyle = bsDialog
Center
Caption = "Menu Configuration"
Height = 400
Width = 420
CREATE EPIC4PathLabel AS QLABEL
Caption = "Path to the epic4 directory:"
Top = 10
Left = 5
END CREATE
CREATE EPIC4Path AS QEDIT
Top = EPIC4PathLabel.Top + 20
Left = 5
Width = 400
Text = "C:\epic4"
MaxLength = 255
END CREATE
CREATE EPIC4BinaryLabel AS QLABEL
Caption = "Path to the epic4 binary:"
Top = EPIC4Path.Top + 30
Left = 5
END CREATE
CREATE EPIC4Binary AS QEDIT
Top = EPIC4BinaryLabel.Top + 20
Left = 5
Width = 400
Text = "C:\epic4\bin\epic.exe"
MaxLength = 255
END CREATE
CREATE EPIC4TermInfoLabel AS QLABEL
Caption = "Path to the Terminfo files:"
Top = EPIC4Binary.Top + 30
Left = 5
END CREATE
CREATE EPIC4TermInfo AS QEDIT
Top = EPIC4TermInfoLabel.Top + 20
Left = 5
Width = 400
Text = "C:\epic4\terminfo"
MaxLength = 255
END CREATE
CREATE EPIC4DocsLabel AS QLABEL
Caption = "Path to the EPIC4 documentation:"
Top = EPIC4TermInfo.Top + 30
Left = 5
END CREATE
CREATE EPIC4Docs AS QEDIT
Top = EPIC4DocsLabel.Top + 20
Left = 5
Width = 400
Text = "C:\epic4\docs"
MaxLength = 255
END CREATE
CREATE EPIC4ExtraOptLabel AS QLABEL
Caption = "Extra Options For EPIC:"
Top = EPIC4Docs.Top + 30
Left = 5
END CREATE
CREATE EPIC4ExtraOpt AS QEDIT
Top = EPIC4ExtraOptLabel.Top + 20
Left = 5
Width = 400
Text = ""
MaxLength = 255
END CREATE
CREATE RXVTBinLabel AS QLABEL
Caption = "Path to the RXVT binary:"
Top = EPIC4ExtraOpt.Top + 30
Left = 5
END CREATE
CREATE RXVTBinary AS QEDIT
Top = RXVTBinLabel.Top + 20
Left = 5
Width = 400
Text = "C:\epic4\bin\rxvt.exe"
MaxLength = 255
END CREATE
CREATE OptWinOK AS QBUTTON
Kind = bkOK
Width = 80
Top = 340
Left = 5
'ModalResult = mrOk
OnClick = CloseMenuOpt
END CREATE
CREATE OptWinCancel AS QBUTTON
Kind = bkCancel
Width = 80
Top = 340
Left = OptWinOk.Left + 90
'ModalResult = mrCanel
OnClick = CancelMenuOpt
END CREATE
CREATE OptWinReset AS QBUTTON
Width = 120
Caption = "Reset To Defaults"
Top = 340
Left = OptWinCancel.Left + 90
OnClick = OptWinResetDefaults
END CREATE
END CREATE
Sub ShowMenuOpt
SaveTempOpt
MenuOptWin.Show
END SUB
Sub CloseMenuOpt
MenuContent.Clear
MenuContent.AddItems "EPICPath="+EPIC4Path.Text
MenuContent.AddItems "EPICBin="+EPIC4Binary.Text
MenuContent.AddItems "Terminfo="+EPIC4TermInfo.Text
MenuContent.AddItems "EPICDocs="+EPIC4Docs.Text
MenuContent.AddItems "EPICExtra="+EPIC4ExtraOpt.Text
MenuContent.AddItems "RXVTBin="+RXVTBinary.Text
KILL "menu.ini"
MenuIniFile.WriteSection "Config",MenuContent
MenuOptWin.Close
StatusBar.Panel(0).Caption = "Menu configuration saved."
END SUB
Sub ReadMenuOpt
IF FILEEXISTS("menu.ini") THEN
EPIC4Path.Text = MenuIniFile.ReadEntry("Config","EPICPath")
EPIC4Binary.Text = MenuIniFile.ReadEntry("Config","EPICBin")
EPIC4TermInfo.Text = MenuIniFile.ReadEntry("Config","Terminfo")
EPIC4Docs.Text = MenuIniFile.ReadEntry("Config","EPICDocs")
EPIC4ExtraOpt.Text = MenuIniFile.ReadEntry("Config","EPICExtra")
RXVTBinary.Text = MenuIniFile.ReadEntry("Config","RXVTBin")
END IF
End Sub
Sub SaveTempOpt
EPIC4PathCurr = EPIC4Path.Text
EPIC4BinCurr = EPIC4Binary.Text
EPIC4TermInfoCurr = EPIC4TermInfo.Text
EPIC4DocsCurr = EPIC4Docs.Text
EPIC4ExtraOptCurr = EPIC4ExtraOpt.Text
RXVTBinCurr = RXVTBinary.Text
END SUB
Sub OptWinResetDefaults
EPIC4Path.Text = "C:\epic4"
EPIC4Binary.Text = "C:\epic4\bin\epic.exe"
EPIC4TermInfo.Text = "C:\epic4\terminfo"
EPIC4Docs.Text = "C:\epic4\docs"
EPIC4ExtraOpt.Text = ""
RXVTBinary.Text = "C:\epic4\bin\rxvt.exe"
END SUB
Sub CancelMenuOpt
EPIC4Path.Text = EPIC4PathCurr
EPIC4Binary.Text = EPIC4BinCurr
EPIC4TermInfo.Text = EPIC4TermInfoCurr
EPIC4Docs.Text = EPIC4DocsCurr
EPIC4ExtraOpt.Text = EPIC4ExtraOptCurr
RXVTBinary.Text = RXVTBinCurr
MenuOptWin.Close
StatusBar.Panel(0).Caption = "Menu configuration changes canceled."
END SUB
SUB AddNoConFlag
IF NoConCheckBox.Checked THEN
NoConStr = " -s "
ChanConnectCheckBox.Enabled = False
ChannelNameEdit.Enabled = False
'PassConnectCheckBox.Enabled = False
'PassConnectEdit.Enabled = False
ELSE
NoConStr = ""
ChanConnectCheckBox.Enabled = True
AddJoinChannel
'ChannelNameEdit.Enabled = True
'PassConnectCheckBox.Enabled = True
'PassConnectEdit.Enabled = True
END IF
END SUB
SUB AddNoircrcFlag
IF NoircrcCheckBox.Checked THEN
NoircrcStr = " -q "
ELSE
NoircrcStr = ""
END IF
END SUB
SUB AddXDebugFlag
IF XDebugCheckBox.Checked THEN
XDebugStr = " -x "
ELSE
XDebugStr = ""
END IF
END SUB
SUB AddJoinChannel
IF ChanConnectCheckBox.Checked THEN
ChannelNameEdit.Enabled = True
JoinChanStr = " -c "+ChannelNameEdit.Text+" "
ELSE
ChannelNameEdit.Enabled = False
JoinChanStr = ""
END IF
END SUB
SUB PasswdConnectOpt
IF PassConnectCheckBox.Checked THEN
PassConnectEdit.Enabled = True
PasswordStr = PassConnectEdit.Text
ELSE
PassConnectEdit.Enabled = False
PasswordStr = ""
END IF
END SUB
SUB RunWithCurrOpt
DIM EPIC4Bin AS STRING
DIM RXVTBin AS STRING
EPIC4Bin = EPIC4Binary.Text
RXVTBin = RXVTBinary.Text
AddJoinChannel
IF PassConnectCheckBox.Checked THEN
ServerConnectStr = ServerNameEdit.Text+":"+PortNumEdit.Text+":"+PasswordStr
ELSE
ServerConnectStr = ServerNameEdit.Text+":"+PortNumEdit.Text
END IF
IF FILEEXISTS(EPIC4Bin) THEN
ENVIRON "TERMINFO="+EPIC4TermInfo.Text
ENVIRON "HOME="+EPIC4Path.Text
ENVIRON "IRCNAME="+FullNameEdit.Text
'ENVIRON "HELP_PATH="+EPIC4Path.Text+"\share\epic\help"
'CmdLineOpts = NickEdit.Text+" -z "+UserNameEdit.Text+" -p "+PortNumEdit.Text+" "+NoConStr+NoircrcStr+XDebugStr+JoinChanStr+" "+EPIC4ExtraOpt.Text+" "+ServerNameEdit.Text
CmdLineOpts = NickEdit.Text+" -z "+UserNameEdit.Text+" "+NoConStr+NoircrcStr+XDebugStr+JoinChanStr+" "+EPIC4ExtraOpt.Text+" "+ServerConnectStr
RUN RXVTBin+" +ut -sr -sl 5000 -tn xterm -e "+EPIC4Bin+" -n "+CmdLineOpts
'ShowMessage(CmdLineOpts)
StatusBar.Panel(0).Caption = CmdLineOpts
QuitProgram
ELSE
ShowMessage("Error: The EPIC4 application was not found. Please check the paths under Tools -> Configure Menu Settings.")
StatusBar.Panel(0).Caption = "The EPIC4 application was not found!"
END IF
END SUB
SUB DelOptFile
KILL "epic4.ini"
'ShowMessage("Config file deleted.")
StatusBar.Panel(0).Caption = "EPIC4 config file deleted."
LoadConfig.Enabled = False
DelOptions.Enabled = False
END SUB
SUB ChkCfgExist
IF FILEEXISTS("epic4.ini") THEN
LoadConfig.Enabled = True
DelOptions.Enabled = True
StatusBar.Panel(0).Caption = "EPIC4 config file found and loaded."
ReadOptFromDisk
ELSE
StatusBar.Panel(0).Caption = "EPIC4 config file not found. Loaded default settings."
LoadConfig.Enabled = False
DelOptions.Enabled = False
END IF
END SUB
Sub SaveEPICini
EPICContent.Clear
EPICContent.AddItems "IRCNICK="+NickEdit.Text
EPICContent.AddItems "IRCUSER="+UserNameEdit.Text
EPICContent.AddItems "IRCPORT="+PortNumEdit.Text
EPICContent.AddItems "IRCSERVER="+ServerNameEdit.Text
EPICContent.AddItems "REALNAME="+FullNameEdit.Text
EPICContent.AddItems "CHANNEL="+ChannelNameEdit.Text
EPICContent.AddItems "PASSWORD="+PassConnectEdit.Text
KILL "epic4.ini"
EPICIniFile.WriteSection "Config",EPICContent
End Sub
CREATE EPICTxtWin AS QFORM
BorderStyle = bsDialog
Center
Caption = "EPIC Information"
Height = 400
Width = 500
CREATE REVersion AS QRICHEDIT
ScrollBars = ssBoth
ReadOnly = True
Left = 5
Top = 2
Height = 330
Width = 483
END CREATE
CREATE ReadMe AS QBUTTON
Top = 340
Left = 5
Width = 80
Caption = "EPIC (Win32)"
OnClick = LoadWin32Readme
END CREATE
CREATE ReadMe2 AS QBUTTON
Top = ReadMe.Top
Left = ReadMe.Left + 90
Width = 80
Caption = "EPIC (UNIX)"
OnClick = LoadUNIXReadme
END CREATE
CREATE License AS QBUTTON
Top = ReadMe.Top
Left = ReadMe2.Left + 90
Width = 80
Caption = "License"
OnClick = LoadLicense
END CREATE
CREATE VersionHistory AS QBUTTON
Top = ReadMe.Top
Left = License.Left + 90
Width = 80
Caption = "Versions"
OnClick = LoadVersHistory
END CREATE
CREATE TXTWinOK AS QBUTTON
Kind = bkOK
Width = 50
Top = ReadMe.Top
Left = VersionHistory.Left + 150
ModalResult = mrOK
OnClick = CloseVerHistory
END CREATE
END CREATE
Sub LoadWin32Readme
IF FILEEXISTS(EPIC4Docs.Text+"\readme.txt") THEN
REVersion.LoadFromFile EPIC4Docs.Text+"\readme.txt"
ELSE
ShowMessage("Warning: readme.txt was not found. Unable to display!")
END IF
End Sub
Sub LoadUNIXReadme
IF FILEEXISTS(EPIC4Docs.Text+"\readme-unix.txt") THEN
REVersion.LoadFromFile EPIC4Docs.Text+"\readme-unix.txt"
ELSE
ShowMessage("Warning: readme-unix.txt was not found. Unable to display!")
END IF
End Sub
Sub LoadLicense
IF FILEEXISTS(EPIC4Docs.Text+"\copyright.txt") THEN
REVersion.LoadFromFile EPIC4Docs.Text+"\copyright.txt"
ELSE
ShowMessage("Warning: copyright.txt was not found. Unable to display!")
END IF
End Sub
Sub LoadVersHistory
IF FILEEXISTS(EPIC4Docs.Text+"\version.txt") THEN
REVersion.LoadFromFile EPIC4Docs.Text+"\version.txt"
ELSE
ShowMessage("Warning: version.txt was not found. Unable to display!")
END IF
End Sub
Sub ShowVerHistory
EPICTxtWin.Show
END SUB
Sub CloseVerHistory
EPICTxtWin.Close
END SUB
Sub Editircrc
IF FILEEXISTS(EPIC4Path.Text+"\ircrc") THEN
RUN "notepad.exe "+EPIC4Path.Text+"\ircrc"
ELSE
DIM IRCRCFile AS QFileStream
IRCRCFile.Open(EPIC4Path.Text+"\ircrc", fmCreate)
IRCRCFile.WriteLine("# This is a blank ircrc file.")
IRCRCFile.WriteLine("# You can load up your EPIC4 scripts here or put")
IRCRCFile.WriteLine("# commands you want run when the client connects.")
IRCRCFile.Close
RUN "notepad.exe "+EPIC4Path.Text+"\ircrc"
END IF
End Sub
Sub LoadServerList
ServerFile.Open("ircservers.txt", fmOpenRead)
ServerListBox1.Clear
Y# = 0
Do
ServerListBox1.AddItems ServerFile.ReadLine
Y++
Loop until ServerFile.eof
'ShowMessage(FIELD$(ServerListBox1.Item(0), CHR$(09), 2))
END SUB
Sub ChkServerListExist
IF FILEEXISTS("ircservers.txt") THEN
' Nothing to do
ELSE
ServerListFile.Open("ircservers.txt", fmCreate)
ServerListFile.WriteLine("EFNet:"+CHR$(09)+CHR$(09)+"us.rr.efnet.net")
ServerListFile.WriteLine("DALNet:"+CHR$(09)+CHR$(09)+"irc.dal.net")
ServerListFile.WriteLine("OFTC:"+CHR$(09)+CHR$(09)+"irc.oftc.net")
ServerListFile.WriteLine("XIPH:"+CHR$(09)+CHR$(09)+"irc.xiph.org")
ServerListFile.WriteLine("FreeNode:"+CHR$(09)+"irc.openprojects.net")
ServerListFile.WriteLine("IRCNet:"+CHR$(09)+CHR$(09)+"irc.ircnet.org")
ServerListFile.WriteLine("UnderNet:"+CHR$(09)+"us.undernet.org")
ServerListFile.Close
END IF
END Sub
'FullNameEdit.Enabled = False
' Its not working correctly with the addition of the password and channel boxes
'NoConCheckBox.Enabled = False
ChkServerListExist
LoadServerList
ReadMenuOpt
ChkCfgExist
MainForm.ShowModal