#!/usr/local/bin/perl -w # This is a query and change of data in DB use DBI; use CGI; $database = '***'; $hostname = '***'; $user = '***'; $password = '***'; $ss=''; $query = new CGI; print $query->header; $TITLE="Change Example"; $path_info = $query->path_info; # If no path information is provided, then we create # a side-by-side frame set if (!$path_info) { &print_frameset; exit 0; } #Start HTML page &print_html_header; &print_query if $path_info=~/query/; &print_response if $path_info=~/response/; &print_end; exit; #------------------------------------------- # Subroutines #------------------------------------------- sub print_html_header { print $query->start_html($TITLE); } #-------------------------------------------- sub print_end { print $query->end_html; } #-------------------------------------------- sub print_frameset { $script_name = $query->script_name; print <$TITLE EOF ; exit 0; } #----------------------------------------------- sub print_query { $script_name = $query->script_name; print "

Change

\n"; print $query->startform(-action=>"$script_name/response",-TARGET=>"response"); print "

What would like to change? ", $query->popup_menu(-name=>'keyword', -values=>['coordinates','texture', 'text.coord']), "

"; print $query->submit; print $query->endform; print qq{

back}; } #-------------------------------------------------- sub print_response { print "

Values

\n"; unless ($query->param) { print "No query submitted yet."; return; } print "

Old ", $query->param('keyword'),":"; if (($query->param('keyword')) eq 'coordinates') { #Query database--1------------------------------------------------ $dbh = DBI->connect ("DBI:mysql:$database:$hostname", $user,$password); #-------------------------------comob_surface-------------------------- $sth = $dbh->prepare("select fid,nid,xc,yc,zc from surfg,face,node where sidg=15 and enoseqs=1 and fids=fid and nidf=nid"); $sth->execute; $num=0; #print "
"; while ( @field = $sth->fetchrow) { @all[$num]=[@field]; $num++; } $sth->finish; $dbh->disconnect; #Query database END--1------------------------------------------- #---printing coordinates------------------------ print "
"; $k=0; while ($k<$num) { $j=1; while ($j<5) { print "$all[$k]->[$j++] "; } $k++; print "
"; } #--------END printing------------------------------------- print "
New coordinates (nid,x,y,z):
"; # # print $query->startform(-TARGET=>"response"); print $query->textfield(-name=>'nid', -default=>$all[0]->[1], -size=>10, -maxlength=>60); print $query->textfield(-name=>'x', -default=>$all[0]->[2], -size=>10, -maxlength=>60); print $query->textfield(-name=>'y', -default=>$all[0]->[3], -size=>10, -maxlength=>60); print $query->textfield(-name=>'z', -default=>$all[0]->[4], -size=>10, -maxlength=>60); print $query->submit (' Submit xyz '); print $query->endform; } elsif (($query->param('keyword')) eq 'texture') { #Query database--4----------------------------------------------- $dbh = DBI->connect ("DBI:mysql:$database:$hostname", $user,$password); $sth = $dbh->prepare("select tname from texta where tid=2"); $sth->execute; $name_texture = $sth->fetchrow; $sth->finish; $dbh->disconnect; #Query database END--4------------------------------------------- print qq{

See the old}; print "

New texture:
"; print $query->startform(-TARGET=>"response"); print $query->textfield(-name=>'filename', -default=>$name_texture, -size=>18, -maxlength=>90); print $query->submit ('Submit filename'); print $query->endform; print qq{

image files available on the server:

}; print qq{

itc1a.jpg, itc2.jpg, itc3a.jpg, itc5a.jpg, Stone2.jpg, Stonewal.jpg

} } #-------------text.coord ------------------------------------------- elsif (($query->param(keyword)) eq 'text.coord') { #Query database for texture coordinates ---------------------------- $dbh = DBI->connect ("DBI:mysql:$database:$hostname", $user,$password); $sth = $dbh->prepare("select * from textg where tidg=2"); $sth->execute; $num_texture_coord=0; #print "
"; while ( @field = $sth->fetchrow) { $texture_coord[$num_texture_coord]=[@field]; $num_texture_coord++; } print "
"; $sth->finish; $dbh->disconnect; #Query database END--1------------------------------------------- #---printing texture coordinates------------------------ $k=0; while ($k<$num_texture_coord) { $j=0; while ($j<4) { print "$texture_coord[$k]->[$j++] "; } $k++; print "
"; } #--------END printing------------------------------------- print "
New texture coordinates (tidg,enoseq,xt,yt):
"; # # print $query->startform(-TARGET=>"response"); print $query->textfield(-name=>'tidg', -default=>$texture_coord[0]->[0], -size=>10, -maxlength=>60); print $query->textfield(-name=>'enoseq', -default=>$texture_coord[0]->[1], -size=>10, -maxlength=>60); print $query->textfield(-name=>'xt', -default=>$texture_coord[0]->[2], -size=>10, -maxlength=>60); print $query->textfield(-name=>'yt', -default=>$texture_coord[0]->[3], -size=>10, -maxlength=>60); print "
"; print $query->submit (' Submit xy '); print $query->endform; } #--------------text.coord END--------------------------------------- elsif (($query->param('filename')) ne '') { $dbh = DBI->connect ("DBI:mysql:$database:$hostname", $user, $password); $file_name=$query->param('filename'); $sth = $dbh->prepare("replace into texta (tid, tname) values (2,'$file_name')"); $sth->execute; $sth->finish; $dbh->disconnect; print "
Texture coordinates done"; print qq {

See the changes}; } elsif (($query->param('tidg')) ne '') { $tidg=$query->param('tidg'); $enoseq=$query->param('enoseq'); $xt=$query->param('xt'); $yt=$query->param('yt'); $dbh = DBI->connect ("DBI:mysql:$database:$hostname", $user,$password); $sth = $dbh->prepare("update textg set xt=$xt,yt=$yt where tidg=$tidg and enoseqt=$enoseq"); $sth->execute; $sth->finish; $dbh->disconnect; print "
Coordinates changed"; print qq {

See the changes}; } else { $nid=$query->param('nid'); $x=$query->param('x'); $y=$query->param('y'); $z=$query->param('z'); $dbh = DBI->connect ("DBI:mysql:$database:$hostname", $user,$password); $sth = $dbh->prepare("replace into node (nid, xc,yc,zc) values ($nid,$x,$y,$z)"); $sth->execute; $sth->finish; $dbh->disconnect; print "
Coordinates changed"; print qq {

See the changes}; #Query database END--3------------------------------------------- } }