1*b7e04f8cSWim Van Sebroeck /* 2*b7e04f8cSWim Van Sebroeck * Industrial Computer Source WDT500/501 driver 3*b7e04f8cSWim Van Sebroeck * 4*b7e04f8cSWim Van Sebroeck * (c) Copyright 1996-1997 Alan Cox <alan@redhat.com>, All Rights Reserved. 5*b7e04f8cSWim Van Sebroeck * http://www.redhat.com 6*b7e04f8cSWim Van Sebroeck * 7*b7e04f8cSWim Van Sebroeck * This program is free software; you can redistribute it and/or 8*b7e04f8cSWim Van Sebroeck * modify it under the terms of the GNU General Public License 9*b7e04f8cSWim Van Sebroeck * as published by the Free Software Foundation; either version 10*b7e04f8cSWim Van Sebroeck * 2 of the License, or (at your option) any later version. 11*b7e04f8cSWim Van Sebroeck * 12*b7e04f8cSWim Van Sebroeck * Neither Alan Cox nor CymruNet Ltd. admit liability nor provide 13*b7e04f8cSWim Van Sebroeck * warranty for any of this software. This material is provided 14*b7e04f8cSWim Van Sebroeck * "AS-IS" and at no charge. 15*b7e04f8cSWim Van Sebroeck * 16*b7e04f8cSWim Van Sebroeck * (c) Copyright 1995 Alan Cox <alan@lxorguk.ukuu.org.uk> 17*b7e04f8cSWim Van Sebroeck * 18*b7e04f8cSWim Van Sebroeck * Release 0.10. 19*b7e04f8cSWim Van Sebroeck * 20*b7e04f8cSWim Van Sebroeck * Fixes 21*b7e04f8cSWim Van Sebroeck * Dave Gregorich : Modularisation and minor bugs 22*b7e04f8cSWim Van Sebroeck * Alan Cox : Added the watchdog ioctl() stuff 23*b7e04f8cSWim Van Sebroeck * Alan Cox : Fixed the reboot problem (as noted by 24*b7e04f8cSWim Van Sebroeck * Matt Crocker). 25*b7e04f8cSWim Van Sebroeck * Alan Cox : Added wdt= boot option 26*b7e04f8cSWim Van Sebroeck * Alan Cox : Cleaned up copy/user stuff 27*b7e04f8cSWim Van Sebroeck * Tim Hockin : Added insmod parameters, comment cleanup 28*b7e04f8cSWim Van Sebroeck * Parameterized timeout 29*b7e04f8cSWim Van Sebroeck * Tigran Aivazian : Restructured wdt_init() to handle failures 30*b7e04f8cSWim Van Sebroeck * Joel Becker : Added WDIOC_GET/SETTIMEOUT 31*b7e04f8cSWim Van Sebroeck * Matt Domsch : Added nowayout module option 32*b7e04f8cSWim Van Sebroeck */ 33*b7e04f8cSWim Van Sebroeck 34*b7e04f8cSWim Van Sebroeck #include <linux/interrupt.h> 35*b7e04f8cSWim Van Sebroeck #include <linux/module.h> 36*b7e04f8cSWim Van Sebroeck #include <linux/moduleparam.h> 37*b7e04f8cSWim Van Sebroeck #include <linux/types.h> 38*b7e04f8cSWim Van Sebroeck #include <linux/miscdevice.h> 39*b7e04f8cSWim Van Sebroeck #include <linux/watchdog.h> 40*b7e04f8cSWim Van Sebroeck #include <linux/fs.h> 41*b7e04f8cSWim Van Sebroeck #include <linux/ioport.h> 42*b7e04f8cSWim Van Sebroeck #include <linux/notifier.h> 43*b7e04f8cSWim Van Sebroeck #include <linux/reboot.h> 44*b7e04f8cSWim Van Sebroeck #include <linux/init.h> 45*b7e04f8cSWim Van Sebroeck 46*b7e04f8cSWim Van Sebroeck #include <asm/io.h> 47*b7e04f8cSWim Van Sebroeck #include <asm/uaccess.h> 48*b7e04f8cSWim Van Sebroeck #include <asm/system.h> 49*b7e04f8cSWim Van Sebroeck #include "wd501p.h" 50*b7e04f8cSWim Van Sebroeck 51*b7e04f8cSWim Van Sebroeck static unsigned long wdt_is_open; 52*b7e04f8cSWim Van Sebroeck static char expect_close; 53*b7e04f8cSWim Van Sebroeck 54*b7e04f8cSWim Van Sebroeck /* 55*b7e04f8cSWim Van Sebroeck * Module parameters 56*b7e04f8cSWim Van Sebroeck */ 57*b7e04f8cSWim Van Sebroeck 58*b7e04f8cSWim Van Sebroeck #define WD_TIMO 60 /* Default heartbeat = 60 seconds */ 59*b7e04f8cSWim Van Sebroeck 60*b7e04f8cSWim Van Sebroeck static int heartbeat = WD_TIMO; 61*b7e04f8cSWim Van Sebroeck static int wd_heartbeat; 62*b7e04f8cSWim Van Sebroeck module_param(heartbeat, int, 0); 63*b7e04f8cSWim Van Sebroeck MODULE_PARM_DESC(heartbeat, "Watchdog heartbeat in seconds. (0<heartbeat<65536, default=" __MODULE_STRING(WD_TIMO) ")"); 64*b7e04f8cSWim Van Sebroeck 65*b7e04f8cSWim Van Sebroeck static int nowayout = WATCHDOG_NOWAYOUT; 66*b7e04f8cSWim Van Sebroeck module_param(nowayout, int, 0); 67*b7e04f8cSWim Van Sebroeck MODULE_PARM_DESC(nowayout, "Watchdog cannot be stopped once started (default=" __MODULE_STRING(WATCHDOG_NOWAYOUT) ")"); 68*b7e04f8cSWim Van Sebroeck 69*b7e04f8cSWim Van Sebroeck /* You must set these - there is no sane way to probe for this board. */ 70*b7e04f8cSWim Van Sebroeck static int io=0x240; 71*b7e04f8cSWim Van Sebroeck static int irq=11; 72*b7e04f8cSWim Van Sebroeck 73*b7e04f8cSWim Van Sebroeck module_param(io, int, 0); 74*b7e04f8cSWim Van Sebroeck MODULE_PARM_DESC(io, "WDT io port (default=0x240)"); 75*b7e04f8cSWim Van Sebroeck module_param(irq, int, 0); 76*b7e04f8cSWim Van Sebroeck MODULE_PARM_DESC(irq, "WDT irq (default=11)"); 77*b7e04f8cSWim Van Sebroeck 78*b7e04f8cSWim Van Sebroeck #ifdef CONFIG_WDT_501 79*b7e04f8cSWim Van Sebroeck /* Support for the Fan Tachometer on the WDT501-P */ 80*b7e04f8cSWim Van Sebroeck static int tachometer; 81*b7e04f8cSWim Van Sebroeck 82*b7e04f8cSWim Van Sebroeck module_param(tachometer, int, 0); 83*b7e04f8cSWim Van Sebroeck MODULE_PARM_DESC(tachometer, "WDT501-P Fan Tachometer support (0=disable, default=0)"); 84*b7e04f8cSWim Van Sebroeck #endif /* CONFIG_WDT_501 */ 85*b7e04f8cSWim Van Sebroeck 86*b7e04f8cSWim Van Sebroeck /* 87*b7e04f8cSWim Van Sebroeck * Programming support 88*b7e04f8cSWim Van Sebroeck */ 89*b7e04f8cSWim Van Sebroeck 90*b7e04f8cSWim Van Sebroeck static void wdt_ctr_mode(int ctr, int mode) 91*b7e04f8cSWim Van Sebroeck { 92*b7e04f8cSWim Van Sebroeck ctr<<=6; 93*b7e04f8cSWim Van Sebroeck ctr|=0x30; 94*b7e04f8cSWim Van Sebroeck ctr|=(mode<<1); 95*b7e04f8cSWim Van Sebroeck outb_p(ctr, WDT_CR); 96*b7e04f8cSWim Van Sebroeck } 97*b7e04f8cSWim Van Sebroeck 98*b7e04f8cSWim Van Sebroeck static void wdt_ctr_load(int ctr, int val) 99*b7e04f8cSWim Van Sebroeck { 100*b7e04f8cSWim Van Sebroeck outb_p(val&0xFF, WDT_COUNT0+ctr); 101*b7e04f8cSWim Van Sebroeck outb_p(val>>8, WDT_COUNT0+ctr); 102*b7e04f8cSWim Van Sebroeck } 103*b7e04f8cSWim Van Sebroeck 104*b7e04f8cSWim Van Sebroeck /** 105*b7e04f8cSWim Van Sebroeck * wdt_start: 106*b7e04f8cSWim Van Sebroeck * 107*b7e04f8cSWim Van Sebroeck * Start the watchdog driver. 108*b7e04f8cSWim Van Sebroeck */ 109*b7e04f8cSWim Van Sebroeck 110*b7e04f8cSWim Van Sebroeck static int wdt_start(void) 111*b7e04f8cSWim Van Sebroeck { 112*b7e04f8cSWim Van Sebroeck inb_p(WDT_DC); /* Disable watchdog */ 113*b7e04f8cSWim Van Sebroeck wdt_ctr_mode(0,3); /* Program CTR0 for Mode 3: Square Wave Generator */ 114*b7e04f8cSWim Van Sebroeck wdt_ctr_mode(1,2); /* Program CTR1 for Mode 2: Rate Generator */ 115*b7e04f8cSWim Van Sebroeck wdt_ctr_mode(2,0); /* Program CTR2 for Mode 0: Pulse on Terminal Count */ 116*b7e04f8cSWim Van Sebroeck wdt_ctr_load(0, 8948); /* Count at 100Hz */ 117*b7e04f8cSWim Van Sebroeck wdt_ctr_load(1,wd_heartbeat); /* Heartbeat */ 118*b7e04f8cSWim Van Sebroeck wdt_ctr_load(2,65535); /* Length of reset pulse */ 119*b7e04f8cSWim Van Sebroeck outb_p(0, WDT_DC); /* Enable watchdog */ 120*b7e04f8cSWim Van Sebroeck return 0; 121*b7e04f8cSWim Van Sebroeck } 122*b7e04f8cSWim Van Sebroeck 123*b7e04f8cSWim Van Sebroeck /** 124*b7e04f8cSWim Van Sebroeck * wdt_stop: 125*b7e04f8cSWim Van Sebroeck * 126*b7e04f8cSWim Van Sebroeck * Stop the watchdog driver. 127*b7e04f8cSWim Van Sebroeck */ 128*b7e04f8cSWim Van Sebroeck 129*b7e04f8cSWim Van Sebroeck static int wdt_stop (void) 130*b7e04f8cSWim Van Sebroeck { 131*b7e04f8cSWim Van Sebroeck /* Turn the card off */ 132*b7e04f8cSWim Van Sebroeck inb_p(WDT_DC); /* Disable watchdog */ 133*b7e04f8cSWim Van Sebroeck wdt_ctr_load(2,0); /* 0 length reset pulses now */ 134*b7e04f8cSWim Van Sebroeck return 0; 135*b7e04f8cSWim Van Sebroeck } 136*b7e04f8cSWim Van Sebroeck 137*b7e04f8cSWim Van Sebroeck /** 138*b7e04f8cSWim Van Sebroeck * wdt_ping: 139*b7e04f8cSWim Van Sebroeck * 140*b7e04f8cSWim Van Sebroeck * Reload counter one with the watchdog heartbeat. We don't bother reloading 141*b7e04f8cSWim Van Sebroeck * the cascade counter. 142*b7e04f8cSWim Van Sebroeck */ 143*b7e04f8cSWim Van Sebroeck 144*b7e04f8cSWim Van Sebroeck static int wdt_ping(void) 145*b7e04f8cSWim Van Sebroeck { 146*b7e04f8cSWim Van Sebroeck /* Write a watchdog value */ 147*b7e04f8cSWim Van Sebroeck inb_p(WDT_DC); /* Disable watchdog */ 148*b7e04f8cSWim Van Sebroeck wdt_ctr_mode(1,2); /* Re-Program CTR1 for Mode 2: Rate Generator */ 149*b7e04f8cSWim Van Sebroeck wdt_ctr_load(1,wd_heartbeat); /* Heartbeat */ 150*b7e04f8cSWim Van Sebroeck outb_p(0, WDT_DC); /* Enable watchdog */ 151*b7e04f8cSWim Van Sebroeck return 0; 152*b7e04f8cSWim Van Sebroeck } 153*b7e04f8cSWim Van Sebroeck 154*b7e04f8cSWim Van Sebroeck /** 155*b7e04f8cSWim Van Sebroeck * wdt_set_heartbeat: 156*b7e04f8cSWim Van Sebroeck * @t: the new heartbeat value that needs to be set. 157*b7e04f8cSWim Van Sebroeck * 158*b7e04f8cSWim Van Sebroeck * Set a new heartbeat value for the watchdog device. If the heartbeat value is 159*b7e04f8cSWim Van Sebroeck * incorrect we keep the old value and return -EINVAL. If successfull we 160*b7e04f8cSWim Van Sebroeck * return 0. 161*b7e04f8cSWim Van Sebroeck */ 162*b7e04f8cSWim Van Sebroeck static int wdt_set_heartbeat(int t) 163*b7e04f8cSWim Van Sebroeck { 164*b7e04f8cSWim Van Sebroeck if ((t < 1) || (t > 65535)) 165*b7e04f8cSWim Van Sebroeck return -EINVAL; 166*b7e04f8cSWim Van Sebroeck 167*b7e04f8cSWim Van Sebroeck heartbeat = t; 168*b7e04f8cSWim Van Sebroeck wd_heartbeat = t * 100; 169*b7e04f8cSWim Van Sebroeck return 0; 170*b7e04f8cSWim Van Sebroeck } 171*b7e04f8cSWim Van Sebroeck 172*b7e04f8cSWim Van Sebroeck /** 173*b7e04f8cSWim Van Sebroeck * wdt_get_status: 174*b7e04f8cSWim Van Sebroeck * @status: the new status. 175*b7e04f8cSWim Van Sebroeck * 176*b7e04f8cSWim Van Sebroeck * Extract the status information from a WDT watchdog device. There are 177*b7e04f8cSWim Van Sebroeck * several board variants so we have to know which bits are valid. Some 178*b7e04f8cSWim Van Sebroeck * bits default to one and some to zero in order to be maximally painful. 179*b7e04f8cSWim Van Sebroeck * 180*b7e04f8cSWim Van Sebroeck * we then map the bits onto the status ioctl flags. 181*b7e04f8cSWim Van Sebroeck */ 182*b7e04f8cSWim Van Sebroeck 183*b7e04f8cSWim Van Sebroeck static int wdt_get_status(int *status) 184*b7e04f8cSWim Van Sebroeck { 185*b7e04f8cSWim Van Sebroeck unsigned char new_status=inb_p(WDT_SR); 186*b7e04f8cSWim Van Sebroeck 187*b7e04f8cSWim Van Sebroeck *status=0; 188*b7e04f8cSWim Van Sebroeck if (new_status & WDC_SR_ISOI0) 189*b7e04f8cSWim Van Sebroeck *status |= WDIOF_EXTERN1; 190*b7e04f8cSWim Van Sebroeck if (new_status & WDC_SR_ISII1) 191*b7e04f8cSWim Van Sebroeck *status |= WDIOF_EXTERN2; 192*b7e04f8cSWim Van Sebroeck #ifdef CONFIG_WDT_501 193*b7e04f8cSWim Van Sebroeck if (!(new_status & WDC_SR_TGOOD)) 194*b7e04f8cSWim Van Sebroeck *status |= WDIOF_OVERHEAT; 195*b7e04f8cSWim Van Sebroeck if (!(new_status & WDC_SR_PSUOVER)) 196*b7e04f8cSWim Van Sebroeck *status |= WDIOF_POWEROVER; 197*b7e04f8cSWim Van Sebroeck if (!(new_status & WDC_SR_PSUUNDR)) 198*b7e04f8cSWim Van Sebroeck *status |= WDIOF_POWERUNDER; 199*b7e04f8cSWim Van Sebroeck if (tachometer) { 200*b7e04f8cSWim Van Sebroeck if (!(new_status & WDC_SR_FANGOOD)) 201*b7e04f8cSWim Van Sebroeck *status |= WDIOF_FANFAULT; 202*b7e04f8cSWim Van Sebroeck } 203*b7e04f8cSWim Van Sebroeck #endif /* CONFIG_WDT_501 */ 204*b7e04f8cSWim Van Sebroeck return 0; 205*b7e04f8cSWim Van Sebroeck } 206*b7e04f8cSWim Van Sebroeck 207*b7e04f8cSWim Van Sebroeck #ifdef CONFIG_WDT_501 208*b7e04f8cSWim Van Sebroeck /** 209*b7e04f8cSWim Van Sebroeck * wdt_get_temperature: 210*b7e04f8cSWim Van Sebroeck * 211*b7e04f8cSWim Van Sebroeck * Reports the temperature in degrees Fahrenheit. The API is in 212*b7e04f8cSWim Van Sebroeck * farenheit. It was designed by an imperial measurement luddite. 213*b7e04f8cSWim Van Sebroeck */ 214*b7e04f8cSWim Van Sebroeck 215*b7e04f8cSWim Van Sebroeck static int wdt_get_temperature(int *temperature) 216*b7e04f8cSWim Van Sebroeck { 217*b7e04f8cSWim Van Sebroeck unsigned short c=inb_p(WDT_RT); 218*b7e04f8cSWim Van Sebroeck 219*b7e04f8cSWim Van Sebroeck *temperature = (c * 11 / 15) + 7; 220*b7e04f8cSWim Van Sebroeck return 0; 221*b7e04f8cSWim Van Sebroeck } 222*b7e04f8cSWim Van Sebroeck #endif /* CONFIG_WDT_501 */ 223*b7e04f8cSWim Van Sebroeck 224*b7e04f8cSWim Van Sebroeck /** 225*b7e04f8cSWim Van Sebroeck * wdt_interrupt: 226*b7e04f8cSWim Van Sebroeck * @irq: Interrupt number 227*b7e04f8cSWim Van Sebroeck * @dev_id: Unused as we don't allow multiple devices. 228*b7e04f8cSWim Van Sebroeck * 229*b7e04f8cSWim Van Sebroeck * Handle an interrupt from the board. These are raised when the status 230*b7e04f8cSWim Van Sebroeck * map changes in what the board considers an interesting way. That means 231*b7e04f8cSWim Van Sebroeck * a failure condition occurring. 232*b7e04f8cSWim Van Sebroeck */ 233*b7e04f8cSWim Van Sebroeck 234*b7e04f8cSWim Van Sebroeck static irqreturn_t wdt_interrupt(int irq, void *dev_id) 235*b7e04f8cSWim Van Sebroeck { 236*b7e04f8cSWim Van Sebroeck /* 237*b7e04f8cSWim Van Sebroeck * Read the status register see what is up and 238*b7e04f8cSWim Van Sebroeck * then printk it. 239*b7e04f8cSWim Van Sebroeck */ 240*b7e04f8cSWim Van Sebroeck unsigned char status=inb_p(WDT_SR); 241*b7e04f8cSWim Van Sebroeck 242*b7e04f8cSWim Van Sebroeck printk(KERN_CRIT "WDT status %d\n", status); 243*b7e04f8cSWim Van Sebroeck 244*b7e04f8cSWim Van Sebroeck #ifdef CONFIG_WDT_501 245*b7e04f8cSWim Van Sebroeck if (!(status & WDC_SR_TGOOD)) 246*b7e04f8cSWim Van Sebroeck printk(KERN_CRIT "Overheat alarm.(%d)\n",inb_p(WDT_RT)); 247*b7e04f8cSWim Van Sebroeck if (!(status & WDC_SR_PSUOVER)) 248*b7e04f8cSWim Van Sebroeck printk(KERN_CRIT "PSU over voltage.\n"); 249*b7e04f8cSWim Van Sebroeck if (!(status & WDC_SR_PSUUNDR)) 250*b7e04f8cSWim Van Sebroeck printk(KERN_CRIT "PSU under voltage.\n"); 251*b7e04f8cSWim Van Sebroeck if (tachometer) { 252*b7e04f8cSWim Van Sebroeck if (!(status & WDC_SR_FANGOOD)) 253*b7e04f8cSWim Van Sebroeck printk(KERN_CRIT "Possible fan fault.\n"); 254*b7e04f8cSWim Van Sebroeck } 255*b7e04f8cSWim Van Sebroeck #endif /* CONFIG_WDT_501 */ 256*b7e04f8cSWim Van Sebroeck if (!(status & WDC_SR_WCCR)) 257*b7e04f8cSWim Van Sebroeck #ifdef SOFTWARE_REBOOT 258*b7e04f8cSWim Van Sebroeck #ifdef ONLY_TESTING 259*b7e04f8cSWim Van Sebroeck printk(KERN_CRIT "Would Reboot.\n"); 260*b7e04f8cSWim Van Sebroeck #else 261*b7e04f8cSWim Van Sebroeck printk(KERN_CRIT "Initiating system reboot.\n"); 262*b7e04f8cSWim Van Sebroeck emergency_restart(); 263*b7e04f8cSWim Van Sebroeck #endif 264*b7e04f8cSWim Van Sebroeck #else 265*b7e04f8cSWim Van Sebroeck printk(KERN_CRIT "Reset in 5ms.\n"); 266*b7e04f8cSWim Van Sebroeck #endif 267*b7e04f8cSWim Van Sebroeck return IRQ_HANDLED; 268*b7e04f8cSWim Van Sebroeck } 269*b7e04f8cSWim Van Sebroeck 270*b7e04f8cSWim Van Sebroeck 271*b7e04f8cSWim Van Sebroeck /** 272*b7e04f8cSWim Van Sebroeck * wdt_write: 273*b7e04f8cSWim Van Sebroeck * @file: file handle to the watchdog 274*b7e04f8cSWim Van Sebroeck * @buf: buffer to write (unused as data does not matter here 275*b7e04f8cSWim Van Sebroeck * @count: count of bytes 276*b7e04f8cSWim Van Sebroeck * @ppos: pointer to the position to write. No seeks allowed 277*b7e04f8cSWim Van Sebroeck * 278*b7e04f8cSWim Van Sebroeck * A write to a watchdog device is defined as a keepalive signal. Any 279*b7e04f8cSWim Van Sebroeck * write of data will do, as we we don't define content meaning. 280*b7e04f8cSWim Van Sebroeck */ 281*b7e04f8cSWim Van Sebroeck 282*b7e04f8cSWim Van Sebroeck static ssize_t wdt_write(struct file *file, const char __user *buf, size_t count, loff_t *ppos) 283*b7e04f8cSWim Van Sebroeck { 284*b7e04f8cSWim Van Sebroeck if(count) { 285*b7e04f8cSWim Van Sebroeck if (!nowayout) { 286*b7e04f8cSWim Van Sebroeck size_t i; 287*b7e04f8cSWim Van Sebroeck 288*b7e04f8cSWim Van Sebroeck /* In case it was set long ago */ 289*b7e04f8cSWim Van Sebroeck expect_close = 0; 290*b7e04f8cSWim Van Sebroeck 291*b7e04f8cSWim Van Sebroeck for (i = 0; i != count; i++) { 292*b7e04f8cSWim Van Sebroeck char c; 293*b7e04f8cSWim Van Sebroeck if (get_user(c, buf + i)) 294*b7e04f8cSWim Van Sebroeck return -EFAULT; 295*b7e04f8cSWim Van Sebroeck if (c == 'V') 296*b7e04f8cSWim Van Sebroeck expect_close = 42; 297*b7e04f8cSWim Van Sebroeck } 298*b7e04f8cSWim Van Sebroeck } 299*b7e04f8cSWim Van Sebroeck wdt_ping(); 300*b7e04f8cSWim Van Sebroeck } 301*b7e04f8cSWim Van Sebroeck return count; 302*b7e04f8cSWim Van Sebroeck } 303*b7e04f8cSWim Van Sebroeck 304*b7e04f8cSWim Van Sebroeck /** 305*b7e04f8cSWim Van Sebroeck * wdt_ioctl: 306*b7e04f8cSWim Van Sebroeck * @inode: inode of the device 307*b7e04f8cSWim Van Sebroeck * @file: file handle to the device 308*b7e04f8cSWim Van Sebroeck * @cmd: watchdog command 309*b7e04f8cSWim Van Sebroeck * @arg: argument pointer 310*b7e04f8cSWim Van Sebroeck * 311*b7e04f8cSWim Van Sebroeck * The watchdog API defines a common set of functions for all watchdogs 312*b7e04f8cSWim Van Sebroeck * according to their available features. We only actually usefully support 313*b7e04f8cSWim Van Sebroeck * querying capabilities and current status. 314*b7e04f8cSWim Van Sebroeck */ 315*b7e04f8cSWim Van Sebroeck 316*b7e04f8cSWim Van Sebroeck static int wdt_ioctl(struct inode *inode, struct file *file, unsigned int cmd, 317*b7e04f8cSWim Van Sebroeck unsigned long arg) 318*b7e04f8cSWim Van Sebroeck { 319*b7e04f8cSWim Van Sebroeck void __user *argp = (void __user *)arg; 320*b7e04f8cSWim Van Sebroeck int __user *p = argp; 321*b7e04f8cSWim Van Sebroeck int new_heartbeat; 322*b7e04f8cSWim Van Sebroeck int status; 323*b7e04f8cSWim Van Sebroeck 324*b7e04f8cSWim Van Sebroeck static struct watchdog_info ident = { 325*b7e04f8cSWim Van Sebroeck .options = WDIOF_SETTIMEOUT| 326*b7e04f8cSWim Van Sebroeck WDIOF_MAGICCLOSE| 327*b7e04f8cSWim Van Sebroeck WDIOF_KEEPALIVEPING, 328*b7e04f8cSWim Van Sebroeck .firmware_version = 1, 329*b7e04f8cSWim Van Sebroeck .identity = "WDT500/501", 330*b7e04f8cSWim Van Sebroeck }; 331*b7e04f8cSWim Van Sebroeck 332*b7e04f8cSWim Van Sebroeck /* Add options according to the card we have */ 333*b7e04f8cSWim Van Sebroeck ident.options |= (WDIOF_EXTERN1|WDIOF_EXTERN2); 334*b7e04f8cSWim Van Sebroeck #ifdef CONFIG_WDT_501 335*b7e04f8cSWim Van Sebroeck ident.options |= (WDIOF_OVERHEAT|WDIOF_POWERUNDER|WDIOF_POWEROVER); 336*b7e04f8cSWim Van Sebroeck if (tachometer) 337*b7e04f8cSWim Van Sebroeck ident.options |= WDIOF_FANFAULT; 338*b7e04f8cSWim Van Sebroeck #endif /* CONFIG_WDT_501 */ 339*b7e04f8cSWim Van Sebroeck 340*b7e04f8cSWim Van Sebroeck switch(cmd) 341*b7e04f8cSWim Van Sebroeck { 342*b7e04f8cSWim Van Sebroeck default: 343*b7e04f8cSWim Van Sebroeck return -ENOTTY; 344*b7e04f8cSWim Van Sebroeck case WDIOC_GETSUPPORT: 345*b7e04f8cSWim Van Sebroeck return copy_to_user(argp, &ident, sizeof(ident))?-EFAULT:0; 346*b7e04f8cSWim Van Sebroeck 347*b7e04f8cSWim Van Sebroeck case WDIOC_GETSTATUS: 348*b7e04f8cSWim Van Sebroeck wdt_get_status(&status); 349*b7e04f8cSWim Van Sebroeck return put_user(status, p); 350*b7e04f8cSWim Van Sebroeck case WDIOC_GETBOOTSTATUS: 351*b7e04f8cSWim Van Sebroeck return put_user(0, p); 352*b7e04f8cSWim Van Sebroeck case WDIOC_KEEPALIVE: 353*b7e04f8cSWim Van Sebroeck wdt_ping(); 354*b7e04f8cSWim Van Sebroeck return 0; 355*b7e04f8cSWim Van Sebroeck case WDIOC_SETTIMEOUT: 356*b7e04f8cSWim Van Sebroeck if (get_user(new_heartbeat, p)) 357*b7e04f8cSWim Van Sebroeck return -EFAULT; 358*b7e04f8cSWim Van Sebroeck 359*b7e04f8cSWim Van Sebroeck if (wdt_set_heartbeat(new_heartbeat)) 360*b7e04f8cSWim Van Sebroeck return -EINVAL; 361*b7e04f8cSWim Van Sebroeck 362*b7e04f8cSWim Van Sebroeck wdt_ping(); 363*b7e04f8cSWim Van Sebroeck /* Fall */ 364*b7e04f8cSWim Van Sebroeck case WDIOC_GETTIMEOUT: 365*b7e04f8cSWim Van Sebroeck return put_user(heartbeat, p); 366*b7e04f8cSWim Van Sebroeck } 367*b7e04f8cSWim Van Sebroeck } 368*b7e04f8cSWim Van Sebroeck 369*b7e04f8cSWim Van Sebroeck /** 370*b7e04f8cSWim Van Sebroeck * wdt_open: 371*b7e04f8cSWim Van Sebroeck * @inode: inode of device 372*b7e04f8cSWim Van Sebroeck * @file: file handle to device 373*b7e04f8cSWim Van Sebroeck * 374*b7e04f8cSWim Van Sebroeck * The watchdog device has been opened. The watchdog device is single 375*b7e04f8cSWim Van Sebroeck * open and on opening we load the counters. Counter zero is a 100Hz 376*b7e04f8cSWim Van Sebroeck * cascade, into counter 1 which downcounts to reboot. When the counter 377*b7e04f8cSWim Van Sebroeck * triggers counter 2 downcounts the length of the reset pulse which 378*b7e04f8cSWim Van Sebroeck * set set to be as long as possible. 379*b7e04f8cSWim Van Sebroeck */ 380*b7e04f8cSWim Van Sebroeck 381*b7e04f8cSWim Van Sebroeck static int wdt_open(struct inode *inode, struct file *file) 382*b7e04f8cSWim Van Sebroeck { 383*b7e04f8cSWim Van Sebroeck if(test_and_set_bit(0, &wdt_is_open)) 384*b7e04f8cSWim Van Sebroeck return -EBUSY; 385*b7e04f8cSWim Van Sebroeck /* 386*b7e04f8cSWim Van Sebroeck * Activate 387*b7e04f8cSWim Van Sebroeck */ 388*b7e04f8cSWim Van Sebroeck wdt_start(); 389*b7e04f8cSWim Van Sebroeck return nonseekable_open(inode, file); 390*b7e04f8cSWim Van Sebroeck } 391*b7e04f8cSWim Van Sebroeck 392*b7e04f8cSWim Van Sebroeck /** 393*b7e04f8cSWim Van Sebroeck * wdt_release: 394*b7e04f8cSWim Van Sebroeck * @inode: inode to board 395*b7e04f8cSWim Van Sebroeck * @file: file handle to board 396*b7e04f8cSWim Van Sebroeck * 397*b7e04f8cSWim Van Sebroeck * The watchdog has a configurable API. There is a religious dispute 398*b7e04f8cSWim Van Sebroeck * between people who want their watchdog to be able to shut down and 399*b7e04f8cSWim Van Sebroeck * those who want to be sure if the watchdog manager dies the machine 400*b7e04f8cSWim Van Sebroeck * reboots. In the former case we disable the counters, in the latter 401*b7e04f8cSWim Van Sebroeck * case you have to open it again very soon. 402*b7e04f8cSWim Van Sebroeck */ 403*b7e04f8cSWim Van Sebroeck 404*b7e04f8cSWim Van Sebroeck static int wdt_release(struct inode *inode, struct file *file) 405*b7e04f8cSWim Van Sebroeck { 406*b7e04f8cSWim Van Sebroeck if (expect_close == 42) { 407*b7e04f8cSWim Van Sebroeck wdt_stop(); 408*b7e04f8cSWim Van Sebroeck clear_bit(0, &wdt_is_open); 409*b7e04f8cSWim Van Sebroeck } else { 410*b7e04f8cSWim Van Sebroeck printk(KERN_CRIT "wdt: WDT device closed unexpectedly. WDT will not stop!\n"); 411*b7e04f8cSWim Van Sebroeck wdt_ping(); 412*b7e04f8cSWim Van Sebroeck } 413*b7e04f8cSWim Van Sebroeck expect_close = 0; 414*b7e04f8cSWim Van Sebroeck return 0; 415*b7e04f8cSWim Van Sebroeck } 416*b7e04f8cSWim Van Sebroeck 417*b7e04f8cSWim Van Sebroeck #ifdef CONFIG_WDT_501 418*b7e04f8cSWim Van Sebroeck /** 419*b7e04f8cSWim Van Sebroeck * wdt_temp_read: 420*b7e04f8cSWim Van Sebroeck * @file: file handle to the watchdog board 421*b7e04f8cSWim Van Sebroeck * @buf: buffer to write 1 byte into 422*b7e04f8cSWim Van Sebroeck * @count: length of buffer 423*b7e04f8cSWim Van Sebroeck * @ptr: offset (no seek allowed) 424*b7e04f8cSWim Van Sebroeck * 425*b7e04f8cSWim Van Sebroeck * Temp_read reports the temperature in degrees Fahrenheit. The API is in 426*b7e04f8cSWim Van Sebroeck * farenheit. It was designed by an imperial measurement luddite. 427*b7e04f8cSWim Van Sebroeck */ 428*b7e04f8cSWim Van Sebroeck 429*b7e04f8cSWim Van Sebroeck static ssize_t wdt_temp_read(struct file *file, char __user *buf, size_t count, loff_t *ptr) 430*b7e04f8cSWim Van Sebroeck { 431*b7e04f8cSWim Van Sebroeck int temperature; 432*b7e04f8cSWim Van Sebroeck 433*b7e04f8cSWim Van Sebroeck if (wdt_get_temperature(&temperature)) 434*b7e04f8cSWim Van Sebroeck return -EFAULT; 435*b7e04f8cSWim Van Sebroeck 436*b7e04f8cSWim Van Sebroeck if (copy_to_user (buf, &temperature, 1)) 437*b7e04f8cSWim Van Sebroeck return -EFAULT; 438*b7e04f8cSWim Van Sebroeck 439*b7e04f8cSWim Van Sebroeck return 1; 440*b7e04f8cSWim Van Sebroeck } 441*b7e04f8cSWim Van Sebroeck 442*b7e04f8cSWim Van Sebroeck /** 443*b7e04f8cSWim Van Sebroeck * wdt_temp_open: 444*b7e04f8cSWim Van Sebroeck * @inode: inode of device 445*b7e04f8cSWim Van Sebroeck * @file: file handle to device 446*b7e04f8cSWim Van Sebroeck * 447*b7e04f8cSWim Van Sebroeck * The temperature device has been opened. 448*b7e04f8cSWim Van Sebroeck */ 449*b7e04f8cSWim Van Sebroeck 450*b7e04f8cSWim Van Sebroeck static int wdt_temp_open(struct inode *inode, struct file *file) 451*b7e04f8cSWim Van Sebroeck { 452*b7e04f8cSWim Van Sebroeck return nonseekable_open(inode, file); 453*b7e04f8cSWim Van Sebroeck } 454*b7e04f8cSWim Van Sebroeck 455*b7e04f8cSWim Van Sebroeck /** 456*b7e04f8cSWim Van Sebroeck * wdt_temp_release: 457*b7e04f8cSWim Van Sebroeck * @inode: inode to board 458*b7e04f8cSWim Van Sebroeck * @file: file handle to board 459*b7e04f8cSWim Van Sebroeck * 460*b7e04f8cSWim Van Sebroeck * The temperature device has been closed. 461*b7e04f8cSWim Van Sebroeck */ 462*b7e04f8cSWim Van Sebroeck 463*b7e04f8cSWim Van Sebroeck static int wdt_temp_release(struct inode *inode, struct file *file) 464*b7e04f8cSWim Van Sebroeck { 465*b7e04f8cSWim Van Sebroeck return 0; 466*b7e04f8cSWim Van Sebroeck } 467*b7e04f8cSWim Van Sebroeck #endif /* CONFIG_WDT_501 */ 468*b7e04f8cSWim Van Sebroeck 469*b7e04f8cSWim Van Sebroeck /** 470*b7e04f8cSWim Van Sebroeck * notify_sys: 471*b7e04f8cSWim Van Sebroeck * @this: our notifier block 472*b7e04f8cSWim Van Sebroeck * @code: the event being reported 473*b7e04f8cSWim Van Sebroeck * @unused: unused 474*b7e04f8cSWim Van Sebroeck * 475*b7e04f8cSWim Van Sebroeck * Our notifier is called on system shutdowns. We want to turn the card 476*b7e04f8cSWim Van Sebroeck * off at reboot otherwise the machine will reboot again during memory 477*b7e04f8cSWim Van Sebroeck * test or worse yet during the following fsck. This would suck, in fact 478*b7e04f8cSWim Van Sebroeck * trust me - if it happens it does suck. 479*b7e04f8cSWim Van Sebroeck */ 480*b7e04f8cSWim Van Sebroeck 481*b7e04f8cSWim Van Sebroeck static int wdt_notify_sys(struct notifier_block *this, unsigned long code, 482*b7e04f8cSWim Van Sebroeck void *unused) 483*b7e04f8cSWim Van Sebroeck { 484*b7e04f8cSWim Van Sebroeck if(code==SYS_DOWN || code==SYS_HALT) { 485*b7e04f8cSWim Van Sebroeck /* Turn the card off */ 486*b7e04f8cSWim Van Sebroeck wdt_stop(); 487*b7e04f8cSWim Van Sebroeck } 488*b7e04f8cSWim Van Sebroeck return NOTIFY_DONE; 489*b7e04f8cSWim Van Sebroeck } 490*b7e04f8cSWim Van Sebroeck 491*b7e04f8cSWim Van Sebroeck /* 492*b7e04f8cSWim Van Sebroeck * Kernel Interfaces 493*b7e04f8cSWim Van Sebroeck */ 494*b7e04f8cSWim Van Sebroeck 495*b7e04f8cSWim Van Sebroeck 496*b7e04f8cSWim Van Sebroeck static const struct file_operations wdt_fops = { 497*b7e04f8cSWim Van Sebroeck .owner = THIS_MODULE, 498*b7e04f8cSWim Van Sebroeck .llseek = no_llseek, 499*b7e04f8cSWim Van Sebroeck .write = wdt_write, 500*b7e04f8cSWim Van Sebroeck .ioctl = wdt_ioctl, 501*b7e04f8cSWim Van Sebroeck .open = wdt_open, 502*b7e04f8cSWim Van Sebroeck .release = wdt_release, 503*b7e04f8cSWim Van Sebroeck }; 504*b7e04f8cSWim Van Sebroeck 505*b7e04f8cSWim Van Sebroeck static struct miscdevice wdt_miscdev = { 506*b7e04f8cSWim Van Sebroeck .minor = WATCHDOG_MINOR, 507*b7e04f8cSWim Van Sebroeck .name = "watchdog", 508*b7e04f8cSWim Van Sebroeck .fops = &wdt_fops, 509*b7e04f8cSWim Van Sebroeck }; 510*b7e04f8cSWim Van Sebroeck 511*b7e04f8cSWim Van Sebroeck #ifdef CONFIG_WDT_501 512*b7e04f8cSWim Van Sebroeck static const struct file_operations wdt_temp_fops = { 513*b7e04f8cSWim Van Sebroeck .owner = THIS_MODULE, 514*b7e04f8cSWim Van Sebroeck .llseek = no_llseek, 515*b7e04f8cSWim Van Sebroeck .read = wdt_temp_read, 516*b7e04f8cSWim Van Sebroeck .open = wdt_temp_open, 517*b7e04f8cSWim Van Sebroeck .release = wdt_temp_release, 518*b7e04f8cSWim Van Sebroeck }; 519*b7e04f8cSWim Van Sebroeck 520*b7e04f8cSWim Van Sebroeck static struct miscdevice temp_miscdev = { 521*b7e04f8cSWim Van Sebroeck .minor = TEMP_MINOR, 522*b7e04f8cSWim Van Sebroeck .name = "temperature", 523*b7e04f8cSWim Van Sebroeck .fops = &wdt_temp_fops, 524*b7e04f8cSWim Van Sebroeck }; 525*b7e04f8cSWim Van Sebroeck #endif /* CONFIG_WDT_501 */ 526*b7e04f8cSWim Van Sebroeck 527*b7e04f8cSWim Van Sebroeck /* 528*b7e04f8cSWim Van Sebroeck * The WDT card needs to learn about soft shutdowns in order to 529*b7e04f8cSWim Van Sebroeck * turn the timebomb registers off. 530*b7e04f8cSWim Van Sebroeck */ 531*b7e04f8cSWim Van Sebroeck 532*b7e04f8cSWim Van Sebroeck static struct notifier_block wdt_notifier = { 533*b7e04f8cSWim Van Sebroeck .notifier_call = wdt_notify_sys, 534*b7e04f8cSWim Van Sebroeck }; 535*b7e04f8cSWim Van Sebroeck 536*b7e04f8cSWim Van Sebroeck /** 537*b7e04f8cSWim Van Sebroeck * cleanup_module: 538*b7e04f8cSWim Van Sebroeck * 539*b7e04f8cSWim Van Sebroeck * Unload the watchdog. You cannot do this with any file handles open. 540*b7e04f8cSWim Van Sebroeck * If your watchdog is set to continue ticking on close and you unload 541*b7e04f8cSWim Van Sebroeck * it, well it keeps ticking. We won't get the interrupt but the board 542*b7e04f8cSWim Van Sebroeck * will not touch PC memory so all is fine. You just have to load a new 543*b7e04f8cSWim Van Sebroeck * module in 60 seconds or reboot. 544*b7e04f8cSWim Van Sebroeck */ 545*b7e04f8cSWim Van Sebroeck 546*b7e04f8cSWim Van Sebroeck static void __exit wdt_exit(void) 547*b7e04f8cSWim Van Sebroeck { 548*b7e04f8cSWim Van Sebroeck misc_deregister(&wdt_miscdev); 549*b7e04f8cSWim Van Sebroeck #ifdef CONFIG_WDT_501 550*b7e04f8cSWim Van Sebroeck misc_deregister(&temp_miscdev); 551*b7e04f8cSWim Van Sebroeck #endif /* CONFIG_WDT_501 */ 552*b7e04f8cSWim Van Sebroeck unregister_reboot_notifier(&wdt_notifier); 553*b7e04f8cSWim Van Sebroeck free_irq(irq, NULL); 554*b7e04f8cSWim Van Sebroeck release_region(io,8); 555*b7e04f8cSWim Van Sebroeck } 556*b7e04f8cSWim Van Sebroeck 557*b7e04f8cSWim Van Sebroeck /** 558*b7e04f8cSWim Van Sebroeck * wdt_init: 559*b7e04f8cSWim Van Sebroeck * 560*b7e04f8cSWim Van Sebroeck * Set up the WDT watchdog board. All we have to do is grab the 561*b7e04f8cSWim Van Sebroeck * resources we require and bitch if anyone beat us to them. 562*b7e04f8cSWim Van Sebroeck * The open() function will actually kick the board off. 563*b7e04f8cSWim Van Sebroeck */ 564*b7e04f8cSWim Van Sebroeck 565*b7e04f8cSWim Van Sebroeck static int __init wdt_init(void) 566*b7e04f8cSWim Van Sebroeck { 567*b7e04f8cSWim Van Sebroeck int ret; 568*b7e04f8cSWim Van Sebroeck 569*b7e04f8cSWim Van Sebroeck /* Check that the heartbeat value is within it's range ; if not reset to the default */ 570*b7e04f8cSWim Van Sebroeck if (wdt_set_heartbeat(heartbeat)) { 571*b7e04f8cSWim Van Sebroeck wdt_set_heartbeat(WD_TIMO); 572*b7e04f8cSWim Van Sebroeck printk(KERN_INFO "wdt: heartbeat value must be 0<heartbeat<65536, using %d\n", 573*b7e04f8cSWim Van Sebroeck WD_TIMO); 574*b7e04f8cSWim Van Sebroeck } 575*b7e04f8cSWim Van Sebroeck 576*b7e04f8cSWim Van Sebroeck if (!request_region(io, 8, "wdt501p")) { 577*b7e04f8cSWim Van Sebroeck printk(KERN_ERR "wdt: I/O address 0x%04x already in use\n", io); 578*b7e04f8cSWim Van Sebroeck ret = -EBUSY; 579*b7e04f8cSWim Van Sebroeck goto out; 580*b7e04f8cSWim Van Sebroeck } 581*b7e04f8cSWim Van Sebroeck 582*b7e04f8cSWim Van Sebroeck ret = request_irq(irq, wdt_interrupt, IRQF_DISABLED, "wdt501p", NULL); 583*b7e04f8cSWim Van Sebroeck if(ret) { 584*b7e04f8cSWim Van Sebroeck printk(KERN_ERR "wdt: IRQ %d is not free.\n", irq); 585*b7e04f8cSWim Van Sebroeck goto outreg; 586*b7e04f8cSWim Van Sebroeck } 587*b7e04f8cSWim Van Sebroeck 588*b7e04f8cSWim Van Sebroeck ret = register_reboot_notifier(&wdt_notifier); 589*b7e04f8cSWim Van Sebroeck if(ret) { 590*b7e04f8cSWim Van Sebroeck printk(KERN_ERR "wdt: cannot register reboot notifier (err=%d)\n", ret); 591*b7e04f8cSWim Van Sebroeck goto outirq; 592*b7e04f8cSWim Van Sebroeck } 593*b7e04f8cSWim Van Sebroeck 594*b7e04f8cSWim Van Sebroeck #ifdef CONFIG_WDT_501 595*b7e04f8cSWim Van Sebroeck ret = misc_register(&temp_miscdev); 596*b7e04f8cSWim Van Sebroeck if (ret) { 597*b7e04f8cSWim Van Sebroeck printk(KERN_ERR "wdt: cannot register miscdev on minor=%d (err=%d)\n", 598*b7e04f8cSWim Van Sebroeck TEMP_MINOR, ret); 599*b7e04f8cSWim Van Sebroeck goto outrbt; 600*b7e04f8cSWim Van Sebroeck } 601*b7e04f8cSWim Van Sebroeck #endif /* CONFIG_WDT_501 */ 602*b7e04f8cSWim Van Sebroeck 603*b7e04f8cSWim Van Sebroeck ret = misc_register(&wdt_miscdev); 604*b7e04f8cSWim Van Sebroeck if (ret) { 605*b7e04f8cSWim Van Sebroeck printk(KERN_ERR "wdt: cannot register miscdev on minor=%d (err=%d)\n", 606*b7e04f8cSWim Van Sebroeck WATCHDOG_MINOR, ret); 607*b7e04f8cSWim Van Sebroeck goto outmisc; 608*b7e04f8cSWim Van Sebroeck } 609*b7e04f8cSWim Van Sebroeck 610*b7e04f8cSWim Van Sebroeck ret = 0; 611*b7e04f8cSWim Van Sebroeck printk(KERN_INFO "WDT500/501-P driver 0.10 at 0x%04x (Interrupt %d). heartbeat=%d sec (nowayout=%d)\n", 612*b7e04f8cSWim Van Sebroeck io, irq, heartbeat, nowayout); 613*b7e04f8cSWim Van Sebroeck #ifdef CONFIG_WDT_501 614*b7e04f8cSWim Van Sebroeck printk(KERN_INFO "wdt: Fan Tachometer is %s\n", (tachometer ? "Enabled" : "Disabled")); 615*b7e04f8cSWim Van Sebroeck #endif /* CONFIG_WDT_501 */ 616*b7e04f8cSWim Van Sebroeck 617*b7e04f8cSWim Van Sebroeck out: 618*b7e04f8cSWim Van Sebroeck return ret; 619*b7e04f8cSWim Van Sebroeck 620*b7e04f8cSWim Van Sebroeck outmisc: 621*b7e04f8cSWim Van Sebroeck #ifdef CONFIG_WDT_501 622*b7e04f8cSWim Van Sebroeck misc_deregister(&temp_miscdev); 623*b7e04f8cSWim Van Sebroeck outrbt: 624*b7e04f8cSWim Van Sebroeck #endif /* CONFIG_WDT_501 */ 625*b7e04f8cSWim Van Sebroeck unregister_reboot_notifier(&wdt_notifier); 626*b7e04f8cSWim Van Sebroeck outirq: 627*b7e04f8cSWim Van Sebroeck free_irq(irq, NULL); 628*b7e04f8cSWim Van Sebroeck outreg: 629*b7e04f8cSWim Van Sebroeck release_region(io,8); 630*b7e04f8cSWim Van Sebroeck goto out; 631*b7e04f8cSWim Van Sebroeck } 632*b7e04f8cSWim Van Sebroeck 633*b7e04f8cSWim Van Sebroeck module_init(wdt_init); 634*b7e04f8cSWim Van Sebroeck module_exit(wdt_exit); 635*b7e04f8cSWim Van Sebroeck 636*b7e04f8cSWim Van Sebroeck MODULE_AUTHOR("Alan Cox"); 637*b7e04f8cSWim Van Sebroeck MODULE_DESCRIPTION("Driver for ISA ICS watchdog cards (WDT500/501)"); 638*b7e04f8cSWim Van Sebroeck MODULE_ALIAS_MISCDEV(WATCHDOG_MINOR); 639*b7e04f8cSWim Van Sebroeck MODULE_ALIAS_MISCDEV(TEMP_MINOR); 640*b7e04f8cSWim Van Sebroeck MODULE_LICENSE("GPL"); 641