#!/bin/sh # MetaCard 2.4 stack # The following is not ASCII text, # so now would be a good time to q out of more exec mc $0 "$@"  getFtpListMt Get FTP List U ,japanese UOsaka,Japanese UGeneva ULucida Grande ULucida Grande U ,japanese UOsaka,JapanesecRevStandaloneSettings7scriptLibraries Internet MacOSXtrue OSX,name getFtpListMacOS,documentTypeUNIX,fileSelectortrueWindowsfalseWindows,LegalCopyright)2004 Kojima All rights reserved worldwideMacOS,longVersiongetFtpList 1.0.0.0UNIX,pageSetuptrueOSX,documentTypeLinuxfalseWindows,documenticonFile8/Applications/Revolution 2.2/Sample Icons/genericdoc.icoOdtfalse inclusionsselect answerDialogfalseSPARCfalse SolIntelfalseOSX,documentExtensionWindows,FileDescriptiongetFtpList 1.0.0.0 for WindowsOSX,longVersiongetFtpList 1.0.0.0OSX,copyright)2004 Kojima All rights reserved worldwideUNIX,printerChoosertrueMacOS,MinimumSize15000MacOS,versionnumber11MacOS,versionnumber20MacOS,ReleaseFinalname getFtpListMacOS,versionnumber30Hp9k700falsers6000false MacOS,Region1OSX,shortVersion1.0.0.0Windows,fileversion11Windows,fileversion20Windows,productversion11Windows,productversion20Windows,fileversion30BsdfalsecursorsfalseWindows,productversion30Windows,fileversion40Windows,productversion40 OSX,infogetFtpList Version 1.0.0.0MacOS,dynamicMemorytrueIrisfalse askDialogfalseWindows,iconFile8/Applications/Revolution 2.2/Sample Icons/genericapp.icoOSX,signature????MacOS,PreferredSize15000Windows,ProductName getFtpListUNIX,colorChoosertrue MacOSPPCtrueWindows,companynameKojima SolSparcfalseMacOS,creator???? cREVGeneral debugObjects @  password)pSglobal gPass on keydown whichKey put whichKey after gPass set the cPassword of fld "password" to gPass repeat the num of chars of gPass put "*" after tPassword end repeat put tPassword into fld "password" select after fld "password" end keyDown on backspacekey if fld "password" is empty then set the cPassword of fld "password" to "" else delete last char of fld "password" delete last char of gPass set the cPassword of fld "password" to gPass end if end backspacekey on returnInField -- end returnInField on enterInField -- end enterInField @g cPassword cREVGeneralscriptChecksum@X,]^47Y revUniqueID 1083550771649 bookmarks handlerList/keydown backspacekey returnInField enterInField tempScript prevHandler backspacekeyscriptSelectionchar 595 to 594script

global gPass

on keydown whichKey

put whichKey after gPass

set the cPassword of fld "password" to gPass

repeat the num of chars of gPass

put "*" after tPassword

end repeat

put tPassword into fld "password"

select after fld "password"

end keyDown

on backspacekey

if fld "password" is empty then

set the cPassword of fld "password" to ""

else

delete last char of fld "password"

delete last char of gPass

set the cPassword of fld "password" to gPass

end if

end backspacekey

on returnInField

--

end returnInField

on enterInField

--

end enterInField

  userName)pQon returnInField -- end returnInField on enterInField -- end enterInField @5. cREVGeneralscriptChecksum1ǙJ\庼cz revUniqueID 1083550899882 bookmarks handlerListreturnInField enterInField tempScript prevHandlerscriptSelection char 81 to 80script

on returnInField

--

end returnInField

on enterInField

--

end enterInField

  directory)pQon returnInField -- end returnInField on enterInField -- end enterInField @ cREVGeneralscriptChecksum1ǙJ\庼cz revUniqueID 1083550939144 bookmarks handlerListreturnInField enterInField tempScript prevHandlerscriptSelection char 81 to 80script

on returnInField

--

end returnInField

on enterInField

--

