proc nfo:announce {type rls filename unxtim} { global nfo ttl apache NFOs if {$type == "sitenfo"} { set randomurl [randomRangeString 25] if {![file exists index.html]} { set fp [open index.html a+] puts $fp "

What are you looking for?

" close $fp } file mkdir $apache(web)/$randomurl if {![file exists $apache(web)/index.html]} { file copy index.html $apache(web) } set year [clock format $unxtim -format "%Y"] set month [clock format $unxtim -format "%m"] set day [clock format $unxtim -format "%d"] file copy index.html $apache(web)/$randomurl/index.html file copy $NFOs/$year/$month/$day/$rls/$filename $apache(web)/$randomurl/$filename timer $apache(ttl) "file delete $apache(web)/$randomurl/$filename" timer $apache(ttl) "file delete $apache(web)/$randomurl/index.html" timer $apache(ttl) "file delete -force -- $apache(web)/$randomurl" foreach i [split $nfo(.nfo)] { if {[channel get $i nfosource]} {putquick "PRIVMSG $i :!addnfo $rls http://$apache(host)/nfos/$randomurl/$filename $filename"} } } elseif {$type == "sitem3u"} { set randomurl [randomRangeString 25] if {![file exists index.html]} { set fp [open index.html a+] puts $fp "

What are you looking for?

" close $fp } file mkdir $apache(web)/$randomurl if {![file exists $apache(web)/index.html]} { file copy index.html $apache(web) } set year [clock format $unxtim -format "%Y"] set month [clock format $unxtim -format "%m"] set day [clock format $unxtim -format "%d"] file copy index.html $apache(web)/$randomurl/index.html file copy $NFOs/$year/$month/$day/$rls/$filename $apache(web)/$randomurl/$filename timer $apache(ttl) "file delete $apache(web)/$randomurl/$filename" timer $apache(ttl) "file delete $apache(web)/$randomurl/index.html" timer $apache(ttl) "file delete -force -- $apache(web)/$randomurl" foreach i [split $nfo(.m3u)] { if {[channel get $i m3usource]} { putquick "PRIVMSG $i :!addm3u $rls http://$apache(host)/nfos/$randomurl/$filename $filename" } } } }