Checking And Saving A File In S3

[swest]

I am trying to check to see if a filename exists in S3 and if it does then rename the file so it doesnt overwrite the existing file through a file upload. Below is the code I have in After File Select Javascript in File Upload. It is saying Item.SaveToFile("Z:\items\newName") not found item not found. Any ideas on what the issue is?

function itemName as v (e as p)

dim ConnectionString as C = "Provider='Disk';Container='Z:\items';"
dim ResultData as B
dim ContentType as C
dim Container as A5Storage::DataContainer = null_value()
dim newName as c
dim URL as c
dim globalcn as sql::connection
dim sql as c
dim args as sql::arguments
dim flag as l


args.set("CURRENTITEMID", e.dataSubmitted.itemid)
CallResult = A5Storage::DataContainer::Open(Container, \
"Provider='Disk';Container='Z:\items';")
?CallResult.Success
?Container.GetItem(ResultData, ContentType, "e._itemName")


If ResultData <> ""
newName = e._itemName + 1
Item.SaveToFile(Z:\items\newName")
URL = "https://s3.amazonaws.com/items/" + newName
sql = "UPDATE items SET URL = '" + URL + "' where ID = :CURRENTITEMID"
flag = globalcn.execute(sql,args)

end if


If ResultData = ""
newName = e._itemName
Item.SaveToFile("Z:\items\newName")
URL = "https://s3.amazonaws.com/items/" + newName
sql = "UPDATE items SET URL = '" + URL + "' where ID = :CURRENTITEMID"
flag = globalcn.execute(sql,args)

end if

end function

[TheDuke]

Re: Checking And Saving A File In S3

How about Item.SaveToFile("Z:\items"+newName)

[TheDuke]

Re: Checking And Saving A File In S3

Item.SaveToFile("Z:\items\"+newName)

[swest]

Re: Checking And Saving A File In S3

That got rid of the error "not found item not found" but now am getting XHR error.

[Stan Mathews]

Re: Checking And Saving A File In S3

The message board consumes one of double backslashes unless they are in a code block. You need

Item.SaveToFile("Z:\items\\"+newName)

[TheDuke]

Re: Checking And Saving A File In S3

Where is Item dimensioned, i.e., dim Item as A5Storage::DataItem = null_value() ??

[swest]

Re: Checking And Saving A File In S3

With putting in this below, I am still getting the XHR error

dim Item as A5Storage::DataItem = null_value()
Item.SaveToFile("Z:\items\"+newName)

[TheDuke]

Re: Checking And Saving A File In S3

I think you still have some syntax errors... Re-post what you have now. Did you insert a debug(1) statement to identify which line is causing the error? What is the value of e._itemName?

[swest]

Re: Checking And Saving A File In S3

Here is what I have. This UX is embedded in another UX so I havent been able to get the debug(1) to work because in working preview it saids that Security is not active and I cant login. If you could tell me how to do that it probably would be easier for me to troubleshoot the code.

function itemName as v (e as p)
'-- checks to see if filename exists in S3

dim ConnectionString as C = "Provider='Disk';Container='Z:\items';"
dim ResultData as B
dim ContentType as C
dim Container as A5Storage::DataContainer = null_value()
dim Item as A5Storage::DataItem = null_value()
dim newName as c
dim URL as c
dim globalcn as sql::connection
dim sql as c
dim args as sql::arguments
dim flag as l


args.set("CURRENTITEMID", e.dataSubmitted.itemid)
CallResult = A5Storage::DataContainer::Open(Container, \
"Provider='Disk';Container='Z:\items';")
?CallResult.Success
?Container.GetItem(ResultData, ContentType, "e._itemName")


If ResultData <> ""
newName = e._itemName + 1
Item.SaveToFile("Z:\items\"+newName)
URL = "https://s3.amazonaws.com/items/" + newName
sql = "UPDATE items SET URL = '" + URL + "' where ID = :CURRENTITEMID"
flag = globalcn.execute(sql,args)

end if


If ResultData = ""
newName = e._itemName
Item.SaveToFile("Z:\items\"+newName)
URL = "https://s3.amazonaws.com/items/" + newName
sql = "UPDATE items SET URL = '" + URL + "' where ID = :CURRENTITEMID"
flag = globalcn.execute(sql,args)

end if

end function

[TheDuke]

Re: Checking And Saving A File In S3

I see you're dimming globalcn as a sql::connection but where are you opening the connection to run your sql statements? There's also a lot of cleaning up to do but let's start with that.

[swest]

Re: Checking And Saving A File In S3

I put flag = globalcn.open("::name::conn") above args.set("CURRENTITEMID", e.dataSubmitted.itemid)

[TheDuke]

Re: Checking And Saving A File In S3

I don't work with S3 in this way but based on what I think you're trying to do then logically I'd write my function like this...


function itemName as c (e as p)
'-- checks to see if filename exists in S3

dim ConnectionString as C = "Provider='Disk';Container='Z:\items';"
dim ResultData as B
dim ContentType as C
dim Container as A5Storage::DataContainer = null_value()
dim Item as A5Storage::DataItem = null_value()
dim newName as c = e._itemName
dim URL as c
dim sql as c
dim args as sql::arguments
dim flag as l

dim globalcn as sql::connection
globalcn.open("::Name::conn")

args.set("CURRENTITEMID", e.dataSubmitted.itemid)
CallResult = A5Storage::DataContainer::Open(Container, \
"Provider='Disk';Container='Z:\items';")
if CallResult.Success then
if Container.ItemExists(e._itemName") then
newName = newName + "1"
end if
Item.SaveToFile("Z:\items"+newName)
URL = "https://s3.amazonaws.com/items/" + newName
sql = "UPDATE items SET URL = '" + URL + "' where ID = :CURRENTITEMID"
flag = globalcn.execute(sql,args)
end if

globalcn.close()

end function

[TheDuke]

Re: Checking And Saving A File In S3

Don't forget the backslash at the end of Item.SaveToFile("Z:\items")... it got stripped from my post.

[TheDuke]

Re: Checking And Saving A File In S3

Whoops... in a hurry. I forgot to put the GetItem statement back after renaming the newName variable.

[TheDuke]

Re: Checking And Saving A File In S3

Actually, if I'm understanding this, you don't need the GetItem method at all. Try the function I posted above without it and let me know what happens.