sub put {
    my($self,$index,$socket_id,@args) = @_;
    my $type = ref($self) || $main::error_handler("$self is not an object");
    my $uid = $self->{users}->{uids}->[$index];
    my $url = shift(@args);
    my $object;
    eval('$object = '.join('\t',@args));
    $object->isa('WOMF::object') || $self->{user_handler}->kill($self->{user_handler}->get_user_by_socket_id($socket_id),'Please, lets not send crap');
    if($self->has_write_permissions($index,$socket_id,$url)) {
$main::handlers->db->add_object($object);
$main::handlers->socket->add_send($socket_id,"object putted\n\r\0");
    } else {
$main::handlers->socket->add_send($socket_id,"insufficient permissions\n\r\0");
    }
}