X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fload%2Fprefixes.pl;fp=cmd%2Fload%2Fprefixes.pl;h=cd211ba81b8b58cf5ad0e034d6f43f8904ff5cc5;hb=bd23bedbdb72ae107893f94c7eabcfe18867fb41;hp=0000000000000000000000000000000000000000;hpb=337f38bfac57a5e5df34c63094fb869b0e2f6bee;p=spider.git

diff --git a/cmd/load/prefixes.pl b/cmd/load/prefixes.pl
new file mode 100644
index 00000000..cd211ba8
--- /dev/null
+++ b/cmd/load/prefixes.pl
@@ -0,0 +1,8 @@
+#
+# load the prefix_data  file after changing it
+#
+my $self = shift;
+return (0, $self->msg('e5')) if $self->priv < 9;
+my $out = Prefix::load();
+return (1, $out ? $out : $self->msg('ok'));
+