Changeset 573

Timestamp:

Jun 13, 2011, 10:00:50 AM (14 years ago)

Author:

Herwig Bauernfeind

Message:

GUI-Tools: EVFSGUI 2.1: Added: Display information about installed/connected SMB printer ports

Location:

branches/guitools-2.0/evfsgui

Files:

• changes (modified) (1 diff)
• evfsgui.VRP (modified) (1 diff)
• evfsgui.VRX (modified) (5 diffs)
• evfsgui.VRY (modified) ( previous)
• evfsi_de.mkm (modified) (1 diff)
• evfsi_en.mkm (modified) (1 diff)
• evfsi_fr.mkm (modified) (1 diff)
• evfsi_it.mkm (modified) (2 diffs)

branches/guitools-2.0/evfsgui/changes

@@ -12 +12 @@
   to work properly
 
-Version 2.1.2 2011-06-03
+Version 2.1.2 2011-06-13
 - Added: Display some hints about what is going on in the statusbar
+- Added: Display information about installed/connected SMB printer ports.
 - Fixed: Do not crash if manually added machines do not allow browsing
 - Fixed: Connect in network neighbourhood used selected object instead of

branches/guitools-2.0/evfsgui/evfsgui.VRP

@@ -10 +10 @@
 VRXWindow: __VREFileListWindow,1,807,11033,1590,3358
 VRXWindow: __VRESectionListWindow,1,2674,10648,8696,4794
-VRXWindow: __VREToolsWindow,1,2517,7082,6489,1663
-VRXWindow: __VREWindListWindow,1,542,8721,2650,3150
+VRXWindow: __VREToolsWindow,1,2529,723,6489,1659
+VRXWindow: __VREWindListWindow,1,542,8721,2951,3150
 UserFile: 1
 UserWindow: Main,1
+UserWindow: SW_MOUNTPOINT,1
 UserWindow: SW_INFO,1
+UserWindow: SW_PORTCONNECT,1

branches/guitools-2.0/evfsgui/evfsgui.VRX

@@ -644 +644 @@
 */
 _PrinterInfo: 
-    /* rh = currently selected record handle */
-    capt = VRMethod("CN_SMBTREE", "GetRecordAttr", rh, "Caption")
-    parse var Capt p_printer '0D0A'x .
-    parRH = VRMethod("CN_SMBTREE", "GetRecordAttr", rh, "Parent")
-    capt = VRMethod("CN_SMBTREE", "GetRecordAttr", Parrh, "Caption")
-    parse var Capt p_prtsrv '0D0A'x .
-    p_prtsrv = strip(p_prtsrv)
-    GparRH = VRMethod("CN_SMBTREE", "GetRecordAttr", Parrh, "Parent")
-    capt = VRMethod("CN_SMBTREE", "GetRecordAttr", GParrh, "Caption")
-    parse var Capt p_workgroup '0D0A'x .
-    DescStr = translate(p_prtsrv'#'p_printer'#'p_workgroup'#')
-say '"'DescStr'"'
-    LDescStr = length(DescStr)
-    ok = SysIni('SYSTEM','PM_SPOOLER_PORT',"All:",'ports')
-
-    FoundPort = 0
-    do I = 1 to ports.0
-        if left(ports.i,3) = 'SMB' then do
-            say ports.I
-            say translate(left(SysIni('SYSTEM','PM_'ports.I,'INITIALIZATION'),LDescStr))
-            say DescStr
-            if translate(left(SysIni('SYSTEM','PM_'ports.I,'INITIALIZATION'),LDescStr)) = DescStr then do
-                OurPort = ports.I
-                FoundPort = 1
-                leave
+    if \_SMBpdrInstalled() then do
+        /* SMB.PDR is not installed */
+        CALL VRMessage 'Main', NLVGetMessage( 104 ), NLVGetMessage( 5 ), 'E'
+    end
+    else do /* SMB.pdr is installed */
+        /* shared queue name */
+        p_printer = SMBObj.resname 
+
+        /* printer server */
+        capt = VRMethod("CN_SMBTREE", "GetRecordAttr", SMBObj.parentrh, "Caption")
+        parse var Capt p_prtsrv '0D0A'x .
+        p_prtsrv = strip(p_prtsrv)
+
+        /* workgroup of the printer server */
+        Gparrh = VRMethod("CN_SMBTREE", "GetRecordAttr", SMBObj.parentrh, "Parent")
+        capt = VRMethod("CN_SMBTREE", "GetRecordAttr", GParrh, "Caption")
+        parse var Capt p_workgroup '0D0A'x .
+
+        /* This is the string we will find in case this resource is already connected */
+        DescStr = translate(p_prtsrv'#'p_printer'#'p_workgroup'#')
+        say '"'DescStr'"'
+        LDescStr = length(DescStr)
+
+        /* Enumerate all SMB ports */        
+        ok = SysIni('SYSTEM','PM_SPOOLER_PORT',"All:",'ports')
+        if ports.0 = 0 then do
+            /* No SMB ports installed */
+            CALL VRMessage 'Main', NLVGetMessage( 105 ), NLVGetMessage( 5 ), 'E'
+        end
+        else do
+            /*  At least 1 SMB port was found - lets check whether it is already connected to our resource */
+            FoundPort = 0
+            do I = 1 to ports.0
+                if left(ports.i,3) = 'SMB' then do
+                    say ports.I
+                    say translate(left(SysIni('SYSTEM','PM_'ports.I,'INITIALIZATION'),LDescStr))
+                    say DescStr
+                    if translate(left(SysIni('SYSTEM','PM_'ports.I,'INITIALIZATION'),LDescStr)) = DescStr then do
+                        OurPort = ports.I
+                        FoundPort = 1
+                        leave
+                    end
+                end
             end
