You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
14 lines
243 B
14 lines
243 B
13 years ago
|
{
|
||
|
|
|
||
|
|
my $rec = $DB->get("jappix") ||
|
||
|
|
$DB->new_record("jappix", { type => "webapp" });
|
||
|
|
|
||
|
|
my $domain = $DB->get('DomainName')->value;
|
||
|
|
|
||
|
|
my $server = $rec->prop('Server') || '';
|
||
|
|
|
||
|
|
$rec->set_prop('Server', "im.$domain") if ($server eq '');
|
||
|
|
|
||
|
|
|
||
|
|
}
|