Page Menu
Home
Phorge
Search
Configure Global Search
Log In
Files
F7687448
object.ex
No One
Temporary
Actions
Download File
Edit File
Delete File
View Transforms
Subscribe
Award Token
Flag For Later
Size
6 KB
Referenced Files
None
Subscribers
None
object.ex
View Options
# Pleroma: A lightweight social networking server
# Copyright © 2017-2019 Pleroma Authors <https://pleroma.social/>
# SPDX-License-Identifier: AGPL-3.0-only
defmodule
Pleroma.Object
do
use
Ecto.Schema
alias
Pleroma.Activity
alias
Pleroma.Object
alias
Pleroma.Object.Fetcher
alias
Pleroma.ObjectTombstone
alias
Pleroma.Repo
alias
Pleroma.User
import
Ecto.Query
import
Ecto.Changeset
require
Logger
schema
"objects"
do
field
(
:data
,
:map
)
timestamps
()
end
def
create
(
data
)
do
Object
.
change
(%
Object
{},
%{
data
:
data
})
|>
Repo
.
insert
()
end
def
change
(
struct
,
params
\\
%{})
do
struct
|>
cast
(
params
,
[
:data
])
|>
validate_required
([
:data
])
|>
unique_constraint
(
:ap_id
,
name
:
:objects_unique_apid_index
)
end
def
get_by_id
(
nil
),
do
:
nil
def
get_by_id
(
id
),
do
:
Repo
.
get
(
Object
,
id
)
def
get_by_ap_id
(
nil
),
do
:
nil
def
get_by_ap_id
(
ap_id
)
do
Repo
.
one
(
from
(
object
in
Object
,
where
:
fragment
(
"(?)->>'id' = ?"
,
object
.
data
,
^
ap_id
)))
end
defp
warn_on_no_object_preloaded
(
ap_id
)
do
"Object.normalize() called without preloaded object (
#{
ap_id
}
). Consider preloading the object"
|>
Logger
.
debug
()
Logger
.
debug
(
"Backtrace:
#{
inspect
(
Process
.
info
(
:erlang
.
self
(),
:current_stacktrace
))
}
"
)
end
def
normalize
(
_
,
fetch_remote
\\
true
,
options
\\
[])
# If we pass an Activity to Object.normalize(), we can try to use the preloaded object.
# Use this whenever possible, especially when walking graphs in an O(N) loop!
def
normalize
(%
Object
{}
=
object
,
_
,
_
),
do
:
object
def
normalize
(%
Activity
{
object
:
%
Object
{}
=
object
},
_
,
_
),
do
:
object
# A hack for fake activities
def
normalize
(%
Activity
{
data
:
%{
"object"
=>
%{
"fake"
=>
true
}
=
data
}},
_
,
_
)
do
%
Object
{
id
:
"pleroma:fake_object_id"
,
data
:
data
}
end
# No preloaded object
def
normalize
(%
Activity
{
data
:
%{
"object"
=>
%{
"id"
=>
ap_id
}}},
fetch_remote
,
_
)
do
warn_on_no_object_preloaded
(
ap_id
)
normalize
(
ap_id
,
fetch_remote
)
end
# No preloaded object
def
normalize
(%
Activity
{
data
:
%{
"object"
=>
ap_id
}},
fetch_remote
,
_
)
do
warn_on_no_object_preloaded
(
ap_id
)
normalize
(
ap_id
,
fetch_remote
)
end
# Old way, try fetching the object through cache.
def
normalize
(%{
"id"
=>
ap_id
},
fetch_remote
,
_
),
do
:
normalize
(
ap_id
,
fetch_remote
)
def
normalize
(
ap_id
,
false
,
_
)
when
is_binary
(
ap_id
),
do
:
get_cached_by_ap_id
(
ap_id
)
def
normalize
(
ap_id
,
true
,
options
)
when
is_binary
(
ap_id
)
do
Fetcher
.
fetch_object_from_id!
(
ap_id
,
options
)
end
def
normalize
(
_
,
_
,
_
),
do
:
nil
# Owned objects can only be mutated by their owner
def
authorize_mutation
(%
Object
{
data
:
%{
"actor"
=>
actor
}},
%
User
{
ap_id
:
ap_id
}),
do
:
actor
==
ap_id
# Legacy objects can be mutated by anybody
def
authorize_mutation
(%
Object
{},
%
User
{}),
do
:
true
def
get_cached_by_ap_id
(
ap_id
)
do
key
=
"object:
#{
ap_id
}
"
Cachex
.
fetch!
(
:object_cache
,
key
,
fn
_
->
object
=
get_by_ap_id
(
ap_id
)
if
object
do
{
:commit
,
object
}
else
{
:ignore
,
object
}
end
end
)
end
def
context_mapping
(
context
)
do
Object
.
change
(%
Object
{},
%{
data
:
%{
"id"
=>
context
}})
end
def
make_tombstone
(%
Object
{
data
:
%{
"id"
=>
id
,
"type"
=>
type
}},
deleted
\\
DateTime
.
utc_now
())
do
%
ObjectTombstone
{
id
:
id
,
formerType
:
type
,
deleted
:
deleted
}
|>
Map
.
from_struct
()
end
def
swap_object_with_tombstone
(
object
)
do
tombstone
=
make_tombstone
(
object
)
object
|>
Object
.
change
(%{
data
:
tombstone
})
|>
Repo
.
update
()
end
def
delete
(%
Object
{
data
:
%{
"id"
=>
id
}}
=
object
)
do
with
{
:ok
,
_obj
}
=
swap_object_with_tombstone
(
object
),
deleted_activity
=
Activity
.
delete_by_ap_id
(
id
),
{
:ok
,
true
}
<-
Cachex
.
del
(
:object_cache
,
"object:
#{
id
}
"
),
{
:ok
,
_
}
<-
Cachex
.
del
(
:web_resp_cache
,
URI
.
parse
(
id
)
.
path
)
do
{
:ok
,
object
,
deleted_activity
}
end
end
def
prune
(%
Object
{
data
:
%{
"id"
=>
id
}}
=
object
)
do
with
{
:ok
,
object
}
<-
Repo
.
delete
(
object
),
{
:ok
,
true
}
<-
Cachex
.
del
(
:object_cache
,
"object:
#{
id
}
"
),
{
:ok
,
_
}
<-
Cachex
.
del
(
:web_resp_cache
,
URI
.
parse
(
id
)
.
path
)
do
{
:ok
,
object
}
end
end
def
set_cache
(%
Object
{
data
:
%{
"id"
=>
ap_id
}}
=
object
)
do
Cachex
.
put
(
:object_cache
,
"object:
#{
ap_id
}
"
,
object
)
{
:ok
,
object
}
end
def
update_and_set_cache
(
changeset
)
do
with
{
:ok
,
object
}
<-
Repo
.
update
(
changeset
)
do
set_cache
(
object
)
end
end
def
increase_replies_count
(
ap_id
)
do
Object
|>
where
([
o
],
fragment
(
"?->>'id' = ?::text"
,
o
.
data
,
^
to_string
(
ap_id
)))
|>
update
([
o
],
set
:
[
data
:
fragment
(
"""
jsonb_set(?, '{repliesCount}',
(coalesce((?->>'repliesCount')::int, 0) + 1)::varchar::jsonb, true)
"""
,
o
.
data
,
o
.
data
)
]
)
|>
Repo
.
update_all
([])
|>
case
do
{
1
,
[
object
]}
->
set_cache
(
object
)
_
->
{
:error
,
"Not found"
}
end
end
def
decrease_replies_count
(
ap_id
)
do
Object
|>
where
([
o
],
fragment
(
"?->>'id' = ?::text"
,
o
.
data
,
^
to_string
(
ap_id
)))
|>
update
([
o
],
set
:
[
data
:
fragment
(
"""
jsonb_set(?, '{repliesCount}',
(greatest(0, (?->>'repliesCount')::int - 1))::varchar::jsonb, true)
"""
,
o
.
data
,
o
.
data
)
]
)
|>
Repo
.
update_all
([])
|>
case
do
{
1
,
[
object
]}
->
set_cache
(
object
)
_
->
{
:error
,
"Not found"
}
end
end
def
increase_vote_count
(
ap_id
,
name
)
do
with
%
Object
{}
=
object
<-
Object
.
normalize
(
ap_id
),
"Question"
<-
object
.
data
[
"type"
]
do
multiple
=
Map
.
has_key?
(
object
.
data
,
"anyOf"
)
options
=
(
object
.
data
[
"anyOf"
]
||
object
.
data
[
"oneOf"
]
||
[])
|>
Enum
.
map
(
fn
%{
"name"
=>
^
name
}
=
option
->
Kernel
.
update_in
(
option
[
"replies"
][
"totalItems"
],
&
(
&1
+
1
))
option
->
option
end
)
data
=
if
multiple
do
Map
.
put
(
object
.
data
,
"anyOf"
,
options
)
else
Map
.
put
(
object
.
data
,
"oneOf"
,
options
)
end
object
|>
Object
.
change
(%{
data
:
data
})
|>
update_and_set_cache
()
else
_
->
:noop
end
end
end
File Metadata
Details
Attached
Mime Type
text/x-ruby
Expires
Wed, Sep 3, 9:17 PM (18 h, 7 m)
Storage Engine
blob
Storage Format
Raw Data
Storage Handle
439274
Default Alt Text
object.ex (6 KB)
Attached To
Mode
rPUBE pleroma-upstream
Attached
Detach File
Event Timeline
Log In to Comment