commit
534fb5f54b
8 changed files with 1218 additions and 0 deletions
@ -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 |
@ -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 |
@ -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 |
@ -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/ |
@ -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 |
@ -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 |
@ -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 |
Loading…
Reference in new issue