#!/usr/bin/perl -w use strict; use FS::UID qw(adminsuidsetup); use FS::Cron::set_lata_have_usage qw(set_lata_have_usage); use FS::Conf; my $user = shift or die "set-lata-have_usage username"; adminsuidsetup $user; set_lata_have_usage('v' => 1);