//gcc bug30201.c -Wall -g -o bug30201 -L/home/sbester/server/5.0/mysql-5.0.48-linux-i686/lib -I/home/sbester/server/5.0/mysql-5.0.48-linux-i686/include   -lmysqlclient_r -lz -lpthread

/*This is generated code!*/

/*section: includes*/
#include <stdio.h>
#include <stdlib.h>
#include <time.h>
#include <mysql.h>
#include <pthread.h>

#define TESTTIME (3000)

#define NUMTHREADS (10)


/*section: globals*/
char host[]="127.0.0.1";
char username[]="root";
char password[]="";
char database[]="test";
int port=3306;
pthread_t pthreads[NUMTHREADS];
int threaddone=0;

/*section: function declarations*/
void *worker_thread(void *arg);
MYSQL *db_connect(MYSQL *dbc);


/*section: functions*/
int db_query(MYSQL *dbc,char *sql,int showresults)
{
	int res=0;
	MYSQL_RES *r=NULL;
	MYSQL_ROW w;
	MYSQL_FIELD *field=NULL;
	int i=0,moreresult=0;
	if(NULL == dbc) return 0;
	res = mysql_query(dbc,sql);
	if(res != 0 && showresults > 0)
	{
		printf("query failed '%s' : %d (%s)\n",sql,mysql_errno(dbc),mysql_error(dbc));
		return 0;
	}

	do
	{
		r = mysql_store_result(dbc);
		if(r)
		{
			unsigned int numfields = mysql_num_fields(r);
			//unsigned int numrows=mysql_num_rows(r);
			while(0!=(field = mysql_fetch_field(r)))
			{
					//print metadata information about each field
					if(showresults > 1)
					{
						printf("%s	",field->name);
					}
			}
			if(showresults > 1)
			{
				printf("\n------------------------------------\n");
			}

			while (0!=(w = mysql_fetch_row(r)))
			{
				for(i = 0; i < numfields; i++)
				{
					//print each field here
					if(showresults > 1)
					{
						printf("%s\t",w[i]);
					}
				}

				if(showresults > 1)
				{
						printf("\n");
				}
			}
			if(showresults > 1)
			{
				printf("\n");
			}
			mysql_free_result(r);
		}
		else //no rows returned. was it a select?
		{
			if(mysql_field_count(dbc) > 0 && showresults > 0)
			{
				printf("No results for '%s'.  (%d) - %s\n",sql,mysql_errno(dbc),mysql_error(dbc));
				return 0;
			}
			else //it could have been some insert/update/delete
			{
				//this is successful query
			}
		}
		moreresult=mysql_next_result(dbc);
		if(moreresult > 0 && showresults > 0)
		{
			printf("mysql_next_result returned %d, mysql error %s, (%d)\n",moreresult,mysql_error(dbc),mysql_errno(dbc));
			break;
		}
	} while (0==moreresult);
	return 1;
}


void *killer_thread(void *arg)
{
        MYSQL *dbc=NULL;
        int res=0;
	MYSQL_RES *r=NULL;
	MYSQL_ROW w;
	int moreresult=0;
        my_bool auto_reconnect=1;
        char shortquery[1024];
        
        
	if (!(dbc = mysql_init(NULL)))
	{
		printf("mysql_init\n");
		dbc=NULL;
		goto threadexit;
	}
	else
	{
		mysql_options(dbc,MYSQL_OPT_RECONNECT,(char*)&auto_reconnect);
		if (!mysql_real_connect(dbc,host,username,password,database,port, NULL, CLIENT_FOUND_ROWS|CLIENT_MULTI_STATEMENTS|CLIENT_MULTI_RESULTS))
		{
			printf("mysql_real_connect failed: %s (%d)", mysql_error(dbc),mysql_errno(dbc));
			dbc=NULL;
		}
	}

        while(!threaddone)
        {
                res = mysql_query(dbc,"show processlist");  
                if(res != 0)
	        {
		        printf("can't get processlist. server died!!!1 %d (%s)\n",mysql_errno(dbc),mysql_error(dbc));
		        //goto threadexit;
	        }

	        do
	        {
		        r = mysql_store_result(dbc);
		        if(r)
		        {
			        unsigned int numrows=mysql_num_rows(r);
			        if(numrows == 1)
			        {
			                printf("killer thread is waiting...\n");
			                sleep(1);                
			        }
			        while ((w = mysql_fetch_row(r)))
			        {
                                        if(dbc->thread_id == atoi(w[0]))
                                                continue; //we don't kill ourselves
                                                
                                                                                        
                                        if(lrand48()%3 == 0)
                                        {
                                             sprintf(shortquery,"kill %s",w[0]);
                                             mysql_query(dbc,shortquery);
                                        }
			                
			        }
			}
			else
			{
			        printf("error processing processlist results...\n");
			        sleep(1);    
			        goto threadexit;   
			}
	                moreresult=mysql_next_result(dbc);
		        if(moreresult > 0)
		        {
			        printf("mysql_next_result returned %d, mysql error %s, (%d)\n",moreresult,mysql_error(dbc),mysql_errno(dbc));
			        goto threadexit;
		        }
	        } while (0==moreresult);
	        mysql_free_result(r);
        }
        


        
threadexit:
	mysql_close(dbc);
	mysql_thread_end();
	pthread_exit(0);
}


