use Mojolicious::Lite '-signatures';
use Mojo::JSON 'encode_json';
our $VERSION = '0.01';
our $url;
get '/' => sub($c) {
return $c->redirect_to($url);
};
get '/set' => sub( $c ) {
if( my $url = $c->param('url')) {
$url = $c->param('url');
warn "Set URL to <$url>";
notify_clients({ src => $url });
};
$c->stash( url => $url );
$c->render( template => 'set');
};
post '/set' => sub($c) {
$url = $c->param('url');
$c->stash( url => $url );
warn "Set URL to <$url>";
notify_clients({ src => $url });
};
get '/iframe' => sub( $c ) {
$c->stash( url => $url );
$c->render( template => 'iframe');
};
my %clients;
my $id = 0;
websocket '/cnc' => sub( $c ) {
$clients{ $id++ } = $c;
$c->on( message => sub( $c, $msg ) {
# we don't handle clients talking to us
});
};
sub notify_clients( $msg ) {
my $str = encode_json( $msg );
for my $id (keys %clients) {
eval {
$clients{ $id }->send($str);
};
if( $@ ) {
delete $clients{ $id };
};
};
}
app->start;
__DATA__
@@ set.html.ep
Bookmarklet for setting a link to the current page
@@ iframe.html.ep
URL receiver