Merge branch 'linus' into cont_syslog
[safe/jmp/linux-2.6] / net / ipv4 / netfilter / ipt_CLUSTERIP.c
1 /* Cluster IP hashmark target
2  * (C) 2003-2004 by Harald Welte <laforge@netfilter.org>
3  * based on ideas of Fabio Olive Leite <olive@unixforge.org>
4  *
5  * Development of this code funded by SuSE Linux AG, http://www.suse.com/
6  *
7  * This program is free software; you can redistribute it and/or modify
8  * it under the terms of the GNU General Public License version 2 as
9  * published by the Free Software Foundation.
10  *
11  */
12 #define pr_fmt(fmt) KBUILD_MODNAME ": " fmt
13 #include <linux/module.h>
14 #include <linux/proc_fs.h>
15 #include <linux/jhash.h>
16 #include <linux/bitops.h>
17 #include <linux/skbuff.h>
18 #include <linux/slab.h>
19 #include <linux/ip.h>
20 #include <linux/tcp.h>
21 #include <linux/udp.h>
22 #include <linux/icmp.h>
23 #include <linux/if_arp.h>
24 #include <linux/seq_file.h>
25 #include <linux/netfilter_arp.h>
26 #include <linux/netfilter/x_tables.h>
27 #include <linux/netfilter_ipv4/ip_tables.h>
28 #include <linux/netfilter_ipv4/ipt_CLUSTERIP.h>
29 #include <net/netfilter/nf_conntrack.h>
30 #include <net/net_namespace.h>
31 #include <net/checksum.h>
32
33 #define CLUSTERIP_VERSION "0.8"
34
35 MODULE_LICENSE("GPL");
36 MODULE_AUTHOR("Harald Welte <laforge@netfilter.org>");
37 MODULE_DESCRIPTION("Xtables: CLUSTERIP target");
38
39 struct clusterip_config {
40         struct list_head list;                  /* list of all configs */
41         atomic_t refcount;                      /* reference count */
42         atomic_t entries;                       /* number of entries/rules
43                                                  * referencing us */
44
45         __be32 clusterip;                       /* the IP address */
46         u_int8_t clustermac[ETH_ALEN];          /* the MAC address */
47         struct net_device *dev;                 /* device */
48         u_int16_t num_total_nodes;              /* total number of nodes */
49         unsigned long local_nodes;              /* node number array */
50
51 #ifdef CONFIG_PROC_FS
52         struct proc_dir_entry *pde;             /* proc dir entry */
53 #endif
54         enum clusterip_hashmode hash_mode;      /* which hashing mode */
55         u_int32_t hash_initval;                 /* hash initialization */
56 };
57
58 static LIST_HEAD(clusterip_configs);
59
60 /* clusterip_lock protects the clusterip_configs list */
61 static DEFINE_RWLOCK(clusterip_lock);
62
63 #ifdef CONFIG_PROC_FS
64 static const struct file_operations clusterip_proc_fops;
65 static struct proc_dir_entry *clusterip_procdir;
66 #endif
67
68 static inline void
69 clusterip_config_get(struct clusterip_config *c)
70 {
71         atomic_inc(&c->refcount);
72 }
73
74 static inline void
75 clusterip_config_put(struct clusterip_config *c)
76 {
77         if (atomic_dec_and_test(&c->refcount))
78                 kfree(c);
79 }
80
81 /* decrease the count of entries using/referencing this config.  If last
82  * entry(rule) is removed, remove the config from lists, but don't free it
83  * yet, since proc-files could still be holding references */
84 static inline void
85 clusterip_config_entry_put(struct clusterip_config *c)
86 {
87         write_lock_bh(&clusterip_lock);
88         if (atomic_dec_and_test(&c->entries)) {
89                 list_del(&c->list);
90                 write_unlock_bh(&clusterip_lock);
91
92                 dev_mc_del(c->dev, c->clustermac);
93                 dev_put(c->dev);
94
95                 /* In case anyone still accesses the file, the open/close
96                  * functions are also incrementing the refcount on their own,
97                  * so it's safe to remove the entry even if it's in use. */
98 #ifdef CONFIG_PROC_FS
99                 remove_proc_entry(c->pde->name, c->pde->parent);
100 #endif
101                 return;
102         }
103         write_unlock_bh(&clusterip_lock);
104 }
105
106 static struct clusterip_config *
107 __clusterip_config_find(__be32 clusterip)
108 {
109         struct clusterip_config *c;
110
111         list_for_each_entry(c, &clusterip_configs, list) {
112                 if (c->clusterip == clusterip)
113                         return c;
114         }
115
116         return NULL;
117 }
118
119 static inline struct clusterip_config *
120 clusterip_config_find_get(__be32 clusterip, int entry)
121 {
122         struct clusterip_config *c;
123
124         read_lock_bh(&clusterip_lock);
125         c = __clusterip_config_find(clusterip);
126         if (!c) {
127                 read_unlock_bh(&clusterip_lock);
128                 return NULL;
129         }
130         atomic_inc(&c->refcount);
131         if (entry)
132                 atomic_inc(&c->entries);
133         read_unlock_bh(&clusterip_lock);
134
135         return c;
136 }
137
138 static void
139 clusterip_config_init_nodelist(struct clusterip_config *c,
140                                const struct ipt_clusterip_tgt_info *i)
141 {
142         int n;
143
144         for (n = 0; n < i->num_local_nodes; n++)
145                 set_bit(i->local_nodes[n] - 1, &c->local_nodes);
146 }
147
148 static struct clusterip_config *
149 clusterip_config_init(const struct ipt_clusterip_tgt_info *i, __be32 ip,
150                         struct net_device *dev)
151 {
152         struct clusterip_config *c;
153
154         c = kzalloc(sizeof(*c), GFP_ATOMIC);
155         if (!c)
156                 return NULL;
157
158         c->dev = dev;
159         c->clusterip = ip;
160         memcpy(&c->clustermac, &i->clustermac, ETH_ALEN);
161         c->num_total_nodes = i->num_total_nodes;
162         clusterip_config_init_nodelist(c, i);
163         c->hash_mode = i->hash_mode;
164         c->hash_initval = i->hash_initval;
165         atomic_set(&c->refcount, 1);
166         atomic_set(&c->entries, 1);
167
168 #ifdef CONFIG_PROC_FS
169         {
170                 char buffer[16];
171
172                 /* create proc dir entry */
173                 sprintf(buffer, "%pI4", &ip);
174                 c->pde = proc_create_data(buffer, S_IWUSR|S_IRUSR,
175                                           clusterip_procdir,
176                                           &clusterip_proc_fops, c);
177                 if (!c->pde) {
178                         kfree(c);
179                         return NULL;
180                 }
181         }
182 #endif
183
184         write_lock_bh(&clusterip_lock);
185         list_add(&c->list, &clusterip_configs);
186         write_unlock_bh(&clusterip_lock);
187
188         return c;
189 }
190
191 #ifdef CONFIG_PROC_FS
192 static int
193 clusterip_add_node(struct clusterip_config *c, u_int16_t nodenum)
194 {
195
196         if (nodenum == 0 ||
197             nodenum > c->num_total_nodes)
198                 return 1;
199
200         /* check if we already have this number in our bitfield */
201         if (test_and_set_bit(nodenum - 1, &c->local_nodes))
202                 return 1;
203
204         return 0;
205 }
206
207 static bool
208 clusterip_del_node(struct clusterip_config *c, u_int16_t nodenum)
209 {
210         if (nodenum == 0 ||
211             nodenum > c->num_total_nodes)
212                 return true;
213
214         if (test_and_clear_bit(nodenum - 1, &c->local_nodes))
215                 return false;
216
217         return true;
218 }
219 #endif
220
221 static inline u_int32_t
222 clusterip_hashfn(const struct sk_buff *skb,
223                  const struct clusterip_config *config)
224 {
225         const struct iphdr *iph = ip_hdr(skb);
226         unsigned long hashval;
227         u_int16_t sport, dport;
228         const u_int16_t *ports;
229
230         switch (iph->protocol) {
231         case IPPROTO_TCP:
232         case IPPROTO_UDP:
233         case IPPROTO_UDPLITE:
234         case IPPROTO_SCTP:
235         case IPPROTO_DCCP:
236         case IPPROTO_ICMP:
237                 ports = (const void *)iph+iph->ihl*4;
238                 sport = ports[0];
239                 dport = ports[1];
240                 break;
241         default:
242                 if (net_ratelimit())
243                         pr_info("unknown protocol %u\n", iph->protocol);
244                 sport = dport = 0;
245         }
246
247         switch (config->hash_mode) {
248         case CLUSTERIP_HASHMODE_SIP:
249                 hashval = jhash_1word(ntohl(iph->saddr),
250                                       config->hash_initval);
251                 break;
252         case CLUSTERIP_HASHMODE_SIP_SPT:
253                 hashval = jhash_2words(ntohl(iph->saddr), sport,
254                                        config->hash_initval);
255                 break;
256         case CLUSTERIP_HASHMODE_SIP_SPT_DPT:
257                 hashval = jhash_3words(ntohl(iph->saddr), sport, dport,
258                                        config->hash_initval);
259                 break;
260         default:
261                 /* to make gcc happy */
262                 hashval = 0;
263                 /* This cannot happen, unless the check function wasn't called
264                  * at rule load time */
265                 pr_info("unknown mode %u\n", config->hash_mode);
266                 BUG();
267                 break;
268         }
269
270         /* node numbers are 1..n, not 0..n */
271         return (((u64)hashval * config->num_total_nodes) >> 32) + 1;
272 }
273
274 static inline int
275 clusterip_responsible(const struct clusterip_config *config, u_int32_t hash)
276 {
277         return test_bit(hash - 1, &config->local_nodes);
278 }
279
280 /***********************************************************************
281  * IPTABLES TARGET
282  ***********************************************************************/
283
284 static unsigned int
285 clusterip_tg(struct sk_buff *skb, const struct xt_action_param *par)
286 {
287         const struct ipt_clusterip_tgt_info *cipinfo = par->targinfo;
288         struct nf_conn *ct;
289         enum ip_conntrack_info ctinfo;
290         u_int32_t hash;
291
292         /* don't need to clusterip_config_get() here, since refcount
293          * is only decremented by destroy() - and ip_tables guarantees
294          * that the ->target() function isn't called after ->destroy() */
295
296         ct = nf_ct_get(skb, &ctinfo);
297         if (ct == NULL) {
298                 pr_info("no conntrack!\n");
299                         /* FIXME: need to drop invalid ones, since replies
300                          * to outgoing connections of other nodes will be
301                          * marked as INVALID */
302                 return NF_DROP;
303         }
304
305         /* special case: ICMP error handling. conntrack distinguishes between
306          * error messages (RELATED) and information requests (see below) */
307         if (ip_hdr(skb)->protocol == IPPROTO_ICMP &&
308             (ctinfo == IP_CT_RELATED ||
309              ctinfo == IP_CT_RELATED + IP_CT_IS_REPLY))
310                 return XT_CONTINUE;
311
312         /* ip_conntrack_icmp guarantees us that we only have ICMP_ECHO,
313          * TIMESTAMP, INFO_REQUEST or ADDRESS type icmp packets from here
314          * on, which all have an ID field [relevant for hashing]. */
315
316         hash = clusterip_hashfn(skb, cipinfo->config);
317
318         switch (ctinfo) {
319                 case IP_CT_NEW:
320                         ct->mark = hash;
321                         break;
322                 case IP_CT_RELATED:
323                 case IP_CT_RELATED+IP_CT_IS_REPLY:
324                         /* FIXME: we don't handle expectations at the
325                          * moment.  they can arrive on a different node than
326                          * the master connection (e.g. FTP passive mode) */
327                 case IP_CT_ESTABLISHED:
328                 case IP_CT_ESTABLISHED+IP_CT_IS_REPLY:
329                         break;
330                 default:
331                         break;
332         }
333
334 #ifdef DEBUG
335         nf_ct_dump_tuple_ip(&ct->tuplehash[IP_CT_DIR_ORIGINAL].tuple);
336 #endif
337         pr_debug("hash=%u ct_hash=%u ", hash, ct->mark);
338         if (!clusterip_responsible(cipinfo->config, hash)) {
339                 pr_debug("not responsible\n");
340                 return NF_DROP;
341         }
342         pr_debug("responsible\n");
343
344         /* despite being received via linklayer multicast, this is
345          * actually a unicast IP packet. TCP doesn't like PACKET_MULTICAST */
346         skb->pkt_type = PACKET_HOST;
347
348         return XT_CONTINUE;
349 }
350
351 static int clusterip_tg_check(const struct xt_tgchk_param *par)
352 {
353         struct ipt_clusterip_tgt_info *cipinfo = par->targinfo;
354         const struct ipt_entry *e = par->entryinfo;
355         struct clusterip_config *config;
356         int ret;
357
358         if (cipinfo->hash_mode != CLUSTERIP_HASHMODE_SIP &&
359             cipinfo->hash_mode != CLUSTERIP_HASHMODE_SIP_SPT &&
360             cipinfo->hash_mode != CLUSTERIP_HASHMODE_SIP_SPT_DPT) {
361                 pr_info("unknown mode %u\n", cipinfo->hash_mode);
362                 return -EINVAL;
363
364         }
365         if (e->ip.dmsk.s_addr != htonl(0xffffffff) ||
366             e->ip.dst.s_addr == 0) {
367                 pr_info("Please specify destination IP\n");
368                 return -EINVAL;
369         }
370
371         /* FIXME: further sanity checks */
372
373         config = clusterip_config_find_get(e->ip.dst.s_addr, 1);
374         if (!config) {
375                 if (!(cipinfo->flags & CLUSTERIP_FLAG_NEW)) {
376                         pr_info("no config found for %pI4, need 'new'\n",
377                                 &e->ip.dst.s_addr);
378                         return -EINVAL;
379                 } else {
380                         struct net_device *dev;
381
382                         if (e->ip.iniface[0] == '\0') {
383                                 pr_info("Please specify an interface name\n");
384                                 return -EINVAL;
385                         }
386
387                         dev = dev_get_by_name(&init_net, e->ip.iniface);
388                         if (!dev) {
389                                 pr_info("no such interface %s\n",
390                                         e->ip.iniface);
391                                 return -ENOENT;
392                         }
393
394                         config = clusterip_config_init(cipinfo,
395                                                         e->ip.dst.s_addr, dev);
396                         if (!config) {
397                                 pr_info("cannot allocate config\n");
398                                 dev_put(dev);
399                                 return -ENOMEM;
400                         }
401                         dev_mc_add(config->dev, config->clustermac);
402                 }
403         }
404         cipinfo->config = config;
405
406         ret = nf_ct_l3proto_try_module_get(par->family);
407         if (ret < 0)
408                 pr_info("cannot load conntrack support for proto=%u\n",
409                         par->family);
410         return ret;
411 }
412
413 /* drop reference count of cluster config when rule is deleted */
414 static void clusterip_tg_destroy(const struct xt_tgdtor_param *par)
415 {
416         const struct ipt_clusterip_tgt_info *cipinfo = par->targinfo;
417
418         /* if no more entries are referencing the config, remove it
419          * from the list and destroy the proc entry */
420         clusterip_config_entry_put(cipinfo->config);
421
422         clusterip_config_put(cipinfo->config);
423
424         nf_ct_l3proto_module_put(par->family);
425 }
426
427 #ifdef CONFIG_COMPAT
428 struct compat_ipt_clusterip_tgt_info
429 {
430         u_int32_t       flags;
431         u_int8_t        clustermac[6];
432         u_int16_t       num_total_nodes;
433         u_int16_t       num_local_nodes;
434         u_int16_t       local_nodes[CLUSTERIP_MAX_NODES];
435         u_int32_t       hash_mode;
436         u_int32_t       hash_initval;
437         compat_uptr_t   config;
438 };
439 #endif /* CONFIG_COMPAT */
440
441 static struct xt_target clusterip_tg_reg __read_mostly = {
442         .name           = "CLUSTERIP",
443         .family         = NFPROTO_IPV4,
444         .target         = clusterip_tg,
445         .checkentry     = clusterip_tg_check,
446         .destroy        = clusterip_tg_destroy,
447         .targetsize     = sizeof(struct ipt_clusterip_tgt_info),
448 #ifdef CONFIG_COMPAT
449         .compatsize     = sizeof(struct compat_ipt_clusterip_tgt_info),
450 #endif /* CONFIG_COMPAT */
451         .me             = THIS_MODULE
452 };
453
454
455 /***********************************************************************
456  * ARP MANGLING CODE
457  ***********************************************************************/
458
459 /* hardcoded for 48bit ethernet and 32bit ipv4 addresses */
460 struct arp_payload {
461         u_int8_t src_hw[ETH_ALEN];
462         __be32 src_ip;
463         u_int8_t dst_hw[ETH_ALEN];
464         __be32 dst_ip;
465 } __attribute__ ((packed));
466
467 #ifdef DEBUG
468 static void arp_print(struct arp_payload *payload)
469 {
470 #define HBUFFERLEN 30
471         char hbuffer[HBUFFERLEN];
472         int j,k;
473
474         for (k=0, j=0; k < HBUFFERLEN-3 && j < ETH_ALEN; j++) {
475                 hbuffer[k++] = hex_asc_hi(payload->src_hw[j]);
476                 hbuffer[k++] = hex_asc_lo(payload->src_hw[j]);
477                 hbuffer[k++]=':';
478         }
479         hbuffer[--k]='\0';
480
481         pr_debug("src %pI4@%s, dst %pI4\n",
482                  &payload->src_ip, hbuffer, &payload->dst_ip);
483 }
484 #endif
485
486 static unsigned int
487 arp_mangle(unsigned int hook,
488            struct sk_buff *skb,
489            const struct net_device *in,
490            const struct net_device *out,
491            int (*okfn)(struct sk_buff *))
492 {
493         struct arphdr *arp = arp_hdr(skb);
494         struct arp_payload *payload;
495         struct clusterip_config *c;
496
497         /* we don't care about non-ethernet and non-ipv4 ARP */
498         if (arp->ar_hrd != htons(ARPHRD_ETHER) ||
499             arp->ar_pro != htons(ETH_P_IP) ||
500             arp->ar_pln != 4 || arp->ar_hln != ETH_ALEN)
501                 return NF_ACCEPT;
502
503         /* we only want to mangle arp requests and replies */
504         if (arp->ar_op != htons(ARPOP_REPLY) &&
505             arp->ar_op != htons(ARPOP_REQUEST))
506                 return NF_ACCEPT;
507
508         payload = (void *)(arp+1);
509
510         /* if there is no clusterip configuration for the arp reply's
511          * source ip, we don't want to mangle it */
512         c = clusterip_config_find_get(payload->src_ip, 0);
513         if (!c)
514                 return NF_ACCEPT;
515
516         /* normally the linux kernel always replies to arp queries of
517          * addresses on different interfacs.  However, in the CLUSTERIP case
518          * this wouldn't work, since we didn't subscribe the mcast group on
519          * other interfaces */
520         if (c->dev != out) {
521                 pr_debug("not mangling arp reply on different "
522                          "interface: cip'%s'-skb'%s'\n",
523                          c->dev->name, out->name);
524                 clusterip_config_put(c);
525                 return NF_ACCEPT;
526         }
527
528         /* mangle reply hardware address */
529         memcpy(payload->src_hw, c->clustermac, arp->ar_hln);
530
531 #ifdef DEBUG
532         pr_debug("mangled arp reply: ");
533         arp_print(payload);
534 #endif
535
536         clusterip_config_put(c);
537
538         return NF_ACCEPT;
539 }
540
541 static struct nf_hook_ops cip_arp_ops __read_mostly = {
542         .hook = arp_mangle,
543         .pf = NFPROTO_ARP,
544         .hooknum = NF_ARP_OUT,
545         .priority = -1
546 };
547
548 /***********************************************************************
549  * PROC DIR HANDLING
550  ***********************************************************************/
551
552 #ifdef CONFIG_PROC_FS
553
554 struct clusterip_seq_position {
555         unsigned int pos;       /* position */
556         unsigned int weight;    /* number of bits set == size */
557         unsigned int bit;       /* current bit */
558         unsigned long val;      /* current value */
559 };
560
561 static void *clusterip_seq_start(struct seq_file *s, loff_t *pos)
562 {
563         struct clusterip_config *c = s->private;
564         unsigned int weight;
565         u_int32_t local_nodes;
566         struct clusterip_seq_position *idx;
567
568         /* FIXME: possible race */
569         local_nodes = c->local_nodes;
570         weight = hweight32(local_nodes);
571         if (*pos >= weight)
572                 return NULL;
573
574         idx = kmalloc(sizeof(struct clusterip_seq_position), GFP_KERNEL);
575         if (!idx)
576                 return ERR_PTR(-ENOMEM);
577
578         idx->pos = *pos;
579         idx->weight = weight;
580         idx->bit = ffs(local_nodes);
581         idx->val = local_nodes;
582         clear_bit(idx->bit - 1, &idx->val);
583
584         return idx;
585 }
586
587 static void *clusterip_seq_next(struct seq_file *s, void *v, loff_t *pos)
588 {
589         struct clusterip_seq_position *idx = v;
590
591         *pos = ++idx->pos;
592         if (*pos >= idx->weight) {
593                 kfree(v);
594                 return NULL;
595         }
596         idx->bit = ffs(idx->val);
597         clear_bit(idx->bit - 1, &idx->val);
598         return idx;
599 }
600
601 static void clusterip_seq_stop(struct seq_file *s, void *v)
602 {
603         if (!IS_ERR(v))
604                 kfree(v);
605 }
606
607 static int clusterip_seq_show(struct seq_file *s, void *v)
608 {
609         struct clusterip_seq_position *idx = v;
610
611         if (idx->pos != 0)
612                 seq_putc(s, ',');
613
614         seq_printf(s, "%u", idx->bit);
615
616         if (idx->pos == idx->weight - 1)
617                 seq_putc(s, '\n');
618
619         return 0;
620 }
621
622 static const struct seq_operations clusterip_seq_ops = {
623         .start  = clusterip_seq_start,
624         .next   = clusterip_seq_next,
625         .stop   = clusterip_seq_stop,
626         .show   = clusterip_seq_show,
627 };
628
629 static int clusterip_proc_open(struct inode *inode, struct file *file)
630 {
631         int ret = seq_open(file, &clusterip_seq_ops);
632
633         if (!ret) {
634                 struct seq_file *sf = file->private_data;
635                 struct clusterip_config *c = PDE(inode)->data;
636
637                 sf->private = c;
638
639                 clusterip_config_get(c);
640         }
641
642         return ret;
643 }
644
645 static int clusterip_proc_release(struct inode *inode, struct file *file)
646 {
647         struct clusterip_config *c = PDE(inode)->data;
648         int ret;
649
650         ret = seq_release(inode, file);
651
652         if (!ret)
653                 clusterip_config_put(c);
654
655         return ret;
656 }
657
658 static ssize_t clusterip_proc_write(struct file *file, const char __user *input,
659                                 size_t size, loff_t *ofs)
660 {
661         struct clusterip_config *c = PDE(file->f_path.dentry->d_inode)->data;
662 #define PROC_WRITELEN   10
663         char buffer[PROC_WRITELEN+1];
664         unsigned long nodenum;
665
666         if (copy_from_user(buffer, input, PROC_WRITELEN))
667                 return -EFAULT;
668
669         if (*buffer == '+') {
670                 nodenum = simple_strtoul(buffer+1, NULL, 10);
671                 if (clusterip_add_node(c, nodenum))
672                         return -ENOMEM;
673         } else if (*buffer == '-') {
674                 nodenum = simple_strtoul(buffer+1, NULL,10);
675                 if (clusterip_del_node(c, nodenum))
676                         return -ENOENT;
677         } else
678                 return -EIO;
679
680         return size;
681 }
682
683 static const struct file_operations clusterip_proc_fops = {
684         .owner   = THIS_MODULE,
685         .open    = clusterip_proc_open,
686         .read    = seq_read,
687         .write   = clusterip_proc_write,
688         .llseek  = seq_lseek,
689         .release = clusterip_proc_release,
690 };
691
692 #endif /* CONFIG_PROC_FS */
693
694 static int __init clusterip_tg_init(void)
695 {
696         int ret;
697
698         ret = xt_register_target(&clusterip_tg_reg);
699         if (ret < 0)
700                 return ret;
701
702         ret = nf_register_hook(&cip_arp_ops);
703         if (ret < 0)
704                 goto cleanup_target;
705
706 #ifdef CONFIG_PROC_FS
707         clusterip_procdir = proc_mkdir("ipt_CLUSTERIP", init_net.proc_net);
708         if (!clusterip_procdir) {
709                 pr_err("Unable to proc dir entry\n");
710                 ret = -ENOMEM;
711                 goto cleanup_hook;
712         }
713 #endif /* CONFIG_PROC_FS */
714
715         pr_info("ClusterIP Version %s loaded successfully\n",
716                 CLUSTERIP_VERSION);
717         return 0;
718
719 #ifdef CONFIG_PROC_FS
720 cleanup_hook:
721         nf_unregister_hook(&cip_arp_ops);
722 #endif /* CONFIG_PROC_FS */
723 cleanup_target:
724         xt_unregister_target(&clusterip_tg_reg);
725         return ret;
726 }
727
728 static void __exit clusterip_tg_exit(void)
729 {
730         pr_info("ClusterIP Version %s unloading\n", CLUSTERIP_VERSION);
731 #ifdef CONFIG_PROC_FS
732         remove_proc_entry(clusterip_procdir->name, clusterip_procdir->parent);
733 #endif
734         nf_unregister_hook(&cip_arp_ops);
735         xt_unregister_target(&clusterip_tg_reg);
736 }
737
738 module_init(clusterip_tg_init);
739 module_exit(clusterip_tg_exit);