RE: LotusScript reading files Domino on Linux

"Nur, Mohamed S" <[email protected]> Tue, 5 Dec 2006 11:01:01 +1100
Newsgroups gmane.linux.suse.domino
Message-ID <6215401E01247448A306C54F499111F201BE101E@WSMSG2103V.srv.dir.telstra.com>
------_=_NextPart_001_01C71800.7330E77E
Content-Type: text/plain;
	charset="us-ascii"
Content-Transfer-Encoding: quoted-printable

The notes user running the domino task has suffient rights, and this is
the log out of the agent.

=20

Started running agent 'Chris Test Filepath' on 05/12/2006 09:39:45

Running on all documents in database: 90 total

Found 90 document(s) that match search criteria

05/12/2006 09:39:45: Started

05/12/2006 09:39:45: Attempting to open file
/os_backup/smartplan/text.txt

05/12/2006 09:39:45: Error when attempting to open file
/os_backup/smartplan/text.txt

Ran LotusScript code

Done running agent 'Chris Test Filepath' on 05/12/2006 09:39:45

=20

=20

=20


________________________________

From: [email protected] [mailto:[email protected]]=20
Sent: Monday, 4 December 2006 6:12 PM
To: Nur, Mohamed S
Cc: [email protected]
Subject: RE: [suse-domino] LotusScript reading files Domino on Linux



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

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

Best regards,=20
Rainer Gamauf=20




"Nur, Mohamed S" <[email protected]>=20

04.12.2006 05:07=20

To
<[email protected]>=20
cc
Subject
RE: [suse-domino] LotusScript reading files Domino on Linux

=09





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

Any clues...? The path I have is

sPath =3D  "/os_backup/smartplan/"                =20
                sFile =3D "test.txt"

Where in windows

sPath =3D "c:\os_backup\smartplan\"                =20
sFile =3D "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
               =20
                On Error Goto Error_Handler
                sPath =3D  "/os_backup/smartplan/"                =20
                sFile =3D "test.txt"
               =20
    'Check to see if file exists and return results...                =20
                Set agentlog =3D New NotesLog("Test Filepath")
                Call agentlog.OpenAgentLog
                Call agentlog.LogAction("About to test ...")
               =20
                varFiles =3D Dir$(sPath, 0)
                Forall testfile In varFiles

                                 Call agentlog.LogAction("Found " &
testfile)
                                 If testfile =3D sFile Then
                                                  Call
agentlog.LogAction("Found file " & sPath &
sFile)
                                 Else
                                                  Call
agentlog.LogAction("File " & sPath & sFile
& " not found")  <=3D=3D  I only ever get this message in the agent log
                                 End If
                End Forall
               =20
                Call agentlog.LogAction("Finished")
                Call agentlog.Close
               =20
                Exit Sub
               =20
Error_Handler:
                Call agentlog.LogAction("An error occurred")
                Call agentlog.LogAction("Finished")
                Call agentlog.Close
                Exit Sub

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



------_=_NextPart_001_01C71800.7330E77E
Content-Type: text/html;
	charset="us-ascii"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Dus-ascii">
<META content=3D"MSHTML 6.00.2900.2995" name=3DGENERATOR></HEAD>
<BODY>
<DIV dir=3Dltr align=3Dleft>
<P><SPAN class=3D367075123-04122006><FONT face=3DArial color=3D#0000ff =
size=3D2>The=20
notes user running the domino task has suffient rights, and this is the =
log out=20
of the agent.</FONT></SPAN></P>
<P><FONT face=3DArial color=3D#0000ff size=3D2></FONT>&nbsp;</P>
<P><FONT size=3D2>Started running agent 'Chris Test Filepath' on =
05/12/2006=20
09:39:45</FONT></P>
<P><FONT size=3D2>Running on all documents in database: 90 =
total</FONT></P>
<P><FONT size=3D2>Found 90 document(s) that match search =
criteria</FONT></P>
<P><FONT size=3D2>05/12/2006 09:39:45: Started</FONT></P>
<P><FONT size=3D2>05/12/2006 09:39:45: Attempting to open file=20
/os_backup/smartplan/text.txt</FONT></P>
<P><FONT size=3D2>05/12/2006 09:39:45: </FONT><B><FONT size=3D2>Error =
when=20
attempting to open file </FONT><FONT color=3D#ff0000=20
size=3D2>/os_backup/smartplan/text.txt</P></B></FONT><FONT size=3D2>
<P>Ran LotusScript code</P>
<P>Done running agent 'Chris Test Filepath' on 05/12/2006=20
09:39:45</P></FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D2></FONT>&nbsp;</DIV><!-- =
Converted from text/plain format -->
<P><FONT size=3D2></FONT>&nbsp;</P>
<DIV><FONT face=3DArial color=3D#0000ff =
size=3D2></FONT>&nbsp;</DIV><FONT=20
size=3D2></FONT><FONT size=3D2></FONT><BR>
<DIV class=3DOutlookMessageHeader lang=3Den-us dir=3Dltr align=3Dleft>
<HR tabIndex=3D-1>
<FONT face=3DTahoma size=3D2><B>From:</B> [email protected]=20
[mailto:[email protected]] <BR><B>Sent:</B> Monday, 4 December 2006 6:12 =

