my ( $data ) = @_;
my $json = encode_json $data;
- my $json_path = "users/$data->{login}/json/$data->{file}";
+ my $path = "users/$data->{login}/json/$data->{file}";
if ( $data->{itemize} =~ m/^[c>]([fd])/ ) { # received change/create
my $type = $1;
- if ( -e $json_path ) {
- modify_existing $json_path;
+ if ( -e $path ) {
+ modify_existing $path;
return $json;
}
if ( $type eq 'f' ) {
- if ( $json_path =~ m{^(.+)/[^/]+$} ) { # have dir
+ if ( $path =~ m{^(.+)/[^/]+$} ) { # have dir
make_path $1 if ! -e $1;
}
- write_file $json_path, $json;
+ write_file $path, $json;
} elsif ( $type eq 'd' ) {
- make_path $json_path;
+ make_path $path;
}
} elsif ( $data->{itemize} =~ m/\*deleting/ ) {
- if ( -d $json_path ) {
- remove_path $json_path;
- } elsif ( -f $json_path ) {
- remove_file $json_path;
+ if ( -d $path ) {
+ remove_path $path;
+ } elsif ( -f $path ) {
+ remove_file $path;
}
}
return $json;