$name = lc($name);
- if ($name eq 'direct') {
- write_irssi("Cannot remove direct connector");
+ unless (exists($connconf->{$name})) {
+ write_irssi("Connector does not exist");
return;
}
- unless (exists($connconf->{$_})) {
- write_irssi("Connector does not exist");
+ if (exists($connconf->{$name}->{'_immutable'})) {
+ write_irssi("Connector cannot be removed");
return;
}
$conn = lc($conn);
- if ($conn eq 'direct') {
- write_irssi("Connector is not modifiable");
+ if (exists($connconf->{$conn}->{'_immutable'})) {
+ write_irssi("Connector cannot be modified");
return;
}
$conn = lc($conn);
- if ($conn eq 'direct') {
- write_irssi("Connector is not modifiable");
+ if (exists($connconf->{$conn}->{'_immutable'})) {
+ write_irssi("Connector cannot be modified");
return;
}
unless (exists($conf->{'videosite'}->{'connectors'}->{'direct'})) {
$conf->{'videosite'}->{'connectors'}->{'direct'} = {
'name' => 'direct',
+ '_immutable' => '1',
'schemas' => {},
};
}