- /*    Copyright (C) 1998-2003 XIAO, Gang of Universite de Nice - Sophia Antipolis 
-  * 
-  *  This program is free software; you can redistribute it and/or modify 
-  *  it under the terms of the GNU General Public License as published by 
-  *  the Free Software Foundation; either version 2 of the License, or 
-  *  (at your option) any later version. 
-  * 
-  *  This program is distributed in the hope that it will be useful, 
-  *  but WITHOUT ANY WARRANTY; without even the implied warranty of 
-  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the 
-  *  GNU General Public License for more details. 
-  * 
-  *  You should have received a copy of the GNU General Public License 
-  *  along with this program; if not, write to the Free Software 
-  *  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. 
-  */ 
-   
-         /* Only miscellaneous cleanup routines remain. 
-          * The regular session cleaner has been moved to wimslogd. */ 
-   
- void cleantmpdir(void) 
- { 
-     char buf[MAX_LINELEN+1], *p1, *p2; 
-      
-     accessfile(buf,"r","%s/exec.pid",tmp_dir); 
-     for(p1=find_word_start(buf); *p1; p1=find_word_start(p2)) { 
-         p2=find_word_end(p1); if(*p2) *p2++=0; 
-     } 
-     if(strstr(- tmp_dir ,"sessions/")!=- NULL  &&
 
-        (strstr(- tmp_debug ,"yes")==- NULL  ||-  checkhost (- manager_site )<1)) {
 
-         if(remove_tree(tmp_dir)) { 
-             call_ssh("bin/ch..root cleantmpdir 2>/dev/null"); 
-             remove_tree(tmp_dir); 
-         } 
-     } 
-     else { 
-         mkfname(buf,"%s/exec.pid",tmp_dir); 
-         unlink(buf); 
-         if(strstr(- tmp_dir ,"sessions/")!=- NULL ) {
 
-             chmod(tmp_dir,S_IRUSR|S_IWUSR|S_IXUSR); 
-         } 
-     } 
- } 
-   
-         /* remove pid tag */ 
- void delete_pid(void) 
- { 
-     char buf[MAX_FNAME+1],pbuf[32]; 
-   
-     flushlog(); flushoutput(); 
-     if(robot_access || *session_prefix==0) return; 
-     cleantmpdir(); 
-     mkfname(buf,"%s/.pid",s2_prefix); 
-     readfile(buf,pbuf,sizeof(pbuf)); 
-     if(- pbuf [0] && strcmp(- pbuf ,- pidbuf )==0)-  unlink (- buf );
 
-     flushlog(); 
- } 
-   
-