end enterInField

  lockPassheon mouseUp if hilight of me then set lockText of fld "password" to true else set lockText of fld "password" to false end mouseUp itexSize12000000000 cREVGeneralscriptChecksum!0_R[@#(ڶ revUniqueID 1083550771650 bookmarks handlerListmouseUp tempScript prevHandlermouseUpscriptSelectionchar 133 to 132script

on mouseUp

if hilight of me then set lockText of fld "password" to true

else set lockText of fld "password" to false

end mouseUp

jpFld1  cREVGeneral revUniqueID 1083550977028 0000T O myUserName   jpFld2 O cREVGeneral revUniqueID 1083551030237 00000O mySecretPass   jpFld3  cREVGeneral revUniqueID 1083551170409 20000000O ftp.myDomain.co.jp/www/htdocs/   list)h@o cREVTablecurrentvscroll0formattedview total 296 drwxr-xr-x 2 kenjikoj vuser 4096 Aug 16 2003 273PlusMinus drwxr-xr-x 2 kenjikoj vuser 4096 Aug 16 2003 911 -rw-r--r-- 1 kenjikoj vuser 297 Apr 25 2003 DoNihonGo.html drwxr-xr-x 2 kenjikoj vuser 4096 Aug 16 2003 GeneratedItems drwxr-xr-x 5 kenjikoj vuser 4096 Mar 27 15:00 HiraganaQuiz drwxr-xr-x 5 kenjikoj vuser 4096 Aug 16 2003 KanaQ00 drwxr-xr-x 5 kenjikoj vuser 4096 Apr 1 13:29 Oshirase drwxr-xr-x 4 kenjikoj vuser 4096 Sep 23 2003 OshiraseCenter -rw-r--r-- 1 kenjikoj vuser 1756 Jun 8 2003 OshiraseCenter.html drwxr-xr-x 2 kenjikoj vuser 4096 Jan 19 18:33 abcd -rw-r--r-- 1 kenjikoj vuser 326 Apr 25 2003 aboutMe.html drwxr-xr-x 2 kenjikoj vuser 4096 Apr 12 13:44 cgi-bin drwxr-xr-x 2 kenjikoj vuser 4096 Apr 5 15:38 css drwxr-xr-x 5 kenjikoj vuser 4096 Feb 4 18:06 desktopSnap drwxr-xr-x 2 kenjikoj vuser 4096 May 2 13:45 donihongo drwxr-xr-x 5 kenjikoj vuser 4096 Aug 16 2003 download drwxr-xr-x 5 kenjikoj vuser 4096 Aug 16 2003 earlyWorks -rw-r--r-- 1 kenjikoj vuser 4564 Oct 11 2003 earyTempera.html drwxr-xr-x 6 kenjikoj vuser 4096 Aug 16 2003 flashVR drwxr-xr-x 3 kenjikoj vuser 4096 Aug 16 2003 flashVR_Lite -rw-r--r-- 1 kenjikoj vuser 7056 Oct 24 2003 flashVR_Lite.swf drwxr-xr-x 4 kenjikoj vuser 4096 Aug 16 2003 fm -rw-r--r-- 1 kenjikoj vuser 19319 Oct 24 2003 images.swf -rw-r--r-- 1 kenjikoj vuser 23557 Apr 10 09:52 index.html -rw-r--r-- 1 kenjikoj vuser 16609 Aug 10 2003 index1.html -rw-r--r-- 1 kenjikoj vuser 19569 Aug 10 2003 index2.html drwxr-xr-x 2 kenjikoj vuser 4096 Apr 8 06:53 indexImages drwxr-xr-x 3 kenjikoj vuser 4096 Aug 16 2003 java drwxr-xr-x 3 kenjikoj vuser 4096 Aug 16 2003 jikankei drwxr-xr-x 2 kenjikoj vuser 4096 Aug 16 2003 jscript drwxr-xr-x 2 kenjikoj vuser 4096 Aug 16 2003 mail drwxrwxr-t 2 root vuser 4096 Aug 16 2003 manager -rw-r--r-- 1 root root 3002 Aug 16 2003 manager.html drwxr-xr-x 3 kenjikoj vuser 4096 Aug 16 2003 movieTime drwxr-xr-x 2 kenjikoj vuser 4096 Apr 29 12:04 music drwxr-xr-x 4 kenjikoj vuser 4096 Mar 13 06:59 ocToroku drwxrwxr-t 3 root vuser 4096 Aug 16 2003 plugins drwx------ 2 kenjikoj vuser 4096 Apr 25 13:11 qt -rw-r--r-- 1 kenjikoj vuser 4653 Apr 18 12:36 revolution.html drwxr-xr-x 11 kenjikoj vuser 4096 Apr 25 13:09 runrev drwxr-xr-x 2 kenjikoj vuser 4096 Aug 16 2003 supercard drwxr-xr-x 3 kenjikoj vuser 4096 Oct 7 2003 tempera -rw-r--r-- 1 kenjikoj vuser 9051 Oct 11 2003 tempera.html -rw-r--r-- 1 kenjikoj vuser 18 Nov 17 20:47 test.php drwxr-xr-x 3 kenjikoj vuser 4096 Sep 12 2003 throwstones drwxr-xr-x 2 kenjikoj vuser 4096 Aug 16 2003 timesHaveChanged drwxr-xr-x 3 kenjikoj vuser 4096 Nov 4 17:49 ts drwxrwxr-t 3 root vuser 4096 Aug 16 2003 vdsbackup drwxr-xr-x 4 kenjikoj vuser 4096 Aug 16 2003 virtual_physical drwxr-xr-x 2 kenjikoj vuser 4096 Aug 16 2003 walkOfSeconds drwxr-xr-x 27 kenjikoj vuser 4096 Aug 16 2003 webArt drwxr-xr-x 5 kenjikoj vuser 4096 Nov 17 14:03 webColor viewablerows53currentxmouseloc119currenthscroll0currentymouseloc24scrollbarwidth16 cellyspacing14viewablecolumns4rightfieldloc492numbertabstops1 cellxspacing150 leftfieldloc20 topfieldloc200 currentview total 296 drwxr-xr-x 2 kenjikoj vuser 4096 Aug 16 2003 273PlusMinus drwxr-xr-x 2 kenjikoj vuser 4096 Aug 16 2003 911 -rw-r--r-- 1 kenjikoj vuser 297 Apr 25 2003 DoNihonGo.html drwxr-xr-x 2 kenjikoj vuser 4096 Aug 16 2003 GeneratedItems drwxr-xr-x 5 kenjikoj vuser 4096 Mar 27 15:00 HiraganaQuiz drwxr-xr-x 5 kenjikoj vuser 4096 Aug 16 2003 KanaQ00 drwxr-xr-x 5 kenjikoj vuser 4096 Apr 1 13:29 Oshirase drwxr-xr-x 4 kenjikoj vuser 4096 Sep 23 2003 OshiraseCenter -rw-r--r-- 1 kenjikoj vuser 1756 Jun 8 2003 OshiraseCenter.html drwxr-xr-x 2 kenjikoj vuser 4096 Jan 19 18:33 abcd -rw-r--r-- 1 kenjikoj vuser 326 Apr 25 2003 aboutMe.html drwxr-xr-x 2 kenjikoj vuser 4096 Apr 12 13:44 cgi-bin drwxr-xr-x 2 kenjikoj vuser 4096 Apr 5 15:38 css drwxr-xr-x 5 kenjikoj vuser 4096 Feb 4 18:06 desktopSnap drwxr-xr-x 2 kenjikoj vuser 4096 May 2 13:45 donihongo drwxr-xr-x 5 kenjikoj vuser 4096 Aug 16 2003 download drwxr-xr-x 5 kenjikoj vuser 4096 Aug 16 2003 earlyWorks -rw-r--r-- 1 kenjikoj vuser 4564 Oct 11 2003 earyTempera.html drwxr-xr-x 6 kenjikoj vuser 4096 Aug 16 2003 flashVR drwxr-xr-x 3 kenjikoj vuser 4096 Aug 16 2003 flashVR_Lite -rw-r--r-- 1 kenjikoj vuser 7056 Oct 24 2003 flashVR_Lite.swf drwxr-xr-x 4 kenjikoj vuser 4096 Aug 16 2003 fm -rw-r--r-- 1 kenjikoj vuser 19319 Oct 24 2003 images.swf -rw-r--r-- 1 kenjikoj vuser 23557 Apr 10 09:52 index.html -rw-r--r-- 1 kenjikoj vuser 16609 Aug 10 2003 index1.html -rw-r--r-- 1 kenjikoj vuser 19569 Aug 10 2003 index2.html drwxr-xr-x 2 kenjikoj vuser 4096 Apr 8 06:53 indexImages drwxr-xr-x 3 kenjikoj vuser 4096 Aug 16 2003 java drwxr-xr-x 3 kenjikoj vuser 4096 Aug 16 2003 jikankei drwxr-xr-x 2 kenjikoj vuser 4096 Aug 16 2003 jscript drwxr-xr-x 2 kenjikoj vuser 4096 Aug 16 2003 mail drwxrwxr-t 2 root vuser 4096 Aug 16 2003 manager -rw-r--r-- 1 root root 3002 Aug 16 2003 manager.html drwxr-xr-x 3 kenjikoj vuser 4096 Aug 16 2003 movieTime drwxr-xr-x 2 kenjikoj vuser 4096 Apr 29 12:04 music drwxr-xr-x 4 kenjikoj vuser 4096 Mar 13 06:59 ocToroku drwxrwxr-t 3 root vuser 4096 Aug 16 2003 plugins drwx------ 2 kenjikoj vuser 4096 Apr 25 13:11 qt -rw-r--r-- 1 kenjikoj vuser 4653 Apr 18 12:36 revolution.html drwxr-xr-x 11 kenjikoj vuser 4096 Apr 25 13:09 runrev drwxr-xr-x 2 kenjikoj vuser 4096 Aug 16 2003 supercard drwxr-xr-x 3 kenjikoj vuser 4096 Oct 7 2003 tempera -rw-r--r-- 1 kenjikoj vuser 9051 Oct 11 2003 tempera.html -rw-r--r-- 1 kenjikoj vuser 18 Nov 17 20:47 test.php drwxr-xr-x 3 kenjikoj vuser 4096 Sep 12 2003 throwstones drwxr-xr-x 2 kenjikoj vuser 4096 Aug 16 2003 timesHaveChanged drwxr-xr-x 3 kenjikoj vuser 4096 Nov 4 17:49 ts drwxrwxr-t 3 root vuser 4096 Aug 16 2003 vdsbackup drwxr-xr-x 4 kenjikoj vuser 4096 Aug 16 2003 virtual_physical drwxr-xr-x 2 kenjikoj vuser 4096 Aug 16 2003 walkOfSeconds drwxr-xr-x 27 kenjikoj vuser 4096 Aug 16 2003 webArt drwxr-xr-x 5 kenjikoj vuser 4096 Nov 17 14:03 webColor bottomfieldloc384 cREVGeneraltablefalse revUniqueID 1083551659570  `mgetListexon mouseUp put "" into fld "list" set cursor to watch put fld "userName" into tUserName put the cPassword of fld "password" into tUserPassword put fld "directory" into tDirectory if the last char of tDirectory <> "/" then put "/" after tDirectory put "ftp://" & URLEncode(tUserName) & ":" & URLEncode(tUserPassword) \ & "@"& tDirectory into fileURLToGet switch (the hilitedButtonName of group "whichList") case (NLST) libUrlSetFtpListCommand "NLST" break case (LIST) libUrlSetFtpListCommand "LIST" break end switch put URL fileURLToGet into fld "list" if the result is not empty then put the result into fld "list" end if end mouseUp s 000O\b cREVGeneral scriptChecksum%A 1H>ֻ_ breakPoints handlerListmouseUpscriptSelectionchar 199 to 198 bookmarks revUniqueID 1083551738855 prevHandlermouseUp tempScriptscript

on mouseUp

put "" into fld "list"

set cursor to watch

put fld "userName" into tUserName

put the cPassword of fld "password" into tUserPassword

put fld "directory" into tDirectory

if the last char of tDirectory <> "/" then put "/" after tDirectory

put "ftp://" & URLEncode(tUserName) & ":" & URLEncode(tUserPassword) \

& "@"& tDirectory into fileURLToGet

switch (the hilitedButtonName of group "whichList")

case (NLST)

libUrlSetFtpListCommand "NLST"

break

case (LIST)

libUrlSetFtpListCommand "LIST"

break

end switch

put URL fileURLToGet into fld "list"

if the result is not empty then

put the result into fld "list"

end if

end mouseUp

 whichList i cREVGeneral revUniqueID 1083553104678NLSThdJNLST cREVGeneral revUniqueID 1083553046288 LISThdJLIST cREVGeneral revUniqueID 1083553075344  jpFld  cREVGeneral revUniqueID 1083555193763 OFTP00000n00000000n0000_00_00n00000Qe0W0f0O0`0U0D0 N iconD.gif  @b GIF89a 鐐姦֚Ü!, }BtD)FHQPoQ\NIG, ql$+[ '.J LU,'Btff y(hk#c0d `2$*ux  kx   A '!; cREVGeneral revUniqueID 1083636477499 icon-.gif  @b GIF89a ۭ庺ZZZнſ]]]!, XZ }I5XP@$!au(`0*,ȤSt q@> \S`$%l̢" v   rEl `v-j !; cREVGeneral revUniqueID 1083636491721 iconL.gif  @b GIF89a ΐԥ'&&aaaɛϼ!, `<P8@mLt/HMHg2!qLDh4"X.M!' K fdQ68@6 y H B +&'!; cREVGeneral revUniqueID 1083636506619 id1018 ^< cREVGeneral revUniqueID 1083636545174 ID 1018 id1019 ^< cREVGeneral revUniqueID 1083636615491 ID 1019 id1020 ^< cREVGeneral revUniqueID 1083636634553 ID 1020 iconListexon mouseUp put "" into fld "list" set cursor to watch lock screen put fld "userName" into tUserName put the cPassword of fld "password" into tUserPassword put fld "directory" into tDirectory if the last char of tDirectory <> "/" then put "/" after tDirectory put "ftp://" & URLEncode(tUserName) & ":" & URLEncode(tUserPassword) \ & "@"& tDirectory into fileURLToGet libUrlSetFtpListCommand "LIST" put URL fileURLToGet into fld "list" if the result is not empty then put the result into fld "list" else if word 1 of line 1 of fld "list" is "total" then delete line 1 of fld "list" repeat with i=1 to the num of lines of fld "list" put "@ " before line i of fld "list" switch (char 3 of line i of fld "list") case "d" set the imageSource of char 1 of line i of fld "list" to 1018 break case "-" set the imageSource of char 1 of line i of fld "list" to 1019 break case "l" set the imageSource of char 1 of line i of fld "list" to 1020 break end switch delete word 2 to 9 of line i of fld "list" end repeat end if end mouseUp ]s0000000O\b cREVGeneral scriptChecksumh{(xQ%̈C& breakPoints handlerListmouseUpscriptSelectionchar 592 to 591 bookmarks revUniqueID 1083636745128 prevHandlermouseUp tempScriptscript

on mouseUp

put "" into fld "list"

set cursor to watch

lock screen

put fld "userName" into tUserName

put the cPassword of fld "password" into tUserPassword

put fld "directory" into tDirectory

if the last char of tDirectory <> "/" then put "/" after tDirectory

put "ftp://" & URLEncode(tUserName) & ":" & URLEncode(tUserPassword) \

& "@"& tDirectory into fileURLToGet

libUrlSetFtpListCommand "LIST"

put URL fileURLToGet into fld "list"

if the result is not empty then

put the result into fld "list"

else

if word 1 of line 1 of fld "list" is "total" then delete line 1 of fld "list"

repeat with i=1 to the num of lines of fld "list"

put "@ " before line i of fld "list"

switch (char 3 of line i of fld "list")

case "d"

set the imageSource of char 1 of line i of fld "list" to 1018

break

case "-"

set the imageSource of char 1 of line i of fld "list" to 1019

break

case "l"

set the imageSource of char 1 of line i of fld "list" to 1020

break

end switch

delete word 2 to 9 of line i of fld "list"

end repeat

end if

end mouseUp

 tScript1he_non mouseUp get the script of btn "getList" answer information "get list script:" &cr&cr& it end mouseUp P000O\b0n00000 cREVGeneralscriptChecksumQ(ua.*d bookmarks revUniqueID 1083645654342 handlerListmouseUpscriptSelection char 76 to 75 prevHandlermouseUp tempScriptscript

on mouseUp

get the script of btn "getList"

answer information "get list script:" &cr&cr& it

end mouseUp

 tScript1he_oon mouseUp get the script of btn "getList" answer information "icon list script:" &cr&cr& it end mouseUp R\00000000n00000 cREVGeneralscriptChecksum5Cu1'h#2-? bookmarks revUniqueID 1083645868919 handlerListmouseUpscriptSelection char 72 to 71 prevHandlermouseUp tempScriptscript

on mouseUp

get the script of btn "getList"

answer information "icon list script:" &cr&cr& it

end mouseUp