/ Acorn User 10 / AU_CD10.iso / Updates / FTPc / Examples / ListSite

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 43 f4 20 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |...C. **|********|
|00000010| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000020| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000030| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000040| 2a 2a 2a 0d 00 14 3e f4 | 20 20 54 68 69 73 20 70 |***...>.|  This p|
|00000050| 72 6f 67 72 61 6d 20 77 | 69 6c 6c 20 6c 69 73 74 |rogram w|ill list|
|00000060| 20 61 6c 6c 20 66 69 6c | 65 73 20 69 6e 20 61 20 | all fil|es in a |
|00000070| 64 69 72 65 63 74 6f 72 | 79 20 61 6e 64 20 61 6c |director|y and al|
|00000080| 6c 0d 00 1e 1d f4 20 20 | 6f 66 20 69 74 73 20 73 |l.....  |of its s|
|00000090| 75 62 20 64 69 72 65 63 | 74 6f 72 69 65 73 0d 00 |ub direc|tories..|
|000000a0| 28 05 f4 0d 00 32 1e f4 | 20 20 59 6f 75 20 77 69 |(....2..|  You wi|
|000000b0| 6c 6c 20 6e 65 65 64 20 | 74 6f 20 63 68 61 6e 67 |ll need |to chang|
|000000c0| 65 0d 00 3c 42 f4 20 20 | 20 20 20 6f 75 74 66 69 |e..<B.  |   outfi|
|000000d0| 6c 65 24 20 2d 20 74 6f | 20 74 68 65 20 66 69 6c |le$ - to| the fil|
|000000e0| 65 6e 61 6d 65 20 77 68 | 65 72 65 20 79 6f 75 20 |ename wh|ere you |
|000000f0| 77 61 6e 74 20 74 68 65 | 20 6c 69 73 74 20 73 61 |want the| list sa|
|00000100| 76 65 64 0d 00 46 41 f4 | 20 20 20 20 20 75 72 6c |ved..FA.|     url|
|00000110| 24 20 20 20 20 20 2d 20 | 74 6f 20 74 68 65 20 75 |$     - |to the u|
|00000120| 72 6c 20 6f 66 20 74 68 | 65 20 64 69 72 65 63 74 |rl of th|e direct|
|00000130| 6f 72 79 20 79 6f 75 20 | 77 61 6e 74 20 6c 69 73 |ory you |want lis|
|00000140| 74 69 6e 67 0d 00 50 43 | f4 20 2a 2a 2a 2a 2a 2a |ting..PC|. ******|
|00000150| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000160| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000170| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000180| 2a 2a 2a 2a 2a 2a 2a 0d | 00 5a 04 0d 00 64 26 6f |*******.|.Z...d&o|
|00000190| 75 74 66 69 6c 65 24 20 | 3d 20 22 3c 46 54 50 63 |utfile$ |= "<FTPc|
|000001a0| 24 64 69 72 3e 2e 5e 2e | 74 65 73 74 5f 64 69 72 |$dir>.^.|test_dir|
|000001b0| 22 0d 00 6e 21 75 72 6c | 24 20 20 20 20 20 3d 20 |"..n!url|$     = |
|000001c0| 22 66 74 70 3a 2f 2f 6c | 6f 63 61 6c 68 6f 73 74 |"ftp://l|ocalhost|
|000001d0| 2f 22 0d 00 78 04 0d 00 | 82 43 f4 20 2a 2a 2a 2a |/"..x...|.C. ****|
|000001e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000001f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000200| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000210| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 0d 00 8c 04 0d 00 96 |********|*.......|
|00000220| 0b 66 69 6c 65 25 3d 30 | 0d 00 a0 0e ee 20 85 20 |.file%=0|..... . |
|00000230| f2 65 72 72 6f 72 0d 00 | aa 04 0d 00 b4 10 66 6f |.error..|......fo|
|00000240| 72 6d 61 74 24 3d 22 20 | 20 22 0d 00 be 04 0d 00 |rmat$=" | "......|
|00000250| c8 1e c8 9b 20 22 3c 46 | 54 50 63 24 44 69 72 3e |.... "<F|TPc$Dir>|
|00000260| 2e 46 54 50 63 42 61 73 | 4c 69 62 22 0d 00 d2 15 |.FTPcBas|Lib"....|
|00000270| de 20 66 69 6c 65 6e 61 | 6d 65 24 28 31 30 30 30 |. filena|me$(1000|
|00000280| 29 0d 00 dc 15 66 69 6c | 65 25 3d ae 28 6f 75 74 |)....fil|e%=.(out|
|00000290| 66 69 6c 65 24 29 0d 00 | e6 26 e7 20 66 69 6c 65 |file$)..|.&. file|
|000002a0| 25 3d 30 20 85 20 30 2c | 22 43 6f 75 6c 64 6e 27 |%=0 . 0,|"Couldn'|
|000002b0| 74 20 6f 70 65 6e 20 66 | 69 6c 65 22 0d 00 f0 04 |t open f|ile"....|
|000002c0| 0d 00 fa 16 f2 66 74 70 | 63 5f 69 6e 69 74 28 22 |.....ftp|c_init("|
|000002d0| 54 65 73 74 22 29 0d 01 | 04 36 f2 65 72 72 28 a4 |Test")..|.6.err(.|
|000002e0| 66 74 70 63 5f 6f 70 65 | 6e 5f 73 65 73 73 69 6f |ftpc_ope|n_sessio|
|000002f0| 6e 28 73 65 73 73 69 6f | 6e 25 2c 31 32 30 2c 22 |n(sessio|n%,120,"|
|00000300| 53 65 73 73 69 6f 6e 20 | 31 22 29 29 0d 01 0e 2f |Session |1")).../|
|00000310| f2 66 74 70 63 5f 73 65 | 74 5f 63 6c 69 65 6e 74 |.ftpc_se|t_client|
|00000320| 5f 73 74 61 74 75 73 28 | 73 65 73 73 69 6f 6e 25 |_status(|session%|
|00000330| 2c 22 53 74 61 72 74 65 | 64 22 29 0d 01 18 1f f2 |,"Starte|d").....|
|00000340| 66 74 70 63 5f 73 68 6f | 77 5f 73 74 61 74 75 73 |ftpc_sho|w_status|
|00000350| 28 73 65 73 73 69 6f 6e | 25 29 0d 01 22 26 f2 65 |(session|%).."&.e|
|00000360| 72 72 28 a4 66 74 70 63 | 5f 63 6f 6e 6e 65 63 74 |rr(.ftpc|_connect|
|00000370| 28 73 65 73 73 69 6f 6e | 25 2c 75 72 6c 24 29 29 |(session|%,url$))|
|00000380| 0d 01 2c 18 f2 6c 69 73 | 74 5f 64 69 72 65 63 74 |..,..lis|t_direct|
|00000390| 6f 72 79 28 30 2c 30 29 | 0d 01 36 04 0d 01 40 0b |ory(0,0)|..6...@.|
|000003a0| d9 23 66 69 6c 65 25 0d | 01 4a 20 ff 20 22 73 65 |.#file%.|.J . "se|
|000003b0| 74 74 79 70 65 20 22 2b | 6f 75 74 66 69 6c 65 24 |ttype "+|outfile$|
|000003c0| 2b 22 20 66 66 66 22 0d | 01 54 30 f2 66 74 70 63 |+" fff".|.T0.ftpc|
|000003d0| 5f 73 65 74 5f 63 6c 69 | 65 6e 74 5f 73 74 61 74 |_set_cli|ent_stat|
|000003e0| 75 73 28 73 65 73 73 69 | 6f 6e 25 2c 22 46 69 6e |us(sessi|on%,"Fin|
|000003f0| 69 73 68 65 64 22 29 0d | 01 5e 05 e0 0d 01 68 04 |ished").|.^....h.|
|00000400| 0d 01 72 24 dd 20 f2 6c | 69 73 74 5f 64 69 72 65 |..r$. .l|ist_dire|
|00000410| 63 74 6f 72 79 28 73 74 | 61 72 74 25 2c 6c 65 76 |ctory(st|art%,lev|
|00000420| 65 6c 25 29 0d 01 7c 0c | 20 20 ea 20 65 6e 64 25 |el%)..|.|  . end%|
|00000430| 0d 01 86 04 0d 01 90 24 | 20 20 f2 65 72 72 28 a4 |.......$|  .err(.|
|00000440| 66 74 70 63 5f 6c 69 73 | 74 5f 64 69 72 28 73 65 |ftpc_lis|t_dir(se|
|00000450| 73 73 69 6f 6e 25 29 29 | 0d 01 9a 04 0d 01 a4 11 |ssion%))|........|
|00000460| 20 20 65 6e 64 25 3d 73 | 74 61 72 74 25 0d 01 ae |  end%=s|tart%...|
|00000470| 44 20 20 f4 20 55 73 65 | 20 4c 45 46 54 24 20 74 |D  . Use| LEFT$ t|
|00000480| 6f 20 72 65 6d 6f 76 65 | 20 30 20 66 72 6f 6d 20 |o remove| 0 from |
|00000490| 65 6e 64 20 6f 66 20 73 | 74 72 69 6e 67 20 28 64 |end of s|tring (d|
|000004a0| 61 74 61 20 65 6e 64 73 | 20 69 6e 20 30 2c 31 33 |ata ends| in 0,13|
|000004b0| 29 0d 01 b8 2c 20 20 c8 | 95 20 a4 66 74 70 63 5f |)...,  .|. .ftpc_|
|000004c0| 67 65 74 5f 6e 65 78 74 | 5f 64 69 72 5f 6c 69 6e |get_next|_dir_lin|
|000004d0| 65 28 73 65 73 73 69 6f | 6e 25 29 3d 32 0d 01 c2 |e(sessio|n%)=2...|
|000004e0| 35 20 20 20 20 66 69 6c | 65 6e 61 6d 65 24 28 65 |5    fil|ename$(e|
|000004f0| 6e 64 25 29 3d c0 24 28 | 66 74 70 63 5f 70 62 25 |nd%)=.$(|ftpc_pb%|
|00000500| 2b 66 74 70 63 5f 70 62 | 5f 64 61 74 61 25 2b 34 |+ftpc_pb|_data%+4|
|00000510| 29 29 0d 01 cc 0f 20 20 | 20 20 65 6e 64 25 2b 3d |))....  |  end%+=|
|00000520| 31 0d 01 d6 07 20 20 ce | 0d 01 e0 04 0d 01 ea 14 |1....  .|........|
|00000530| 20 20 c8 95 20 73 74 61 | 72 74 25 3c 65 6e 64 25 |  .. sta|rt%<end%|
|00000540| 0d 01 f4 37 20 20 20 20 | d5 23 66 69 6c 65 25 2c |...7    |.#file%,|
|00000550| c4 6c 65 76 65 6c 25 2c | 66 6f 72 6d 61 74 24 29 |.level%,|format$)|
|00000560| 2b c1 66 69 6c 65 6e 61 | 6d 65 24 28 73 74 61 72 |+.filena|me$(star|
|00000570| 74 25 29 2c 31 35 29 0d | 01 fe 25 20 20 20 20 e7 |t%),15).|..%    .|
|00000580| 20 c0 66 69 6c 65 6e 61 | 6d 65 24 28 73 74 61 72 | .filena|me$(star|
|00000590| 74 25 29 2c 31 29 3d 22 | 44 22 20 8c 0d 02 08 48 |t%),1)="|D" ....H|
|000005a0| 20 20 20 20 20 20 20 e7 | 20 a4 66 74 70 63 5f 63 |       .| .ftpc_c|
|000005b0| 68 61 6e 67 65 5f 64 69 | 72 65 63 74 6f 72 79 28 |hange_di|rectory(|
|000005c0| 73 65 73 73 69 6f 6e 25 | 2c c1 66 69 6c 65 6e 61 |session%|,.filena|
|000005d0| 6d 65 24 28 73 74 61 72 | 74 25 29 2c 31 35 29 29 |me$(star|t%),15))|
|000005e0| 3d 32 20 8c 0d 02 12 2d | 20 20 20 20 20 20 20 20 |=2 ....-|        |
|000005f0| 20 20 20 f2 6c 69 73 74 | 5f 64 69 72 65 63 74 6f |   .list|_directo|
|00000600| 72 79 28 65 6e 64 25 2c | 6c 65 76 65 6c 25 2b 31 |ry(end%,|level%+1|
|00000610| 29 0d 02 1c 38 20 20 20 | 20 20 20 20 20 20 20 20 |)...8   |        |
|00000620| f2 65 72 72 28 a4 66 74 | 70 63 5f 63 68 61 6e 67 |.err(.ft|pc_chang|
|00000630| 65 5f 64 69 72 65 63 74 | 6f 72 79 5f 75 70 28 73 |e_direct|ory_up(s|
|00000640| 65 73 73 69 6f 6e 25 29 | 29 0d 02 26 0c 20 20 20 |ession%)|)..&.   |
|00000650| 20 20 20 20 cd 0d 02 30 | 09 20 20 20 20 cd 0d 02 |    ...0|.    ...|
|00000660| 3a 11 20 20 20 20 73 74 | 61 72 74 25 2b 3d 31 0d |:.    st|art%+=1.|
|00000670| 02 44 07 20 20 ce 0d 02 | 4e 05 e1 0d 02 58 04 0d |.D.  ...|N....X..|
|00000680| 02 62 49 f4 20 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.bI. ***|********|
|00000690| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000006a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000006b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000006c0| 2a 2a 2a 2a 2a 2a 2a 2a | 0d 02 6c 04 0d 02 76 0c |********|..l...v.|
|000006d0| dd 20 f2 65 72 72 6f 72 | 0d 02 80 09 ee 20 85 20 |. .error|..... . |
|000006e0| 87 0d 02 8a 16 e7 20 66 | 69 6c 65 25 3c 3e 30 20 |...... f|ile%<>0 |
|000006f0| d9 23 66 69 6c 65 25 0d | 02 94 1c 85 20 30 2c 20 |.#file%.|.... 0, |
|00000700| f6 24 2b 22 20 28 22 2b | c3 28 9e 2f 31 30 29 2b |.$+" ("+|.(./10)+|
|00000710| 22 29 22 0d 02 9e 05 e0 | 0d 02 a8 04 0d 02 b2 12 |")".....|........|
|00000720| dd 20 f2 65 72 72 28 65 | 72 72 6f 72 25 29 0d 02 |. .err(e|rror%)..|
|00000730| bc 0f c8 8e 20 65 72 72 | 6f 72 25 20 ca 0d 02 c6 |.... err|or% ....|
|00000740| 0d 20 20 c9 20 20 32 3a | 20 e1 0d 02 d0 25 20 20 |.  .  2:| ....%  |
|00000750| c9 20 2d 31 3a 20 85 20 | 31 2c 22 27 43 6f 6e 6e |. -1: . |1,"'Conn|
|00000760| 65 63 74 69 6f 6e 20 63 | 6c 6f 73 65 64 27 22 0d |ection c|losed'".|
|00000770| 02 da 22 20 20 c9 20 2d | 32 3a 20 85 20 31 2c 22 |.."  . -|2: . 1,"|
|00000780| 27 46 54 50 20 6e 6f 74 | 20 4c 6f 61 64 65 64 27 |'FTP not| Loaded'|
|00000790| 22 0d 02 e4 1d 20 20 c9 | 20 2d 33 3a 20 85 20 31 |"....  .| -3: . 1|
|000007a0| 2c 22 27 54 61 73 6b 20 | 51 75 69 74 27 22 0d 02 |,"'Task |Quit'"..|
|000007b0| ee 31 20 20 7f 3a 20 85 | 20 31 2c 22 46 61 69 6c |.1  .: .| 1,"Fail|
|000007c0| 65 64 3a 20 22 2b 24 28 | 66 74 70 63 5f 70 62 25 |ed: "+$(|ftpc_pb%|
|000007d0| 2b 66 74 70 63 5f 70 62 | 5f 64 61 74 61 25 29 0d |+ftpc_pb|_data%).|
|000007e0| 02 f8 05 cb 0d 03 02 05 | e1 0d ff                |........|...     |
+--------+-------------------------+-------------------------+--------+--------+