hi
running 10.2.6 i was unable to have write permission on a ftp mounted volume
trying terminal i did not found the good parameter for the csmount command…
i tried applescripting “URL Access Scripting” with the upload command and it works.
it is very raw and i would like to be able to have a progress bar while the upload is runing… how can i now do this ?
ciao
here is the code :
property serveurvideo : “ftp://login:password@ftpservervideo/”
property serveurimages : “ftp://login:password@ftpservermetadatas/images/”
property serveurtextes : “ftp://login:password@ftpservermetadatas/textes/”
on LaunchScript()
display dialog “Choisissez le type de fichier à uploader :” buttons {“Vidéo”, “Métadonnées”, “Cancel”} with icon 1
if the button returned of the result is “Vidéo” then
set targetserver to serveurvideo
set doc to (choose file of type {“MooV”} with prompt “Choisissez le fichier VIDEO à uploader.
Vous ne pouvez uploader que des fichiers compatibles Quicktime.”)
tell application "Finder"
set theExt to name extension of doc
end tell
if theExt is "" then
display dialog "Le fichier choisi n'a pas d'extension.
Cela peut poser un problème lors de son transfert sur le serveur.
Vous devez lui rajouter l’extension .mov et recommencer" buttons {“Ok”} with icon 2
else
RunScript(doc, targetserver)
end if
else
display dialog "Choisissez le type de métadonnées :" buttons {"Images", "Texte éditorial", "Cancel"}
if the button returned of the result is "Images" then
set targetserver to serveurimages
set doc to (choose file of type {"JPEG"} with prompt "Choisissez le fichier JPEG à uploader :")
tell application "Finder"
set theExt to name extension of doc
end tell
if theExt is "" then
display dialog "Le fichier choisi n'a pas d'extension.
Cela peut poser un problème lors de son transfert sur le serveur.
Vous devez lui rajouter l’extension .jpg ou .jpeg et recommencer" buttons {“Ok”} with icon 2
else
RunScript(doc, targetserver)
end if
else
set targetserver to serveurtextes
set doc to (choose file of type {"TEXT"} with prompt "Choisissez le fichier TEXTE à uploader.
Il doit avoir été crée avec un Macintosh.")
tell application “Finder”
set theExt to name extension of doc
end tell
if theExt is “” then
display dialog “Le fichier choisi n’a pas d’extension.
Cela peut poser un problème lors de son transfert sur le serveur.
Vous devez lui rajouter l’extension .txt et recommencer” buttons {“Ok”} with icon 2
else
RunScript(doc, targetserver)
end if
end if
end if
end LaunchScript
on RunScript(doc, targetserver)
with timeout of 99999 seconds
tell application “URL Access Scripting”
upload doc to targetserver replacing yes with progress without binhexing
end tell
display dialog “Fichier :
" & doc & "
uploadé avec succès.
Voulez-vous continuer ?” buttons {“Continuer…”, “Arrêter”}
if the button returned of the result is “Continuer…” then LaunchScript()
end timeout
end RunScript
LaunchScript()
