drivers/isdn/divert/divert_procfs.c

   1 /* $Id: divert_procfs.c,v 1.1.4.1 2001/11/20 14:19:35 kai Exp $
   2  *
   3  * Filesystem handling for the diversion supplementary services.
   4  *
   5  * Copyright 1998       by Werner Cornelius (werner@isdn4linux.de)
   6  *
   7  * This software may be used and distributed according to the terms
   8  * of the GNU General Public License, incorporated herein by reference.
   9  *
  10  */
  11
  12 #include <linux/config.h>
  13 #define __NO_VERSION__
  14 #include <linux/module.h>
  15 #include <linux/version.h>
  16 #include <linux/poll.h>
  17 #include <linux/smp_lock.h>
  18 #ifdef CONFIG_PROC_FS
  19 #include <linux/proc_fs.h>
  20 #else
  21 #include <linux/fs.h>
  22 #endif
  23 #include <linux/isdnif.h>
  24 #include "isdn_divert.h"
  25
  26 /*********************************/
  27 /* Variables for interface queue */
  28 /*********************************/
  29 ulong if_used = 0;              /* number of interface users */
  30 static struct divert_info *divert_info_head = NULL;     /* head of queue */
  31 static struct divert_info *divert_info_tail = NULL;     /* pointer to last entry */
  32 static wait_queue_head_t rd_queue;
  33
  34 /*********************************/
  35 /* put an info buffer into queue */
  36 /*********************************/
  37 void
  38 put_info_buffer(char *cp)
  39 {
  40         struct divert_info *ib;
  41         unsigned long flags;
  42
  43         if (if_used <= 0)
  44                 return;
  45         if (!cp)
  46                 return;
  47         if (!*cp)
  48                 return;
  49         if (!(ib = (struct divert_info *) kmalloc(sizeof(struct divert_info) + strlen(cp), GFP_ATOMIC)))
  50                  return;        /* no memory */
  51         strcpy(ib->info_start, cp);     /* set output string */
  52         ib->next = NULL;
  53         save_flags(flags);
  54         cli();
  55         ib->usage_cnt = if_used;
  56         if (!divert_info_head)
  57                 divert_info_head = ib;  /* new head */
  58         else
  59                 divert_info_tail->next = ib;    /* follows existing messages */
  60         divert_info_tail = ib;  /* new tail */
  61         restore_flags(flags);
  62
  63         /* delete old entrys */
  64         while (divert_info_head->next) {
  65                 if ((divert_info_head->usage_cnt <= 0) &&
  66                     (divert_info_head->next->usage_cnt <= 0)) {
  67                         ib = divert_info_head;
  68                         divert_info_head = divert_info_head->next;
  69                         kfree(ib);
  70                 } else
  71                         break;
  72         }                       /* divert_info_head->next */
  73         wake_up_interruptible(&(rd_queue));
  74 }                               /* put_info_buffer */
  75
  76 /**********************************/
  77 /* deflection device read routine */
  78 /**********************************/
  79 static ssize_t
  80 isdn_divert_read(struct file *file, char *buf, size_t count, loff_t * off)
  81 {
  82         struct divert_info *inf;
  83         loff_t pos = *off;
  84         int len;
  85
  86         if (!*((struct divert_info **) file->private_data)) {
  87                 if (file->f_flags & O_NONBLOCK)
  88                         return -EAGAIN;
  89                 interruptible_sleep_on(&(rd_queue));
  90         }
  91         if (!(inf = *((struct divert_info **) file->private_data)))
  92                 return (0);
  93
  94         inf->usage_cnt--;       /* new usage count */
  95         file->private_data = &inf->next;        /* next structure */
  96         if ((len = strlen(inf->info_start)) <= count) {
  97                 if (copy_to_user(buf, inf->info_start, len))
  98                         return -EFAULT;
  99                 *off = pos + len;
 100                 return (len);
 101         }
 102         return (0);
 103 }                               /* isdn_divert_read */
 104
 105 /**********************************/
 106 /* deflection device write routine */
 107 /**********************************/
 108 static ssize_t
 109 isdn_divert_write(struct file *file, const char *buf, size_t count, loff_t * off)
 110 {
 111         return (-ENODEV);
 112 }                               /* isdn_divert_write */
 113
 114
 115 /***************************************/
 116 /* select routines for various kernels */
 117 /***************************************/
 118 static unsigned int
 119 isdn_divert_poll(struct file *file, poll_table * wait)
 120 {
 121         unsigned int mask = 0;
 122
 123         poll_wait(file, &(rd_queue), wait);
 124         /* mask = POLLOUT | POLLWRNORM; */
 125         if (*((struct divert_info **) file->private_data)) {
 126                 mask |= POLLIN | POLLRDNORM;
 127         }
 128         return mask;
 129 }                               /* isdn_divert_poll */
 130
 131 /****************/
 132 /* Open routine */
 133 /****************/
 134 static int
 135 isdn_divert_open(struct inode *ino, struct file *filep)
 136 {
 137         unsigned long flags;
 138
 139         lock_kernel();
 140         save_flags(flags);
 141         cli();
 142         if_used++;
 143         if (divert_info_head)
 144                 filep->private_data = &(divert_info_tail->next);
 145         else
 146                 filep->private_data = &divert_info_head;
 147         restore_flags(flags);
 148         /*  start_divert(); */
 149         unlock_kernel();
 150         return (0);
 151 }                               /* isdn_divert_open */
 152
 153 /*******************/
 154 /* close routine   */
 155 /*******************/
 156 static int
 157 isdn_divert_close(struct inode *ino, struct file *filep)
 158 {
 159         struct divert_info *inf;
 160         unsigned long flags;
 161
 162         lock_kernel();
 163         save_flags(flags);
 164         cli();
 165         if_used--;
 166         inf = *((struct divert_info **) filep->private_data);
 167         while (inf) {
 168                 inf->usage_cnt--;
 169                 inf = inf->next;
 170         }
 171         restore_flags(flags);
 172         if (if_used <= 0)
 173                 while (divert_info_head) {
 174                         inf = divert_info_head;
 175                         divert_info_head = divert_info_head->next;
 176                         kfree(inf);
 177                 }
 178         unlock_kernel();
 179         return (0);
 180 }                               /* isdn_divert_close */
 181
 182 /*********/
 183 /* IOCTL */
 184 /*********/
 185 static int
 186 isdn_divert_ioctl(struct inode *inode, struct file *file,
 187                   uint cmd, ulong arg)
 188 {
 189         divert_ioctl dioctl;
 190         int i;
 191         unsigned long flags;
 192         divert_rule *rulep;
 193         char *cp;
 194
 195         if ((i = copy_from_user(&dioctl, (char *) arg, sizeof(dioctl))))
 196                 return (i);
 197
 198         switch (cmd) {
 199                 case IIOCGETVER:
 200                         dioctl.drv_version = DIVERT_IIOC_VERSION;       /* set version */
 201                         break;
 202
 203                 case IIOCGETDRV:
 204                         if ((dioctl.getid.drvid = divert_if.name_to_drv(dioctl.getid.drvnam)) < 0)
 205                                 return (-EINVAL);
 206                         break;
 207
 208                 case IIOCGETNAM:
 209                         cp = divert_if.drv_to_name(dioctl.getid.drvid);
 210                         if (!cp)
 211                                 return (-EINVAL);
 212                         if (!*cp)
 213                                 return (-EINVAL);
 214                         strcpy(dioctl.getid.drvnam, cp);
 215                         break;
 216
 217                 case IIOCGETRULE:
 218                         if (!(rulep = getruleptr(dioctl.getsetrule.ruleidx)))
 219                                 return (-EINVAL);
 220                         dioctl.getsetrule.rule = *rulep;        /* copy data */
 221                         break;
 222
 223                 case IIOCMODRULE:
 224                         if (!(rulep = getruleptr(dioctl.getsetrule.ruleidx)))
 225                                 return (-EINVAL);
 226                         save_flags(flags);
 227                         cli();
 228                         *rulep = dioctl.getsetrule.rule;        /* copy data */
 229                         restore_flags(flags);
 230                         return (0);     /* no copy required */
 231                         break;
 232
 233                 case IIOCINSRULE:
 234                         return (insertrule(dioctl.getsetrule.ruleidx, &dioctl.getsetrule.rule));
 235                         break;
 236
 237                 case IIOCDELRULE:
 238                         return (deleterule(dioctl.getsetrule.ruleidx));
 239                         break;
 240
 241                 case IIOCDODFACT:
 242                         return (deflect_extern_action(dioctl.fwd_ctrl.subcmd,
 243                                                   dioctl.fwd_ctrl.callid,
 244                                                  dioctl.fwd_ctrl.to_nr));
 245
 246                 case IIOCDOCFACT:
 247                 case IIOCDOCFDIS:
 248                 case IIOCDOCFINT:
 249                         if (!divert_if.drv_to_name(dioctl.cf_ctrl.drvid))
 250                                 return (-EINVAL);       /* invalid driver */
 251                         if ((i = cf_command(dioctl.cf_ctrl.drvid,
 252                                             (cmd == IIOCDOCFACT) ? 1 : (cmd == IIOCDOCFDIS) ? 0 : 2,
 253                                             dioctl.cf_ctrl.cfproc,
 254                                             dioctl.cf_ctrl.msn,
 255                                             dioctl.cf_ctrl.service,
 256                                             dioctl.cf_ctrl.fwd_nr,
 257                                             &dioctl.cf_ctrl.procid)))
 258                                 return (i);
 259                         break;
 260
 261                 default:
 262                         return (-EINVAL);
 263         }                       /* switch cmd */
 264         return (copy_to_user((char *) arg, &dioctl, sizeof(dioctl)));   /* success */
 265 }                               /* isdn_divert_ioctl */
 266
 267
 268 #ifdef CONFIG_PROC_FS
 269 static struct file_operations isdn_fops =
 270 {
 271         llseek:         no_llseek,
 272         read:           isdn_divert_read,
 273         write:          isdn_divert_write,
 274         poll:           isdn_divert_poll,
 275         ioctl:          isdn_divert_ioctl,
 276         open:           isdn_divert_open,
 277         release:        isdn_divert_close,
 278 };
 279
 280 /****************************/
 281 /* isdn subdir in /proc/net */
 282 /****************************/
 283 static struct proc_dir_entry *isdn_proc_entry = NULL;
 284 static struct proc_dir_entry *isdn_divert_entry = NULL;
 285 #endif  /* CONFIG_PROC_FS */
 286
 287 /***************************************************************************/
 288 /* divert_dev_init must be called before the proc filesystem may be used   */
 289 /***************************************************************************/
 290 int
 291 divert_dev_init(void)
 292 {
 293
 294         init_waitqueue_head(&rd_queue);
 295
 296 #ifdef CONFIG_PROC_FS
 297         isdn_proc_entry = create_proc_entry("isdn", S_IFDIR | S_IRUGO | S_IXUGO, proc_net);
 298         if (!isdn_proc_entry)
 299                 return (-1);
 300         isdn_divert_entry = create_proc_entry("divert", S_IFREG | S_IRUGO, isdn_proc_entry);
 301         if (!isdn_divert_entry) {
 302                 remove_proc_entry("isdn", proc_net);
 303                 return (-1);
 304         }
 305         isdn_divert_entry->proc_fops = &isdn_fops;
 306         isdn_divert_entry->owner = THIS_MODULE;
 307 #endif  /* CONFIG_PROC_FS */
 308
 309         return (0);
 310 }                               /* divert_dev_init */
 311
 312 /***************************************************************************/
 313 /* divert_dev_deinit must be called before leaving isdn when included as   */
 314 /* a module.                                                               */
 315 /***************************************************************************/
 316 int
 317 divert_dev_deinit(void)
 318 {
 319
 320 #ifdef CONFIG_PROC_FS
 321         remove_proc_entry("divert", isdn_proc_entry);
 322         remove_proc_entry("isdn", proc_net);
 323 #endif  /* CONFIG_PROC_FS */
 324
 325         return (0);
 326 }                               /* divert_dev_deinit */