cmd/saveuserfile.pl

   1 #
   2 # the export the user file to ascii command
   3 #
   4 #
   5 #
   6 my $self = shift;
   7 return (1, $self->msg('e5')) unless $self->priv >= 9;
   8
   9 my $count = DXUser::writeoutjson(); # for now
  10
  11 return (1, "DXUser::writeoutjson - $count lines written");
  12
  13