@� This application is copyright � 1995, Acorn Computers Ltd.
� All rights reserved.
�
(ș"Hourglass_On"
2� � � � �, �$+" ("+Þ+")"
<� buffer% 256
Fș"OS_GetEnv" � r0%
PA� s$="":i%=r0%:WHILE?i%:s$+=CHR$?i%:i%+=1:ENDWHILE:ERROR 0,s$
ZDș"OS_ReadArgs","basic/g,quit/s,appname/g,url/g",r0%,buffer%,256
d)�buffer%!12=0 � 0, "No URL specified"
n2i%=buffer%!12:len%=?i%+(i%?1<<8):i%+=2:url$=""
x'ȕlen%:url$+=�(?i%):i%+=1:len%-=1:�
�,i%=�url$,":"):�i%=0 � 0, "Malformed URL"
��
�4� split off the method (filer_opendir/filer_run)
��
�(method$=�url$,i%-1):url$=�url$,i%+1)
��
�4� split off the extra information if it is there
��
�i%=�url$,";")
�:�i%<>0 extra$=�url$,i%+1):url$=�url$,i%-1) � extra$=""
��
�&� lose the leading and trailing /s
��

#ȕ �url$,1)="/" url$=�url$,2):�

��url$,1)="/" url$=�url$)

�

"2� turn the remaining /s into .s and .s into /s

,�

6�i%=1 � �(url$)

@H �url$,i%,1)="." �url$,i%,1)="/" � �url$,i%,1)="/" �url$,i%,1)="."

J�

T�

^:� if there aren't any full-stops in the name, add ".$"

h�

ri%=�url$,".")

|�i%=0 url$+=".$"

��

�&� see if the directory/file exists

��

�/笤object_exists �process_extra_information

�笤object_exists �

�^ �filer_opendir � 0, "Unable to display the directory "+url$ � � 0, "Unable to run "+url$

��

��

�F� canonicalise the path, just to make the Filer_OpenDir look nicer

��

�,ș"OS_FSControl",37,url$,buffer%,0,0,256

�/url$="":i%=buffer%:ȕ?i%:url$+=�?i%:i%+=1:�

��filer_opendir �
 �("Filer_OpenDir "+url$)
�
 �("Filer_Run "+url$)
&�
0ș"Hourglass_Off"
:�
D:
Nݤobject_exists
X� r0%,f%
b!ș"XOS_File",17,url$ � r0%;f%
l�(f%�1)=1 :=�
v�r0%=1 :=�
��
�@� there appears to be a bug in NFS which we now have to work
�>� around. If you do an OS_File on a non-existent mount, it
�?� still says that the object exists, so we are now going to
�>� try to read an object name from the directory and see if
�� that returns an error.
��
�1ș"XOS_GBPB",9,url$,buffer%,1,0,256,"*" � ;f%
��(f%�1)=1 :=�
�=�
�:
���process_extra_information
�
Ȏ � �
7� �match(�url$,4),"NFS:"): �process_nfs_information
7� �match(�url$,4),"Net:"): �process_net_information
�
 �
*:
4��process_nfs_information
>:� user$,password$,auth$,host$,path$,name$,m$,i%,r0%,f%
H�extra$="" �
R�
\)� extract the mount name from the url
f�
pi%=�url$,".")
zname$=�url$,6,i%-6)
��
�,� see if the mount has already been made
��
�i%=0
��
�! ș"NFS_MountList",0,i% � ,i%
�
 �i%<>0 �
