Changeset 982 for branches/guitools-2.0/smbprint/smbprint.VRX

Timestamp:

Oct 6, 2016, 4:22:31 PM (9 years ago)

Author:

Herwig Bauernfeind

Message:

GUI-Tools: SMBPrint (remove spoolfile, cosmetics)

File:

• branches/guitools-2.0/smbprint/smbprint.VRX (modified) (4 diffs)

branches/guitools-2.0/smbprint/smbprint.VRX

@@ -131 +131 @@
     PrintParms =  VRGet("Application","Commandline")
     spooldir   = directory()
-    if debug = 1 then say "Printparms='"Printparms"'"
-    if debug = 1 then     say length(PrintParms)
+    if debug = 1 then say 'Printparms: "'Printparms'"'
+    if debug = 1 then say 'Length    : 'length(PrintParms)
     if PrintParms <> "" then do
         parse var PrintParms '"'spoolfile'" "'smbprintername'" "'Jobname'" "'pages'" "'JobSize'"'
-        if debug = 1 then say 'Verzeichnis: "'spooldir'"'
-        if debug = 1 then say 'Spoolfile:   "'spoolfile'"'
-        if debug = 1 then say 'Smbprinter:  "'smbprintername'"'
+        if debug = 1 then say 'Directory:  "'spooldir'"'
+        if debug = 1 then say 'Spoolfile:  "'spoolfile'"'
+        if debug = 1 then say 'Smbprinter: "'smbprintername'"'
 
         ok = VRMethod( "Application", "ListPrinters", "printer." )
@@ -145 +145 @@
                 if debug = 1 then say printer.i
                 parse value printer.i with PName';'PQueue';'Rest
-                if debug = 1 then say PName'<-->'PQueue
+                if debug = 1 then say 'Queue: 'PName'<-->'PQueue
                 if translate(PQueue) = translate(smbprintername) then do
                     FoundQueue = 1
@@ -156 +156 @@
             ok = VRset("DT_Job","Caption", 'Print "'Jobname'" ('Pages', 'JobSize' bytes) to "'PName'"')
             ok = VRPrintFile( smbprintername, spooldir'\'spoolfile, , JobName )
-            if debug = 1 then say "->"smbprintername", "spooldir"\"spoolfile", , "JobName 
+            if debug = 1 then say "  ->"smbprintername", "spooldir"\"spoolfile", , "JobName 
             ok = SysSleep(10)
             if debug = 1 then ok = VRRedirectStdIO("OFF")
@@ -166 +166 @@
             call _ShowMsg
         end
-        /* ok = SysFileDelete(Spoolfile) */
+        ok = SysFileDelete(Spoolfile)
     end
     else do