void *worker_thread(void *arg)
{
	MYSQL *dbc=NULL;
	int cancelstate=0;
	pthread_setcancelstate(PTHREAD_CANCEL_DISABLE,&cancelstate);
	my_bool auto_reconnect=1;

	if (!(dbc = mysql_init(NULL)))
	{
		printf("mysql_init failed\n");
		dbc=NULL;
		goto threadexit;
	}
	else
	{
		mysql_options(dbc,MYSQL_OPT_RECONNECT,(char*)&auto_reconnect);
		if (!mysql_real_connect(dbc,host,username,password,database,port, NULL, CLIENT_FOUND_ROWS|CLIENT_MULTI_STATEMENTS|CLIENT_MULTI_RESULTS))
		{
			printf("mysql_real_connect failed: %s (%d)", mysql_error(dbc),mysql_errno(dbc));
			dbc=NULL;
		}
	}

	unsigned int counter=0;
	char shortquery[1024]={0};
        char *c=NULL;
	while(!threaddone && dbc!=NULL)
	{
	        c=shortquery;
		c+=sprintf(c,"%s","insert into t1 values(1)");
		db_query(dbc,shortquery,1);

		for(counter=0;counter<5;counter++)
		{
			c=shortquery;
			c+=sprintf(c,"%s","select id from t1 where id=");
			c+=sprintf(c,"%d",(int)(-128 + (lrand48()%255)));
			db_query(dbc,shortquery,1);
		}
	}
threadexit:
	mysql_close(dbc);
	mysql_thread_end();
	pthread_exit(0);
}


int main(int argc, const char *argv[])
{
	MYSQL *dbc=NULL;
	int i=0,err=0;

	srand48((unsigned long)time(NULL));
	time_t timestart=0,timenow=0;

	
	char shortquery[1024]={0};

	char *c=NULL;
	my_init();
	if (!(dbc = mysql_init(NULL)))
	{
		printf("mysql_init\n");
		dbc=NULL;
		goto threadexit;
	}
	else
	{
		if (!mysql_real_connect(dbc,host,username,password,database,port, NULL, CLIENT_FOUND_ROWS|CLIENT_MULTI_STATEMENTS|CLIENT_MULTI_RESULTS))
		{
			printf("mysql_real_connect failed: %s (%d)", mysql_error(dbc),mysql_errno(dbc));
			dbc=NULL;
			goto threadexit;
		}
	}

	printf("running initializations..\n");
	
	c=shortquery;
	c+=sprintf(c,"%s","set global query_cache_size=100*1024*1024");
	db_query(dbc,shortquery,1);

	c=shortquery;
	c+=sprintf(c,"%s","set global query_cache_type=1");
	db_query(dbc,shortquery,1);

	c=shortquery;
	c+=sprintf(c,"%s","drop table if exists t1");
	db_query(dbc,shortquery,1);

	c=shortquery;
	c+=sprintf(c,"%s","create table t1(id tinyint,key(id))");
	db_query(dbc,shortquery,1);

	mysql_close(dbc);

	printf("about to spawn %d threads\n",NUMTHREADS);
	for (i=0;i<NUMTHREADS;i++)
	{
		err=pthread_create(&pthreads[i], NULL, worker_thread, (void *)i);
		if(err!=0)
		{
			printf("error spawning thread %lu, pthread_create returned %lu\n",(unsigned long)i,(unsigned long)err);
		}
	        printf(".");
	}
	printf("\n");
	printf("\n");
	printf("completed spawning new database worker threads .. running them for 10 seconds...\n");
        sleep(10);
        printf("now about to spawn the killer thread...\n");
        pthread_t killer;
        err=pthread_create(&killer,NULL,killer_thread,NULL);
        if(err!=0)
	{
	        printf("error spawning killer thread, pthread_create returned %lu\n",(unsigned long)err);
	}


	printf("testcase is now running, so watch for error output\n");

	timestart=time(NULL);
	timenow=time(NULL);
	for(i=0;(timenow-timestart) < TESTTIME;timenow=time(NULL))
	{
		sleep(1);
	}
	threaddone=1;

	printf("waiting for worker threads to finish...\n");

	for (i=0;i<NUMTHREADS;i++)
	{
		pthread_join(pthreads[i], NULL);
	}
	pthread_join(killer,NULL);

	exit(0);
threadexit:
	exit(-1);
}