5 lines
169 B
ObjectPascal
5 lines
169 B
ObjectPascal
|
# Lets determin where we are by looking at the hostname
|
||
|
function sunetdrive::get_node_number() >> Integer {
|
||
|
Integer(regsubst($::fqdn, /^[a-zA-Z\-]+(\d).*$/, '\\1'))
|
||
|
}
|