PM<BR><B>To:</B> Nur, Mohamed S<BR><B>Cc:</B>=20
[email protected]<BR><B>Subject:</B> RE: [suse-domino] LotusScript =
reading=20
files Domino on Linux<BR></FONT><BR></DIV>
<DIV></DIV><BR><FONT face=3Dsans-serif size=3D2>Hello!</FONT> <BR><FONT=20
face=3Dsans-serif size=3D2>Does the Linux user running Domino have =
sufficient rights=20
on the directory </FONT><FONT=20
size=3D2><TT>"/os_backup/smartplan/"</TT></FONT><FONT face=3Dsans-serif =
size=3D2> and=20
the file </FONT><FONT size=3D2><TT>"test.txt"</TT></FONT><FONT =
face=3Dsans-serif=20
size=3D2>?</FONT> <BR><BR><FONT face=3Dsans-serif size=3D2>Is the =
</FONT><FONT=20
size=3D2><TT>"test.txt"</TT></FONT><FONT face=3Dsans-serif size=3D2> =
file the only=20
file in the directory </FONT><FONT=20
size=3D2><TT>"/os_backup/smartplan/"</TT></FONT><FONT face=3Dsans-serif=20
size=3D2>?</FONT> <BR><FONT face=3Dsans-serif size=3D2>if yes, place =
more files in the=20
directory and please post the agents agentlog output.</FONT> =
<BR><BR><FONT=20
face=3Dsans-serif size=3D2>Best regards,</FONT> <BR><FONT =
face=3Dsans-serif=20
size=3D2>Rainer Gamauf</FONT> <BR><BR><BR><BR>
<TABLE width=3D"100%">
  <TBODY>
  <TR vAlign=3Dtop>
    <TD width=3D"40%"><FONT face=3Dsans-serif size=3D1><B>"Nur, Mohamed =
S"=20
      &lt;[email protected]&gt;</B> </FONT>
      <P><FONT face=3Dsans-serif size=3D1>04.12.2006 05:07</FONT> </P>
    <TD width=3D"59%">
      <TABLE width=3D"100%">
        <TBODY>
        <TR>
          <TD>
            <DIV align=3Dright><FONT face=3Dsans-serif =
size=3D1>To</FONT></DIV>
          <TD vAlign=3Dtop><FONT face=3Dsans-serif=20
            size=3D1>&lt;[email protected]&gt;</FONT>=20
        <TR>
          <TD>
            <DIV align=3Dright><FONT face=3Dsans-serif =
size=3D1>cc</FONT></DIV>
          <TD vAlign=3Dtop>
        <TR>
          <TD>
            <DIV align=3Dright><FONT face=3Dsans-serif =
size=3D1>Subject</FONT></DIV>
          <TD vAlign=3Dtop><FONT face=3Dsans-serif size=3D1>RE: =
[suse-domino]=20
            LotusScript reading files Domino on =
Linux</FONT></TR></TBODY></TABLE><BR>
      <TABLE>
        <TBODY>
        <TR vAlign=3Dtop>
          <TD>
          =
