home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / x / volume18 / ftptool-4.3 / part10 < prev    next >
Text File  |  1992-08-18  |  52KB  |  2,101 lines
  1. Path: uunet!usc!elroy.jpl.nasa.gov!swrinde!mips!msi!dcmartin
  2. From: Mike.Sullivan@EBay.Sun.COM (Mike Sullivan {AKA Simon BarSinister})
  3. Newsgroups: comp.sources.x
  4. Subject: v18i092: Ftptool 4.3 (XVIEW), Part10/12
  5. Message-ID: <1992Aug18.153754.29083@msi.com>
  6. Date: 18 Aug 92 15:37:54 GMT
  7. References: <csx-18i083-ftptool-4.3@uunet.UU.NET>
  8. Sender: dcmartin@msi.com (David C. Martin - Moderator)
  9. Organization: Molecular Simulations, Inc.
  10. Lines: 2087
  11. Approved: dcmartin@msi.com
  12. Originator: dcmartin@fascet
  13.  
  14. Submitted-by: Mike.Sullivan@EBay.Sun.COM (Mike Sullivan {AKA Simon BarSinister})
  15. Posting-number: Volume 18, Issue 92
  16. Archive-name: ftptool-4.3/part10
  17.  
  18. #!/bin/sh
  19. # this is part.10 (part 10 of a multipart archive)
  20. # do not concatenate these parts, unpack them in order with /bin/sh
  21. # file host_list.c continued
  22. #
  23. if test ! -r _shar_seq_.tmp; then
  24.     echo 'Please unpack part 1 first!'
  25.     exit 1
  26. fi
  27. (read Scheck
  28.  if test "$Scheck" != 10; then
  29.     echo Please unpack part "$Scheck" next!
  30.     exit 1
  31.  else
  32.     exit 0
  33.  fi
  34. ) < _shar_seq_.tmp || exit 1
  35. if test ! -f _shar_wnt_.tmp; then
  36.     echo 'x - still skipping host_list.c'
  37. else
  38. echo 'x - continuing file host_list.c'
  39. sed 's/^X//' << 'SHAR_EOF' >> 'host_list.c' &&
  40. X            netrc_filename, (char *)NULL);
  41. X        return;
  42. X    }
  43. X    /* read each line */
  44. X    /* looking for "machine" surrounded by white space */
  45. X    /* if we find it, then look for other tokens until EOF or "machine" */
  46. X    /* look for "login" name or "password" name */
  47. X    /* machine ray login demo password mypassword */
  48. X
  49. X    for (;;) {
  50. X        switch(netrc_token(fp)) {
  51. X        case MACHINE:
  52. X            if (foundmachine)
  53. X                add_netrc(machine, login, password);
  54. X            foundmachine = 1;
  55. X            strcpy(machine, "");
  56. X            strcpy(login, "");
  57. X            strcpy(password, "");
  58. X            if (fscanf(fp, "%s", machine) == EOF) {
  59. X                goto out;
  60. X            }
  61. X            break;
  62. X        case LOGIN:
  63. X            if (!foundmachine || fscanf(fp, "%s", login) == EOF) {
  64. X                footer_message("Error in .netrc", (char *)NULL);
  65. X                goto out;
  66. X            }
  67. X            break;
  68. X        case PASSWORD:
  69. X            if (!foundmachine || fscanf(fp, "%s", password) == EOF) {
  70. X                footer_message("Error in .netrc", (char *)NULL);
  71. X                goto out;
  72. X            }
  73. X            break;
  74. X        case EOF:
  75. X            add_netrc(machine, login, password);
  76. X            goto out;
  77. X        default:
  78. X            break;
  79. X        }
  80. X    }
  81. X
  82. out:
  83. X    fclose(fp);
  84. X    return;
  85. }
  86. X
  87. #ifdef USE_PROTOTYPES
  88. void add_netrc(char *machine, char *login, char *password)
  89. #else
  90. void add_netrc(machine, login, password)
  91. char    *machine;
  92. char    *login;
  93. char    *password;
  94. #endif
  95. {
  96. X    if (machine[0] == '\0' || login[0] == '\0') {
  97. X        footer_message("Incomplete .netrc entry", (char *)NULL);
  98. X        return;
  99. X    }
  100. X    sprintf(scratch, "%s %s", machine, login);
  101. X    if (gethostlist(hostlist_head, scratch)) {
  102. X        footer_message("Alias \"%s\" already exists.", scratch, (char *)NULL);
  103. X        return;
  104. X    }
  105. X    if ((hostlist_head = add_hostalias(hostlist_head, scratch, "Never",
  106. X        DEFAULT_PROXY, machine, login, password, BINARY,
  107. X        ".", ".", DEFAULT_PARSE, "From .netrc")) == NULL) {
  108. X        xv_set(host_window.frame, 
  109. X            FRAME_LEFT_FOOTER, "Add failed",
  110. X            NULL);
  111. X        return;
  112. X    }
  113. X    list_changed++;
  114. X    reload_host_list_menu(hostlist_head);
  115. }
  116. X
  117. #ifdef USE_PROTOTYPES
  118. char key_to_char(char *key)
  119. #else
  120. char key_to_char(key)
  121. char    *key;
  122. #endif
  123. {
  124. X    char    *tmp = key;
  125. X    char    c = '\0';
  126. X
  127. X    while (*tmp) {
  128. X        c ^= *tmp;
  129. X        tmp++;
  130. X    }
  131. X    c &= 0x7f;
  132. X    return c;
  133. }
  134. X
  135. #ifdef USE_PROTOTYPES
  136. char *ftptool_encrypt(char *s, char *key)
  137. #else
  138. char *ftptool_encrypt(s, key)
  139. char    *s;
  140. char    *key;
  141. #endif
  142. {
  143. X    char    k;
  144. X    char    c;
  145. X    char    *es;
  146. X    char    *scanstr;
  147. X    char    *changestr;
  148. X
  149. X    k = key_to_char(key);
  150. X    es = (char *)malloc((unsigned int)(2 * strlen(s) + 1));
  151. X    if (es == NULL) {
  152. X        fprintf(stderr, "Out of memory\n");
  153. X        return NULL;
  154. X    }
  155. X    scanstr = s;
  156. X    changestr = es;
  157. X    while (*scanstr) {
  158. X        c = *scanstr++ ^ k;
  159. X        if (iscntrl(c)) {
  160. X            *changestr++ = '^';
  161. X            if (c == '\177')
  162. X                *changestr++ = '?';
  163. X            else
  164. X                *changestr++ = c + 'A';
  165. X        } else if (c == '^') {
  166. X            *changestr++ = '^';
  167. X            *changestr++ = '~';
  168. X        } else {
  169. X            *changestr++ = c;
  170. X        }
  171. X    }
  172. X    *changestr = '\0';
  173. X    return es;
  174. }
  175. X
  176. #ifdef USE_PROTOTYPES
  177. char *ftptool_decrypt(char *s, char *key)
  178. #else
  179. char *ftptool_decrypt(s, key)
  180. char    *s;
  181. char    *key;
  182. #endif
  183. {
  184. X    char    k;
  185. X    char    c;
  186. X    char    *ds;
  187. X    char    *scanstr;
  188. X    char    *changestr;
  189. X
  190. X    k = key_to_char(key);
  191. X    ds = (char *)malloc((unsigned int)(strlen(s) + 1));
  192. X    if (ds == NULL) {
  193. X        fprintf(stderr, "Out of memory\n");
  194. X        return NULL;
  195. X    }
  196. X    scanstr = s;
  197. X    changestr = ds;
  198. X    while (*scanstr) {
  199. X        c = *scanstr++;
  200. X        if (c != '^') {
  201. X            *changestr++ = c ^ k;
  202. X        } else {
  203. X            c = *scanstr++;
  204. X            if (c == '?') {
  205. X                *changestr = '\177';
  206. X            } else if (c == '~') {
  207. X                *changestr = '^';
  208. X            } else {
  209. X                *changestr = c - 'A';
  210. X            }
  211. X            *changestr++ ^= k;
  212. X        }
  213. X    }
  214. X    *changestr = '\0';
  215. X    return ds;
  216. }
  217. X
  218. #ifdef USE_PROTOTYPES
  219. char *old_ftptool_decrypt(char *s, char *key)
  220. #else
  221. char *old_ftptool_decrypt(s, key)
  222. char    *s;
  223. char    *key;
  224. #endif
  225. {
  226. X    char    k;
  227. X    char    *ds;
  228. X    char    *tmp;
  229. X
  230. X    k = key_to_char(key);
  231. X    ds = strdup(s);
  232. X    if (ds == NULL) {
  233. X        fprintf(stderr, "Out of memory\n");
  234. X        return NULL;
  235. X    }
  236. X    tmp = ds;
  237. X    while (*tmp) {
  238. X        *tmp++ ^= k;
  239. X    }
  240. X    return ds;
  241. }
  242. X
  243. #ifdef USE_PROTOTYPES
  244. struct hostlist *sort_hostlist(struct hostlist *head)
  245. #else
  246. struct hostlist *sort_hostlist(head)
  247. struct hostlist *head;
  248. #endif
  249. {
  250. X    struct hostlist *tmp;
  251. X    struct hostlist *newhead, *current;
  252. X    int    rval;
  253. X
  254. X    newhead = new_hostlist();
  255. X    if (newhead == NULL)
  256. X        return head;
  257. X
  258. X    while (head->next != NULL) {
  259. X        /* remove first element */
  260. X        current = head->next;
  261. X        head->next = current->next;
  262. X        current->next = NULL;
  263. X        /* insert in proper place */
  264. X        for (tmp = newhead; tmp->next != NULL; tmp = tmp->next)  {
  265. X            if (ignore_case)
  266. X                rval = strcasecmp(current->aliasname, tmp->next->aliasname);
  267. X            else
  268. X                rval = strcmp(current->aliasname, tmp->next->aliasname);
  269. X            if (rval < 0) {
  270. X                break;
  271. X            }
  272. X        }
  273. X        current->next = tmp->next;
  274. X        tmp->next = current;
  275. X    }
  276. X    free_hostlist(head);
  277. X    return newhead;
  278. }
  279. SHAR_EOF
  280. echo 'File host_list.c is complete' &&
  281. chmod 0644 host_list.c ||
  282. echo 'restore of host_list.c failed'
  283. Wc_c="`wc -c < 'host_list.c'`"
  284. test 30792 -eq "$Wc_c" ||
  285.     echo 'host_list.c: original size 30792, current size' "$Wc_c"
  286. rm -f _shar_wnt_.tmp
  287. fi
  288. # ============= ftptool.info ==============
  289. if test -f 'ftptool.info' -a X"$1" != X"-c"; then
  290.     echo 'x - skipping ftptool.info (File already exists)'
  291.     rm -f _shar_wnt_.tmp
  292. else
  293. > _shar_wnt_.tmp
  294. echo 'x - extracting ftptool.info (Text)'
  295. sed 's/^X//' << 'SHAR_EOF' > 'ftptool.info' &&
  296. #################################################
  297. #    ftptool.info    
  298. #
  299. #    Install this in $OPENWINHOME/lib/help so you
  300. #   can use the Help/F1 key for spot help.
  301. ################################################
  302. X
  303. :FileButton
  304. File 
  305. X
  306. Provides these functions:
  307. X
  308. X - Copy a file or directory from the remote host 
  309. X   to the local host
  310. X - Copy a file or directory from the local host 
  311. X   to the remote host
  312. X - Uncompress selected local files
  313. X - Extract selected local tar files
  314. X - Compress selected local files
  315. X - Create a tar file of the selected items
  316. X - Show information about ftptool
  317. #
  318. :FileCopyRemote
  319. Copy from Remote to local
  320. X
  321. Copy the selected files from the remote host to 
  322. the local host. Normal files or directories may
  323. be copied.
  324. X 
  325. You will not be able to select this if you are
  326. not connected to a remote host or you have no
  327. remote files or directories selected.
  328. #
  329. :FileCopyLocal
  330. Copy from Local to Remote
  331. X
  332. Copy the selected files from the local host to 
  333. the remote host. Normal files or directories may
  334. be copied.
  335. X 
  336. You will not be able to select this if you are
  337. not connected to a remote host or you have no
  338. local files or directories selected.
  339. #
  340. :FileDeleteRemote
  341. Delete Remote File
  342. X
  343. Delete the selected remote files(s). Directories
  344. will be recursively deleted. If you have set
  345. the "Confirm Deletes" property, then you will
  346. be asked whether you want to really delete each
  347. file (this _may_ be quite annoying for
  348. directories!). There is _no way_ to retrieve
  349. deleted files.
  350. #
  351. :FileDeleteLocal
  352. Delete Local File
  353. X
  354. Delete the selected local files(s). Directories
  355. will be recursively deleted. If you have set
  356. the "Confirm Deletes" property, then you will
  357. be asked whether you want to really delete each
  358. file (this _may_ be quite annoying for
  359. directories!). There is _no way_ to retrieve
  360. deleted files.
  361. #
  362. :FileCompress
  363. Compress File
  364. X
  365. Compress the selected local files. Only normal
  366. files may be compressed. The compressed files
  367. will have a '.Z' extension.
  368. X
  369. You will not be able to select this if you have
  370. no local files selected.
  371. #
  372. :FileUncompress
  373. Uncompress File
  374. X
  375. Uncompress the selected local files. Only normal
  376. files may be uncompressed. Compressed files must
  377. end in '.Z'.
  378. X
  379. You will not be able to select this if you have
  380. no local files selected.
  381. #
  382. :FileCreateTar
  383. Create Tar File
  384. X
  385. Place the selected local files and directories in
  386. a tar file. You will be asked for the name of
  387. the tarfile. Use a name ending in '.tar', or 
  388. Ftptool will not understand it is a tar file
  389. if you try to View it later. The original files
  390. will not be removed.
  391. X 
  392. You will not be able to select this if you have
  393. no local files or directories selected.
  394. #
  395. :FileExtractTar
  396. Extract Tar File
  397. X
  398. If the files selected are compressed, they will
  399. first be uncompressed. If they end in '.tar', 
  400. they are assumed to be tar archives. A tar file
  401. viewer is started. The default viewer allows
  402. listing of the contents of the tar file, and
  403. extracting the contents into a specified directory.
  404. X
  405. You will not be able to select this if you have
  406. no local files selected.
  407. #
  408. :FileAbout
  409. About Ftptool
  410. X
  411. This displays a window with information about 
  412. ftptool.
  413. #
  414. :ViewButton
  415. View
  416. X
  417. Provides these functions:
  418. X
  419. X - View a remote file
  420. X - View a local file
  421. X - View the local directory pop-up
  422. X - View the ftp session log
  423. X - View the host information pop-up
  424. #
  425. :ViewRemote
  426. Remote File
  427. X
  428. Copies the remote file(s) to /var/tmp on the 
  429. local machine. It then tries to determine the
  430. file type, and start the appropriate viewer.
  431. The file types understood are:
  432. X
  433. X - compressed - this is determined from the
  434. X   file itself, although it must have a '.Z'
  435. X   extension for uncompress to work.
  436. X - postscript - if the first two characters
  437. X   are '%!', then it assumed to be a postscript
  438. X   file, and pageview is used to view it.
  439. X - tar - this is determined from the extension,
  440. X   which must be '.tar' (not required by tar,
  441. X   currently just an easy way for ftptool to
  442. X   determine the type). As ftptool gets more
  443. X   intelligent, more archives may be understood.
  444. X   The default viewer is ftptool for archives,
  445. X   but may be changed by a property.
  446. X - other - anything else. The default viewer
  447. X   for these files is textedit, but may be
  448. X   changed by a property.
  449. X
  450. You will not be able to select this if you
  451. are not currently connected, or do not have
  452. any remote files selected.
  453. #
  454. :ViewLocal
  455. Local File
  456. X
  457. The current files are examined to determine the
  458. file type, then the appropriate viewer is 
  459. started.  The file types understood are:
  460. X
  461. X - compressed - this is determined from the
  462. X   file itself, although it must have a '.Z'
  463. X   extension for uncompress to work.
  464. X - postscript - if the first two characters
  465. X   are '%!', then it assumed to be a postscript
  466. X   file, and pageview is used to view it.
  467. X - tar - this is determined from the extension,
  468. X   which must be '.tar' (not required by tar,
  469. X   currently just an easy way for ftptool to
  470. X   determine the type). As ftptool gets more
  471. X   intelligent, more archives may be understood.
  472. X   The default viewer is ftptool for archives,
  473. X   but may be changed by a property.
  474. X - other - anything else. The default viewer
  475. X   for these files is textedit, but may be
  476. X   changed by a property.
  477. X
  478. You will not be able to select this if you
  479. do not have any local files selected.
  480. #
  481. :ViewLocalDirectory
  482. Local Directory List
  483. X
  484. Display the local directory window.
  485. #
  486. :ViewSessionLog
  487. Session Log
  488. X
  489. Display the FTP session log (log of FTP
  490. responses to Ftptool). You can only select this
  491. if you have enabled logging.
  492. #
  493. :ViewCurrentHost
  494. Host Information
  495. X
  496. Display the Host Information pop-up.
  497. #
  498. :EditButton
  499. Edit
  500. X
  501. Provides these functions:
  502. X
  503. X - Add to your personal host list
  504. X - Change an entry in the host list
  505. X - Delete an entry from the host list
  506. #
  507. :EditAdd
  508. Add to Host List
  509. X
  510. Add the information listed in the host list
  511. window to your list of hosts. Addition is
  512. based on the value given in the Host Alias
  513. field. If you try to add an alias that
  514. already exists, you will be asked if you really
  515. want to replace the existing entry.
  516. #
  517. :EditChange
  518. Change Host List Entry
  519. X
  520. Add the information listed in the host list
  521. window to your list of hosts. Addition is
  522. based on the value given in the Host Alias
  523. field. If you try to add an alias that
  524. already exists, you will not be asked if you 
  525. really want to replace the existing entry.
  526. #
  527. :EditDelete
  528. Delete Host List Entry
  529. X
  530. Delete the entry in the host list that matches
  531. the value in the Host Alias field. Note that
  532. selecting an entry is not required to delete
  533. it, although selecting it will fill in the
  534. host information. A delete operation will
  535. then delete that entry.
  536. #
  537. :PropertiesButton
  538. Properties
  539. X
  540. Provides these functions:
  541. X
  542. X - View Ftptool properties.
  543. X - View local file properties
  544. X - View remote file properties.
  545. #
  546. :PropertiesTool
  547. Tool
  548. X
  549. Display Ftptool property window. This includes
  550. how to sort, and various FTP options.
  551. #
  552. :PropertiesLocal
  553. Local File
  554. X
  555. Display local file properties, such as owner
  556. and permissions.
  557. X
  558. This will not be selectable if no local file is
  559. currently selected.
  560. #
  561. :PropertiesRemote
  562. Remote File
  563. X
  564. Display remote file properties, such as owner
  565. and permissions.
  566. X
  567. This will not be selectable if you are not
  568. connected or no remote file is currently 
  569. selected.
  570. #
  571. :ConnectButton
  572. Connect
  573. X
  574. Connect to a remote host. If the Host 
  575. Information window is not displayed, selecting
  576. this button will just display the window. 
  577. Otherwise, it will attempt to connect to the
  578. host specified in the Host Information
  579. Window.
  580. #
  581. :DisconnectButton
  582. Disconnect
  583. X
  584. Disconnect from the remote host. 
  585. #
  586. :AbortButton
  587. Abort
  588. X
  589. Selecting Abort will abort the transfer after
  590. the current file is finished.
  591. X
  592. You will not be able to select abort unless you
  593. are transferring files. Aborting a single file
  594. transfer is not useful.
  595. #
  596. :RemoteDirectory
  597. Remote Directory
  598. X
  599. This field initially displays the current 
  600. remote directory. You can change to a new 
  601. directory by typing in a directory name and 
  602. pressing return.
  603. #
  604. :RemoteList
  605. Remote File List
  606. X
  607. This list displays the remote files in the
  608. current remote directory. The time the
  609. file was last modified, the size, and the
  610. name of the file is shown. Directories, in
  611. the fashion of 'ls', have a '/' appended
  612. to the name, and are also in bold.
  613. X
  614. If the listing from the remote machine does
  615. not appear to be 'ls' style output, only
  616. the filename will be displayed. All other
  617. properties are unknown for non-UNIX 
  618. machines
  619. X
  620. Double-clicking on a directory will change
  621. to that directory.
  622. #
  623. :RemoteCDButton
  624. cd
  625. X
  626. Change to the remote directory specified by 
  627. the text, by the directory selected, or up
  628. one level (to the parent).
  629. #
  630. :RemoteCDButtonText
  631. Use Text
  632. X
  633. Select this to change to the directory you 
  634. typed in to the text field. This will be
  635. the default if you have not selected a 
  636. remote directory from the list, or if you
  637. have more than one selected.
  638. #
  639. :RemoteCDButtonSelection
  640. Use Selection
  641. X
  642. Change to the remote directory selected from
  643. the list. This is only active if you have
  644. only one item selected, and it is a 
  645. directory. If so, it is the default.
  646. X
  647. You can also double-click on a directory entry 
  648. to change to it. This does not require you
  649. to clear all other selections first.
  650. #
  651. :RemoteCDButtonUp
  652. Up One Level
  653. X
  654. Change to the parent of this directory.
  655. #
  656. :RemoteMenuCDSelection
  657. CD to Selection
  658. X
  659. Change to the remote directory selected from
  660. the list. This is only active if you have
  661. only one item selected, and it is a 
  662. directory.
  663. X
  664. You can also double-click on a directory entry 
  665. to change to it. This does not require you
  666. to clear all other selections first.
  667. #
  668. :RemoteMenuCDUp
  669. Up One Level
  670. X
  671. Change to the parent of this directory.
  672. #
  673. :RemoteMenuCopyLocal
  674. Copy to Local
  675. X
  676. Copy the selected files from the remote host to 
  677. the local host. Normal files or directories may
  678. be copied.
  679. X 
  680. You will not be able to select this if you are
  681. not connected to a remote host or you have no
  682. remote files or directories selected.
  683. #
  684. :RemoteMenuView
  685. View File
  686. X
  687. Copies the remote file(s) to /var/tmp on the 
  688. local machine. It then tries to determine the
  689. file type, and start the appropriate viewer.
  690. The file types understood are:
  691. X
  692. X - compressed - this is determined from the
  693. X   file itself, although it must have a '.Z'
  694. X   extension for uncompress to work.
  695. X - postscript - if the first two characters
  696. X   are '%!', then it assumed to be a postscript
  697. X   file, and pageview is used to view it.
  698. X - tar - this is determined from the extension,
  699. X   which must be '.tar' (not required by tar,
  700. X   currently just an easy way for ftptool to
  701. X   determine the type). As ftptool gets more
  702. X   intelligent, more archives may be understood.
  703. X   The default viewer is ftptool for archives,
  704. X   but may be changed by a property.
  705. X - other - anything else. The default viewer
  706. X   for these files is textedit, but may be
  707. X   changed by a property.
  708. X
  709. You will not be able to select this if you
  710. are not currently connected, or do not have
  711. any remote files selected.
  712. #
  713. :RemoteMenuProperties
  714. Properties
  715. X
  716. Display remote file properties, such as owner
  717. and permissions.
  718. X
  719. This will not be selectable if you are not
  720. connected or no remote file is currently 
  721. selected.
  722. #
  723. :LocalDirectory
  724. Local Directory
  725. X
  726. This field initially displays the current 
  727. local directory. You can change to a new 
  728. directory by typing in a directory name 
  729. and pressing return.
  730. #
  731. :LocalList
  732. Local File List
  733. X
  734. This list displays the local files in the
  735. current local directory. The time the
  736. file was last modified, the size, and the
  737. name of the file is shown. Directories, in
  738. the fashion of 'ls', have a '/' appended
  739. to the name, and are also in bold.
  740. X
  741. Double-clicking on a directory will change
  742. to that directory.
  743. #
  744. :LocalCDButton
  745. cd
  746. X
  747. Change to the local directory specified by 
  748. the text, by the directory selected, or up
  749. one level (to the parent).
  750. #
  751. :LocalCDButtonText
  752. Use Text
  753. X
  754. Select this to change to the directory you 
  755. typed in to the text field. This will be
  756. the default if you have not selected a 
  757. local directory from the list, or if you
  758. have more than one selected.
  759. #
  760. :LocalCDButtonSelection
  761. Use Selection
  762. X
  763. Change to the local directory selected from
  764. the list. This is only active if you have
  765. only one item selected, and it is a 
  766. directory. If so, it is the default.
  767. X
  768. You can also double-click on a directory entry 
  769. to change to it. This does not require you
  770. to clear all other selections first.
  771. #
  772. :LocalCDButtonUp
  773. Up One Level
  774. X
  775. Change to the parent of this directory.
  776. #
  777. :LocalMenuCDSelection
  778. CD to Selection
  779. X
  780. Change to the local directory selected from
  781. the list. This is only active if you have
  782. only one item selected, and it is a 
  783. directory.
  784. X
  785. You can also double-click on a directory entry 
  786. to change to it. This does not require you
  787. to clear all other selections first.
  788. #
  789. :LocalMenuCDUp
  790. Up One Level
  791. X
  792. Change to the parent of this directory.
  793. #
  794. :LocalMenuCopyRemote
  795. Copy to Remote
  796. X
  797. Copy the selected files from the local host to 
  798. the remote host. Normal files or directories may
  799. be copied.
  800. X 
  801. You will not be able to select this if you are
  802. not connected to a remote host or you have no
  803. local files or directories selected.
  804. #
  805. :LocalMenuView
  806. View File
  807. X
  808. The current files are examined to determine the
  809. file type, then the appropriate viewer is 
  810. started.  The file types understood are:
  811. X
  812. X - compressed - this is determined from the
  813. X   file itself, although it must have a '.Z'
  814. X   extension for uncompress to work.
  815. X - postscript - if the first two characters
  816. X   are '%!', then it assumed to be a postscript
  817. X   file, and pageview is used to view it.
  818. X - tar - this is determined from the extension,
  819. X   which must be '.tar' (not required by tar,
  820. X   currently just an easy way for ftptool to
  821. X   determine the type). As ftptool gets more
  822. X   intelligent, more archives may be understood.
  823. X   The default viewer is ftptool for archives,
  824. X   but may be changed by a property.
  825. X - other - anything else. The default viewer
  826. X   for these files is textedit, but may be
  827. X   changed by a property.
  828. X
  829. You will not be able to select this if you
  830. do not have any local files selected.
  831. #
  832. :LocalMenuProperties
  833. Properties
  834. X
  835. Display local file properties, such as owner
  836. and permissions.
  837. X
  838. This will not be selectable if no local file 
  839. is currently selected.
  840. #
  841. :SessionLog
  842. Session Log
  843. X
  844. Any output from FTP will be logged here. If hashing
  845. is turned on, then hash marks will appear in this
  846. window for each buffer transferred.
  847. #
  848. :PropertyPassword
  849. Default Password
  850. X
  851. The default password you want ftptool to use when
  852. first starting, and when the password field is
  853. blank. It defaults to user@machine[.domain].
  854. #
  855. :PropertyOptions
  856. FTP Options
  857. X
  858. Several options for FTP:
  859. X - Log session - enables Session Log window
  860. X - Hashing - printing of a '#' character for
  861. X   each buffer transferred. Let's you know
  862. X   something is still happening.
  863. X - Keep connection alive - by default, after
  864. X   15 minutes of inactivity, the ftp 
  865. X   connection will be broken. To prevent this,
  866. X   this option will cause a NOOP command to
  867. X   be sent every 10 minutes of inactivity.
  868. X
  869. The default is to not log, hashing is off, and 
  870. to not keep the connection alive.
  871. #
  872. :PropertyHidden
  873. Hidden Files
  874. X
  875. Hidden files (files beginning with a '.') can
  876. be ignored or shown.
  877. X
  878. The default is to hide hidden files.
  879. #
  880. :PropertyConfirm
  881. Confirm Deletions
  882. X
  883. If TRUE, asks for confirmation when deleting
  884. a file.
  885. #
  886. :PropertySortChoice
  887. Sort remote files by
  888. X
  889. You can sort by filename, modification date,
  890. size, or type.
  891. X
  892. The default is to sort by name.
  893. #
  894. :PropertyLocalSortChoice
  895. Sort local files by
  896. X
  897. You can sort by filename, modification date,
  898. size, or type.
  899. X
  900. The default is to sort by name.
  901. #
  902. :PropertySortDirection
  903. Sort order
  904. X
  905. The sort can be in forward or reverse order.
  906. Specifically, the directions are:
  907. X - alphabetical or reverse alphabetical    
  908. X - least or most recently modified
  909. X - smallest to largest.
  910. X
  911. The default is to sort in alphabetical order.
  912. #
  913. :PropertyViewer
  914. File Viewer
  915. X
  916. The command line to use to view files of
  917. unkonwn types (such as text). This should be
  918. an X program, and will be broken up into
  919. appropriate arguments. '%f' represents the
  920. program name; if not specified, it will 
  921. recieve the filename as the final argument.
  922. X
  923. The default is 'textedit %f'.
  924. #
  925. :PropertyArchiveViewer
  926. Archive Viewer
  927. X
  928. The command line to use to view files of
  929. type tar (probably others in the future). 
  930. This should be an X program, and will be 
  931. broken up into appropriate arguments. 
  932. '%f' represents the program name; if not 
  933. specified, it will recieve the filename 
  934. as the final argument.
  935. X
  936. The default is ftptool.
  937. #
  938. :PropertyPostScriptViewer
  939. PostScript Viewer
  940. X
  941. The command line to use to view files of
  942. type PostScript. This should be an X 
  943. program, and will be broken up into 
  944. appropriate arguments. '%f' represents 
  945. the program name; if not specified, it 
  946. will recieve the filename as the final 
  947. argument.
  948. X
  949. The default is 'pageview %f'.
  950. #
  951. :PropertySortApply
  952. Apply
  953. X
  954. Apply changes. You will be given the option to
  955. apply the changes permanently. If you choose
  956. to do so, your .Xdefaults file will be modified.
  957. A backup will be saved in .Xdefaults.bak.
  958. #
  959. :PropertySortReset
  960. Reset
  961. X
  962. Lose all changes made since the last apply.
  963. #
  964. :HostListWindow
  965. Personal FTP Host List
  966. X
  967. This is your personal FTP host list. It allows
  968. you to save your most recently used sites and
  969. logins in a menu, as the .netrc ftp uses does.
  970. This menu is saved in .ftptoolrc (which is
  971. constructed from .netrc if it doesn't exist)
  972. in ASCII, so you can edit it by hand.
  973. X
  974. Be careful when saving password information, as
  975. it is stored in non-encrypted form! This is
  976. as ftp does. Ftptool will create the .ftptool
  977. rc with mode 600, but it is still a risk. You
  978. might want to only save anonymous ftp passwords
  979. here, and always type your password in when
  980. you connect.
  981. #
  982. :AboutWindow
  983. About Ftptool
  984. X
  985. Displays a message about ftptool. 
  986. X
  987. :FeedbackWindow
  988. Send Feedback
  989. X
  990. Allows you to send mail to the developer
  991. of ftptool. 
  992. #
  993. #
  994. :FileProperty
  995. Ftptool:File Properties
  996. X
  997. Properties of the remote or local file. This is
  998. more than the list will show. It is only updated 
  999. whenever a list element is selected, so it will
  1000. only show information about the most recently
  1001. selected item.
  1002. X
  1003. If you have no items selected, you will not be
  1004. able to bring up the appropriate property window.
  1005. X
  1006. File properties can not be changed from within
  1007. Ftptool.
  1008. #
  1009. :FilePropertyName
  1010. Name
  1011. X
  1012. The name of the file.
  1013. #
  1014. :FilePropertyOwner
  1015. Owner
  1016. X
  1017. The owner of the file. This will be either a
  1018. user name, or a user id if the name can not
  1019. be determined.
  1020. X
  1021. For non-unix remote hosts, this will show up
  1022. as "unknown".
  1023. #
  1024. :FilePropertyGroup
  1025. Group
  1026. X
  1027. The group of the file. This will be either a
  1028. group name, or a group id if the name can not
  1029. be determined.
  1030. X
  1031. For non-unix remote hosts, this will show up
  1032. as "unknown".
  1033. #
  1034. :FilePropertyModtime
  1035. X
  1036. The last time the file was modified.
  1037. X
  1038. For non-unix remote hosts, this will show up
  1039. as "unknown".
  1040. #
  1041. :FilePropertySize
  1042. Size
  1043. X
  1044. The size of the file in bytes.
  1045. X
  1046. For non-unix remote hosts, this will show up
  1047. as -1.
  1048. #
  1049. :FilePropertyType
  1050. Type
  1051. X
  1052. The type of the file.
  1053. For non-unix remote hosts, this will show up
  1054. as "unknown".
  1055. #
  1056. :FilePropertyUserPerms
  1057. Owner
  1058. X
  1059. The permissions granted to the owner of the
  1060. file.
  1061. X
  1062. For non-unix remote hosts, the check boxes
  1063. will be blank.
  1064. #
  1065. :FilePropertyGroupPerms
  1066. Group
  1067. X
  1068. The permissions granted to users in the
  1069. group of the file.
  1070. X
  1071. For non-unix remote hosts, the check boxes
  1072. will be blank.
  1073. #
  1074. :FilePropertyOtherPerms
  1075. Other
  1076. X
  1077. The permissions granted to users that do not
  1078. own the file and that are not in the file's
  1079. group.
  1080. X
  1081. For non-unix remote hosts, the check boxes
  1082. will be blank.
  1083. #
  1084. :TarFileViewer
  1085. Tar File Viewer
  1086. X
  1087. A simple tar file viewer and extractor.
  1088. #
  1089. :TarFileListContents
  1090. List Contents
  1091. X
  1092. Lists the contents of the tar file to the
  1093. window. 
  1094. #
  1095. :TarFileExtract Files
  1096. Extract Files
  1097. X
  1098. Asks for the directory where you wish to extract 
  1099. contents of the tar file.
  1100. #
  1101. :TarFileNameText
  1102. Directory
  1103. X
  1104. Enter the name of the directory where you wish
  1105. to extract the tar file. You will have the option
  1106. of creating it if it doesn't exist.
  1107. #
  1108. :TarFileNameButton
  1109. Extract
  1110. X
  1111. Begin the extraction.
  1112. #
  1113. :BatchReceiveWindow
  1114. Batch Receive
  1115. X
  1116. The window listing the files pending transfer from
  1117. the remote system to the local one.
  1118. #
  1119. :BatchReceiveList
  1120. Batch Receive List
  1121. X
  1122. The list of files pending transfer to the local
  1123. system. You can delete from the list or start the 
  1124. transfer in the pop-up.
  1125. #
  1126. :BatchReceiveDelete
  1127. Delete
  1128. X
  1129. Delete the selected files from the receive list.
  1130. #
  1131. :BatchReceiveCopy
  1132. Copy to Local
  1133. X
  1134. Copy all files listed in the batch receive list
  1135. to the local system.
  1136. #
  1137. :BatchLoad
  1138. Load
  1139. X
  1140. Load a batch list file (created by Save) into the
  1141. batch list. Discard the current list.
  1142. #
  1143. :BatchSave
  1144. Save
  1145. X
  1146. Save the current batch list into a file which
  1147. can be loaded later with Load.
  1148. #
  1149. :BatchSendWindow
  1150. Batch Send
  1151. X
  1152. The window listing the files pending transfer from
  1153. the local system to the remote one.
  1154. #
  1155. :BatchSendList
  1156. Batch Send List
  1157. X
  1158. The list of files pending transfer to the remote
  1159. system. You can delete from the list or start the 
  1160. transfer in the pop-up.
  1161. #
  1162. :BatchSendDelete
  1163. Delete
  1164. X
  1165. Delete the selected files from the send list.
  1166. #
  1167. :BatchSendCopy
  1168. Copy to Remote
  1169. X
  1170. Copy all files listed in the batch send list to 
  1171. the remote system.
  1172. #
  1173. :LoadSaveBatchFilename
  1174. Load/Save Batch List
  1175. X
  1176. The file to name to load or save into the 
  1177. appropriate batch list.
  1178. #
  1179. :BatchReceiveAdd
  1180. Add to Batch Receive List
  1181. X
  1182. Add the selected remote file(s) to the batch 
  1183. receive list.
  1184. #
  1185. :BatchSendAdd
  1186. Add to Batch Send List
  1187. X
  1188. Add the selected local file(s) to the batch 
  1189. send list.
  1190. #
  1191. :PropertyCacheSize
  1192. Directory Cache Size
  1193. X
  1194. Determines how many directory listings ftptool 
  1195. will remember. This is managed as an LRU cache,
  1196. so everytime you CD into a directory ftptool
  1197. first looks in the cache. If it finds it, then
  1198. instead of actually reading the directory it
  1199. just displays the list in the cache. This can
  1200. speed up directory listings on slow links.
  1201. The larger you make the cache, the more memory
  1202. you will use and (if you keep listing the same
  1203. directories) the less likely you'll have to
  1204. talk to the remote server. However, the larger
  1205. the cache, the less likely it is that you'll
  1206. see any changes being made on the cached
  1207. directories. To effectively not cache at all,
  1208. set this to 1.
  1209. X
  1210. There are two caches, one for local directories
  1211. and one for remote. This property controls
  1212. both (setting it to 2 actually means you'll
  1213. cache 4 directories: 2 local and 2 remote).
  1214. #
  1215. :PropertyCacheInf
  1216. Unlimit Cache Size
  1217. X
  1218. See Directory Cache Size for an explanation.
  1219. This option causes ftptool to cache _all_
  1220. directories. It could be quite a memory
  1221. waster.
  1222. #
  1223. :QuitButton
  1224. Quit
  1225. X
  1226. Quit ftptool.
  1227. #
  1228. :PropertyOpenLook
  1229. OPEN LOOK Mode
  1230. X
  1231. If set, indicates that you are using an OPEN
  1232. LOOK Window Manager. Currently if this is
  1233. _not_ set, ftptool and the tar viewer will 
  1234. have a Quit button, and most of the pop-ups
  1235. will have Dismiss buttons.
  1236. X
  1237. Also, if you try to View a window that is 
  1238. already displayed it will be hidden. 
  1239. #
  1240. :PropertySortGrouping
  1241. Group files by type
  1242. X
  1243. If set, files are grouped by their
  1244. types (directories first, then regular
  1245. files, ...) in addition to being sorted
  1246. normally.
  1247. #
  1248. :PropertyLocalSortGrouping
  1249. Group files by type
  1250. X
  1251. If set, files are grouped by their
  1252. types (directories first, then regular
  1253. files, ...) in addition to being sorted
  1254. normally.
  1255. #
  1256. :TarQuitButton
  1257. Quit
  1258. X
  1259. Quit the tar viewer.
  1260. #
  1261. :DismissButton
  1262. Dismiss
  1263. X
  1264. Dismiss the pop-up. 
  1265. #
  1266. :HostSaveHostList
  1267. Save Host List
  1268. X
  1269. Saves your personal host list in .ftptoolrc. It 
  1270. will first attempt to save it in your home 
  1271. directory ($HOME), or the current directory if 
  1272. that fails. If you have made changes to the list, 
  1273. (needed) will appear in the option.
  1274. #
  1275. :HostLoadHostList
  1276. Load Host List
  1277. X
  1278. Loads your personal host list from .ftptoolrc, 
  1279. first looking in your home directory ($HOME) and 
  1280. then looking in the current directory if needed.  
  1281. This can be used if you want to discard changes 
  1282. you've made since the last save, or if you modify 
  1283. the .ftptoolrc file outside of ftptool (otherwise 
  1284. ftptool won't know about it).
  1285. #
  1286. :HostAppendNetRC
  1287. Append .netrc
  1288. X
  1289. Looks for a .netrc in your home directory, then 
  1290. the current directory if needed. Loads 'machine' 
  1291. entries into your host list, using a name of 
  1292. 'machinename loginname'. You can then change the 
  1293. name to something more meaningful. Valid entries 
  1294. must contain at least a 'machine' keyword and a 
  1295. 'login' entry. 'macdef' is not recognized.
  1296. X 
  1297. If you do not have a .ftptoolrc, then ftptool 
  1298. will look for a .netrc file at startup.
  1299. X  
  1300. You will not be able to select this if you do 
  1301. not have a .netrc.
  1302. #
  1303. :HostWindow
  1304. Host Information
  1305. X
  1306. This is the host window. It allows you to
  1307. connect to ftp servers.
  1308. X
  1309. It is also your personal FTP host list. It 
  1310. allows you to save your most recently used sites 
  1311. and logins in a menu, as the .netrc ftp uses does.
  1312. This menu is saved in .ftptoolrc (which is
  1313. constructed from .netrc if it doesn't exist)
  1314. in ASCII, so you can edit it by hand.
  1315. X
  1316. Be careful when saving password information, as
  1317. it is stored in a weakly-encrypted form! 
  1318. Ftptool will also create the .ftptoolrc with mode 
  1319. 600, but it is still a risk. 
  1320. #
  1321. :HostsButton
  1322. Hosts
  1323. X
  1324. This is the menu containing your host aliases.
  1325. Selecting one will cause the information about
  1326. the host to be loaded. If the auto-connect
  1327. option is set, then it will also attempt to
  1328. connect to that host.
  1329. #
  1330. :HostListAdd
  1331. Add
  1332. X
  1333. Add the information listed in the host list
  1334. window to your list of hosts. Addition is
  1335. based on the value given in the Host Alias
  1336. field. If you try to add an alias that
  1337. already exists, you will be asked if you really
  1338. want to replace the existing entry.
  1339. #
  1340. :HostListChange
  1341. Change
  1342. X
  1343. Add the information listed in the host list
  1344. window to your list of hosts. Addition is
  1345. based on the value given in the Host Alias
  1346. field. If you try to add an alias that
  1347. already exists, you will not be asked if you 
  1348. really want to replace the existing entry.
  1349. #
  1350. :HostListDelete
  1351. Delete
  1352. X
  1353. Delete the entry in the host list that matches
  1354. the value in the Host Alias field. Note that
  1355. selecting an entry is not required to delete
  1356. it, although selecting it will fill in the
  1357. host information. A delete operation will
  1358. then delete that entry.
  1359. #
  1360. :HostListOptions
  1361. List Options
  1362. X
  1363. Provides these functions:
  1364. X
  1365. X - Save your personal host list
  1366. X - Load your original host list
  1367. X - Load your FTP .netrc (if you have one)
  1368. X - Add to your personal host list
  1369. X - Change an entry in the host list
  1370. X - Delete an entry from the host list
  1371. #
  1372. :HostWindowAlias
  1373. Alias
  1374. X
  1375. A name to identify this entry. It can be any
  1376. printable characters not including newline. The
  1377. initial setting, which is not added to the list,
  1378. is "Sun Education" to refer to anonymous ftp to
  1379. yavin.ebay.
  1380. #
  1381. :HostWindowDirect
  1382. Remote host is
  1383. X 
  1384. Specify the location of the remote host. Is it
  1385. directly reachable, or does it require passing
  1386. through a gateway provided by Sun Consulting.
  1387. #
  1388. :HostWindowLastVisited
  1389. Last Visited
  1390. X
  1391. The last time you successfully
  1392. connected to the host described by
  1393. this alias. This is only updated
  1394. if you connect through the host
  1395. list, and _not_ the current host
  1396. window.
  1397. #
  1398. :HostWindowComment
  1399. Comment
  1400. X
  1401. A one line comment about the ftp site (X11 
  1402. software, Demos).
  1403. #
  1404. :HostWindowProxy
  1405. Proxy host
  1406. X
  1407. Give the hostname of the proxy host to use. This 
  1408. should be the full name (including domain) to 
  1409. make sure the right host is connected to. 
  1410. This defaults to sun-barr.EBay.
  1411. X
  1412. Internet addresses can be used if you wish.
  1413. #
  1414. :HostWindowHostname
  1415. Remote host
  1416. X
  1417. The hostname of the host to connect to. This 
  1418. should be the full name (including domain) to 
  1419. make sure the right host is connected to. 
  1420. This defaults to yavin.EBay.
  1421. X
  1422. Internet addresses can be used if you wish.
  1423. #
  1424. :HostWindowLogin
  1425. Login
  1426. X
  1427. The login name to use when connecting to the
  1428. remote host. This defaults to 'anonymous'.
  1429. #
  1430. :HostWindowPassword
  1431. Password
  1432. X
  1433. The password to give when logging in to the remote
  1434. host. It will be displayed as '*'s instead of
  1435. the actual characters. Pressing return in this 
  1436. field will automatically attempt to connect.
  1437. X
  1438. If this field is empty, the default password
  1439. will be used.
  1440. #
  1441. :HostWindowDirectory
  1442. Remote Directory
  1443. X
  1444. The remote directory to change to upon connecting.
  1445. #
  1446. :HostWindowLocalDirectory
  1447. Local Directory
  1448. X
  1449. The local directory to change to upon connecting.
  1450. #
  1451. :HostWindowDirTemplate
  1452. DIR Template
  1453. X
  1454. The template is a series of keywords 
  1455. separated by whitespace or characters
  1456. that must match (so if there are dashes in 
  1457. the date, you theoretically give 
  1458. MONTH-DAY-YEAR). See the manual page for 
  1459. more information. The keywords are:
  1460. .in +4 
  1461. PERMS   - Normal UNIX permissions 
  1462. X          (drwxrwxrwx) 
  1463. LINKS   - Link count. Currently matched, 
  1464. X          but discarded
  1465. USER    - User name/number 
  1466. GROUP   - Group name/number
  1467. SIZE    - File size 
  1468. MONTH   - Month (Dec, Jan, ...) 
  1469. DAY     - Day of week (number) 
  1470. TIME    - Hour:minute (09:49) or 
  1471. X          year (1991) 
  1472. NAME    - Filename
  1473. SKIP    - Discard characters until the 
  1474. X          next whitespace.
  1475. X
  1476. NONUNIX is a special case. Its appearence
  1477. anywhere in the string sets non-UNIX mode
  1478. (use 'ls' and not 'dir', assume everything
  1479. is a file, but you can still try to cd
  1480. by double-clicking)
  1481. X
  1482. LOWERNAMES is also a special case. It
  1483. causes all filenames read from the remote
  1484. machine to be converted to lowercase.
  1485. #
  1486. :HostWindowConnectButton
  1487. Connect
  1488. Disconnect
  1489. X
  1490. Attempt to connect to the remote host. 
  1491. X
  1492. While you are connected to a remote host, the
  1493. connect button will be a 'Disconnect' button,
  1494. and will disconnect you from the remote host.
  1495. #
  1496. :ViewSchedule
  1497. Schedule
  1498. X
  1499. Display the batch schedule pop-up.
  1500. #
  1501. :ScheduleWindow
  1502. Schedule Batch Transfer
  1503. X
  1504. This window allows you to schedule files
  1505. to be transferred at a later time. Most
  1506. necessary information is taken from the 
  1507. current Host Information window values.
  1508. #
  1509. :ProcessBatch
  1510. Process Batch
  1511. X
  1512. Switch from interactive mode to batch mode,
  1513. and process the batch list.
  1514. #
  1515. :AbortBatch
  1516. Abort Batch
  1517. X
  1518. Go back to interactive mode. Stop doing
  1519. the batch list after the current transfer.
  1520. #
  1521. :ScheduleHosts
  1522. Hosts
  1523. X
  1524. The list of pending transfers. 'R' indicates
  1525. a 'receive from' login@host, 'S' indicates a
  1526. 'send to' login@host.
  1527. #
  1528. :ScheduleCurrent
  1529. Set Current
  1530. X
  1531. Use the current host information defaults.
  1532. Primarily, this consists of creating the
  1533. menu label from the login and host fields.
  1534. #
  1535. :ScheduleAdd
  1536. Add
  1537. X
  1538. Add the current target and file list to
  1539. the batch list. Many defaults, such as 
  1540. remote and local directories, are taken
  1541. from the host information window.
  1542. #
  1543. :ScheduleChange
  1544. Change
  1545. X
  1546. Add the current target and file list to
  1547. the batch list. Same as Add, but does
  1548. not ask for confirmation if the entry 
  1549. exists. 
  1550. #
  1551. :ScheduleDelete
  1552. Delete
  1553. X
  1554. Delete the current target and direction
  1555. from the batch list.
  1556. #
  1557. :ScheduleOptions
  1558. Options
  1559. X
  1560. A menu of various options, such as Add 
  1561. and Delete, to apply to the batch list.
  1562. #
  1563. :ScheduleTime
  1564. Time Now
  1565. X
  1566. The current time.
  1567. #
  1568. :ScheduleDirection
  1569. Action
  1570. X
  1571. The action to perform. Either send or
  1572. receive. It also determines which batch
  1573. list is shown below.
  1574. #
  1575. :ScheduleTarget
  1576. Target
  1577. X
  1578. The remote target, in the form of
  1579. login@host.
  1580. #
  1581. :ScheduleHour
  1582. Hour
  1583. X
  1584. The hour (24-hour) to start the transfer.
  1585. #
  1586. :ScheduleMinute
  1587. Minute
  1588. X
  1589. The minute to start the transfer.
  1590. #
  1591. :ScheduleMonth
  1592. Month
  1593. X
  1594. The month to start the transfer.
  1595. #
  1596. :ScheduleDay
  1597. Day
  1598. X
  1599. The day to start the transfer.
  1600. #
  1601. :ScheduleYear
  1602. Year
  1603. X
  1604. The year to start the transfer.
  1605. #
  1606. :TransferMode
  1607. Transfer Mode
  1608. X
  1609. Either Binary, ASCII, or Tenex mode.
  1610. X
  1611. The default is binary mode.
  1612. #
  1613. :FileDIR
  1614. DIR
  1615. X
  1616. Do a DIR command in the session log.
  1617. This allows you to determine what the
  1618. DIR template should be.
  1619. #
  1620. :FileLS
  1621. LS
  1622. X
  1623. Do a LS command in the session log.
  1624. #
  1625. :TotalGauge
  1626. Total Gauge
  1627. X
  1628. The gauge shows how far the total
  1629. transfer has progressed, from 0 to 
  1630. 100% complete.
  1631. #
  1632. :FileGauge
  1633. File Gauge
  1634. X
  1635. The gauge shows how far the transfer
  1636. has progressed on the current file, 
  1637. from 0 to 100% complete.
  1638. #
  1639. :StatusWindow
  1640. Status Window
  1641. X
  1642. This window shows what you are
  1643. transferring, how large it is, and how
  1644. far along the transfer is.
  1645. #
  1646. :PropertiesSaveLayout
  1647. Save Layout
  1648. X
  1649. Save the layout of ftptool. This includes
  1650. the sizes and locations of most of the
  1651. windows, along with whether the main 
  1652. windows are visible.
  1653. #
  1654. :PropertyIgnoreCase
  1655. Ignore Case
  1656. X
  1657. When generating the host menu, ignore
  1658. the case of the alias. Also, ignore
  1659. case in the remote and local lists.
  1660. #
  1661. :PropertyAuto
  1662. Connect
  1663. X
  1664. If set, when you select a host from the
  1665. menu ftptool will try to connect to that
  1666. host. If not, selecting a host will just
  1667. fill in the host information window.
  1668. X
  1669. Show Status
  1670. X
  1671. Always show the transfer status window
  1672. when doing a transfer. If not set, don't
  1673. display it. You can still bring it
  1674. up from the View menu.
  1675. X
  1676. Try Sun Proxy FTP 
  1677. X
  1678. If TRUE, ftptool will automatically try to use
  1679. Sun's proxy FTP (from Sun Consulting) if it
  1680. cannot resolve the hostname (the host is 
  1681. unkown) or it receives a 'Network unreachable'
  1682. error when trying to connect. This is primarily 
  1683. used by Sun folks trying to get out to the Internet.
  1684. #
  1685. SHAR_EOF
  1686. chmod 0644 ftptool.info ||
  1687. echo 'restore of ftptool.info failed'
  1688. Wc_c="`wc -c < 'ftptool.info'`"
  1689. test 32541 -eq "$Wc_c" ||
  1690.     echo 'ftptool.info: original size 32541, current size' "$Wc_c"
  1691. rm -f _shar_wnt_.tmp
  1692. fi
  1693. # ============= create_other.c ==============
  1694. if test -f 'create_other.c' -a X"$1" != X"-c"; then
  1695.     echo 'x - skipping create_other.c (File already exists)'
  1696.     rm -f _shar_wnt_.tmp
  1697. else
  1698. > _shar_wnt_.tmp
  1699. echo 'x - extracting create_other.c (Text)'
  1700. sed 's/^X//' << 'SHAR_EOF' > 'create_other.c' &&
  1701. #include "ftptool.h"
  1702. X
  1703. #ifdef USE_PROTOTYPES
  1704. void create_host_popup(void)
  1705. #else
  1706. void create_host_popup()
  1707. #endif
  1708. {
  1709. X    struct passwd *pwd;
  1710. X    char    domainname[MAXHOSTNAMELEN + 1];
  1711. X    char    *sundomain;
  1712. X    Rect    rect;
  1713. X    int        width, height, x, y;
  1714. X    Menu    host_menu;
  1715. X    Menu    host_list_menu;
  1716. X    Panel    message;
  1717. X
  1718. X    XSync(dpy, False);
  1719. X    frame_get_rect(base_window.frame, &rect);
  1720. X
  1721. X    host_window.frame = (Frame)xv_create(base_window.frame, FRAME_CMD,
  1722. X        XV_LABEL, "Ftptool: Host Information",
  1723. X        FRAME_SHOW_RESIZE_CORNER, TRUE,
  1724. X        NULL);
  1725. X
  1726. X    host_window.panel = xv_get(host_window.frame, FRAME_CMD_PANEL);
  1727. X    xv_set(host_window.panel,
  1728. X        XV_HELP_DATA, "ftptool:HostWindow",
  1729. X        NULL);
  1730. X
  1731. X    host_window.new = xv_create(host_window.panel, PANEL_BUTTON,
  1732. X        PANEL_LABEL_STRING, "New",
  1733. X        PANEL_NOTIFY_PROC, host_list_clean_proc,
  1734. X        NULL);
  1735. X
  1736. X    host_window.anonymous = xv_create(host_window.panel, PANEL_BUTTON,
  1737. X        PANEL_LABEL_STRING, "Anonymous",
  1738. X        PANEL_NOTIFY_PROC, host_list_clean_proc,
  1739. X        NULL);
  1740. X
  1741. X    host_menu = xv_create(XV_NULL, MENU,
  1742. X        MENU_GEN_PIN_WINDOW, base_window.frame, "Hosts",
  1743. X        MENU_TITLE_ITEM, "Hosts",
  1744. X        MENU_ITEM,
  1745. X            MENU_STRING, "No Hosts!",
  1746. X            NULL,
  1747. X        NULL);
  1748. X
  1749. X    host_window.hosts = xv_create(host_window.panel, PANEL_BUTTON,
  1750. X        PANEL_LABEL_STRING, "Hosts",
  1751. X        PANEL_ITEM_MENU, host_menu,
  1752. X        XV_HELP_DATA, "ftptool:HostsButton",
  1753. X        NULL);
  1754. X
  1755. #ifdef LINT
  1756. X    host_list_menu = NULL;
  1757. X    host_list_menu = host_list_menu;
  1758. #else
  1759. X    host_list_menu = xv_create(XV_NULL, MENU,
  1760. X        MENU_GEN_PROC, host_menu_gen,
  1761. X        MENU_ITEM,
  1762. X            MENU_STRING, "Save",
  1763. X            MENU_NOTIFY_PROC, host_save_proc,
  1764. X            XV_HELP_DATA, "ftptool:HostSaveHostList",
  1765. X            NULL,
  1766. X        MENU_ITEM,
  1767. X            MENU_STRING, "Load",
  1768. X            MENU_NOTIFY_PROC, host_load_proc,
  1769. X            XV_HELP_DATA, "ftptool:HostLoadHostList",
  1770. X            NULL,
  1771. X        MENU_ITEM,
  1772. X            MENU_STRING, "Append .netrc",
  1773. X            MENU_NOTIFY_PROC, host_append_netrc_proc,
  1774. X            XV_HELP_DATA, "ftptool:HostAppendNetRC",
  1775. X            NULL,
  1776. X        MENU_ITEM,
  1777. X            MENU_STRING, "Add",
  1778. X            MENU_NOTIFY_PROC, host_list_add_proc,
  1779. X            XV_HELP_DATA, "ftptool:HostListAdd",
  1780. X            NULL,
  1781. X        MENU_ITEM,
  1782. X            MENU_STRING, "Change",
  1783. X            MENU_NOTIFY_PROC, host_list_change_proc,
  1784. X            XV_HELP_DATA, "ftptool:HostListChange",
  1785. X            NULL,
  1786. X        MENU_ITEM,
  1787. X            MENU_STRING, "Delete",
  1788. X            MENU_NOTIFY_PROC, host_list_delete_proc,
  1789. X            XV_HELP_DATA, "ftptool:HostListDelete",
  1790. X            NULL,
  1791. X        NULL);
  1792. #endif
  1793. X
  1794. X    host_window.host_list_ops = xv_create(host_window.panel, PANEL_BUTTON,
  1795. X        PANEL_LABEL_STRING, "Host List",
  1796. X        PANEL_ITEM_MENU, host_list_menu,
  1797. X        XV_HELP_DATA, "ftptool:HostListOptions",
  1798. X        NULL);
  1799. X
  1800. X    xv_set(host_window.panel, 
  1801. X        PANEL_LAYOUT, PANEL_VERTICAL, 
  1802. X        NULL);
  1803. X
  1804. X    window_fit_height(host_window.panel);
  1805. X    
  1806. X    host_window.basic.panel = xv_create(host_window.frame, PANEL,
  1807. X        PANEL_LAYOUT, PANEL_VERTICAL,
  1808. X        WIN_BORDER, TRUE,
  1809. X        XV_SHOW, TRUE,
  1810. X        NULL);
  1811. X    
  1812. X    host_window.basic.host = xv_create(host_window.basic.panel, PANEL_TEXT,
  1813. X        PANEL_NEXT_ROW, xv_row(host_window.basic.panel, 1),
  1814. X        PANEL_VALUE_DISPLAY_LENGTH, 25,
  1815. X        PANEL_VALUE_STORED_LENGTH, MAXHOSTNAMELEN,
  1816. X        PANEL_LABEL_STRING, "Remote host:",
  1817. X        PANEL_LAYOUT, PANEL_HORIZONTAL,
  1818. X        PANEL_VALUE, DEFAULT_HOST,
  1819. X        PANEL_READ_ONLY, FALSE,
  1820. X        PANEL_NOTIFY_STRING, " ",
  1821. X        PANEL_NOTIFY_LEVEL, PANEL_SPECIFIED,
  1822. X        PANEL_NOTIFY_PROC, reject_spaces,
  1823. X        XV_HELP_DATA, "ftptool:HostWindowHostname",
  1824. X        NULL);
  1825. X
  1826. X    host_window.basic.login = xv_create(host_window.basic.panel, PANEL_TEXT,
  1827. X        PANEL_VALUE_DISPLAY_LENGTH, 25,
  1828. X        PANEL_VALUE_STORED_LENGTH, MAXLOGINLEN,
  1829. X        PANEL_LABEL_STRING, "Login:",
  1830. X        PANEL_LAYOUT, PANEL_HORIZONTAL,
  1831. X        PANEL_VALUE, "anonymous",
  1832. X        PANEL_READ_ONLY, FALSE,
  1833. X        PANEL_NOTIFY_STRING, " ",
  1834. X        PANEL_NOTIFY_LEVEL, PANEL_SPECIFIED,
  1835. X        PANEL_NOTIFY_PROC, reject_spaces,
  1836. X        XV_HELP_DATA, "ftptool:HostWindowLogin",
  1837. X        NULL);
  1838. X
  1839. X    pwd = getpwuid(getuid());
  1840. X    if (pwd == NULL) {
  1841. X        fprintf(stderr, "Who are you?\n");
  1842. X        login_name = "unknown";
  1843. X    } else {
  1844. X        login_name = strdup(pwd->pw_name);
  1845. X        if (login_name == NULL) {
  1846. X            fprintf(stderr, "Out of memory.\n");
  1847. X            login_name = "unknown";
  1848. X        }
  1849. X    }
  1850. X
  1851. X    if (getdomainname(domainname, MAXHOSTNAMELEN) == -1) {
  1852. X        fprintf(stderr, "What domain is this?\n");
  1853. X        strcpy(domainname, "unknown");
  1854. X    }
  1855. X
  1856. X    sundomain = index(domainname, '.');
  1857. X    if (sundomain != NULL)
  1858. X        sundomain++; /* assume domain XX.Domain.Sun.COM */
  1859. X    else
  1860. X        sundomain = domainname;
  1861. X
  1862. X
  1863. X    if (anonftp_password == NULL) {
  1864. X        if (index(myhostname, '.'))
  1865. X            sprintf(scratch, "%s@%s",login_name, myhostname);
  1866. X        else
  1867. X            sprintf(scratch, "%s@%s.%s",login_name, myhostname, sundomain);
  1868. X
  1869. X        anonftp_password = strdup(scratch);
  1870. X    } else {
  1871. X        strcpy(scratch, anonftp_password);
  1872. X    }
  1873. X
  1874. X    footer_message("Initial password for ftp is %s.", scratch, (char *)NULL);
  1875. X    host_window.basic.password = xv_create(host_window.basic.panel, PANEL_TEXT,
  1876. X        PANEL_VALUE_DISPLAY_LENGTH, 25,
  1877. X        PANEL_VALUE_STORED_LENGTH, MAXPASSWORDLEN,
  1878. X        PANEL_LABEL_STRING, "Password:",
  1879. X        PANEL_LAYOUT, PANEL_HORIZONTAL,
  1880. X        PANEL_VALUE, anonftp_password,
  1881. X        PANEL_READ_ONLY, FALSE,
  1882. X        PANEL_NOTIFY_LEVEL, PANEL_SPECIFIED,
  1883. X        PANEL_NOTIFY_PROC, connect_proc,
  1884. X        PANEL_MASK_CHAR, '*',
  1885. X        XV_HELP_DATA, "ftptool:HostWindowPassword",
  1886. X        NULL);
  1887. X
  1888. X    window_fit_width(host_window.basic.panel);
  1889. X
  1890. X    host_window.basic.connect = xv_create(host_window.basic.panel, PANEL_BUTTON,
  1891. X        PANEL_LABEL_STRING, " Connect  ",
  1892. X        PANEL_NOTIFY_PROC, connect_proc,
  1893. X        XV_HELP_DATA, "ftptool:HostWindowConnectButton",
  1894. X        NULL);
  1895. X
  1896. X    xv_set(host_window.basic.panel, 
  1897. X        PANEL_LAYOUT, PANEL_HORIZONTAL, 
  1898. X        NULL);
  1899. X
  1900. X    host_window.basic.dismiss = xv_create(host_window.basic.panel, PANEL_BUTTON,
  1901. X        PANEL_LABEL_STRING, "Dismiss",
  1902. X        PANEL_NOTIFY_PROC, dismiss_host_window,
  1903. X        XV_SHOW, openlook_mode ? FALSE : TRUE,
  1904. X        XV_HELP_DATA, "ftptool:DismissButton",
  1905. X        NULL);
  1906. X
  1907. X    host_window.basic.plus = xv_create(host_window.basic.panel, 
  1908. X        PANEL_BUTTON,
  1909. X        PANEL_LABEL_STRING, "+",
  1910. X        PANEL_NOTIFY_PROC, plus_proc,
  1911. X        NULL);
  1912. X
  1913. X    xv_set(host_window.basic.panel, 
  1914. X        PANEL_DEFAULT_ITEM, host_window.basic.connect, 
  1915. X        NULL);
  1916. X
  1917. X    xv_set(host_window.panel, 
  1918. X        PANEL_LAYOUT, PANEL_VERTICAL, 
  1919. X        NULL);
  1920. X    
  1921. X    host_window.advanced.panel = xv_create(host_window.frame, PANEL,
  1922. X        PANEL_LAYOUT, PANEL_VERTICAL,
  1923. X        XV_SHOW, FALSE,
  1924. X        NULL);
  1925. X    
  1926. X    host_window.advanced.alias = xv_create(host_window.advanced.panel, 
  1927. X        PANEL_TEXT,
  1928. X        PANEL_VALUE_DISPLAY_LENGTH, 25,
  1929. X        PANEL_VALUE_STORED_LENGTH, MAXALIASLEN,
  1930. X        PANEL_LABEL_STRING, "Alias:",
  1931. X        PANEL_LAYOUT, PANEL_HORIZONTAL,
  1932. X        PANEL_VALUE, "Sun Education",
  1933. X        XV_HELP_DATA, "ftptool:HostWindowAlias",
  1934. X        PANEL_READ_ONLY, FALSE,
  1935. X        NULL);
  1936. X
  1937. X    message = xv_create(host_window.advanced.panel, PANEL_MESSAGE,
  1938. X        PANEL_LABEL_STRING, "Last Visited:",
  1939. X        PANEL_LABEL_BOLD, TRUE,
  1940. X        XV_HELP_DATA, "ftptool:HostWindowLastVisited",
  1941. X        NULL);
  1942. X
  1943. X    host_window.advanced.comment = xv_create(host_window.advanced.panel, 
  1944. X        PANEL_TEXT,
  1945. X        PANEL_VALUE_DISPLAY_LENGTH, 25,
  1946. X        PANEL_VALUE_STORED_LENGTH, MAXCOMMENTLEN,
  1947. X        PANEL_LABEL_STRING, "Comment:",
  1948. X        PANEL_LAYOUT, PANEL_HORIZONTAL,
  1949. X        PANEL_VALUE, "East Bay Ftp site (home of Ftptool :-)",
  1950. X        PANEL_READ_ONLY, FALSE,
  1951. X        XV_HELP_DATA, "ftptool:HostWindowComment",
  1952. X        NULL);
  1953. X
  1954. X    host_window.advanced.proxy = xv_create(host_window.advanced.panel, 
  1955. X        PANEL_TEXT,
  1956. X        PANEL_VALUE_DISPLAY_LENGTH, 25,
  1957. X        PANEL_VALUE_STORED_LENGTH, MAXHOSTNAMELEN,
  1958. X        PANEL_LABEL_STRING, "Proxy host:",
  1959. X        PANEL_LAYOUT, PANEL_HORIZONTAL,
  1960. X        PANEL_VALUE, DEFAULT_PROXY,
  1961. X        PANEL_READ_ONLY, FALSE,
  1962. X        PANEL_NOTIFY_STRING, " ",
  1963. X        PANEL_NOTIFY_LEVEL, PANEL_SPECIFIED,
  1964. X        PANEL_NOTIFY_PROC, reject_spaces,
  1965. X        XV_HELP_DATA, "ftptool:HostWindowProxy",
  1966. X        NULL);
  1967. X
  1968. X
  1969. X    host_window.advanced.transfer_mode = xv_create(host_window.advanced.panel, 
  1970. X        PANEL_CHOICE,
  1971. X        PANEL_LABEL_STRING, "Transfer mode:",
  1972. X        PANEL_CHOOSE_ONE, TRUE,
  1973. X        PANEL_CHOOSE_NONE, FALSE,
  1974. X        PANEL_CHOICE_STRINGS,
  1975. X            "Binary",
  1976. X            "ASCII",
  1977. X            "Tenex",
  1978. X            /*
  1979. X            "Image",
  1980. X            "EBCDIC",
  1981. X             */
  1982. X            NULL,
  1983. X        XV_HELP_DATA, "ftptool:TransferMode",
  1984. X        NULL);
  1985. X
  1986. X    host_window.advanced.remote_auto_cd = xv_create(host_window.advanced.panel, 
  1987. X        PANEL_TEXT,
  1988. X        PANEL_VALUE_DISPLAY_LENGTH, 25,
  1989. X        PANEL_VALUE_STORED_LENGTH, MAXPATHLEN,
  1990. X        PANEL_LABEL_STRING, "Remote CD to:",
  1991. X        PANEL_LAYOUT, PANEL_HORIZONTAL,
  1992. X        PANEL_VALUE, ".",
  1993. X        PANEL_READ_ONLY, FALSE,
  1994. X        PANEL_NOTIFY_STRING, " ",
  1995. X        PANEL_NOTIFY_LEVEL, PANEL_SPECIFIED,
  1996. X        PANEL_NOTIFY_PROC, reject_spaces,
  1997. X        XV_HELP_DATA, "ftptool:HostWindowDirectory",
  1998. X        NULL);
  1999. X
  2000. X
  2001. X    host_window.advanced.local_auto_cd = xv_create(host_window.advanced.panel, 
  2002. X        PANEL_TEXT,
  2003. X        PANEL_VALUE_DISPLAY_LENGTH, 25,
  2004. X        PANEL_VALUE_STORED_LENGTH, MAXPATHLEN,
  2005. X        PANEL_LABEL_STRING, "Local CD to:",
  2006. X        PANEL_LAYOUT, PANEL_HORIZONTAL,
  2007. X        PANEL_VALUE, ".",
  2008. X        PANEL_READ_ONLY, FALSE,
  2009. X        PANEL_NOTIFY_STRING, " ",
  2010. X        PANEL_NOTIFY_LEVEL, PANEL_SPECIFIED,
  2011. X        PANEL_NOTIFY_PROC, reject_spaces,
  2012. X        XV_HELP_DATA, "ftptool:HostWindowLocalDirectory",
  2013. X        NULL);
  2014. X
  2015. X    host_window.advanced.dir_parse = xv_create(host_window.advanced.panel, 
  2016. X        PANEL_TEXT,
  2017. X        PANEL_VALUE_DISPLAY_LENGTH, 25,
  2018. X        PANEL_VALUE_STORED_LENGTH, MAXPATHLEN,
  2019. X        PANEL_LABEL_STRING, "DIR Template:",
  2020. X        PANEL_LAYOUT, PANEL_HORIZONTAL,
  2021. X        PANEL_VALUE, DEFAULT_PARSE,
  2022. X        PANEL_READ_ONLY, FALSE,
  2023. X        XV_HELP_DATA, "ftptool:HostWindowDirTemplate",
  2024. X        NULL);
  2025. X
  2026. X    host_window.advanced.minus = xv_create(host_window.advanced.panel,
  2027. X        PANEL_BUTTON,
  2028. X        PANEL_LABEL_STRING, "-",
  2029. X        PANEL_NOTIFY_PROC, minus_proc,
  2030. X        NULL);
  2031. X
  2032. X    xv_set(host_window.panel, 
  2033. X        PANEL_LAYOUT, PANEL_HORIZONTAL, 
  2034. X        NULL);
  2035. X
  2036. X
  2037. X    /*
  2038. X    window_fit(host_window.panel);
  2039. X    justify_items(host_window.panel, TRUE);
  2040. X     */
  2041. X
  2042. X    /*
  2043. X    window_fit(host_window.basic.panel);
  2044. X     */
  2045. X    justify_items(host_window.basic.panel, TRUE);
  2046. X
  2047. X    window_fit_width(host_window.advanced.panel);
  2048. X    justify_items(host_window.advanced.panel, TRUE);
  2049. X
  2050. X    xv_set(host_window.advanced.panel, 
  2051. X        WIN_FIT_HEIGHT, 20,
  2052. X        XV_X, (int)xv_get(host_window.advanced.panel, XV_X) - 3,
  2053. X        NULL);
  2054. X
  2055. X    /*
  2056. X    height = (int)xv_get(host_window.advanced.panel, XV_HEIGHT);
  2057. X    xv_set(host_window.basic.panel, 
  2058. X        XV_HEIGHT, height, 
  2059. X        NULL);
  2060. X     */
  2061. X
  2062. X    y = (int)xv_get(host_window.advanced.minus, XV_Y);
  2063. X    x = (int)xv_get(host_window.basic.panel, XV_WIDTH) 
  2064. X        - (int)xv_get(host_window.basic.plus, XV_WIDTH) - 5;
  2065. X
  2066. X    xv_set(host_window.basic.connect, 
  2067. X        XV_Y, y,
  2068. X        NULL);
  2069. X    xv_set(host_window.basic.dismiss, 
  2070. X        XV_Y, y,
  2071. X        NULL);
  2072. X    xv_set(host_window.basic.plus, 
  2073. X        XV_Y, y,
  2074. X        XV_X, x - 2,
  2075. X        NULL);
  2076. X
  2077. X    xv_set(host_window.basic.panel, 
  2078. X        WIN_FIT_HEIGHT, 20,
  2079. X        NULL);
  2080. X
  2081. X
  2082. X    host_window.advanced.last_visited = xv_create(host_window.advanced.panel,
  2083. X        PANEL_MESSAGE,
  2084. X        PANEL_ITEM_X, xv_get(message, XV_X) + xv_get(message, XV_WIDTH)
  2085. X            + xv_col(host_window.advanced.panel, 1) / 2,
  2086. X        PANEL_ITEM_Y, xv_get(message, XV_Y),
  2087. X        PANEL_LABEL_STRING, "Never",
  2088. X        XV_HELP_DATA, "ftptool:HostWindowLastVisited",
  2089. SHAR_EOF
  2090. true || echo 'restore of create_other.c failed'
  2091. fi
  2092. echo 'End of  part 10'
  2093. echo 'File create_other.c is continued in part 11'
  2094. echo 11 > _shar_seq_.tmp
  2095. exit 0
  2096. -- 
  2097. Senior Systems Scientist        mail: dcmartin@msi.com
  2098. Molecular Simulations, Inc.        uucp: uunet!dcmartin
  2099. 796 North Pastoria Avenue        at&t: 408/522-9236
  2100. Sunnyvale, California 94086        fax: 408/732-0831
  2101.