]> dxcluster.org Git - spider.git/blob - cmd/export_users.pl
add missing set/rbn.pl
[spider.git] / cmd / export_users.pl
1 #
2 # the export the user file to ascii command
3 #
4 #
5 #
6 my $self = shift;
7 my $line = shift;;
8 return (1, $self->msg('e5')) unless $self->priv >= 9;
9
10 my ($fn, $flag) = split /\s+/, $line;
11 $fn ||= 'user_asc';
12 unless ($fn && $fn eq 'user_asc') {
13         $fn =~ s|[/\.]||g;
14         $fn = "/tmp/$fn";
15 }
16 my $strip = $flag eq 'strip';
17
18 my @out = DXUser::export($fn, $strip);
19
20 return (1, @out);
21
22