�  m$=�rtoz(i%)
�  �match(m$,name$) �
� �
�
� i%=0
��
�@� split off the user, password, authenticator, host and path
�
Oi%=�extra$,"="):�i%=0 � 0, "Malformed URL (missing additional information)"
extra$=�extra$,i%+1)
$Ii%=�extra$,":"):�i%=0 � 0, "Malformed URL (missing user information)"
.,user$=�extra$,i%-1):extra$=�extra$,i%+1)
8Mi%=�extra$,":"):�i%=0 � 0, "Malformed URL (missing password information)"
B0password$=�extra$,i%-1):extra$=�extra$,i%+1)
LRi%=�extra$,"@"):�i%=0 � 0, "Malformed URL (missing authenticator information)"
V,auth$=�extra$,i%-1):extra$=�extra$,i%+1)
`Ii%=�extra$,"/"):�i%=0 � 0, "Malformed URL (missing host information)"
j)host$=�extra$,i%-1):path$=�extra$,i%)
t=�path$="" � 0, "Malformed URL (missing path information)"
~�
�� now do the mount
��
�3ș"XNFS_SetUser",auth$,user$,password$ � r0%,f%
�9�(f%�1)=1 � 0, "Authentication failed: "+�rtoz(r0%+4)
�-ș"XNFS_Mount",host$,name$,path$ � r0%;f%
�0�(f%�1)=1 � 0, "Mount failed: "+�rtoz(r0%+4)
��
�:
���process_net_information
�'� i%,r0%,f%,server$,user$,password$
��extra$="" �
��
*� extract the server name from the url

�
i%=�url$,".")
server$=�url$,6,i%-6)
(�
2%� split off the user and password
<�
FOi%=�extra$,"="):�i%=0 � 0, "Malformed URL (missing additional information)"
Pextra$=�extra$,i%+1)
ZIi%=�extra$,":"):�i%=0 � 0, "Malformed URL (missing user information)"
d/user$=�extra$,i%-1):password$=�extra$,i%+1)
n�
x� now do the logon
��
�Fș"XOS_CLI","Net:Logon :"+server$+" "+user$+" "+password$ � r0%;f%
�T�(f%�1)=1 � 0, "Mount failed: "+�rtoz(r0%+4)+" "+server$+","+user$+","+password$
��
�:
�ݤfiler_opendir
�!�method$="filer_opendir" := �
�=�
�:
�ݤrtoz(p%)
�� s$
�ȕ ?p%:s$+=�?p%:p%+=1:�
�=s$
:
ݤmatch(s1$,s2$)
� i%
"�(s1$)<>�(s2$) :=�
,�i%=1��(s1$)
60 �lower(�s1$,i%,1))<>�lower(�s2$,i%,1)) :=�
@�
J=�
T:
^ݤlower(c$)
h� a%
r-a%=�c$:�a%>=�"A" � a%<=�"Z" a%+=�"a"-�"A"
|=a%
�

00000000  0d 00 0a 40 f4 20 54 68  69 73 20 61 70 70 6c 69  |...@. This appli|
00000010  63 61 74 69 6f 6e 20 69  73 20 63 6f 70 79 72 69  |cation is copyri|
00000020  67 68 74 20 a9 20 31 39  39 35 2c 20 41 63 6f 72  |ght . 1995, Acor|
00000030  6e 20 43 6f 6d 70 75 74  65 72 73 20 4c 74 64 2e  |n Computers Ltd.|
00000040  0d 00 14 1a f4 20 41 6c  6c 20 72 69 67 68 74 73  |..... All rights|
00000050  20 72 65 73 65 72 76 65  64 2e 0d 00 1e 05 f4 0d  | reserved.......|
00000060  00 28 14 c8 99 22 48 6f  75 72 67 6c 61 73 73 5f  |.(..."Hourglass_|
00000070  4f 6e 22 0d 00 32 1d ee  20 85 20 85 20 a2 20 9f  |On"..2.. . . . .|
00000080  2c 20 f6 24 2b 22 20 28  22 2b c3 9e 2b 22 29 22  |, .$+" ("+..+")"|
00000090  0d 00 3c 11 de 20 62 75  66 66 65 72 25 20 32 35  |..<.. buffer% 25|
000000a0  36 0d 00 46 17 c8 99 22  4f 53 5f 47 65 74 45 6e  |6..F..."OS_GetEn|
000000b0  76 22 20 b8 20 72 30 25  0d 00 50 41 f4 20 73 24  |v" . r0%..PA. s$|
000000c0  3d 22 22 3a 69 25 3d 72  30 25 3a 57 48 49 4c 45  |="":i%=r0%:WHILE|
000000d0  3f 69 25 3a 73 24 2b 3d  43 48 52 24 3f 69 25 3a  |?i%:s$+=CHR$?i%:|
000000e0  69 25 2b 3d 31 3a 45 4e  44 57 48 49 4c 45 3a 45  |i%+=1:ENDWHILE:E|
000000f0  52 52 4f 52 20 30 2c 73  24 0d 00 5a 44 c8 99 22  |RROR 0,s$..ZD.."|
00000100  4f 53 5f 52 65 61 64 41  72 67 73 22 2c 22 62 61  |OS_ReadArgs","ba|
00000110  73 69 63 2f 67 2c 71 75  69 74 2f 73 2c 61 70 70  |sic/g,quit/s,app|
00000120  6e 61 6d 65 2f 67 2c 75  72 6c 2f 67 22 2c 72 30  |name/g,url/g",r0|
00000130  25 2c 62 75 66 66 65 72  25 2c 32 35 36 0d 00 64  |%,buffer%,256..d|
00000140  29 e7 62 75 66 66 65 72  25 21 31 32 3d 30 20 85  |).buffer%!12=0 .|
00000150  20 30 2c 20 22 4e 6f 20  55 52 4c 20 73 70 65 63  | 0, "No URL spec|
00000160  69 66 69 65 64 22 0d 00  6e 32 69 25 3d 62 75 66  |ified"..n2i%=buf|
00000170  66 65 72 25 21 31 32 3a  6c 65 6e 25 3d 3f 69 25  |fer%!12:len%=?i%|
00000180  2b 28 69 25 3f 31 3c 3c  38 29 3a 69 25 2b 3d 32  |+(i%?1<<8):i%+=2|
00000190  3a 75 72 6c 24 3d 22 22  0d 00 78 27 c8 95 6c 65  |:url$=""..x'..le|
000001a0  6e 25 3a 75 72 6c 24 2b  3d bd 28 3f 69 25 29 3a  |n%:url$+=.(?i%):|
000001b0  69 25 2b 3d 31 3a 6c 65  6e 25 2d 3d 31 3a ce 0d  |i%+=1:len%-=1:..|
000001c0  00 82 2c 69 25 3d a7 75  72 6c 24 2c 22 3a 22 29  |..,i%=.url$,":")|
000001d0  3a e7 69 25 3d 30 20 85  20 30 2c 20 22 4d 61 6c  |:.i%=0 . 0, "Mal|
000001e0  66 6f 72 6d 65 64 20 55  52 4c 22 0d 00 8c 05 f4  |formed URL".....|
000001f0  0d 00 96 34 f4 20 73 70  6c 69 74 20 6f 66 66 20  |...4. split off |
00000200  74 68 65 20 6d 65 74 68  6f 64 20 28 66 69 6c 65  |the method (file|
00000210  72 5f 6f 70 65 6e 64 69  72 2f 66 69 6c 65 72 5f  |r_opendir/filer_|
00000220  72 75 6e 29 0d 00 a0 05  f4 0d 00 aa 28 6d 65 74  |run)........(met|
00000230  68 6f 64 24 3d c0 75 72  6c 24 2c 69 25 2d 31 29  |hod$=.url$,i%-1)|
00000240  3a 75 72 6c 24 3d c1 75  72 6c 24 2c 69 25 2b 31  |:url$=.url$,i%+1|
00000250  29 0d 00 b4 05 f4 0d 00  be 34 f4 20 73 70 6c 69  |)........4. spli|
00000260  74 20 6f 66 66 20 74 68  65 20 65 78 74 72 61 20  |t off the extra |
00000270  69 6e 66 6f 72 6d 61 74  69 6f 6e 20 69 66 20 69  |information if i|
00000280  74 20 69 73 20 74 68 65  72 65 0d 00 c8 05 f4 0d  |t is there......|
00000290  00 d2 11 69 25 3d a7 75  72 6c 24 2c 22 3b 22 29  |...i%=.url$,";")|
000002a0  0d 00 dc 3a e7 69 25 3c  3e 30 20 65 78 74 72 61  |...:.i%<>0 extra|
000002b0  24 3d c1 75 72 6c 24 2c  69 25 2b 31 29 3a 75 72  |$=.url$,i%+1):ur|
000002c0  6c 24 3d c0 75 72 6c 24  2c 69 25 2d 31 29 20 8b  |l$=.url$,i%-1) .|
000002d0  20 65 78 74 72 61 24 3d  22 22 0d 00 e6 05 f4 0d  | extra$=""......|
000002e0  00 f0 26 f4 20 6c 6f 73  65 20 74 68 65 20 6c 65  |..&. lose the le|
000002f0  61 64 69 6e 67 20 61 6e  64 20 74 72 61 69 6c 69  |ading and traili|
00000300  6e 67 20 2f 73 0d 00 fa  05 f4 0d 01 04 23 c8 95  |ng /s........#..|
00000310  20 c0 75 72 6c 24 2c 31  29 3d 22 2f 22 20 75 72  | .url$,1)="/" ur|
00000320  6c 24 3d c1 75 72 6c 24  2c 32 29 3a ce 0d 01 0e  |l$=.url$,2):....|
00000330  1d e7 c2 75 72 6c 24 2c  31 29 3d 22 2f 22 20 75  |...url$,1)="/" u|
00000340  72 6c 24 3d c0 75 72 6c  24 29 0d 01 18 05 f4 0d  |rl$=.url$)......|
00000350  01 22 32 f4 20 74 75 72  6e 20 74 68 65 20 72 65  |."2. turn the re|
00000360  6d 61 69 6e 69 6e 67 20  2f 73 20 69 6e 74 6f 20  |maining /s into |
00000370  2e 73 20 61 6e 64 20 2e  73 20 69 6e 74 6f 20 2f  |.s and .s into /|
00000380  73 0d 01 2c 05 f4 0d 01  36 13 e3 69 25 3d 31 20  |s..,....6..i%=1 |
00000390  b8 20 a9 28 75 72 6c 24  29 0d 01 40 48 20 e7 c1  |. .(url$)..@H ..|
000003a0  75 72 6c 24 2c 69 25 2c  31 29 3d 22 2e 22 20 c1  |url$,i%,1)="." .|
000003b0  75 72 6c 24 2c 69 25 2c  31 29 3d 22 2f 22 20 8b  |url$,i%,1)="/" .|
000003c0  20 e7 c1 75 72 6c 24 2c  69 25 2c 31 29 3d 22 2f  | ..url$,i%,1)="/|
000003d0  22 20 c1 75 72 6c 24 2c  69 25 2c 31 29 3d 22 2e  |" .url$,i%,1)=".|
000003e0  22 0d 01 4a 05 ed 0d 01  54 05 f4 0d 01 5e 3a f4  |"..J....T....^:.|
000003f0  20 69 66 20 74 68 65 72  65 20 61 72 65 6e 27 74  | if there aren't|
00000400  20 61 6e 79 20 66 75 6c  6c 2d 73 74 6f 70 73 20  | any full-stops |
00000410  69 6e 20 74 68 65 20 6e  61 6d 65 2c 20 61 64 64  |in the name, add|
00000420  20 22 2e 24 22 0d 01 68  05 f4 0d 01 72 11 69 25  | ".$"..h....r.i%|
00000430  3d a7 75 72 6c 24 2c 22  2e 22 29 0d 01 7c 14 e7  |=.url$,".")..|..|
00000440  69 25 3d 30 20 75 72 6c  24 2b 3d 22 2e 24 22 0d  |i%=0 url$+=".$".|
00000450  01 86 05 f4 0d 01 90 26  f4 20 73 65 65 20 69 66  |.......&. see if|
00000460  20 74 68 65 20 64 69 72  65 63 74 6f 72 79 2f 66  | the directory/f|
00000470  69 6c 65 20 65 78 69 73  74 73 0d 01 9a 05 f4 0d  |ile exists......|
00000480  01 a4 2f e7 ac a4 6f 62  6a 65 63 74 5f 65 78 69  |../...object_exi|
00000490  73 74 73 20 f2 70 72 6f  63 65 73 73 5f 65 78 74  |sts .process_ext|
000004a0  72 61 5f 69 6e 66 6f 72  6d 61 74 69 6f 6e 0d 01  |ra_information..|
000004b0  ae 16 e7 ac a4 6f 62 6a  65 63 74 5f 65 78 69 73  |.....object_exis|
000004c0  74 73 20 8c 0d 01 b8 5e  20 e7 a4 66 69 6c 65 72  |ts ....^ ..filer|
000004d0  5f 6f 70 65 6e 64 69 72  20 85 20 30 2c 20 22 55  |_opendir . 0, "U|
000004e0  6e 61 62 6c 65 20 74 6f  20 64 69 73 70 6c 61 79  |nable to display|
000004f0  20 74 68 65 20 64 69 72  65 63 74 6f 72 79 20 22  | the directory "|
00000500  2b 75 72 6c 24 20 8b 20  85 20 30 2c 20 22 55 6e  |+url$ . . 0, "Un|
00000510  61 62 6c 65 20 74 6f 20  72 75 6e 20 22 2b 75 72  |able to run "+ur|
00000520  6c 24 0d 01 c2 05 cd 0d  01 cc 05 f4 0d 01 d6 46  |l$.............F|
00000530  f4 20 63 61 6e 6f 6e 69  63 61 6c 69 73 65 20 74  |. canonicalise t|
00000540  68 65 20 70 61 74 68 2c  20 6a 75 73 74 20 74 6f  |he path, just to|
00000550  20 6d 61 6b 65 20 74 68  65 20 46 69 6c 65 72 5f  | make the Filer_|
00000560  4f 70 65 6e 44 69 72 20  6c 6f 6f 6b 20 6e 69 63  |OpenDir look nic|
00000570  65 72 0d 01 e0 05 f4 0d  01 ea 2c c8 99 22 4f 53  |er........,.."OS|
00000580  5f 46 53 43 6f 6e 74 72  6f 6c 22 2c 33 37 2c 75  |_FSControl",37,u|
00000590  72 6c 24 2c 62 75 66 66  65 72 25 2c 30 2c 30 2c  |rl$,buffer%,0,0,|
000005a0  32 35 36 0d 01 f4 2f 75  72 6c 24 3d 22 22 3a 69  |256.../url$="":i|
000005b0  25 3d 62 75 66 66 65 72  25 3a c8 95 3f 69 25 3a  |%=buffer%:..?i%:|
000005c0  75 72 6c 24 2b 3d bd 3f  69 25 3a 69 25 2b 3d 31  |url$+=.?i%:i%+=1|
000005d0  3a ce 0d 01 fe 15 e7 a4  66 69 6c 65 72 5f 6f 70  |:.......filer_op|
000005e0  65 6e 64 69 72 20 8c 0d  02 08 1d 20 ff 28 22 46  |endir ..... .("F|
000005f0  69 6c 65 72 5f 4f 70 65  6e 44 69 72 20 22 2b 75  |iler_OpenDir "+u|
00000600  72 6c 24 29 0d 02 12 05  cc 0d 02 1c 19 20 ff 28  |rl$)......... .(|
00000610  22 46 69 6c 65 72 5f 52  75 6e 20 22 2b 75 72 6c  |"Filer_Run "+url|
00000620  24 29 0d 02 26 05 cd 0d  02 30 15 c8 99 22 48 6f  |$)..&....0..."Ho|
00000630  75 72 67 6c 61 73 73 5f  4f 66 66 22 0d 02 3a 05  |urglass_Off"..:.|
00000640  e0 0d 02 44 05 3a 0d 02  4e 13 dd a4 6f 62 6a 65  |...D.:..N...obje|
00000650  63 74 5f 65 78 69 73 74  73 0d 02 58 0c ea 20 72  |ct_exists..X.. r|
00000660  30 25 2c 66 25 0d 02 62  21 c8 99 22 58 4f 53 5f  |0%,f%..b!.."XOS_|
00000670  46 69 6c 65 22 2c 31 37  2c 75 72 6c 24 20 b8 20  |File",17,url$ . |
00000680  72 30 25 3b 66 25 0d 02  6c 11 e7 28 66 25 80 31  |r0%;f%..l..(f%.1|
00000690  29 3d 31 20 3a 3d a3 0d  02 76 0e e7 72 30 25 3d  |)=1 :=...v..r0%=|
000006a0  31 20 3a 3d b9 0d 02 80  05 f4 0d 02 8a 40 f4 20  |1 :=.........@. |
000006b0  74 68 65 72 65 20 61 70  70 65 61 72 73 20 74 6f  |there appears to|
000006c0  20 62 65 20 61 20 62 75  67 20 69 6e 20 4e 46 53  | be a bug in NFS|
000006d0  20 77 68 69 63 68 20 77  65 20 6e 6f 77 20 68 61  | which we now ha|
000006e0  76 65 20 74 6f 20 77 6f  72 6b 0d 02 94 3e f4 20  |ve to work...>. |
000006f0  61 72 6f 75 6e 64 2e 20  49 66 20 79 6f 75 20 64  |around. If you d|
00000700  6f 20 61 6e 20 4f 53 5f  46 69 6c 65 20 6f 6e 20  |o an OS_File on |
00000710  61 20 6e 6f 6e 2d 65 78  69 73 74 65 6e 74 20 6d  |a non-existent m|
00000720  6f 75 6e 74 2c 20 69 74  0d 02 9e 3f f4 20 73 74  |ount, it...?. st|
00000730  69 6c 6c 20 73 61 79 73  20 74 68 61 74 20 74 68  |ill says that th|
00000740  65 20 6f 62 6a 65 63 74  20 65 78 69 73 74 73 2c  |e object exists,|
00000750  20 73 6f 20 77 65 20 61  72 65 20 6e 6f 77 20 67  | so we are now g|
00000760  6f 69 6e 67 20 74 6f 0d  02 a8 3e f4 20 74 72 79  |oing to...>. try|
00000770  20 74 6f 20 72 65 61 64  20 61 6e 20 6f 62 6a 65  | to read an obje|
00000780  63 74 20 6e 61 6d 65 20  66 72 6f 6d 20 74 68 65  |ct name from the|
00000790  20 64 69 72 65 63 74 6f  72 79 20 61 6e 64 20 73  | directory and s|
000007a0  65 65 20 69 66 0d 02 b2  1c f4 20 74 68 61 74 20  |ee if..... that |
000007b0  72 65 74 75 72 6e 73 20  61 6e 20 65 72 72 6f 72  |returns an error|
000007c0  2e 0d 02 bc 05 f4 0d 02  c6 31 c8 99 22 58 4f 53  |.........1.."XOS|
000007d0  5f 47 42 50 42 22 2c 39  2c 75 72 6c 24 2c 62 75  |_GBPB",9,url$,bu|
000007e0  66 66 65 72 25 2c 31 2c  30 2c 32 35 36 2c 22 2a  |ffer%,1,0,256,"*|
000007f0  22 20 b8 20 3b 66 25 0d  02 d0 11 e7 28 66 25 80  |" . ;f%.....(f%.|
00000800  31 29 3d 31 20 3a 3d a3  0d 02 da 06 3d b9 0d 02  |1)=1 :=.....=...|
00000810  e4 05 3a 0d 02 ee 1f dd  f2 70 72 6f 63 65 73 73  |..:......process|
00000820  5f 65 78 74 72 61 5f 69  6e 66 6f 72 6d 61 74 69  |_extra_informati|
00000830  6f 6e 0d 02 f8 0a c8 8e  20 b9 20 ca 0d 03 02 37  |on...... . ....7|
00000840  c9 20 a4 6d 61 74 63 68  28 c0 75 72 6c 24 2c 34  |. .match(.url$,4|
00000850  29 2c 22 4e 46 53 3a 22  29 3a 20 f2 70 72 6f 63  |),"NFS:"): .proc|
00000860  65 73 73 5f 6e 66 73 5f  69 6e 66 6f 72 6d 61 74  |ess_nfs_informat|
00000870  69 6f 6e 0d 03 0c 37 c9  20 a4 6d 61 74 63 68 28  |ion...7. .match(|
00000880  c0 75 72 6c 24 2c 34 29  2c 22 4e 65 74 3a 22 29  |.url$,4),"Net:")|
00000890  3a 20 f2 70 72 6f 63 65  73 73 5f 6e 65 74 5f 69  |: .process_net_i|
000008a0  6e 66 6f 72 6d 61 74 69  6f 6e 0d 03 16 05 cb 0d  |nformation......|
000008b0  03 20 05 e1 0d 03 2a 05  3a 0d 03 34 1d dd f2 70  |. ....*.:..4...p|
000008c0  72 6f 63 65 73 73 5f 6e  66 73 5f 69 6e 66 6f 72  |rocess_nfs_infor|
000008d0  6d 61 74 69 6f 6e 0d 03  3e 3a ea 20 75 73 65 72  |mation..>:. user|
000008e0  24 2c 70 61 73 73 77 6f  72 64 24 2c 61 75 74 68  |$,password$,auth|
000008f0  24 2c 68 6f 73 74 24 2c  70 61 74 68 24 2c 6e 61  |$,host$,path$,na|
00000900  6d 65 24 2c 6d 24 2c 69  25 2c 72 30 25 2c 66 25  |me$,m$,i%,r0%,f%|
00000910  0d 03 48 10 e7 65 78 74  72 61 24 3d 22 22 20 e1  |..H..extra$="" .|
00000920  0d 03 52 05 f4 0d 03 5c  29 f4 20 65 78 74 72 61  |..R....\). extra|
00000930  63 74 20 74 68 65 20 6d  6f 75 6e 74 20 6e 61 6d  |ct the mount nam|
00000940  65 20 66 72 6f 6d 20 74  68 65 20 75 72 6c 0d 03  |e from the url..|
00000950  66 05 f4 0d 03 70 11 69  25 3d a7 75 72 6c 24 2c  |f....p.i%=.url$,|
00000960  22 2e 22 29 0d 03 7a 17  6e 61 6d 65 24 3d c1 75  |".")..z.name$=.u|
00000970  72 6c 24 2c 36 2c 69 25  2d 36 29 0d 03 84 05 f4  |rl$,6,i%-6).....|
00000980  0d 03 8e 2c f4 20 73 65  65 20 69 66 20 74 68 65  |...,. see if the|
00000990  20 6d 6f 75 6e 74 20 68  61 73 20 61 6c 72 65 61  | mount has alrea|
000009a0  64 79 20 62 65 65 6e 20  6d 61 64 65 0d 03 98 05  |dy been made....|
000009b0  f4 0d 03 a2 08 69 25 3d  30 0d 03 ac 05 f5 0d 03  |.....i%=0.......|
000009c0  b6 21 20 c8 99 22 4e 46  53 5f 4d 6f 75 6e 74 4c  |.! .."NFS_MountL|
000009d0  69 73 74 22 2c 30 2c 69  25 20 b8 20 2c 69 25 0d  |ist",0,i% . ,i%.|
000009e0  03 c0 0d 20 e7 69 25 3c  3e 30 20 8c 0d 03 ca 12  |... .i%<>0 .....|
000009f0  20 20 6d 24 3d a4 72 74  6f 7a 28 69 25 29 0d 03  |  m$=.rtoz(i%)..|
00000a00  d4 19 20 20 e7 a4 6d 61  74 63 68 28 6d 24 2c 6e  |..  ..match(m$,n|
00000a10  61 6d 65 24 29 20 e1 0d  03 de 06 20 cd 0d 03 e8  |ame$) ..... ....|
00000a20  0a fd 20 69 25 3d 30 0d  03 f2 05 f4 0d 03 fc 40  |.. i%=0........@|
00000a30  f4 20 73 70 6c 69 74 20  6f 66 66 20 74 68 65 20  |. split off the |
00000a40  75 73 65 72 2c 20 70 61  73 73 77 6f 72 64 2c 20  |user, password, |
00000a50  61 75 74 68 65 6e 74 69  63 61 74 6f 72 2c 20 68  |authenticator, h|
00000a60  6f 73 74 20 61 6e 64 20  70 61 74 68 0d 04 06 05  |ost and path....|
00000a70  f4 0d 04 10 4f 69 25 3d  a7 65 78 74 72 61 24 2c  |....Oi%=.extra$,|
00000a80  22 3d 22 29 3a e7 69 25  3d 30 20 85 20 30 2c 20  |"="):.i%=0 . 0, |
00000a90  22 4d 61 6c 66 6f 72 6d  65 64 20 55 52 4c 20 28  |"Malformed URL (|
00000aa0  6d 69 73 73 69 6e 67 20  61 64 64 69 74 69 6f 6e  |missing addition|
00000ab0  61 6c 20 69 6e 66 6f 72  6d 61 74 69 6f 6e 29 22  |al information)"|
00000ac0  0d 04 1a 18 65 78 74 72  61 24 3d c1 65 78 74 72  |....extra$=.extr|
00000ad0  61 24 2c 69 25 2b 31 29  0d 04 24 49 69 25 3d a7  |a$,i%+1)..$Ii%=.|
00000ae0  65 78 74 72 61 24 2c 22  3a 22 29 3a e7 69 25 3d  |extra$,":"):.i%=|
00000af0  30 20 85 20 30 2c 20 22  4d 61 6c 66 6f 72 6d 65  |0 . 0, "Malforme|
00000b00  64 20 55 52 4c 20 28 6d  69 73 73 69 6e 67 20 75  |d URL (missing u|
00000b10  73 65 72 20 69 6e 66 6f  72 6d 61 74 69 6f 6e 29  |ser information)|
00000b20  22 0d 04 2e 2c 75 73 65  72 24 3d c0 65 78 74 72  |"...,user$=.extr|
00000b30  61 24 2c 69 25 2d 31 29  3a 65 78 74 72 61 24 3d  |a$,i%-1):extra$=|
00000b40  c1 65 78 74 72 61 24 2c  69 25 2b 31 29 0d 04 38  |.extra$,i%+1)..8|
00000b50  4d 69 25 3d a7 65 78 74  72 61 24 2c 22 3a 22 29  |Mi%=.extra$,":")|
00000b60  3a e7 69 25 3d 30 20 85  20 30 2c 20 22 4d 61 6c  |:.i%=0 . 0, "Mal|
00000b70  66 6f 72 6d 65 64 20 55  52 4c 20 28 6d 69 73 73  |formed URL (miss|
00000b80  69 6e 67 20 70 61 73 73  77 6f 72 64 20 69 6e 66  |ing password inf|
00000b90  6f 72 6d 61 74 69 6f 6e  29 22 0d 04 42 30 70 61  |ormation)"..B0pa|
00000ba0  73 73 77 6f 72 64 24 3d  c0 65 78 74 72 61 24 2c  |ssword$=.extra$,|
00000bb0  69 25 2d 31 29 3a 65 78  74 72 61 24 3d c1 65 78  |i%-1):extra$=.ex|
00000bc0  74 72 61 24 2c 69 25 2b  31 29 0d 04 4c 52 69 25  |tra$,i%+1)..LRi%|
00000bd0  3d a7 65 78 74 72 61 24  2c 22 40 22 29 3a e7 69  |=.extra$,"@"):.i|
00000be0  25 3d 30 20 85 20 30 2c  20 22 4d 61 6c 66 6f 72  |%=0 . 0, "Malfor|
00000bf0  6d 65 64 20 55 52 4c 20  28 6d 69 73 73 69 6e 67  |med URL (missing|
00000c00  20 61 75 74 68 65 6e 74  69 63 61 74 6f 72 20 69  | authenticator i|
00000c10  6e 66 6f 72 6d 61 74 69  6f 6e 29 22 0d 04 56 2c  |nformation)"..V,|
00000c20  61 75 74 68 24 3d c0 65  78 74 72 61 24 2c 69 25  |auth$=.extra$,i%|
00000c30  2d 31 29 3a 65 78 74 72  61 24 3d c1 65 78 74 72  |-1):extra$=.extr|
00000c40  61 24 2c 69 25 2b 31 29  0d 04 60 49 69 25 3d a7  |a$,i%+1)..`Ii%=.|
00000c50  65 78 74 72 61 24 2c 22  2f 22 29 3a e7 69 25 3d  |extra$,"/"):.i%=|
00000c60  30 20 85 20 30 2c 20 22  4d 61 6c 66 6f 72 6d 65  |0 . 0, "Malforme|
00000c70  64 20 55 52 4c 20 28 6d  69 73 73 69 6e 67 20 68  |d URL (missing h|
00000c80  6f 73 74 20 69 6e 66 6f  72 6d 61 74 69 6f 6e 29  |ost information)|
00000c90  22 0d 04 6a 29 68 6f 73  74 24 3d c0 65 78 74 72  |"..j)host$=.extr|
00000ca0  61 24 2c 69 25 2d 31 29  3a 70 61 74 68 24 3d c1  |a$,i%-1):path$=.|
00000cb0  65 78 74 72 61 24 2c 69  25 29 0d 04 74 3d e7 70  |extra$,i%)..t=.p|
00000cc0  61 74 68 24 3d 22 22 20  85 20 30 2c 20 22 4d 61  |ath$="" . 0, "Ma|
00000cd0  6c 66 6f 72 6d 65 64 20  55 52 4c 20 28 6d 69 73  |lformed URL (mis|
00000ce0  73 69 6e 67 20 70 61 74  68 20 69 6e 66 6f 72 6d  |sing path inform|
00000cf0  61 74 69 6f 6e 29 22 0d  04 7e 05 f4 0d 04 88 16  |ation)"..~......|
00000d00  f4 20 6e 6f 77 20 64 6f  20 74 68 65 20 6d 6f 75  |. now do the mou|
00000d10  6e 74 0d 04 92 05 f4 0d  04 9c 33 c8 99 22 58 4e  |nt........3.."XN|
00000d20  46 53 5f 53 65 74 55 73  65 72 22 2c 61 75 74 68  |FS_SetUser",auth|
00000d30  24 2c 75 73 65 72 24 2c  70 61 73 73 77 6f 72 64  |$,user$,password|
00000d40  24 20 b8 20 72 30 25 2c  66 25 0d 04 a6 39 e7 28  |$ . r0%,f%...9.(|
00000d50  66 25 80 31 29 3d 31 20  85 20 30 2c 20 22 41 75  |f%.1)=1 . 0, "Au|
00000d60  74 68 65 6e 74 69 63 61  74 69 6f 6e 20 66 61 69  |thentication fai|
00000d70  6c 65 64 3a 20 22 2b a4  72 74 6f 7a 28 72 30 25  |led: "+.rtoz(r0%|
00000d80  2b 34 29 0d 04 b0 2d c8  99 22 58 4e 46 53 5f 4d  |+4)...-.."XNFS_M|
00000d90  6f 75 6e 74 22 2c 68 6f  73 74 24 2c 6e 61 6d 65  |ount",host$,name|
00000da0  24 2c 70 61 74 68 24 20  b8 20 72 30 25 3b 66 25  |$,path$ . r0%;f%|
00000db0  0d 04 ba 30 e7 28 66 25  80 31 29 3d 31 20 85 20  |...0.(f%.1)=1 . |
00000dc0  30 2c 20 22 4d 6f 75 6e  74 20 66 61 69 6c 65 64  |0, "Mount failed|
00000dd0  3a 20 22 2b a4 72 74 6f  7a 28 72 30 25 2b 34 29  |: "+.rtoz(r0%+4)|
00000de0  0d 04 c4 05 e1 0d 04 ce  05 3a 0d 04 d8 1d dd f2  |.........:......|
00000df0  70 72 6f 63 65 73 73 5f  6e 65 74 5f 69 6e 66 6f  |process_net_info|
00000e00  72 6d 61 74 69 6f 6e 0d  04 e2 27 ea 20 69 25 2c  |rmation...'. i%,|
00000e10  72 30 25 2c 66 25 2c 73  65 72 76 65 72 24 2c 75  |r0%,f%,server$,u|
00000e20  73 65 72 24 2c 70 61 73  73 77 6f 72 64 24 0d 04  |ser$,password$..|
00000e30  ec 10 e7 65 78 74 72 61  24 3d 22 22 20 e1 0d 04  |...extra$="" ...|
00000e40  f6 05 f4 0d 05 00 2a f4  20 65 78 74 72 61 63 74  |......*. extract|
00000e50  20 74 68 65 20 73 65 72  76 65 72 20 6e 61 6d 65  | the server name|
00000e60  20 66 72 6f 6d 20 74 68  65 20 75 72 6c 0d 05 0a  | from the url...|
00000e70  05 f4 0d 05 14 11 69 25  3d a7 75 72 6c 24 2c 22  |......i%=.url$,"|
00000e80  2e 22 29 0d 05 1e 19 73  65 72 76 65 72 24 3d c1  |.")....server$=.|
00000e90  75 72 6c 24 2c 36 2c 69  25 2d 36 29 0d 05 28 05  |url$,6,i%-6)..(.|
00000ea0  f4 0d 05 32 25 f4 20 73  70 6c 69 74 20 6f 66 66  |...2%. split off|
00000eb0  20 74 68 65 20 75 73 65  72 20 61 6e 64 20 70 61  | the user and pa|
00000ec0  73 73 77 6f 72 64 0d 05  3c 05 f4 0d 05 46 4f 69  |ssword..<....FOi|
00000ed0  25 3d a7 65 78 74 72 61  24 2c 22 3d 22 29 3a e7  |%=.extra$,"="):.|
00000ee0  69 25 3d 30 20 85 20 30  2c 20 22 4d 61 6c 66 6f  |i%=0 . 0, "Malfo|
00000ef0  72 6d 65 64 20 55 52 4c  20 28 6d 69 73 73 69 6e  |rmed URL (missin|
00000f00  67 20 61 64 64 69 74 69  6f 6e 61 6c 20 69 6e 66  |g additional inf|
00000f10  6f 72 6d 61 74 69 6f 6e  29 22 0d 05 50 18 65 78  |ormation)"..P.ex|
00000f20  74 72 61 24 3d c1 65 78  74 72 61 24 2c 69 25 2b  |tra$=.extra$,i%+|
00000f30  31 29 0d 05 5a 49 69 25  3d a7 65 78 74 72 61 24  |1)..ZIi%=.extra$|
00000f40  2c 22 3a 22 29 3a e7 69  25 3d 30 20 85 20 30 2c  |,":"):.i%=0 . 0,|
00000f50  20 22 4d 61 6c 66 6f 72  6d 65 64 20 55 52 4c 20  | "Malformed URL |
00000f60  28 6d 69 73 73 69 6e 67  20 75 73 65 72 20 69 6e  |(missing user in|
00000f70  66 6f 72 6d 61 74 69 6f  6e 29 22 0d 05 64 2f 75  |formation)"..d/u|
00000f80  73 65 72 24 3d c0 65 78  74 72 61 24 2c 69 25 2d  |ser$=.extra$,i%-|
00000f90  31 29 3a 70 61 73 73 77  6f 72 64 24 3d c1 65 78  |1):password$=.ex|
00000fa0  74 72 61 24 2c 69 25 2b  31 29 0d 05 6e 05 f4 0d  |tra$,i%+1)..n...|
00000fb0  05 78 16 f4 20 6e 6f 77  20 64 6f 20 74 68 65 20  |.x.. now do the |
00000fc0  6c 6f 67 6f 6e 0d 05 82  05 f4 0d 05 8c 46 c8 99  |logon........F..|
00000fd0  22 58 4f 53 5f 43 4c 49  22 2c 22 4e 65 74 3a 4c  |"XOS_CLI","Net:L|
00000fe0  6f 67 6f 6e 20 3a 22 2b  73 65 72 76 65 72 24 2b  |ogon :"+server$+|
00000ff0  22 20 22 2b 75 73 65 72  24 2b 22 20 22 2b 70 61  |" "+user$+" "+pa|
00001000  73 73 77 6f 72 64 24 20  b8 20 72 30 25 3b 66 25  |ssword$ . r0%;f%|
00001010  0d 05 96 54 e7 28 66 25  80 31 29 3d 31 20 85 20  |...T.(f%.1)=1 . |
00001020  30 2c 20 22 4d 6f 75 6e  74 20 66 61 69 6c 65 64  |0, "Mount failed|
00001030  3a 20 22 2b a4 72 74 6f  7a 28 72 30 25 2b 34 29  |: "+.rtoz(r0%+4)|
00001040  2b 22 20 22 2b 73 65 72  76 65 72 24 2b 22 2c 22  |+" "+server$+","|
00001050  2b 75 73 65 72 24 2b 22  2c 22 2b 70 61 73 73 77  |+user$+","+passw|
00001060  6f 72 64 24 0d 05 a0 05  e1 0d 05 aa 05 3a 0d 05  |ord$.........:..|
00001070  b4 13 dd a4 66 69 6c 65  72 5f 6f 70 65 6e 64 69  |....filer_opendi|
00001080  72 0d 05 be 21 e7 6d 65  74 68 6f 64 24 3d 22 66  |r...!.method$="f|
00001090  69 6c 65 72 5f 6f 70 65  6e 64 69 72 22 20 3a 3d  |iler_opendir" :=|
000010a0  20 b9 0d 05 c8 06 3d a3  0d 05 d2 05 3a 0d 05 dc  | .....=.....:...|
000010b0  0e dd a4 72 74 6f 7a 28  70 25 29 0d 05 e6 08 ea  |...rtoz(p%).....|
000010c0  20 73 24 0d 05 f0 1b c8  95 20 3f 70 25 3a 73 24  | s$...... ?p%:s$|
000010d0  2b 3d bd 3f 70 25 3a 70  25 2b 3d 31 3a ce 0d 05  |+=.?p%:p%+=1:...|
000010e0  fa 07 3d 73 24 0d 06 04  05 3a 0d 06 0e 14 dd a4  |..=s$....:......|
000010f0  6d 61 74 63 68 28 73 31  24 2c 73 32 24 29 0d 06  |match(s1$,s2$)..|
00001100  18 08 ea 20 69 25 0d 06  22 17 e7 a9 28 73 31 24  |... i%.."...(s1$|
00001110  29 3c 3e a9 28 73 32 24  29 20 3a 3d a3 0d 06 2c  |)<>.(s2$) :=...,|
00001120  10 e3 69 25 3d 31 b8 a9  28 73 31 24 29 0d 06 36  |..i%=1..(s1$)..6|
00001130  30 20 e7 a4 6c 6f 77 65  72 28 c1 73 31 24 2c 69  |0 ..lower(.s1$,i|
00001140  25 2c 31 29 29 3c 3e a4  6c 6f 77 65 72 28 c1 73  |%,1))<>.lower(.s|
00001150  32 24 2c 69 25 2c 31 29  29 20 3a 3d a3 0d 06 40  |2$,i%,1)) :=...@|
00001160  05 ed 0d 06 4a 06 3d b9  0d 06 54 05 3a 0d 06 5e  |....J.=...T.:..^|
00001170  0f dd a4 6c 6f 77 65 72  28 63 24 29 0d 06 68 08  |...lower(c$)..h.|
00001180  ea 20 61 25 0d 06 72 2d  61 25 3d 97 63 24 3a e7  |. a%..r-a%=.c$:.|
00001190  61 25 3e 3d 97 22 41 22  20 80 20 61 25 3c 3d 97  |a%>=."A" . a%<=.|
000011a0  22 5a 22 20 61 25 2b 3d  97 22 61 22 2d 97 22 41  |"Z" a%+=."a"-."A|
000011b0  22 0d 06 7c 07 3d 61 25  0d ff                    |"..|.=a%..|
000011ba