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