bind pub - !stars pub:stars-cmd
bind pub - "?? * * * * " pub:stars

proc pub:stars-cmd { nick uhost handle channel arg } {
        set info "$nick I'm starsbot and follow / report @STARSambulance"
        putserv "PRIVMSG $channel :$info"
}

proc pub:stars { nick uhost handle channel arg } {

        set output "[exec perl /home/stars/eggdrop/scripts/starsbot.pl]"
        if { $output != "0"  }  {
                set channel "#edmontonfireradio"
                set channeltest "#test666"
                putserv "PRIVMSG $channel :$output"
                putserv "PRIVMSG $channeltest :$output"
                putlog "Should have echo'd a new tweet"
                putlog "Tweet -> $output"
        } else {
                putlog "Nothing to Report"
        }

}
putlog "Starsbot v1.0 loaded"