チェンジセット 58: trunk/install/perl
- コミット日時:
- 2007/06/07 00:34:11 (17 年前)
- ファイル:
凡例:
- 変更無し
- 追加
- 削除
- 更新
- コピー
- 移動
trunk/install/perl/getxml2db.pl
r21 r58 52 52 53 53 $dbh = DBI->connect($data_source,$DBUser,$DBPass) ||die $DBI::error;; 54 55 $dbh->{AutoCommit} = 0; 54 56 55 57 my ($content) = get("$uri"); … … 127 129 $nomalstarttime = substr($sttime,8,4); 128 130 $DBQuery = "insert into foltia_program values ($item{TID},$programtitle,'','$nomalstarttime','$length','','','3','1','')"; 129 $sth = $dbh->prepare($DBQuery); 130 $sth->execute(); 131 # $sth = $dbh->prepare($DBQuery); 132 # $sth->execute(); 133 $oserr = $dbh->do($DBQuery); 131 134 &writelog("getxml2db ADD TV Progtam:$item{TID}:$programtitle"); 132 135 … … 143 146 if ($titlearray[0] ne "$programtitlename" ){ 144 147 $DBQuery = "UPDATE foltia_program SET title = $programtitle where tid = '$item{TID}' "; 145 $sth = $dbh->prepare($DBQuery); 146 $sth->execute(); 148 # $sth = $dbh->prepare($DBQuery); 149 # $sth->execute(); 150 $oserr = $dbh->do($DBQuery); 147 151 &writelog("getxml2db UPDATE TV Progtam:$item{TID}:$programtitle"); 148 152 }#end if update … … 184 188 WHERE tid = '$item{TID}' AND pid = '$item{PID}' "; 185 189 } 186 $sth = $dbh->prepare($DBQuery); 187 $sth->execute(); 188 # @subtitledata= $sth->fetchrow_array; 190 # $sth = $dbh->prepare($DBQuery); 191 # $sth->execute(); 192 $oserr = $dbh->do($DBQuery); 193 189 194 }else{ 190 195 #なければ追加 … … 197 202 $DBQuery = "insert into foltia_subtitle values ( '$item{PID}','$item{TID}','$stationid','$item{Count}',$programSubTitle,'$recstartdate','$recenddate','$offsetmin' ,'$length')"; 198 203 } 199 $sth = $dbh->prepare($DBQuery); 200 $sth->execute(); 201 # @subtitledata= $sth->fetchrow_array; 204 # $sth = $dbh->prepare($DBQuery); 205 # $sth->execute(); 206 $oserr = $dbh->do($DBQuery); 207 202 208 } 203 209 … … 211 217 }#foreach 212 218 219 $oserr = $dbh->commit; 213 220 214 221 ## $dbh->disconnect();
