"&$thread_title&"

', 1, -1)-1) $thread_contents = StringReplace($thread_contents, "http://www.ponychan.net/chan/rp/res/"&$thread_file, "", 0, 2) $thread_contents = StringSplit($thread_contents, @LF, 1) For $x = 1 To $thread_contents[0] If StringInStr($thread_contents[$x], '

', 1) > 0 Then For $x2 = $x To $x +5 $thread_contents[$x2] = "" Next $x = $x + 5 ElseIf $thread_contents[$x] = '' Then For $x2 = $x To $x +19 $thread_contents[$x2] = "" Next $x = $x + 19 ElseIf $thread_contents[$x] = " $thread_size Then Return(0) Else MsgBox(0, "Check_Thread_Size", "That's odd...") EndIf EndFunc ;Sort images without duplicate filenames Func Sort_Images() ;Pull up the list of unsorted thumbnails and respective line numbers in the thread ; 0 - filename | 1 - URL | 2 - line number _SQLite_GetTable2d($database, "SELECT * FROM unsorted;", $us_array, $iRows, $iColumns) ; Go through the unsorted array For $x = 1 To UBound($us_array)-1 $image_file = $us_array[$x][0] $image_URL = $us_array[$x][1] $line_number = $us_array[$x][2] $image_size = FileGetSize("Temp\"&$us_array[$x][0]) $image_hash = _Crypt_HashFile("Temp\"&$us_array[$x][0], $CALG_MD5) If $image_hash = -1 Then MsgBox(0, "Overload", $us_array[$x][0]) Exit EndIf ;Check for MD5 and size matches _SQLite_GetTable2d($database, "SELECT * FROM tb WHERE MD5= '"&$image_hash&"' AND Size = '"&$image_size&"';", $tb_check, $iRows, $iColumns) ;If there's no match If UBound($tb_check) = 1 Then ;Create an index for this template thumbnail, move it to thumbnails folder and update the HTML _SQLite_Exec($database, "INSERT INTO tb (template, filenames, MD5, size) VALUES ('"&$image_file&"', '"&$image_file&"', '"&$image_hash&"', '"&$image_size&"');") FileMove("Temp\"&$image_file, "Pages\Thumbnails\") $thread_contents[$line_number] = StringReplace($thread_contents[$line_number], $image_URL, "Thumbnails\"&$image_file) ;If there is a match ElseIf UBound($tb_check) = 2 Then ;Update the filenames field with the new filename, delete it and update the HTML _SQLite_Exec($database, "UPDATE tb SET filenames = '"&$tb_check[1][1]&","&$image_file&"' WHERE MD5 = '"&$image_hash&"' AND size = '"&$image_size&"';") ;~ FileDelete("Temp\"&$image_file) $thread_contents[$line_number] = StringReplace($thread_contents[$line_number], $image_URL, "Thumbnails\"&$tb_check[1][0]) ; If there's... more than one match, I guess? Else MsgBox(0, "MD5 sorting", "more than one match?") EndIf Next _SQLite_Exec($database, "DELETE FROM unsorted;") EndFunc ;Pause excessive concurrent downloads Func Download($x1, $x2, $x3 = 0, $x4 = 1) ;Delay the adding of another download if there are too many concurrent downloads While UBound($inet) >= 11 Inet_Cleanup() Sleep(1000) WEnd ;Start the download, add the handle to the end of the $inet array _ArrayAdd($inet, InetGet($x1, $x2, $x3, $x4)) EndFunc Func Inet_Cleanup() For $x = UBound($inet)-1 To 1 Step -1 $inet_info = InetGetInfo($inet[$x], -1) ;If the download was complete and successful If $inet_info[2] = True And $inet_info[3] = True Then InetClose($inet[$x]) _ArrayDelete($inet, $x) $x = 1 ;If the download was complete and unsuccessful ElseIf $inet_info[2] = True And $inet_info[3] = False Then ConsoleWriteError("Download error: "&_ArrayToString($inet_info)&@CRLF) InetClose($inet[$x]) _ArrayDelete($inet, $x) $x = 1 EndIf Next EndFunc Func Download_Close() While UBound($inet) > 1 Inet_Cleanup() Sleep(200) WEnd EndFunc ;Dump thread information into the database Func Index_Thread($thread_file) Local $thread_number = StringTrimRight($thread_file, 5), $thread_poster, $thread_time, $thread_title ;Check if the thread has already been indexed _SQLite_GetTable2d($database, "SELECT threadno FROM threads WHERE threadno= '"&$thread_number&"';", $fn_check, $iRows, $iColumns) ;If it has, update the size field for future reference If UBound($fn_check) = 2 Then _SQLite_Exec($database, "UPDATE tb SET size = '"&FileGetSize("Temp\"&$thread_file&"' WHERE threadno = '"&$thread_number&"';")) ElseIf UBound($fn_check) = 1 Then For $x = 1 To UBound($thread_contents)-1 ;~ MsgBox(0, "", $thread_contents[$x]) ;Check for thread title If StringLeft($thread_contents[$x], 24) = '' Then $thread_title = $thread_contents[$x+1] $thread_title = StringReplace($thread_title, "'", "`") ;~ MsgBox(0, "", $thread_title) ;Check for OP name ElseIf StringLeft($thread_contents[$x], 41) = '", 1, 2)) $thread_poster = StringReplace($thread_poster, '', "") $thread_poster = StringTrimRight($thread_poster, 7) $thread_poster = StringReplace($thread_poster, "'", "`") ElseIf StringLeft($thread_contents[$x], 25) = '' Then $thread_poster = StringTrimLeft($thread_contents[$x], StringInStr($thread_contents[$x], ">", 1, 1)) $thread_poster = StringReplace($thread_poster, '', "") $thread_poster = StringTrimRight($thread_poster, 7) $thread_poster = StringReplace($thread_poster, '', "") $thread_poster = StringReplace($thread_poster, "'", "`") ElseIf StringLeft($thread_contents[$x], 23) = '' Then $thread_time = StringTrimLeft($thread_contents[$x], 23) $thread_time = StringTrimRight($thread_time, 7) $thread_size = FileGetSize("Temp\"&$thread_file) _SQLite_Exec($database, "INSERT INTO threads (threadno, poster, title, time, size) VALUES ('"&$thread_number&"', '"&$thread_poster&"', '"&$thread_title&"', '"&$thread_time&"', '"&$thread_size&"');") Return($thread_title) EndIf Next ;For unpredicted stuff Else MsgBox(0, "Huh", "That's not supposed to happen.") EndIf EndFunc