# Welcome To Baby Siter...
# This script is ment for collecting www and ftp sites...
# use it as you will... you can contact me for any reason at..
#      ressu@rai.rauma.fi
#
# this script seems to be quite slow so.. be patient...
#
# version summary:
# 1.0 the first released baby siter... 
# 1.1 some bug fixes and added commands...
# 2.0 Totally rewrote the whole script..
# 2.1 added config file... and some new options & commands
# 2.1.1 Fixed Some fatal bugs!
#
# ok... so by the request of xopy.. i'm finally adding the configurable
# options... the configuration can be found in <bot-home>/bs-files/bs.conf
# edit it as you will... 

bind pub * !status status
bind pub * !site showurl
bind pub * !add addurl
bind pub * !credits creds
bind pub * !help helppi
bind pub * !remove rmurl
bind pub * !all sendall

proc logit { note } {
  putlog "-=BS=- $note"
}

proc msgit { nick message } {
  putmsg $nick "-=BS=- $message"
}

proc addurlfile {} {
  set starturl [open bs-files/urllist w]
  puts $starturl {http://rai.rauma.fi/~ressu/bs/}
  puts $starturl {ZaNaGa}
  set datum [exec date]
  puts $starturl $datum
  puts $starturl {1}
  puts $starturl {ZaNaGa}
  close $starturl
}

proc addconffile {} {
  logit "creating config-file, please edit it to suite your needs!"
  logit "it can be found at <bothome>/bs-files/bs.conf"
  set bcf [open bs-files/bs.conf w]
  puts $bcf {no_anon_add 0}
  puts $bcf {rm_all ,dummy,}
  puts $bcf {verbosity 0}
  puts $bcf {beg_lvl 30}
  puts $bcf {allow_all 1}
  close $bcf
}

proc make_bs_structure {} {
  logit "creating the directory structure & the readme file..."
  exec mkdir bs-files
  set sorsa [open bs-files/readme.uu w]
  puts $sorsa {begin 664 bs-files/README.gz
M'XL("'HCY3,``U)%041-10!U5<MNVS`0O/,K-I<Z"6+ET7.!OM*B0'MI@UX-
MREQ)K"G2)2D;_OO.4E)J&TG@0#8]^^#,[)KH];^/NC[0+YLYTF^.%3U4]TH1
M?5LX1W^&E"EU(69WH,PX.82!<L<4MMD&GR@T1PFJJE*6-C[L@;&)\-I8;S3M
MV49#.9#U:S<8)DT_'S]\_O&X;*QCG)+&JVU-#%M*ZVBW6=5#1KY2;#RAO4[4
M<L[6M\@5J+:M(+0WM`[]UMFUSFPJZ4*%#;[I.*(4_B4)(#V@24(N-:Z"UG'>
M4QNDLP+IM/?LKI2Z2+C/R,^26KOC5&ZNJ9PW,?0EP.BL:YU82EYH8V@.P?LT
MHZ?D,U9=1.[#CD?@^#Z]FED=*;6<46NT&3+5/(4;LLW87V2_R"6!'C)TFRY9
MPM2)[/AN9J:Q$3('+Y^TT.SS`N)EZ?RHQAB!_&>)?$D2^Y60ZFS*0D;';CMW
M_=19+W*4)^TX'JC3T8RD(6;&)8:2<B#=IN(*$G^HBW5D8W,JJ.^H4"IN.6S=
MU'.G0:C41)\]Y"`HF'4>TICY*Q2D,(QQTQ<S,\5;$J&NKZ_1(].GX!O;TA>Q
M)LZ4>BHDB5%S<MS(1`S.^*(`.)++R'/PAL$D3(9T]5AM,F`*/:MI9JI2S(>5
M]L&OQ#5+NJ-W<G,,CAP>^H`&Q5"+=$HVW0-H;'H%.XGPS#O:#K$'/^6R&$=G
MH3*>39`$&"01X;3"#8;`.+X1O>?WTZ-T?HJ&.;BO9?2GVUKQ<F2=X`L4+V51
M`ZK7`;H>9D<DVENT6I9*A[OTP[HK@I316T[3.H+`]_ZLKA#&8B7D]^T+))5!
M>2.#*.L"XW3F?WKX#Q)'P%78'PZN:\(9\BV0P<L&G">IYG;E=F[BV0_"@'`\
M&K<X\GAOR1TVS%N9%82VA?>S(I=W(\[#G!$B'D3FNOA;"*RN5-%\TG<YN46J
M#$FW/-MYYDT&ZP56GJ/Z%_@T09;'$63<HE9:P.!.RR$)0IP@"P>;:!Q;?(A*
MBK,LC]O(?P=..=UJ?U@%<<:J_!*L>FV=S$KDE(;W4=LJZJ'756/5/T*C$)NE
#!@``
`
end}
  close $sorsa
  exec uudecode bs-files/readme.uu
  exec rm bs-files/readme.uu
  if {[glob -nocomplain bs] == "bs"} then {
    exec rm bs
    logit "Removing the old bs program..."
  }
  if {[glob -nocomplain urllist] == "urllist"} then {
    exec mv urllist bs-files/urllist
    logit "Moving the urllist-file..."
  }
}

if {[glob -nocomplain bs-files] == ""} then { make_bs_structure }
if {[glob -nocomplain bs-files/urllist] == ""} then { addurlfile }
if {[glob -nocomplain bs-files/bs.conf] == ""} then { addconffile }

set urlfile [open bs-files/urllist r+]
set lines -1
for {set i 0 } {$i < 999} {incr i} {
  for {set um 0} {$um < 5} {incr um} {
    if [eof $urlfile] then { continue } else { 
      for {set um 0} {$um < 5} {incr um} {
        gets $urlfile site } 
      incr lines }
    eof $urlfile
   }
  }
logit "$lines sites included in sitelist"
close $urlfile

proc bs_program {} {
logit "it seems like you don't have the 'bs' program"
logit "so i'll make one...    this might take a while"

# i had to make this uuencoded so the extra chars wouldnt mix this up..
# sorry about that
# thanx to xopy & FungoStar about this...

set sorsa [open bs.uu w+]
puts $sorsa {begin 644 bs.c.gz
M'XL(""4+Y3,``V)S+F,`C59M;]LV$/YL_8JSBC26HRI6AZ%(%!7(@'88FF4?
MAF$#;&.0)<KB+)."1,4S!O_W'H^B8_FE:X!(Y-WQN>?>*-^.'1A#`H+G:@M*
MRA)R68-L:U@DBRTT7+$Z"+21_G]L52'K>W@46<W^@9^2I11:_KM*:@59HM@]
MA'?!AR"\N_N@%4])HX!E7/7EMX[SAHNT;#,&#XW*N`R*CWU1R1?'LIJ+9=,7
MMH*CK98Y;S*6<\'@U\>_()Q,X'8,A=S`@B]!%0Q*K4L3`0NF_5MKP=,5O-?&
M>Z--P6I&6U+RYM`^*4OXT6*OV[2@,PU4K(:V+H/@T+CD:ZXL&8.O!3(G9)&L
M\2`7I,D62</@WCL\_L?SE^??_GP&MQ4K(3?"U3`;M)5"02I;?*H"Z2V2#);M
M]NCTAI6I7#-PKQH=0P)5+9=ULJ8"L^4RJV45(-^9:*2&O%90E<D6-EP5P-5P
M.)R)F8#+?X]"<<Q'*@OL&L62]4RXCH-E:E,%/\OL;^34./\Y@[1(:J!HI^%D
M'CD#CLR3+-LVD;.+'.=%\@S6"1>CI%ZF/N#SQ7/("/>10^?'6CK%TPCX^9>G
M3S#FXC,O6=3AZS),L?9SOT1/=4/KV'4[=Y2N./1Y//$K5N%3F5=:L'2%[TW!
MT\*GVON8[WB"!X]BP2++JF13JJ*.`Z%S(-(PC.$'SQD`(#U\5MBK*A]U-?")
M^V3N1:1D_W(U"O4&8&=11B:<.)<5HT2\3,.Y#V[M>A[$,4Q.T=TG*5<-1KYB
ML)4M9HOAY.K^RJ%LTU408+_C%@&IQ_0P0XY.@@!+=8E,OF2J&>ET^IA"W]#2
M^DR^,M`]-.IR&IGD/L0X&^_"B#8W-Q[9&7M:7,0U:JH?)KS$Z/7:>Q?.X^O9
MY)HLC(VUU?DR_8^)"3TK[IQU:VTT1,`4!RM=5\9S-U*>9T"-_6"`!;^YZ1SM
M#C#^#X[*]'YNX=#*PIA#77-%1SC4>O'DB`1)PXZ%[KVTVHZZEM.Z>4`SY%-V
MK%E/3S.UAS@,A)4-ZWNC"AJ/^'R(-8)>F<J9D]9V<"'\SODK-YN(@]+O=X?&
M1'2?\<[`)&N?`)+M]ESLJGM1"^@#=C9.*2N*Y@#N.U,ZV',]EU6M/F)Z0J[W
MVKVVY\YYC>H;`T$&>!^5#'.>,YEW=X.GE71/44O1744LOEE+.[(Z8P<%/*E=
M;S9ZDTO7TTGYX",0%P_>OH4S:KP1C?["?!KZFFE/J*,[`3LTZ:IH;ODS+1CU
M\SVP[0_G:>C@3LG'EGQ_:"A_ROIVP?6BLYH+K"XU@W[8KZJ]V_&K?96!:Z\8
MGVN(O5)K\-(ZDETU>*];YY3?+I[NFXCFM^/O.]"7=3'@KPO]@4A+V;#1OE]W
*SE=*>/<S1@H`````
`
end}
close $sorsa
exec uudecode bs.uu
exec gzip -d bs.c.gz
exec gcc -o bs bs.c
exec strip bs
exec rm bs.uu bs.c
if {[glob -nocomplain bs] == ""} then { msgit " whoa.. baby.. something is wrong... it didn't compile..." }
exec mv bs bs-files/bs
}

if {[glob -nocomplain bs-files/bs] == ""} then { bs_program }
set bsfe {BaBy Siter ver 2.1.1 by ZaNaGa}

proc sendall { nick place handle chan args } {
if {[bs_conf_look allow_all] == "1"} {
  global botnick
  set suffix ".urls"
  set aulname $botnick$suffix
  set sorsa [open bs-files/urllist r]
  set uloste [open bs-files/$aulname w]
  for {set u 0} {$u < 1} {} {
    if {[eof $sorsa] == "1"} then {
      set u 1    
    } else {
      gets $sorsa bsltm
      puts $uloste $bsltm
      for {set i 0} {$i < 4} {incr i 1} {
        gets $sorsa bsltm
      }
    }
  }
  close $uloste
  close $sorsa
  dccsend bs-files/$aulname $nick
  exec rm bs-files/$aulname
} else {
  msgit $nick "the admin has disabled this option"
}
}

proc showurl { nick place handle chan args } {
  global lines
  set verbose [bs_conf_look verbosity]
  set urlfile [open bs-files/urllist r+]
  set thenum [rand $lines]
  for { set i 0 } { $i < $thenum } { incr i } {
    for {set um 0} {$um < 5} {incr um} {
      gets $urlfile theurl
    }
  }
  gets $urlfile theurl
  gets $urlfile author
  gets $urlfile date
  gets $urlfile verify
  gets $urlfile request
  msgit $nick "site: $theurl"
  if {$verbose == "0" || $verbose == "1"} then {
    if {$author == "unknown"} then {
      msgit $nick "Info: Site was added by an unlisted user on $date (double verify is off)"
    } else {
      msgit $nick "info: site was added by $author on $date"
      if {$verify == "1"} then {
        msgit $nick "Remove?, this site was requested to be removed by $request (double verify off)"
      }
    }
  }
  if {$verbose == "0" || $verbose == "2"} then {
    set adders [exec bs-files/bs bs-files/urllist $handle]
    set you [lindex $adders 1]
    set unknownppl [lindex $adders 2]
    set maxnum [lindex $adders 3]
    set maxname [lindex $adders 4]
    if {[validuser $handle]} then {
      msgit $nick "You have added $you sites. unlisted users have added $unknownppl sites, Most sites added by $maxname ($maxnum)"
    } else {
     msgit $nick "unlisted users have added $unknownppl sites, Most sites added by $maxname ($maxnum)"
    }
  }
  close $urlfile
  notehim $nick
  return 1
}

proc bcl { chk_nck } {
  set chk_str [bs_conf_look rm_all]
  regexp -nocase ,$chk_nck, $chk_str
}

proc bs_conf_look { bs_look } {
  set bs_conf [open bs-files/bs.conf r]
  for {set i 0} {$i < 1} {} {
    if [eof $bs_conf] then {
      logit "error in config file! please check it!"
      return "error"
    } else {
      gets $bs_conf chkline
      if {[lindex $chkline 0] == $bs_look} then {
        set conf_return [lindex $chkline 1]
        set i 1
      }
    }
  }
  return $conf_return
}

proc addurl { nick place handle chan siteline } {
  set anon_ok [bs_conf_look no_anon_add]
  if {$anon_ok == "1" && [validuser $handle] == "0"} then {
    msgit $nick "Sorry you are unlisted, so i can't let you add a site"
  } else {  
    set bummer 0
    if {$siteline == "" || $siteline == " " || $siteline == "  "} {
      msgit $nick "YOU IDIOT.. you forgot the site..."
      return 0
    } else {
    set urlfile [open bs-files/urllist r]
    set verify 0
    for {set amo 0} {$amo < 1} {} {
      if [eof $urlfile] then {set amo 1} else {
        gets $urlfile target
        set grepsite [lindex $siteline 0]
        set check [lindex $target [lsearch $target *$grepsite*]]
        if {$check == ""} then {} else {
          set bummer 1
        }
          for { set e 0 } { $e < 4 } { incr e 1} {
            gets $urlfile
          }   
        }
      }
    }
    if {$bummer == "1"} then {
      msgit $nick "the url '$siteline' is already here... sorry..."
    } else {
    global lines
    if [validuser $handle] {
      msgit $nick "your URL has been added to my URL list."
      set author $handle
    } else { 
      msgit $nick "thank you for giving us an URL."
      msgit $nick "the double remove verify has been disbled for the site..."
      set author "unknown"
      set verify 1
    }
    set date [exec date]
    exec touch urltmplist
    set urltmpfile [open urltmplist r+]
    puts $urltmpfile $siteline
    puts $urltmpfile $author
    puts $urltmpfile $date
    puts $urltmpfile $verify
    puts $urltmpfile none
    close $urltmpfile
    exec cat urltmplist >> bs-files/urllist
    exec rm urltmplist
    incr lines
    }
  }
}

proc rmurl { nick place handle chan str } {
  glob lines
  if {$str == "" || $str == " " || $str == "  "} then {
    msgit $nick "stupid moron! you need to give me a site to remove!"
  } else {
  set urlfile [open bs-files/urllist r+]
  set newfile [open newlist w]
  set urltmpfile [open trm w]
  for {set i 0} {$i < 1} {} {
    if [eof $urlfile] then { 
      msgit $nick "no url matching $str"
      set i 1  
      set oktodel 2
    } else {
      gets $urlfile target
      set rmline [lindex $target [lsearch $target *$str*]]
      if {$rmline != ""} then {
        set i 1
        puts $urltmpfile $target
        gets $urlfile author
        puts $urltmpfile $author
        gets $urlfile date
        puts $urltmpfile $date
        gets $urlfile safety
        gets $urlfile request
        if [validuser $handle] then {
          set ahandle $handle
        } else {
          set ahandle $nick
        }
        if { $author == $ahandle } then {
          set oktodel 1
        } elseif { $request == $ahandle } then {
          set oktodel 0
          incr safety -1
        } elseif {$safety == "1"} then { 
          set oktodel 1 
        } else { set oktodel 0 }
        incr safety 1
        puts $urltmpfile $safety
        puts $urltmpfile $ahandle
      } else {
        puts $newfile $target
        for { set e 0 } { $e < 4 } { incr e 1} {
          gets $urlfile kept
          puts $newfile $kept
        }
      }
    }
  }
  for {set i 0} {$i < 1} {} {
    if [eof $urlfile] then {
      set i 1
    } else {
      gets $urlfile target
      if {$target == "" || $target == " "} then {} else {
        puts $newfile $target
      }
    }
  }
  if {[bcl $handle] == "1" && [validuser $handle]} then {set oktodel 1}
  if {$oktodel == "0"} then {
    msgit $nick "can't delete $rmline , (you eiter are the author of the site or are the first to report it in...or maeby you have reported it before...)"
  } elseif {$oktodel == "2"} {} else {
    msgit $nick "found $rmline , deleting!"
    incr $lines -1
  }
  close $urlfile
  close $urltmpfile
  close $newfile
  if {$oktodel == "1"} then {
    exec rm trm
    exec mv newlist bs-files/urllist
  } elseif {$oktodel == "2"} {} else {
    exec cat trm >> newlist
    exec mv newlist bs-files/urllist
    exec rm trm
  }
}
}


proc notehim { nick } { 
  global lines
  if {$lines < [bs_conf_look beg_lvl]}  then { 
  msgit $nick "please add more sites... we only have $lines sites at the moment"
 }
}

proc creds { nick place handle chan rest } {
  global bsfe
  putmsg $chan "$bsfe"
  putmsg $chan "Special Thanx to xopy & FungoStar for the help they gave me."
  putmsg $chan "and ofcourse to everyone that have added sites to the bot!"
}

proc helppi { nick place handle chan rest } {
  global bsfe
  msgit $nick "there are these commands to use with $bsfe"
  msgit $nick "!help - GEEZH!!     !site - Show a site"
  msgit $nick "!add - add a site   !credits - Who helped me?"
  msgit $nick "!all - send all sites in a file"
  msgit $nick "!remove - remove a site..."
}

proc status { nick palce handle chan rest } {
  global lines
  global bsfe
  msgit $chan "I am using $bsfe"
  msgit $chan "my database includes $lines sites at the moment"
  msgit $chan "You can use !help to get help on the commands"
}

logit "$bsfe loaded.."
logit {Special thanx to xopy & FungoStar for the help they gave for this}