Please Help........ - 26/06/04 01:23 AM
i coded my own packetnews.com "bot" so to say...
i'm having problems removing old (over 48hrs) items "packs"
it seems to work, but then it leaves sum items that are 6days to 3 weeks old in the database... please help...
Thanxz in advance for any help givin.
i'm having problems removing old (over 48hrs) items "packs"
it seems to work, but then it leaves sum items that are 6days to 3 weeks old in the database... please help...
Code:
alias update_packs { set %bak.hash_t $hget(0) set %bak.count_hash 1 set %bak.tot_rem 0 set %bak.up_ctime $ctime one--- :end } alias one--- { set %bak.find_many 0 set %bak.start- 1 set %bak.tot_many %bak.hash_t set %bak.total_packs 0 while (%bak.start- <= %bak.tot_many) { if ( $readini(nojoin.ini, nojoin, $gettok( $hget(%bak.start-) ,2,46) ) = no) { inc %bak.find_many } inc %bak.start- } var %bak.time_finish = $duration( $round($calc( %bak.hash_t * 3 ),0) ) msg %chan_s 8Beginning Updateing Pack Database And will take approx9 %bak.time_finish 8To Update...... two--- } alias two--- { if (%bak.count_hash <= %bak.hash_t) { if ( $readini(nojoin.ini, nojoin, $gettok( $hget(%bak.count_hash) ,2,46) ) = no) { goto hereinc } if ( $gettok( $hget(%bak.count_hash) ,1,46) = packs) { set %bak.items.p $hfind( $hget(%bak.count_hash) , * , 0 , w ) set %bak.this_pack 1 set %bak.removed 0 set %bak.this_ctime $ctime .msg %chan_s 8Now updating Pack Database For9 $gettok( $hget(%bak.count_hash) ,2,46) while (%bak.this_pack <= %bak.items.p) { if ( $calc( $ctime - $gettok( $hget( $hget(%bak.count_hash) , %bak.this_pack ).data , 4 , 32) ) > 172800) && ( $hget( $hget(%bak.count_hash) , %bak.this_pack ).item != $null ) { hdel $hget(%bak.count_hash) $hget( $hget(%bak.count_hash) , %bak.this_pack ).item inc %bak.removed inc %bak.tot_rem } inc %bak.total_packs inc %bak.this_pack } .msg %chan_s 8Finished Updating Pack Database For9 $gettok( $hget(%bak.count_hash) ,2,46) 8Removed a total of9 %bak.removed 8Packs Out Of9 %bak.items.p 8That were 48hrs old and took9 $duration($calc( $ctime - %bak.this_ctime )) 8To Update. :hereinc inc %bak.count_hash } } if (%bak.count_hash > %bak.hash_t) { .msg %chan_s 8Finished updating pack Database... removed a total of9 %bak.tot_rem 8Packs Out Of9 %bak.total_packs 8From the database and took9 $duration($calc( $ctime - %bak.up_ctime )) 8To Update. Next Update Will Begin At Approx.9 $time( $calc( $ctime + 18000 ) ,hh:nn tt) -pst .timerupdate $time( $calc( $ctime + 18000 ) ,hh:nn.tt) 1 1 update_packs unset %bak.* sv_hash halt } :end .timertwo--- 1 2 two--- } alias sv_hash { var %i = 1 while ($hget(%i)) { hsave -o $hget(%i) $mircdirPack_Search\ $+ $replace($hget(%i),|,$chr(44)) $+ .txt echo -a Saved $replace($hget(%i),|,$chr(44)) Pack Database inc %i } }
Thanxz in advance for any help givin.