A set of helper subroutines to support parts of the Netdisco application.
There are no default exports, however the
:all tag will export all subroutines.
Convert wildcard characters "
*" and "
?" to "
%" and "
Pass a true value to
$exact to only substitute the existing wildcards, and not also add "
*" to each end of the value.
In list context, returns two values, the translated value, and also an SQL::Abstract LIKE clause.
Sort port names of various types used by device vendors. Interface is as Perl's own
sort - two input args and an integer return value.
Sort devices modules into tree hierarchy based upon position and parent - input arg is module list.
Takes an interval in days, weeks, months, or years in a format like '7 days' and returns a date range in the format 'YYYY-MM-DD to YYYY-MM-DD' by subtracting the interval from the current date.
$interval is not passed, epoch zero (1970-01-01) is used as the start.