<TD></TR></TBODY></TABLE><BR></TR></TBODY></TABLE><BR><BR><BR><FONT=20
size=3D2><TT><BR>Hi having problem running the following scripts in suse =
linux=20
where it<BR>works<BR>Fine under windows.<BR><BR>Any clues...? The path I =
have=20
is<BR><BR>sPath =3D &nbsp;"/os_backup/smartplan/" &nbsp; &nbsp; &nbsp; =
&nbsp;=20
&nbsp; &nbsp; &nbsp; &nbsp; <BR>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; =
&nbsp; &nbsp;=20
&nbsp; sFile =3D "test.txt"<BR><BR>Where in windows<BR><BR>sPath =3D=20
"c:\os_backup\smartplan\" &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; =
&nbsp;=20
&nbsp; <BR>sFile =3D "test.txt"<BR><BR><BR><BR>Scripts=20
below:<BR><BR>___________________________________________________________=
_____________<BR>_____________<BR><BR><BR>Dim=20
session As New NotesSession<BR>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; =
&nbsp;=20
&nbsp; Dim agentlog As NotesLog<BR>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; =
&nbsp;=20
&nbsp; &nbsp; Dim iPos As Integer, iPrevPos As Integer<BR>&nbsp; &nbsp; =
&nbsp;=20
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim sPath As String<BR>&nbsp; &nbsp; =
&nbsp;=20
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim sFile As String<BR>&nbsp; &nbsp; =
&nbsp;=20
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim varFiles As Variant<BR>&nbsp; =
&nbsp;=20
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <BR>&nbsp; &nbsp; &nbsp; =
&nbsp; &nbsp;=20
&nbsp; &nbsp; &nbsp; On Error Goto Error_Handler<BR>&nbsp; &nbsp; &nbsp; =
&nbsp;=20
&nbsp; &nbsp; &nbsp; &nbsp; sPath =3D &nbsp;"/os_backup/smartplan/" =
&nbsp; &nbsp;=20
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <BR>&nbsp; &nbsp; &nbsp; =
&nbsp; &nbsp;=20
&nbsp; &nbsp; &nbsp; sFile =3D "test.txt"<BR>&nbsp; &nbsp; &nbsp; &nbsp; =
&nbsp;=20
&nbsp; &nbsp; &nbsp; <BR>&nbsp; &nbsp; 'Check to see if file exists and =
return=20
results... &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; =
<BR>&nbsp;=20
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Set agentlog =3D New=20
NotesLog("Test Filepath")<BR>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; =
&nbsp;=20
&nbsp; Call agentlog.OpenAgentLog<BR>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; =
&nbsp;=20
&nbsp; &nbsp; Call agentlog.LogAction("About to test ...")<BR>&nbsp; =
&nbsp;=20
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <BR>&nbsp; &nbsp; &nbsp; =
&nbsp; &nbsp;=20
&nbsp; &nbsp; &nbsp; varFiles =3D Dir$(sPath, 0)<BR>&nbsp; &nbsp; &nbsp; =
&nbsp;=20
&nbsp; &nbsp; &nbsp; &nbsp; Forall testfile In varFiles &nbsp; &nbsp; =
&nbsp;=20
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; =
&nbsp;=20
&nbsp; &nbsp; &nbsp;<BR>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; =
&nbsp;=20
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Call=20
agentlog.LogAction("Found " &amp; testfile)<BR>&nbsp; &nbsp; &nbsp; =
&nbsp;=20
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; =
&nbsp;=20
&nbsp; &nbsp;If testfile =3D sFile Then<BR>&nbsp; &nbsp; &nbsp; &nbsp; =
&nbsp;=20
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; =
&nbsp;=20
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call=20
agentlog.LogAction("Found file " &amp; sPath &amp;<BR>sFile)<BR>&nbsp; =
&nbsp;=20
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; =
&nbsp;=20
&nbsp; &nbsp; &nbsp; &nbsp;Else<BR>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; =
&nbsp;=20
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; =
&nbsp;=20
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call=20
agentlog.LogAction("File " &amp; sPath &amp; sFile<BR>&amp; " not =
found")=20
&nbsp;&lt;=3D=3D &nbsp;I only ever get this message in the agent =
log<BR>&nbsp;=20
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; =
&nbsp;=20
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;End If<BR>&nbsp; &nbsp; &nbsp; &nbsp; =
&nbsp;=20
&nbsp; &nbsp; &nbsp; End Forall<BR>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; =
&nbsp;=20
&nbsp; &nbsp; <BR>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; =
&nbsp; Call=20
agentlog.LogAction("Finished")<BR>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; =
&nbsp;=20
&nbsp; &nbsp; Call agentlog.Close<BR>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; =
&nbsp;=20
&nbsp; &nbsp; <BR>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; =
&nbsp; Exit=20
Sub<BR>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;=20
<BR>Error_Handler:<BR>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; =
&nbsp;=20
Call agentlog.LogAction("An error occurred")<BR>&nbsp; &nbsp; &nbsp; =
&nbsp;=20
&nbsp; &nbsp; &nbsp; &nbsp; Call =
agentlog.LogAction("Finished")<BR>&nbsp; &nbsp;=20
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call agentlog.Close<BR>&nbsp; =
&nbsp;=20
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Exit Sub<BR><BR>-- <BR>To =
unsubscribe,=20
e-mail: [email protected]<BR>For additional commands, =
e-mail:=20
[email protected]<BR></TT></FONT><BR></BODY></HTML>

------_=_NextPart_001_01C71800.7330E77E--