From 7e92fcc5b0efa7c8260542f17b97804c920c4184 Mon Sep 17 00:00:00 2001
From: Yuriy Nevinitsin <nevinitsin@corp.mail.ru>
Date: Wed, 7 Dec 2011 13:32:14 +0400
Subject: [PATCH] [connector][perl] rm Const.pm
---
connector/perl/lib/MR/Storage/Const.pm | 109 -------------------------
1 file changed, 109 deletions(-)
delete mode 100644 connector/perl/lib/MR/Storage/Const.pm
diff --git a/connector/perl/lib/MR/Storage/Const.pm b/connector/perl/lib/MR/Storage/Const.pm
deleted file mode 100644
index 64f1deee76..0000000000
--- a/connector/perl/lib/MR/Storage/Const.pm
+++ /dev/null
@@ -1,109 +0,0 @@
-use strict;
-use Exporter;
-
-package MR::Storage::Const;
-use base qw/Exporter/;
-
-use vars qw/$VERSION @EXPORT_OK %EXPORT_TAGS %ERRORS/;
-$VERSION = 0;
-
-my (@ERRORS);
-$EXPORT_TAGS{all} = \@EXPORT_OK;
-$EXPORT_TAGS{errors} = \@ERRORS;
-
-BEGIN {
- sub constantiate($$;@) {
- my ($const, @arrs) = @_;
- my $pkg = (caller)[0];
- my @a;
- eval qq{ sub $pkg\::$_ () { $const->{$_} }; push \@a, q{$_}; 'TRUE'.$_; } or die $@
- for keys %$const;
- push @$_, @a for @arrs;
- }
-
- # Errors. Numbers >=0 are returned by server, <0 are internals for the module.
- constantiate {
- SE_OK => 0,
- SE_UNKNOWN => -1,
- SE_COMM => -2,
- }, \@ERRORS, \@EXPORT_OK;
-}
-
-%ERRORS = (
- 0x00000000 => q{OK},
- 0x00000100 => q{Non master connection, but it should be},
- 0x00000200 => q{Illegal parametrs},
- 0x00000300 => q{Uid not from this storage range},
- 0x00000400 => q{Node is marked as read-only},
- 0x00000500 => q{Node isn't locked},
- 0x00000600 => q{Node is locked},
- 0x00000700 => q{Some memory issues},
- 0x00000800 => q{Bad integrity},
- 0x00000a00 => q{Unsupported command},
-
- 0x00000b00 => q{Can't do select},
- 0x00000c00 => q{Silverspoon for first uid is not found},
- 0x00000d00 => q{Silverspoon for second uid is not found},
- 0x00000e00 => q{Silverspoons for both uids are not found},
- 0x00000f00 => q{Can't do 2pc prepare on first sp},
- 0x00001000 => q{Can't do 2pc prepare on second sp},
- 0x00001100 => q{Can't do 2pc prepare on both sps},
- 0x00001200 => q{Can't do 2pc commit on first sp},
- 0x00001300 => q{Can't do 2pc commit on second sp},
- 0x00001400 => q{Can't do 2pc commit on both sps},
- 0x00001500 => q{Can't do 2pc abort on first sp},
- 0x00001600 => q{Can't do 2pc abort on second sp},
- 0x00001700 => q{Can't do 2pc abort on both sps},
-
- 0x00001800 => q{Can't register new user},
- 0x00001a00 => q{Can't generate alert id},
- 0x00001b00 => q{Can't del node},
-
- 0x00001c00 => q{User isn't registered},
- 0x00001d00 => q{Syntax error in query},
- 0x00001e00 => q{Unknown field},
- 0x00001f00 => q{Number value is out of range},
- 0x00002000 => q{Insert already existing object},
- 0x00002200 => q{Can not order result},
- 0x00002300 => q{Multiple update/delete forbidden},
- 0x00002400 => q{Nothing affected},
- 0x00002500 => q{Primary key update forbidden},
- 0x00002600 => q{Incorrect protocol version},
- 0x00002700 => q{Bad record ID},
- 0x00002800 => q{WAL failed},
- 0x00002900 => q{Bad event ID},
- 0x00002a00 => q{Read-only mode},
- 0x00002b00 => q{Event is locked},
- 0x00002c00 => q{Event is already liked by this user},
- 0x00002d00 => q{Event is not liked by this user},
- 0x00002e00 => q{The message has been already deleted by this user},
- 0x00002f00 => q{User can't delete message},
- 0x00003100 => q{Node not found},
- 0x00003200 => q{User isn't member of the dialogue},
- 0x00003300 => q{Dialogue not found},
- 0x00003400 => q{Error during iconv},
- 0x00003500 => q{Event isn't contained in this node},
- 0x00003600 => q{Proxy reply: destination node timed out},
- 0x00003700 => q{Node found},
- 0x00003800 => q{Index violation},
-);
-
-sub ErrorText {
- my $e = $_[1] & 0xFFFFFF00;
- return $ERRORS{$e} if exists $ERRORS{$e};
- return 'Unknown error';
-}
-
-sub ErrorStr {
- my $e = $_[1] ? ($_[1] % 0xFF) ? 'Error' : 'Warning' : '';
- $e &&= sprintf "$e %08X: ", $_[1];
- return sprintf "%s%s", $e, $_[0]->ErrorText($_[1]);
-}
-
-package MR::Storage::Const::Errors;
-use base qw/MR::Storage::Const/;
-
-package MR::Storage::Const::Errors::SilverBox;
-use base qw/MR::Storage::Const::Errors/;
-
-1;
--
GitLab