-        end
-    end
-
-    if Foundport then do
-        ok = SysIni('SYSTEM','PM_SPOOLER_PRINTER',"All:",'printer')
-
-        do I = 1 to printer.0
-            say printer.I
-            prtsummary = SysINi('SYSTEM','PM_SPOOLER_PRINTER',printer.i)
-            parse var prtsummary port ';'PrinterDriver';'PrinterQueue';' .
-            if port = ourPort then do
-                PrinterName = SysINi('SYSTEM','PM_SPOOLER_PRINTER_DESCR',printer.i)
-                parse var Printername Printername ';' .
-                leave
+            say 'OurPort = "'OurPort'"'
+            if Foundport then do
+                ok = SysIni('SYSTEM','PM_SPOOLER_PRINTER',"All:",'printer')
+                FoundPrinter = 0
+                do I = 1 to printer.0
+                    prtsummary = SysINi('SYSTEM','PM_SPOOLER_PRINTER',printer.i)
+                    parse var prtsummary port ';'PrinterDriver';'PrinterQueue';' .
+                    say printer.I' 'prtsummary
+                    if port = ourPort then do
+                        PrinterName = SysINi('SYSTEM','PM_SPOOLER_PRINTER_DESCR',printer.i)
+                        parse var Printername Printername ';' .
+                        CALL VRMessage 'Main', PrinterName' ('PrinterQueue') prints to port ' Port' connected to \\'p_workgroup'\'p_prtsrv'\'p_printer, NLVGetMessage( 1 ), 'I'
+                        FoundPrinter = 1
+                        leave
+                    end
+                end
+                if FoundPrinter = 0 then do
+                    /* Port installed and configured, but not used by any printer */
+                    CALL VRMessage 'Main', NLVGetMessage( 106 ), NLVGetMessage( 5 ), 'E'
+                end
             end
-
-        end
-        CALL VRMessage 'Main', PrinterName' ('PrinterQueue') prints to port ' Port' connected to \\'p_workgroup'\'p_prtsrv'\'p_printer, NLVGetMessage( 1 ), 'I'
-    end
-    else do
-        CALL VRMessage 'Main', NLVGetMessage( 62 ), NLVGetMessage( 5 ), 'E'
+            else do
+                CALL VRMessage 'Main', NLVGetMessage( 62 ), NLVGetMessage( 5 ), 'E'
+            end
+        end
     end
 return
@@ -701 +723 @@
     ok = VRSet("DT_StatusBar", "Caption", Msg.Text)
 return
+
+/*:VRX         _SMBpdrInstalled
+*/
+_SMBpdrInstalled: procedure
+    ok = VRGetINI("PM_PORT_DRIVER","SMB","SYSTEM")
+return (ok <> "")
 
 /*:VRX         _UserCredUpdate
@@ -1247 +1275 @@
         end
         when SMBObj.udatatype = "PRINTER" then do
-            CALL VRMessage 'Main', NLVGetMessage( 62 ), NLVGetMessage( 5 ), 'E'
+            call _PrinterInfo
+            /* CALL VRMessage 'Main', NLVGetMessage( 62 ), NLVGetMessage( 5 ), 'E' */
         end
         otherwise nop /* FILE DIRECTORY */
@@ -3480 +3509 @@
 RETURN
 
