home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 7: Programming / CDAT7.iso / Share / Java / ScriptBuilder / NOSB30_TRIAL.exe / data1.cab / Program_Files / scriptlib3.sbl / ROOT60 / DATA
Unknown  |  1998-10-05  |  794 b 
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
100% file data default


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 00 00 47 65 74 53 | 65 72 76 65 72 4e 61 6d |....GetS|erverNam|
|00000010| 65 0d 00 00 00 47 65 74 | 53 65 72 76 65 72 4e 61 |e....Get|ServerNa|
|00000020| 6d 65 05 00 00 00 4c 6f | 74 75 73 33 00 00 00 46 |me....Lo|tus3...F|
|00000030| 75 6e 63 74 69 6f 6e 20 | 65 78 74 72 61 63 74 73 |unction |extracts|
|00000040| 20 74 68 65 20 73 65 72 | 76 65 72 20 6e 61 6d 65 | the ser|ver name|
|00000050| 20 66 72 6f 6d 20 61 20 | 44 6f 6d 69 6e 6f 20 55 | from a |Domino U|
|00000060| 52 4c a6 02 00 00 25 52 | 45 4d 0d 0a 0d 0a 09 47 |RL....%R|EM.....G|
|00000070| 65 74 53 65 72 76 65 72 | 4e 61 6d 65 0d 0a 0d 0a |etServer|Name....|
|00000080| 20 20 20 44 45 53 43 3a | 20 20 54 68 69 73 20 66 |   DESC:|  This f|
|00000090| 75 6e 63 74 69 6f 6e 20 | 65 78 74 72 61 63 74 73 |unction |extracts|
|000000a0| 20 74 68 65 20 73 65 72 | 76 65 72 20 6e 61 6d 65 | the ser|ver name|
|000000b0| 20 66 72 6f 6d 20 61 20 | 44 6f 6d 69 6e 6f 20 55 | from a |Domino U|
|000000c0| 52 4c 0d 0a 0d 0a 20 20 | 20 50 4c 41 54 46 4f 52 |RL....  | PLATFOR|
|000000d0| 4d 53 3a 20 4c 6f 74 75 | 73 20 44 6f 6d 69 6e 6f |MS: Lotu|s Domino|
|000000e0| 20 53 65 72 76 65 72 20 | 34 2e 35 20 61 6e 64 20 | Server |4.5 and |
|000000f0| 68 69 67 68 65 72 0d 0a | 20 20 20 0d 0a 25 45 6e |higher..|   ..%En|
|00000100| 64 20 52 45 4d 0d 0a 0d | 0a 46 75 6e 63 74 69 6f |d REM...|.Functio|
|00000110| 6e 20 47 65 74 53 65 72 | 76 65 72 4e 61 6d 65 28 |n GetSer|verName(|
|00000120| 20 64 6f 6d 69 6e 6f 55 | 72 6c 20 41 73 20 53 74 | dominoU|rl As St|
|00000130| 72 69 6e 67 20 29 20 41 | 73 20 53 74 72 69 6e 67 |ring ) A|s String|
|00000140| 0d 0a 20 20 44 69 6d 20 | 73 74 72 4c 65 6e 2c 20 |..  Dim |strLen, |
|00000150| 6c 61 73 74 50 6f 73 2c | 20 73 74 61 72 74 50 6f |lastPos,| startPo|
|00000160| 73 2c 20 65 6e 64 50 6f | 73 2c 20 69 20 41 73 20 |s, endPo|s, i As |
|00000170| 49 6e 74 65 67 65 72 0d | 0a 20 20 44 69 6d 20 63 |Integer.|.  Dim c|
|00000180| 20 41 73 20 53 74 72 69 | 6e 67 0d 0a 20 20 0d 0a | As Stri|ng..  ..|
|00000190| 20 20 73 74 72 4c 65 6e | 20 3d 20 4c 65 6e 28 20 |  strLen| = Len( |
|000001a0| 64 6f 6d 69 6e 6f 55 72 | 6c 20 29 0d 0a 20 20 6c |dominoUr|l )..  l|
|000001b0| 61 73 74 50 6f 73 20 3d | 20 73 74 72 4c 65 6e 20 |astPos =| strLen |
|000001c0| 2d 20 31 0d 0a 20 20 73 | 74 61 72 74 50 6f 73 20 |- 1..  s|tartPos |
|000001d0| 3d 20 38 20 27 20 41 73 | 73 75 6d 65 73 20 74 68 |= 8 ' As|sumes th|
|000001e0| 65 20 73 65 72 76 65 72 | 20 6e 61 6d 65 20 69 73 |e server| name is|
|000001f0| 20 70 72 65 63 65 64 65 | 64 20 62 79 20 22 68 74 | precede|d by "ht|
|00000200| 74 70 3a 2f 2f 22 0d 0a | 20 20 65 6e 64 50 6f 73 |tp://"..|  endPos|
|00000210| 20 3d 20 38 0d 0a 20 20 | 0d 0a 20 20 63 20 3d 20 | = 8..  |..  c = |
|00000220| 4d 69 64 28 20 64 6f 6d | 69 6e 6f 55 72 6c 2c 20 |Mid( dom|inoUrl, |
|00000230| 65 6e 64 50 6f 73 2c 20 | 31 20 29 0d 0a 20 20 0d |endPos, |1 )..  .|
|00000240| 0a 20 20 57 68 69 6c 65 | 28 20 63 20 3c 3e 20 22 |.  While|( c <> "|
|00000250| 2f 22 20 41 6e 64 20 63 | 20 3c 3e 20 22 5c 22 20 |/" And c| <> "\" |
|00000260| 26 20 65 6e 64 50 6f 73 | 20 3c 20 6c 61 73 74 50 |& endPos| < lastP|
|00000270| 6f 73 20 29 0d 0a 20 20 | 20 20 65 6e 64 50 6f 73 |os )..  |  endPos|
|00000280| 20 3d 20 65 6e 64 50 6f | 73 20 2b 20 31 0d 0a 20 | = endPo|s + 1.. |
|00000290| 20 20 20 63 20 3d 20 4d | 69 64 28 20 64 6f 6d 69 |   c = M|id( domi|
|000002a0| 6e 6f 55 72 6c 2c 20 65 | 6e 64 50 6f 73 2c 20 31 |noUrl, e|ndPos, 1|
|000002b0| 20 29 0d 0a 20 20 57 65 | 6e 64 0d 0a 20 20 0d 0a | )..  We|nd..  ..|
|000002c0| 20 20 47 65 74 53 65 72 | 76 65 72 4e 61 6d 65 20 |  GetSer|verName |
|000002d0| 3d 20 4d 69 64 28 20 64 | 6f 6d 69 6e 6f 55 72 6c |= Mid( d|ominoUrl|
|000002e0| 2c 20 73 74 61 72 74 50 | 6f 73 2c 20 65 6e 64 50 |, startP|os, endP|
|000002f0| 6f 73 20 2d 20 38 20 29 | 0d 0a 20 20 0d 0a 45 6e |os - 8 )|..  ..En|
|00000300| 64 20 46 75 6e 63 74 69 | 6f 6e 0d 0a 03 00 00 00 |d Functi|on......|
|00000310| 4e 2f 41 03 00 00 00 4e | 2f 41                   |N/A....N|/A      |
+--------+-------------------------+-------------------------+--------+--------+