msgs.pl (839B)
1 #!/usr/bin/perl 2 # generated Sat Feb 20 15:18:31 MST 2016 3 use strict; 4 use warnings; 5 6 our $protocol_ver = 0; 7 our %msg_num = ( 8 device_add => 0, 9 device_update => 1, 10 friend_add => 2, 11 friend_delete => 3, 12 list_add => 4, 13 list_update => 5, 14 list_join => 6, 15 list_leave => 7, 16 lists_get => 8, 17 lists_get_other => 9, 18 list_items_get => 10, 19 list_item_add => 11, 20 ); 21 our @msg_str = ( 22 'device_add', 23 'device_update', 24 'friend_add', 25 'friend_delete', 26 'list_add', 27 'list_update', 28 'list_join', 29 'list_leave', 30 'lists_get', 31 'lists_get_other', 32 'list_items_get', 33 'list_item_add', 34 ); 35 our @msg_func = ( 36 \&msg_device_add, 37 \&msg_device_update, 38 \&msg_friend_add, 39 \&msg_friend_delete, 40 \&msg_list_add, 41 \&msg_list_update, 42 \&msg_list_join, 43 \&msg_list_leave, 44 \&msg_lists_get, 45 \&msg_lists_get_other, 46 \&msg_list_items_get, 47 \&msg_list_item_add, 48 );