+/*:VRX         PB_NEWPORTCANCEL_Click
+*/
+PB_NEWPORTCANCEL_Click:
+/*  ok = VRSet("CB_DRIVES","Value","")
+    ok = VRSet("EF_DIRECTORY","Value","")
+    call SW_MOUNTPOINT_Close */
+RETURN 0
+
+/*:VRX         PB_NEWPORTCONNECT_Click
+*/
+PB_NEWPORTCONNECT_Click:
+/*  ok = VRSet("CB_DRIVES","Value",VRGet("CB_DRIVES1","Value"))
+    ok = VRSet("EF_DIRECTORY","Value",VRGet("EF_DIRECTORY1","Value"))
+
+    advanced.!readonly  = VRGet("CB_READONLY1","Set")
+    advanced.!easupport = VRGet("CB_EAS1","Set")
+    advanced.!alwaysmp  = VRGet("CB_ALWAYSMP1","Set")
+    advanced.!cachetimeout  = VRGet( "SPIN_CACHETIMEOUT1",  "Value" )
+    advanced.!cachelistings = VRGet( "SPIN_CACHELISTINGS1", "Value" )
+
+    call SW_MOUNTPOINT_Close */
+RETURN
+
 /*:VRX         PB_PROGRESS_ABORT_Click
 */
@@ -4176 +4228 @@
 return
 
+/*:VRX         SW_PORTCONNECT_Close
+*/
+SW_PORTCONNECT_Close: 
+    call SW_PORTCONNECT_Fini
+return
+
+/*:VRX         SW_PORTCONNECT_Create
+*/
+SW_PORTCONNECT_Create: 
+    call SW_PORTCONNECT_Init
+
+    ok = VRGetINI("PM_PORT_DRIVER","SMB","SYSTEM")
+
+    if ok = "" then do
+        
+    end
+    else do
+        say "Samba Spooler Port driver installed!"
+        ok = SysINI("SYSTEM","PM_SPOOLER_PORT","ALL:","ports")
+        smbport.0 = 0
+        do I = 1 to ports.0
+            if left(ports.I,3) = "SMB" then do
+                X = smbport.0
+                X = X + 1
+                smbport.0 = X
+                smbport.X = ports.I
+            end
+        end
+        do I = 1 to smbport.0
+            say smbport.I
+        end
+    end
+
+return
+
+/*:VRX         SW_PORTCONNECT_Fini
+*/
+SW_PORTCONNECT_Fini: 
+    window = VRInfo( "Window" )
+    call VRDestroy window
+    drop window
+return
+/*:VRX         SW_PORTCONNECT_Init
+*/
+SW_PORTCONNECT_Init: 
+    window = VRInfo( "Object" )
+    if( \VRIsChildOf( window, "Notebook" ) ) then do
+        call VRMethod window, "CenterWindow"
+        call VRSet window, "Visible", 1
+        call VRMethod window, "Activate"
+    end
+    drop window
+return
+
 /*:VRX         SW_PROGRESS_Close
 */

branches/guitools-2.0/evfsgui/evfsi_de.mkm

@@ -111 +111 @@
 EVG0102I: Konnte %1 nicht laden - Verbindungen konnten nicht wiederhergestellt werden.
 EVG0103I: %1 ist keine Profildatei!
-EVG0104?:
-EVG0105?:
-EVG0106?:
+EVG0104I: SMB.PDR ist nicht installiert.
+EVG0105I: Keine SMB Anschlsse installiert.
+EVG0106I: Der Anschluss ist installiert und konfiguriert, wird aber nicht benutzt.
 EVG0107?:
 EVG0108?:

branches/guitools-2.0/evfsgui/evfsi_en.mkm

@@ -111 +111 @@
 EVG0102I: Failed to load %1 - could not establish connections.
 EVG0103I: %1 is not a profile!
-EVG0104?:
-EVG0105?:
-EVG0106?:
+EVG0104I: SMB.PDR is not installed.
+EVG0105I: No SMB ports installed.
+EVG0106I: Port is installked an configured, but not used by any printer.
 EVG0107?:
 EVG0108?:

branches/guitools-2.0/evfsgui/evfsi_fr.mkm

@@ -117 +117 @@
  l'ouverture de %1 - les connexions n'ont pas pu ˆtre ‚tablies.
 EVG0103I: %1 n'est pas une fichier de profil!
-EVG0104?:
-EVG0105?:
-EVG0106?:
+EVG0104I: SMB.PDR n'est pas install‚.
+EVG0105I: Aucun port SMB install‚.
+EVG0106I: La connexion est install‚ mais pas utilis‚.
 EVG0107?:
 EVG0108?:

branches/guitools-2.0/evfsgui/evfsi_it.mkm

@@ -1 +1 @@
 ; Message file for EVFS GUI
-; English version
+; Italian version
 EVG
 ; Common strings used throughout program
@@ -115 +115 @@
 EVG0102I: Impossibile caricare %1 - impossibile stabilire le connessioni
 EVG0103I: %1 non Š file di profilo!
-EVG0104?:
-EVG0105?:
-EVG0106?:
+EVG0104I: SMB.PDR non Š installato.
+EVG0105I: Porte SMB non Š installato.
+EVG0106I: La connessione Š installata ma non utilizzata.
 EVG0107?:
 EVG0108?: