moshel

gistfile1.txt

CENTRAL="http://localhost:3000"
PushCentral $MYNAME

Summary () {
    for U in $WWWDIR/snippet.*.html; do
	cat $U >> $WWWDIR/summary.html
	RESLT=$?
	if [ $RESLT -gt 0 ]; then
	    echo "$U is unreachable" >> /tmp/tmp.$$.moshel_alert.tmp 
	fi
	echo "<p>" >> $WWWDIR/summary.html
    done
}
PushCentral () {
    for U in $@; do
        curl -F "summary=@$WWWDIR/snippet.html" $CENTRAL/$U
	RESLT=$?
	if [ $RESLT -gt 0 ]; then
	    echo "$U is unreachable" >> /tmp/tmp.$$.moshel_alert.tmp 
	fi
    done
}

$ perl -Mojo -E 'a(["POST"] => "/:server" => sub { warn my $s = $_->param("server"); $_->param("summary")->move_to($s); $_->render(text => "", status => 200); })->start' daemon