RE: LotusScript reading files Domino on Linux

--=_alternative 002BBA0BC125723A_=
Content-Type: text/plain; charset="US-ASCII"

Hello!
Does the Linux user running Domino have sufficient rights on the directory 
"/os_backup/smartplan/" and the file "test.txt"?

Is the "test.txt" file the only file in the directory 
"/os_backup/smartplan/"?
if yes, place more files in the directory and please post the agents 
agentlog output.

Best regards,
Rainer Gamauf




"Nur, Mohamed S" <[email protected]> 
04.12.2006 05:07

To
<[email protected]>
cc

Subject
RE: [suse-domino] LotusScript reading files Domino on Linux







Hi having problem running the following scripts in suse linux where it
works
Fine under windows.

Any clues...? The path I have is

sPath =  "/os_backup/smartplan/" 
                 sFile = "test.txt"

Where in windows

sPath = "c:\os_backup\smartplan\" 
sFile = "test.txt"



Scripts below:

________________________________________________________________________
_____________


Dim session As New NotesSession
                 Dim agentlog As NotesLog
                 Dim iPos As Integer, iPrevPos As Integer
                 Dim sPath As String
                 Dim sFile As String
                 Dim varFiles As Variant
 
                 On Error Goto Error_Handler
                 sPath =  "/os_backup/smartplan/" 
                 sFile = "test.txt"
 
     'Check to see if file exists and return results... 
                 Set agentlog = New NotesLog("Test Filepath")
                 Call agentlog.OpenAgentLog
                 Call agentlog.LogAction("About to test ...")
 
                 varFiles = Dir$(sPath, 0)
                 Forall testfile In varFiles 
                                 Call agentlog.LogAction("Found " & 
testfile)
                                 If testfile = sFile Then
                                                 Call 
agentlog.LogAction("Found file " & sPath &
sFile)
                                 Else
                                                 Call 
agentlog.LogAction("File " & sPath & sFile
& " not found")  <==  I only ever get this message in the agent log
                                 End If
                 End Forall
 
                 Call agentlog.LogAction("Finished")
                 Call agentlog.Close
 
                 Exit Sub
 
Error_Handler:
                 Call agentlog.LogAction("An error occurred")
                 Call agentlog.LogAction("Finished")
                 Call agentlog.Close
                 Exit Sub

-- 
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]


--=_alternative 002BBA0BC125723A_=
Content-Type: text/html; charset="US-ASCII"


<br><font size=2 face="sans-serif">Hello!</font>
<br><font size=2 face="sans-serif">Does the Linux user running Domino have
sufficient rights on the directory </font><font size=2><tt>&quot;/os_backup/smartplan/&quot;</tt></font><font size=2 face="sans-serif">
and the file </font><font size=2><tt>&quot;test.txt&quot;</tt></font><font size=2 face="sans-serif">?</font>
<br>
<br><font size=2 face="sans-serif">Is the </font><font size=2><tt>&quot;test.txt&quot;</tt></font><font size=2 face="sans-serif">
file the only file in the directory </font><font size=2><tt>&quot;/os_backup/smartplan/&quot;</tt></font><font size=2 face="sans-serif">?</font>
<br><font size=2 face="sans-serif">if yes, place more files in the directory
and please post the agents agentlog output.</font>
<br>
<br><font size=2 face="sans-serif">Best regards,</font>
<br><font size=2 face="sans-serif">Rainer Gamauf</font>
<br>
<br>
<br>
<br>
<table width=100%>
<tr valign=top>
<td width=40%><font size=1 face="sans-serif"><b>&quot;Nur, Mohamed S&quot;
&lt;[email protected]&gt;</b> </font>
<p><font size=1 face="sans-serif">04.12.2006 05:07</font>
<td width=59%>
<table width=100%>
<tr>
<td>
<div align=right><font size=1 face="sans-serif">To</font></div>
<td valign=top><font size=1 face="sans-serif">&lt;[email protected]&gt;</font>
<tr>
<td>
<div align=right><font size=1 face="sans-serif">cc</font></div>
<td valign=top>
<tr>
<td>
<div align=right><font size=1 face="sans-serif">Subject</font></div>
<td valign=top><font size=1 face="sans-serif">RE: [suse-domino] LotusScript
reading files Domino on Linux</font></table>
<br>
<table>
<tr valign=top>
<td>
<td></table>
<br></table>
<br>
<br>
<br><font size=2><tt><br>
Hi having problem running the following scripts in suse linux where it<br>
works<br>
Fine under windows.<br>
<br>
Any clues...? The path I have is<br>
<br>
sPath = &nbsp;&quot;/os_backup/smartplan/&quot; &nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp; <br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
sFile = &quot;test.txt&quot;<br>
<br>
Where in windows<br>
<br>
sPath = &quot;c:\os_backup\smartplan\&quot; &nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp; <br>
sFile = &quot;test.txt&quot;<br>
<br>
<br>
<br>
Scripts below:<br>
<br>
________________________________________________________________________<br>
_____________<br>
<br>
<br>
Dim session As New NotesSession<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
Dim agentlog As NotesLog<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
Dim iPos As Integer, iPrevPos As Integer<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
Dim sPath As String<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
Dim sFile As String<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
Dim varFiles As Variant<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
On Error Goto Error_Handler<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
sPath = &nbsp;&quot;/os_backup/smartplan/&quot; &nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp; <br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
sFile = &quot;test.txt&quot;<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
<br>
 &nbsp; &nbsp; 'Check to see if file exists and return results... &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
Set agentlog = New NotesLog(&quot;Test Filepath&quot;)<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
Call agentlog.OpenAgentLog<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
Call agentlog.LogAction(&quot;About to test ...&quot;)<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
varFiles = Dir$(sPath, 0)<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
Forall testfile In varFiles &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp;<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Call
agentlog.LogAction(&quot;Found &quot; &amp; testfile)<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;If
testfile = sFile Then<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
Call agentlog.LogAction(&quot;Found file &quot; &amp; sPath &amp;<br>
sFile)<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Else<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
Call agentlog.LogAction(&quot;File &quot; &amp; sPath &amp; sFile<br>
&amp; &quot; not found&quot;) &nbsp;&lt;== &nbsp;I only ever get this message
in the agent log<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;End
If<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
End Forall<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
Call agentlog.LogAction(&quot;Finished&quot;)<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
Call agentlog.Close<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
Exit Sub<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
<br>
Error_Handler:<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
Call agentlog.LogAction(&quot;An error occurred&quot;)<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
Call agentlog.LogAction(&quot;Finished&quot;)<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
Call agentlog.Close<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
Exit Sub<br>
<br>
-- <br>
To unsubscribe, e-mail: [email protected]<br>
For additional commands, e-mail: [email protected]<br>
</tt></font>
<br>
--=_alternative 002BBA0BC125723A_=--