Menu
▾
▴
[swebs-commits] swebswebserver/winui frmNewVirtHost.frm,NONE,1.1 frmNewVirtHost.frx,NONE,1.1 ChangeLog.txt,1.30,1.31 WinUI.lvw,1.25,1.26 WinUI.vbp,1.72,1.73 WinUI.vbw,1.26,1.27 frmMain.frm,1.82,1.83 frmMain.frx,1.24,1.25 frmNewISAPI.frm,1.2,1.3 frmSplash.frm,1.16,1.17 lang.xml,1.13,1.14 swebscc.exe,1.69,1.70
|
From: <ple...@us...> - 2003-11-22 16:06:05
|
Update of /cvsroot/swebs/swebswebserver/winui In directory sc8-pr-cvs1:/tmp/cvs-serv11048/swebswebserver/winui Modified Files: ChangeLog.txt WinUI.lvw WinUI.vbp WinUI.vbw frmMain.frm frmMain.frx frmNewISAPI.frm frmSplash.frm lang.xml swebscc.exe Added Files: frmNewVirtHost.frm frmNewVirtHost.frx Log Message: Release time :) http://swebs.sourceforge.net/html/index.php?name=PNphpBB2&file=viewtopic&t=65 --- NEW FILE: frmNewVirtHost.frm --- VERSION 5.00 Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX" Begin VB.Form frmNewVirtHost BackColor = &H00FFFFFF& BorderStyle = 4 'Fixed ToolWindow Caption = "Add New Virtual Host" ClientHeight = 3900 ClientLeft = 45 ClientTop = 315 ClientWidth = 6210 LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 3900 ScaleWidth = 6210 ShowInTaskbar = 0 'False StartUpPosition = 2 'CenterScreen Begin VB.TextBox txtNewvHostName Height = 285 Left = 240 TabIndex = 4 Top = 1080 Width = 2055 End Begin VB.TextBox txtNewvHostDomain Height = 285 Left = 240 TabIndex = 3 Top = 1680 Width = 2055 End Begin VB.TextBox txtNewvHostRoot Height = 285 Left = 240 TabIndex = 2 Top = 2280 Width = 5055 End Begin VB.TextBox txtNewvHostLogs Height = 285 Left = 240 TabIndex = 1 Top = 2880 Width = 5055 End Begin MSComDlg.CommonDialog dlgMain Left = 5640 Top = 3360 _ExtentX = 847 _ExtentY = 847 _Version = 393216 End Begin VB.Label lblBrowseLog AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Browse" Enabled = 0 'False BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = -1 'True Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FF0000& Height = 225 Left = 5400 MouseIcon = "frmNewVirtHost.frx":0000 MousePointer = 99 'Custom TabIndex = 12 Top = 2880 Width = 660 End Begin VB.Label lblBrowseRoot AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Browse" Enabled = 0 'False BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = -1 'True Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FF0000& Height = 225 Left = 5400 MouseIcon = "frmNewVirtHost.frx":0152 MousePointer = 99 'Custom TabIndex = 11 Top = 2280 Width = 660 End Begin VB.Label lblCancel AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "&Cancel" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = -1 'True Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FF0000& Height = 225 Left = 3319 MouseIcon = "frmNewVirtHost.frx":02A4 MousePointer = 99 'Custom TabIndex = 10 Top = 3480 Width = 585 End Begin VB.Label lblOK AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "&OK" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = -1 'True Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FF0000& Height = 225 Left = 2306 MouseIcon = "frmNewVirtHost.frx":03F6 MousePointer = 99 'Custom TabIndex = 9 Top = 3480 Width = 255 End Begin VB.Label lblNewvHostName AutoSize = -1 'True BackColor = &H00FFFFFF& Caption = "What is the name of this Virtual Host?" Height = 195 Left = 120 TabIndex = 8 Top = 840 Width = 2655 End Begin VB.Label lblNewvHostRoot AutoSize = -1 'True BackColor = &H00FFFFFF& Caption = "Where is the root folder for this Virtual Host?" Height = 195 Left = 120 TabIndex = 7 Top = 2040 Width = 3105 End Begin VB.Label lblNewvHostDomain AutoSize = -1 'True BackColor = &H00FFFFFF& Caption = "What is the domain for this Virtual Host?" Height = 195 Left = 120 TabIndex = 6 Top = 1440 Width = 2820 End Begin VB.Label lblNewvHostLogs AutoSize = -1 'True BackColor = &H00FFFFFF& Caption = "Where do you want to keep the log for this Virtual Host?" Height = 195 Left = 120 TabIndex = 5 Top = 2640 Width = 3960 End Begin VB.Label lblTitle BackStyle = 0 'Transparent Caption = "Add New Virtual Host" BeginProperty Font Name = "Arial" Size = 14.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 330 Left = 120 TabIndex = 0 Top = 120 Width = 2850 End Begin VB.Shape shpTitle BackColor = &H00804008& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Left = 0 Top = 0 Width = 6330 End Begin VB.Line Line1 X1 = 6330 X2 = 0 Y1 = 600 Y2 = 600 End End Attribute VB_Name = "frmNewVirtHost" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Private Sub Form_Load() lblOK.Caption = Translator.GetText("&OK") lblCancel.Caption = Translator.GetText("&Cancel") lblTitle.Caption = Translator.GetText("Add a new Virtual Host") lblNewvHostName.Caption = Translator.GetText("What is the name of this Virtual Host?") lblNewvHostDomain.Caption = Translator.GetText("What is the domain for this Virtual Host?") lblNewvHostRoot.Caption = Translator.GetText("Where is the root folder for this Virtual Host?") lblNewvHostLogs.Caption = Translator.GetText("Where do you want to keep the log for this Virtual Host?") End Sub Private Sub lblBrowseLog_Click() dlgMain.DialogTitle = Translator.GetText("Please select a file...") dlgMain.Filter = Translator.GetText("Log Files (*.log)|*.log|All Files (*.*)|*.*") dlgMain.InitDir = Core.Path dlgMain.ShowSave txtNewvHostLogs.Text = dlgMain.FileName End Sub Private Sub lblBrowseRoot_Click() Dim strPath As String strPath = Util.BrowseForFolder(, True, Core.Server.HTTP.Config.WebRoot) If strPath <> "" Then txtNewvHostRoot.Text = strPath End If End Sub Private Sub lblCancel_Click() Unload Me End Sub Private Sub lblOK_Click() If txtNewvHostName.Text <> "" And txtNewvHostDomain.Text <> "" And txtNewvHostRoot.Text <> "" And txtNewvHostLogs.Text <> "" Then Core.Server.HTTP.Config.VirtHost.Add txtNewvHostName.Text, txtNewvHostDomain.Text, txtNewvHostRoot.Text, txtNewvHostLogs.Text, txtNewvHostName.Text Unload Me Else MsgBox Translator.GetText("Please fill all fields.") End If End Sub --- NEW FILE: frmNewVirtHost.frx --- (This appears to be a binary file; contents omitted.) Index: ChangeLog.txt =================================================================== RCS file: /cvsroot/swebs/swebswebserver/winui/ChangeLog.txt,v retrieving revision 1.30 retrieving revision 1.31 diff -u -d -r1.30 -r1.31 --- ChangeLog.txt 17 Nov 2003 11:43:07 -0000 1.30 +++ ChangeLog.txt 22 Nov 2003 16:05:06 -0000 1.31 @@ -28,6 +28,7 @@ # Removed serveral external dependincies. # Added useless but cool form fading on the splash screen (Win2000+). # Redesigned user interface. +# Tip of The Day is disabled by default. 0.9.8 (09/22/2003) ------------------ Index: WinUI.lvw =================================================================== RCS file: /cvsroot/swebs/swebswebserver/winui/WinUI.lvw,v retrieving revision 1.25 retrieving revision 1.26 diff -u -d -r1.25 -r1.26 Binary files /tmp/cvs63iJtm and /tmp/cvsGGMoyy differ Index: WinUI.vbp =================================================================== RCS file: /cvsroot/swebs/swebswebserver/winui/WinUI.vbp,v retrieving revision 1.72 retrieving revision 1.73 diff -u -d -r1.72 -r1.73 --- WinUI.vbp 20 Nov 2003 15:51:51 -0000 1.72 +++ WinUI.vbp 22 Nov 2003 16:05:06 -0000 1.73 @@ -1,7 +1,7 @@ Type=Exe Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\System32\stdole2.tlb#OLE Automation -Reference=*\G{884EA141-7415-4FF3-AFAA-9AAF29671C5B}#5.0#0#ccCore\ccCore.dll# -Reference=*\G{0C5C47CC-E5CB-4896-A020-0350E9EF2D64}#6.0#0#..\..\swebswebserver\winui\ccUtil\ccUtil.dll# +Reference=*\G{884EA141-7415-4FF3-AFAA-9AAF29671C5B}#7.0#0#..\..\swebswebserver\winui\ccCore\ccCore.dll# +Reference=*\G{0C5C47CC-E5CB-4896-A020-0350E9EF2D64}#7.0#0#..\..\swebswebserver\winui\ccUtil\ccUtil.dll# Reference=*\G{44004330-CB01-44A6-9375-50C0E8281B75}#1.0#0#..\..\swebswebserver\winui\ccTranslator\ccTranslator.dll# Object={3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0; RICHTX32.OCX Object={F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0; COMDLG32.OCX @@ -17,6 +17,7 @@ Module=basExceptionFilter; basExceptionFilter.bas Form=frmNewISAPI.frm Module=basTransparency; ..\..\swebswebserver\winui\basTransparency.bas +Form=..\..\swebswebserver\winui\frmNewVirtHost.frm IconForm="frmMain" Startup="Sub Main" HelpFile="" @@ -30,16 +31,16 @@ CompatibleMode="0" MajorVer=1 MinorVer=0 -RevisionVer=203 +RevisionVer=207 AutoIncrementVer=1 ServerSupportFiles=0 VersionCompanyName="SWEBS Development Team" VersionFileDescription="SWEBS Windows UI" VersionLegalCopyright="Copyright© 2003 Adam Caudill" VersionProductName="SWEBS Web Server" -CompilationType=-1 +CompilationType=0 OptimizationType=0 -FavorPentiumPro(tm)=-1 +FavorPentiumPro(tm)=0 CodeViewDebugInfo=0 NoAliasing=0 BoundsCheck=0 Index: WinUI.vbw =================================================================== RCS file: /cvsroot/swebs/swebswebserver/winui/WinUI.vbw,v retrieving revision 1.26 retrieving revision 1.27 diff -u -d -r1.26 -r1.27 --- WinUI.vbw 17 Nov 2003 11:43:07 -0000 1.26 +++ WinUI.vbw 22 Nov 2003 16:05:06 -0000 1.27 @@ -1,11 +1,13 @@ basMain = 89, 133, 1146, 784, -frmMain = 117, 303, 1172, 956, , 94, 38, 955, 630, C +frmMain = 117, 303, 1172, 956, C, 94, 38, 955, 630, C frmTip = 213, 202, 1226, 926, C, 198, 261, 650, 670, C frmEventView = 66, 81, 1079, 805, C, 22, 29, 550, 446, C -frmAbout = 66, 87, 1068, 811, C, 88, 116, 506, 650, C -frmRegistration = 176, 232, 1178, 956, C, 198, 261, 1200, 985, C -frmSplash = 198, 261, 1200, 985, C, 220, 290, 1222, 1014, C -frmUpdate = 154, 203, 1156, 927, C, 176, 232, 1178, 956, C +frmAbout = 66, 87, 1068, 811, C, 88, 116, 697, 650, C +frmRegistration = 176, 232, 1178, 956, C, 198, 261, 657, 661, C +frmSplash = 198, 261, 1200, 985, C, 220, 290, 834, 493, C +frmUpdate = 154, 203, 1156, 927, C, 176, 232, 833, 676, C cSysTray = 198, 261, 1200, 985, C -basExceptionFilter = 242, 319, 1244, 1043, -frmNewISAPI = 0, 0, 0, 0, C, 110, 145, 1112, 869, C +basExceptionFilter = 242, 319, 1244, 1043, C +frmNewISAPI = 44, 58, 1046, 782, C, 460, 428, 944, 755, C +basTransparency = 88, 116, 1090, 840, +frmNewVirtHost = 88, 116, 1090, 840, C, 22, 29, 504, 411, C Index: frmMain.frm =================================================================== RCS file: /cvsroot/swebs/swebswebserver/winui/frmMain.frm,v retrieving revision 1.82 retrieving revision 1.83 diff -u -d -r1.82 -r1.83 --- frmMain.frm 20 Nov 2003 15:51:52 -0000 1.82 +++ frmMain.frm 22 Nov 2003 16:05:06 -0000 1.83 @@ -16,42 +16,6 @@ ScaleHeight = 7305 ScaleWidth = 12075 StartUpPosition = 2 'CenterScreen - Begin VB.Frame fraLogs - BackColor = &H00FFFFFF& - BorderStyle = 0 'None - Height = 5895 - Left = 2520 - TabIndex = 36 - Top = 840 - Width = 6975 - Begin RichTextLib.RichTextBox rtfViewLogFiles - Height = 5415 - Left = 120 - TabIndex = 70 - Top = 480 - Width = 6735 - _ExtentX = 11880 - _ExtentY = 9551 - _Version = 393217 - Enabled = -1 'True - ReadOnly = -1 'True - ScrollBars = 3 - Appearance = 0 - AutoVerbMenu = -1 'True - TextRTF = $"frmMain.frx":0CCA - End - Begin VB.ComboBox cmbViewLogFiles - Appearance = 0 'Flat - Height = 315 - ItemData = "frmMain.frx":0D4C - Left = 120 - List = "frmMain.frx":0D4E - Style = 2 'Dropdown List - TabIndex = 37 - Top = 120 - Width = 6735 - End - End Begin VB.Frame fraConfigvHost BackColor = &H00FFFFFF& BorderStyle = 0 'None @@ -62,9 +26,9 @@ Width = 6975 Begin VB.ListBox lstvHosts Height = 5130 - ItemData = "frmMain.frx":0D50 + ItemData = "frmMain.frx":0CCA Left = 120 - List = "frmMain.frx":0D52 + List = "frmMain.frx":0CCC TabIndex = 25 Top = 240 Width = 1815 @@ -118,9 +82,9 @@ ForeColor = &H00FF0000& Height = 225 Left = 2160 - MouseIcon = "frmMain.frx":0D54 + MouseIcon = "frmMain.frx":0CCE MousePointer = 99 'Custom - TabIndex = 107 + TabIndex = 91 Top = 5160 Width = 765 End @@ -142,9 +106,9 @@ ForeColor = &H00FF0000& Height = 225 Left = 3270 - MouseIcon = "frmMain.frx":0EA6 + MouseIcon = "frmMain.frx":0E20 MousePointer = 99 'Custom - TabIndex = 106 + TabIndex = 90 Top = 5160 Width = 705 End @@ -165,9 +129,9 @@ ForeColor = &H00FF0000& Height = 225 Left = 6240 - MouseIcon = "frmMain.frx":0FF8 + MouseIcon = "frmMain.frx":0F72 MousePointer = 99 'Custom - TabIndex = 105 + TabIndex = 89 Top = 1680 Width = 660 End @@ -188,9 +152,9 @@ ForeColor = &H00FF0000& Height = 225 Left = 6240 - MouseIcon = "frmMain.frx":114A + MouseIcon = "frmMain.frx":10C4 MousePointer = 99 'Custom - TabIndex = 104 + TabIndex = 88 Top = 2280 Width = 660 End @@ -231,6 +195,42 @@ Width = 4335 End End + Begin VB.Frame fraLogs + BackColor = &H00FFFFFF& + BorderStyle = 0 'None + Height = 5895 + Left = 2520 + TabIndex = 36 + Top = 840 + Width = 6975 + Begin RichTextLib.RichTextBox rtfViewLogFiles + Height = 5415 + Left = 120 + TabIndex = 54 + Top = 480 + Width = 6735 + _ExtentX = 11880 + _ExtentY = 9551 + _Version = 393217 + Enabled = -1 'True + ReadOnly = -1 'True + ScrollBars = 3 + Appearance = 0 + AutoVerbMenu = -1 'True + TextRTF = $"frmMain.frx":1216 + End + Begin VB.ComboBox cmbViewLogFiles + Appearance = 0 'Flat + Height = 315 + ItemData = "frmMain.frx":1298 + Left = 120 + List = "frmMain.frx":129A + Style = 2 'Dropdown List + TabIndex = 37 + Top = 120 + Width = 6735 + End + End Begin VB.Frame fraConfigISAPI BackColor = &H00FFFFFF& BorderStyle = 0 'None @@ -283,7 +283,7 @@ Left = 5880 MouseIcon = "frmMain.frx":12B1 MousePointer = 99 'Custom - TabIndex = 101 + TabIndex = 85 Top = 600 Width = 660 End @@ -307,7 +307,7 @@ Left = 3255 MouseIcon = "frmMain.frx":1403 MousePointer = 99 'Custom - TabIndex = 100 + TabIndex = 84 Top = 5160 Width = 705 End @@ -330,7 +330,7 @@ Left = 2145 MouseIcon = "frmMain.frx":1555 MousePointer = 99 'Custom - TabIndex = 99 + TabIndex = 83 Top = 5160 Width = 765 End @@ -369,7 +369,7 @@ Left = 120 ScaleHeight = 2295 ScaleWidth = 6615 - TabIndex = 54 + TabIndex = 38 Top = 120 Width = 6615 Begin VB.Frame fraBasicStats @@ -377,7 +377,7 @@ Caption = "Basic Stats:" Height = 1095 Left = 0 - TabIndex = 62 + TabIndex = 46 Top = 1200 Width = 3135 Begin VB.Label lblStatsBytesSent @@ -385,7 +385,7 @@ Caption = "Total Bytes Sent: 000,000,000,000,000" Height = 255 Left = 120 - TabIndex = 65 + TabIndex = 49 Top = 720 Width = 2895 End @@ -394,7 +394,7 @@ Caption = "Request Count: 000,000,000" Height = 255 Left = 120 - TabIndex = 64 + TabIndex = 48 Top = 480 Width = 2895 End @@ -403,7 +403,7 @@ Caption = "Last Restart: 00/00/0000 00:00:00PM" Height = 255 Left = 120 - TabIndex = 63 + TabIndex = 47 Top = 240 Width = 2775 End @@ -413,7 +413,7 @@ Caption = "Update Status:" Height = 1095 Left = 3240 - TabIndex = 55 + TabIndex = 39 Top = 0 Width = 3255 Begin VB.Label lblUpdateStatus @@ -435,7 +435,7 @@ Left = 660 MouseIcon = "frmMain.frx":16A7 MousePointer = 99 'Custom - TabIndex = 58 + TabIndex = 42 ToolTipText = "Click here for details." Top = 720 Width = 1935 @@ -445,7 +445,7 @@ Caption = "Update Version: 0.00.0000" Height = 255 Left = 120 - TabIndex = 57 + TabIndex = 41 Top = 480 Width = 2655 End @@ -454,7 +454,7 @@ Caption = "Current Version: 0.00.0000" Height = 255 Left = 120 - TabIndex = 56 + TabIndex = 40 Top = 240 Width = 2775 End @@ -464,7 +464,7 @@ Caption = "Current Service Status:" Height = 1095 Left = 0 - TabIndex = 59 + TabIndex = 43 Top = 0 Width = 3135 Begin VB.Label lblSrvRestart @@ -486,7 +486,7 @@ Left = 2145 MouseIcon = "frmMain.frx":17F9 MousePointer = 99 'Custom - TabIndex = 94 + TabIndex = 78 Top = 720 Width = 645 End @@ -509,7 +509,7 @@ Left = 1305 MouseIcon = "frmMain.frx":194B MousePointer = 99 'Custom - TabIndex = 93 + TabIndex = 77 Top = 720 Width = 405 End @@ -532,7 +532,7 @@ Left = 330 MouseIcon = "frmMain.frx":1A9D MousePointer = 99 'Custom - TabIndex = 92 + TabIndex = 76 Top = 720 Width = 435 End @@ -541,7 +541,7 @@ Caption = "<current-status>" Height = 255 Left = 720 - TabIndex = 61 + TabIndex = 45 Top = 240 Width = 2295 End @@ -550,7 +550,7 @@ Caption = "Status: " Height = 255 Left = 120 - TabIndex = 60 + TabIndex = 44 Top = 240 Width = 615 End @@ -568,7 +568,7 @@ Begin VB.TextBox txtConfigBasicErrorLog Height = 285 Left = 240 - TabIndex = 69 + TabIndex = 53 Top = 1440 Width = 5895 End @@ -618,7 +618,7 @@ Left = 6240 MouseIcon = "frmMain.frx":1BEF MousePointer = 99 'Custom - TabIndex = 98 + TabIndex = 82 Top = 3360 Width = 660 End @@ -640,7 +640,7 @@ Left = 6240 MouseIcon = "frmMain.frx":1D41 MousePointer = 99 'Custom - TabIndex = 97 + TabIndex = 81 Top = 2400 Width = 660 End @@ -662,7 +662,7 @@ Left = 6240 MouseIcon = "frmMain.frx":1E93 MousePointer = 99 'Custom - TabIndex = 96 + TabIndex = 80 Top = 1440 Width = 660 End @@ -671,7 +671,7 @@ Caption = "Where do you want to store the server error log?" Height = 255 Left = 120 - TabIndex = 68 + TabIndex = 52 Top = 1200 Width = 6015 End @@ -723,7 +723,7 @@ Begin VB.TextBox txtConfigAdvIPBind Height = 285 Left = 240 - TabIndex = 67 + TabIndex = 51 Top = 1560 Width = 2295 End @@ -773,7 +773,7 @@ Left = 6000 MouseIcon = "frmMain.frx":2089 MousePointer = 99 'Custom - TabIndex = 95 + TabIndex = 79 Top = 3240 Width = 660 End @@ -782,7 +782,7 @@ Caption = "What IP should the server listen to? (Default: Leave blank for all available)" Height = 255 Left = 120 - TabIndex = 66 + TabIndex = 50 Top = 1320 Width = 5775 End @@ -840,142 +840,12 @@ Left = 1080 Top = 6720 End - Begin VB.Frame fraNewvHost - BorderStyle = 0 'None - Height = 5895 - Left = 2520 - TabIndex = 38 - Top = 840 - Width = 6855 - Begin VB.PictureBox picButton - BorderStyle = 0 'None - Height = 375 - Index = 9 - Left = 2280 - ScaleHeight = 375 - ScaleWidth = 2175 - TabIndex = 51 - Top = 3240 - Width = 2175 - Begin VB.CommandButton cmdNewvHostOK - Caption = "OK" - Height = 375 - Left = 0 - TabIndex = 53 - Top = 0 - Width = 1095 - End - Begin VB.CommandButton cmdNewvHostCancel - Caption = "Cancel" - Height = 375 - Left = 1200 - TabIndex = 52 - Top = 0 - Width = 975 - End - End - Begin VB.CommandButton cmdBrowseNewvHostRoot - Caption = "..." - Height = 255 - Left = 5880 - TabIndex = 49 - Top = 2160 - Width = 255 - End - Begin VB.PictureBox picButton - BorderStyle = 0 'None - Height = 855 - Index = 6 - Left = 5880 - ScaleHeight = 855 - ScaleWidth = 255 - TabIndex = 48 - Top = 2160 - Width = 255 - Begin VB.CommandButton cmdBrowseNewvHostLogs - Caption = "..." - Height = 255 - Left = 0 - TabIndex = 50 - Top = 600 - Width = 255 - End - End - Begin VB.TextBox txtNewvHostLogs - Height = 285 - Left = 600 - TabIndex = 47 - Top = 2760 - Width = 5175 - End - Begin VB.TextBox txtNewvHostRoot - Height = 285 - Left = 600 - TabIndex = 45 - Top = 2160 - Width = 5175 - End - Begin VB.TextBox txtNewvHostDomain - Height = 285 - Left = 600 - TabIndex = 44 - Top = 1560 - Width = 2055 - End - Begin VB.TextBox txtNewvHostName - Height = 285 - Left = 600 - TabIndex = 41 - Top = 960 - Width = 2055 - End - Begin VB.Label lblNewvHostLogs - Caption = "Where do you want to keep the log for this Virtual Host?" - Height = 255 - Left = 480 - TabIndex = 46 - Top = 2520 - Width = 5295 - End - Begin VB.Label lblNewvHostDomain - Caption = "What is the domain for this Virtual Host?" - Height = 255 - Left = 480 - TabIndex = 43 - Top = 1320 - Width = 5775 - End - Begin VB.Label lblNewvHostRoot - Caption = "Where is the root folder for this Virtual Host?" - Height = 255 - Left = 480 - TabIndex = 42 - Top = 1920 - Width = 5535 - End - Begin VB.Label lblNewvHostName - Caption = "What is the name of this Virtual Host?" - Height = 255 - Left = 480 - TabIndex = 40 - Top = 720 - Width = 6015 - End - Begin VB.Label lblNewvHostTitle - Caption = "Add a new Virtual Host:" - Height = 255 - Left = 240 - TabIndex = 39 - Top = 240 - Width = 3855 - End - End Begin VB.Label lblMoreInfoData BackColor = &H00FFFFFF& ForeColor = &H00000000& Height = 2415 Left = 9840 - TabIndex = 103 + TabIndex = 87 Top = 4320 Width = 1935 End @@ -1030,7 +900,7 @@ ForeColor = &H00000000& Height = 225 Left = 9840 - TabIndex = 102 + TabIndex = 86 Top = 3960 Width = 840 End @@ -1052,7 +922,7 @@ ForeColor = &H00FFFFFF& Height = 360 Left = 8430 - TabIndex = 91 + TabIndex = 75 Top = 120 Width = 2805 End @@ -1081,7 +951,7 @@ Left = 9960 MouseIcon = "frmMain.frx":2F53 MousePointer = 99 'Custom - TabIndex = 90 + TabIndex = 74 Top = 3240 Width = 495 End @@ -1103,7 +973,7 @@ Left = 9960 MouseIcon = "frmMain.frx":30A5 MousePointer = 99 'Custom - TabIndex = 89 + TabIndex = 73 Top = 2880 Width = 720 End @@ -1125,7 +995,7 @@ Left = 9960 MouseIcon = "frmMain.frx":31F7 MousePointer = 99 'Custom - TabIndex = 88 + TabIndex = 72 Top = 2520 Width = 1500 End @@ -1147,7 +1017,7 @@ Left = 9960 MouseIcon = "frmMain.frx":3349 MousePointer = 99 'Custom - TabIndex = 87 + TabIndex = 71 Top = 2160 Width = 1230 End @@ -1169,7 +1039,7 @@ Left = 9960 MouseIcon = "frmMain.frx":349B MousePointer = 99 'Custom - TabIndex = 86 + TabIndex = 70 Top = 1800 Width = 1455 End @@ -1191,7 +1061,7 @@ Left = 9960 MouseIcon = "frmMain.frx":35ED MousePointer = 99 'Custom - TabIndex = 85 + TabIndex = 69 Top = 1440 Width = 1305 End @@ -1211,7 +1081,7 @@ ForeColor = &H00000000& Height = 225 Left = 9840 - TabIndex = 84 + TabIndex = 68 Top = 1080 Width = 510 End @@ -1273,7 +1143,7 @@ ForeColor = &H00FFFFFF& Height = 480 Left = 120 - TabIndex = 83 + TabIndex = 67 Top = 120 Width = 3750 End @@ -1305,7 +1175,7 @@ Left = 11535 MouseIcon = "frmMain.frx":373F MousePointer = 99 'Custom - TabIndex = 82 + TabIndex = 66 Top = 6960 Width = 345 End @@ -1328,7 +1198,7 @@ Left = 10560 MouseIcon = "frmMain.frx":3891 MousePointer = 99 'Custom - TabIndex = 81 + TabIndex = 65 Top = 6960 Width = 495 End @@ -1351,7 +1221,7 @@ Left = 9720 MouseIcon = "frmMain.frx":39E3 MousePointer = 99 'Custom - TabIndex = 80 + TabIndex = 64 Top = 6960 Width = 285 End @@ -1374,7 +1244,7 @@ Left = 1290 MouseIcon = "frmMain.frx":3B35 MousePointer = 99 'Custom - TabIndex = 79 + TabIndex = 63 Top = 3480 Width = 885 End @@ -1400,7 +1270,7 @@ EndProperty Height = 225 Left = 120 - TabIndex = 78 + TabIndex = 62 Top = 3120 Width = 1110 End @@ -1423,7 +1293,7 @@ Left = 1050 MouseIcon = "frmMain.frx":3C87 MousePointer = 99 'Custom - TabIndex = 77 + TabIndex = 61 Top = 2760 Width = 1125 End @@ -1446,7 +1316,7 @@ Left = 1080 MouseIcon = "frmMain.frx":3DD9 MousePointer = 99 'Custom - TabIndex = 76 + TabIndex = 60 Top = 2520 Width = 1095 End @@ -1469,7 +1339,7 @@ Left = 1335 MouseIcon = "frmMain.frx":3F2B MousePointer = 99 'Custom - TabIndex = 75 + TabIndex = 59 Top = 2280 Width = 840 End @@ -1492,7 +1362,7 @@ Left = 1695 MouseIcon = "frmMain.frx":407D MousePointer = 99 'Custom - TabIndex = 74 + TabIndex = 58 Top = 2040 Width = 480 End @@ -1519,7 +1389,7 @@ ForeColor = &H00000000& Height = 225 Left = 120 - TabIndex = 73 + TabIndex = 57 Top = 1680 Width = 1800 End @@ -1542,7 +1412,7 @@ Left = 960 MouseIcon = "frmMain.frx":41CF MousePointer = 99 'Custom - TabIndex = 72 + TabIndex = 56 Top = 1320 Width = 1245 End @@ -1569,7 +1439,7 @@ ForeColor = &H00000000& Height = 225 Left = 120 - TabIndex = 71 + TabIndex = 55 Top = 960 Width = 1290 End @@ -1687,57 +1557,6 @@ SetStatus "Ready..." End Sub -Private Sub cmdBrowseNewvHostLogs_Click() - blnDirty = True - dlgMain.DialogTitle = Translator.GetText("Please select a file...") - dlgMain.Filter = Translator.GetText("Log Files (*.log)|*.log|All Files (*.*)|*.*") - dlgMain.InitDir = Core.Path - dlgMain.ShowSave - txtvHostLog.Text = dlgMain.FileName -End Sub - -Private Sub cmdBrowseNewvHostRoot_Click() -Dim strPath As String - strPath = Util.BrowseForFolder(, True, Core.Server.HTTP.Config.WebRoot) - If strPath <> "" Then - txtNewvHostRoot.Text = strPath - End If -End Sub - -Private Sub cmdNewvHostCancel_Click() - fraNewvHost.ZOrder 1 - txtNewvHostName.Text = "" - txtNewvHostDomain.Text = "" - txtNewvHostRoot.Text = "" - txtNewvHostLogs.Text = "" -End Sub - -Private Sub cmdNewvHostOK_Click() -Dim vItem As Variant -Dim i As Long - - If txtNewvHostName.Text <> "" And txtNewvHostDomain.Text <> "" And txtNewvHostRoot.Text <> "" And txtNewvHostLogs.Text <> "" Then - blnDirty = True - Core.Server.HTTP.Config.VirtHost.Add txtNewvHostName.Text, txtNewvHostDomain.Text, txtNewvHostRoot.Text, txtNewvHostLogs.Text, txtNewvHostName.Text - lstvHosts.Clear - If Core.Server.HTTP.Config.VirtHost.Count > 0 Then - For Each vItem In Core.Server.HTTP.Config.VirtHost - lstvHosts.AddItem vItem.HostName - Next - lstvHosts.Enabled = True - Else - lstvHosts.Enabled = False - End If - fraNewvHost.ZOrder 1 - txtNewvHostName.Text = "" - txtNewvHostDomain.Text = "" - txtNewvHostRoot.Text = "" - txtNewvHostLogs.Text = "" - Else - MsgBox Translator.GetText("Please fill all fields.") - End If -End Sub - Private Sub Form_Load() Dim RetVal As Long @@ -1778,13 +1597,6 @@ lblvHostDomain.Caption = Translator.GetText("What is it's domain name?") lblvHostRoot.Caption = Translator.GetText("This is the root directory where files are kept for this Virtual Host.") lblvHostLog.Caption = Translator.GetText("Where do you want to keep the log file for this Virtual Host?") - lblNewvHostTitle.Caption = Translator.GetText("Add a new Virtual Host:") - lblNewvHostName.Caption = Translator.GetText("What is the name of this Virtual Host?") - lblNewvHostDomain.Caption = Translator.GetText("What is the domain for this Virtual Host?") - lblNewvHostRoot.Caption = Translator.GetText("Where is the root folder for this Virtual Host?") - lblNewvHostLogs.Caption = Translator.GetText("Where do you want to keep the log for this Virtual Host?") - cmdNewvHostOK.Caption = Translator.GetText("&OK") - cmdNewvHostCancel.Caption = Translator.GetText("&Cancel") lblConfigAdvIPBind.Caption = Translator.GetText("What IP should the server listen to? (Default: Leave blank for all available)") lblConfigBasicErrorLog.Caption = Translator.GetText("Where do you want to store the server error log?") @@ -2147,7 +1959,19 @@ End Sub Private Sub lblvHostNew_Click() - fraNewvHost.ZOrder 0 +Dim vItem As Variant + + Load frmNewVirtHost + frmNewVirtHost.Show vbModal + lstvHosts.Clear + If Core.Server.HTTP.Config.VirtHost.Count > 0 Then + For Each vItem In Core.Server.HTTP.Config.VirtHost + lstvHosts.AddItem vItem.HostName + Next + lstvHosts.Enabled = True + Else + lstvHosts.Enabled = False + End If End Sub Private Sub lblvHostRemove_Click() Index: frmMain.frx =================================================================== RCS file: /cvsroot/swebs/swebswebserver/winui/frmMain.frx,v retrieving revision 1.24 retrieving revision 1.25 diff -u -d -r1.24 -r1.25 Binary files /tmp/cvsG5tZuv and /tmp/cvsmUnyIQ differ Index: frmNewISAPI.frm =================================================================== RCS file: /cvsroot/swebs/swebswebserver/winui/frmNewISAPI.frm,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- frmNewISAPI.frm 17 Nov 2003 11:43:08 -0000 1.2 +++ frmNewISAPI.frm 22 Nov 2003 16:05:07 -0000 1.3 @@ -145,7 +145,7 @@ Italic = 0 'False Strikethrough = 0 'False EndProperty - ForeColor = &H00000000& + ForeColor = &H00FFFFFF& Height = 330 Left = 120 TabIndex = 0 @@ -159,7 +159,7 @@ Y2 = 600 End Begin VB.Shape shpTitle - BackColor = &H0062D0F4& + BackColor = &H00804008& BackStyle = 1 'Opaque BorderStyle = 0 'Transparent Height = 615 Index: frmSplash.frm =================================================================== RCS file: /cvsroot/swebs/swebswebserver/winui/frmSplash.frm,v retrieving revision 1.16 retrieving revision 1.17 diff -u -d -r1.16 -r1.17 --- frmSplash.frm 20 Nov 2003 15:51:52 -0000 1.16 +++ frmSplash.frm 22 Nov 2003 16:05:07 -0000 1.17 @@ -32,7 +32,7 @@ Italic = 0 'False Strikethrough = 0 'False EndProperty - ForeColor = &H00FFFFFF& + ForeColor = &H00FEFEFE& Height = 210 Left = 3000 TabIndex = 0 Index: lang.xml =================================================================== RCS file: /cvsroot/swebs/swebswebserver/winui/lang.xml,v retrieving revision 1.13 retrieving revision 1.14 diff -u -d -r1.13 -r1.14 --- lang.xml 17 Nov 2003 11:43:08 -0000 1.13 +++ lang.xml 22 Nov 2003 16:05:07 -0000 1.14 @@ -1,6 +1,6 @@ <?xml version="1.0" standalone="yes"?> <!--This file generated by: --> -<!--TransExtract 1.0 Build: Oct. 14, 2003 --> +<!--TransExtract 1.0 Build: Nov. 16, 2003 --> <!--**************************************--> <!--*SWEBS Lang.xml *--> <!--*Version 2.0 *--> @@ -11,7 +11,7 @@ <SWEBS-WinUI-Lang> <lang-code id="1033"> <Lang-Maintainer> - Adam Caudill <ad...@im...> + Adam Caudill (ad...@im...) </Lang-Maintainer> <lang-obj name="frmAbout"> <lang base="&Close"> @@ -24,66 +24,6 @@ Control Center Build </lang> </lang-obj> - <lang-obj name="frmRegistration"> - <lang base="You must provide a e-mail address."> - You must provide a e-mail address. - </lang> - <lang base="You have already registered, you only need to register once."> - You have already registered, you only need to register once. - </lang> - <lang base="There was a unknown error. Registration Failed./r/rThe Registration server returned the following information:\r"> - There was a unknown error. Registration Failed./r/rThe Registration server returned the following information:\r - </lang> - <lang base="How Many Computers Do You Own?"> - How Many Computers Do You Own? - </lang> - <lang base="Where are you using this?"> - Where are you using this? - </lang> - <lang base="How did you find out about us?"> - How did you find out about us? - </lang> - <lang base="How much computer experience do you have?"> - How much computer experience do you have? - </lang> - <lang base="What will you use this software for?"> - What will you use this software for? - </lang> - </lang-obj> - <lang-obj name="frmTip"> - <lang base="TOD XML Data File Not Found."> - TOD XML Data File Not Found. - </lang> - </lang-obj> - <lang-obj name="frmUpdate"> - <lang base="There is an update available for this software, it may have additional features, bug fixes and security updates. To maintain security and performance we recommend you always use the latest version available."> - There is an update available for this software, it may have additional features, bug fixes and security updates. To maintain security and performance we recommend you always use the latest version available. - </lang> - <lang base="Description:"> - Description: - </lang> - <lang base="Download Upgrade..."> - Download Upgrade... - </lang> - <lang base="More Information..."> - More Information... - </lang> - <lang base="&Cancel"> - &Cancel - </lang> - <lang base="Date"> - Date - </lang> - <lang base="Version"> - Version - </lang> - <lang base="Update Level"> - Update Level - </lang> - <lang base="File Size"> - File Size - </lang> - </lang-obj> <lang-obj name="frmMain"> <lang base="Loading Log File"> Loading Log File @@ -91,12 +31,6 @@ <lang base="File not found, it may not have been created yet."> File not found, it may not have been created yet. </lang> - <lang base="Please select a file..."> - Please select a file... - </lang> - <lang base="Please fill all fields."> - Please fill all fields. - </lang> <lang base="Export Setings"> Export Setings </lang> @@ -199,27 +133,6 @@ <lang base="Where do you want to keep the log file for this Virtual Host?"> Where do you want to keep the log file for this Virtual Host? </lang> - <lang base="Add a new Virtual Host:"> - Add a new Virtual Host: - </lang> - <lang base="What is the name of this Virtual Host?"> - What is the name of this Virtual Host? - </lang> - <lang base="What is the domain for this Virtual Host?"> - What is the domain for this Virtual Host? - </lang> - <lang base="Where is the root folder for this Virtual Host?"> - Where is the root folder for this Virtual Host? - </lang> - <lang base="Where do you want to keep the log for this Virtual Host?"> - Where do you want to keep the log for this Virtual Host? - </lang> - <lang base="&OK"> - &OK - </lang> - <lang base="&Cancel"> - &Cancel - </lang> <lang base="What IP should the server listen to? (Default: Leave blank for all available)"> What IP should the server listen to? (Default: Leave blank for all available) </lang> @@ -341,6 +254,66 @@ Update Version </lang> </lang-obj> + <lang-obj name="frmRegistration"> + <lang base="You must provide a e-mail address."> + You must provide a e-mail address. + </lang> + <lang base="You have already registered, you only need to register once."> + You have already registered, you only need to register once. + </lang> + <lang base="There was a unknown error. Registration Failed./r/rThe Registration server returned the following information:\r"> + There was a unknown error. Registration Failed./r/rThe Registration server returned the following information:\r + </lang> + <lang base="How Many Computers Do You Own?"> + How Many Computers Do You Own? + </lang> + <lang base="Where are you using this?"> + Where are you using this? + </lang> + <lang base="How did you find out about us?"> + How did you find out about us? + </lang> + <lang base="How much computer experience do you have?"> + How much computer experience do you have? + </lang> + <lang base="What will you use this software for?"> + What will you use this software for? + </lang> + </lang-obj> + <lang-obj name="frmTip"> + <lang base="TOD XML Data File Not Found."> + TOD XML Data File Not Found. + </lang> + </lang-obj> + <lang-obj name="frmUpdate"> + <lang base="There is an update available for this software, it may have additional features, bug fixes and security updates. To maintain security and performance we recommend you always use the latest version available."> + There is an update available for this software, it may have additional features, bug fixes and security updates. To maintain security and performance we recommend you always use the latest version available. + </lang> + <lang base="Description:"> + Description: + </lang> + <lang base="Download Upgrade..."> + Download Upgrade... + </lang> + <lang base="More Information..."> + More Information... + </lang> + <lang base="&Cancel"> + &Cancel + </lang> + <lang base="Date"> + Date + </lang> + <lang base="Version"> + Version + </lang> + <lang base="Update Level"> + Update Level + </lang> + <lang base="File Size"> + File Size + </lang> + </lang-obj> <lang-obj name="frmNewISAPI"> <lang base="Add a new CGI interpreter:"> Add a new CGI interpreter: @@ -367,58 +340,33 @@ Please fill all fields. </lang> </lang-obj> - <lang-obj name="cDebug"> - <lang base="WinUI Bug Report - Version:"> - WinUI Bug Report - Version: - </lang> - <lang base="Time:"> - Time: - </lang> - <lang base="Message:"> - Message: - </lang> - <lang base="Call Stack:"> - Call Stack: - </lang> - <lang base="Please see http://swebs.sf.net for information on this error."> - Please see http://swebs.sf.net for information on this error. - </lang> - </lang-obj> - <lang-obj name="cHTTPConfig"> - <lang base="Date"> - Date - </lang> - <lang base="Server Name"> - Server Name - </lang> - <lang base="Port"> - Port + <lang-obj name="frmNewVirtHost"> + <lang base="&OK"> + &OK </lang> - <lang base="Web Root"> - Web Root + <lang base="&Cancel"> + &Cancel </lang> - <lang base="Error Pages"> - Error Pages + <lang base="Add a new Virtual Host"> + Add a new Virtual Host </lang> - <lang base="Max Connections"> - Max Connections + <lang base="What is the name of this Virtual Host?"> + What is the name of this Virtual Host? </lang> - <lang base="Primary Log File"> - Primary Log File + <lang base="What is the domain for this Virtual Host?"> + What is the domain for this Virtual Host? </lang> - <lang base="Allow Index"> - Allow Index + <lang base="Where is the root folder for this Virtual Host?"> + Where is the root folder for this Virtual Host? </lang> - <lang base="ISAPI: Extension"> - ISAPI: Extension + <lang base="Where do you want to keep the log for this Virtual Host?"> + Where do you want to keep the log for this Virtual Host? </lang> - <lang base="vHost: Name"> - vHost: Name + <lang base="Please select a file..."> + Please select a file... </lang> - </lang-obj> - <lang-obj name="cRegistration"> - <lang base="Would you like to register your software? It's fast and Free!\r\rProduct registration is used to provide the best possible service, products, and support for our users.\rWe will not contact you nor will we sell or give away any of your information.\r\rWould you like to register now?"> - Would you like to register your software? It's fast and Free!\r\rProduct registration is used to provide the best possible service, products, and support for our users.\rWe will not contact you nor will we sell or give away any of your information.\r\rWould you like to register now? + <lang base="Please fill all fields."> + Please fill all fields. </lang> </lang-obj> <lang-obj name="basMain"> Index: swebscc.exe =================================================================== RCS file: /cvsroot/swebs/swebswebserver/winui/swebscc.exe,v retrieving revision 1.69 retrieving revision 1.70 diff -u -d -r1.69 -r1.70 Binary files /tmp/cvsxZZRXD and /tmp/cvsq3u7v8 differ |
