Skip to content

Instantly share code, notes, and snippets.

// Initial connect-command
Ape.registerHookCmd("connect", function(params, infos) {
if (!infos.user.connected) {
// Request-Auth from Backend
var request = new Http('http://backend/public/tokenlogin');
request.set('method', 'POST');
// send token and additional data
/***
* APE JSF Setup
*/
APE.Config.baseUrl = 'http://ape.internal:8000/static/ape-jsf'; //APE JSF
APE.Config.domain = 'ape.internal';
APE.Config.server = 'ape.internal:6969'; //APE server URL
window.addEvent('domready', function() {
im = new APE.IM(
// On every Multipipe
multipipe: function(pipe, options) {
// Private Status Channel
var privat_status = "status" + this.options.user_id;
if (this.options.debug) {
console.log('A new Multi pipe is created. Pipe object : ', pipe.name);
}
# Routes
my $r = $self->routes;
# Default-Route
my $root = $r->bridge('/')->to('root#auth');
# Auth-Vorgang
$root->route('/login')->to('auth#login');
$root->route('/dologin')->to('auth#dologin');
$root->route('/logout')->to('auth#logout');
sub said {
my ( $self, $mess ) = @_;
my $who = $mess->{who};
my $body = $mess->{body};
sleep(1);
if ( $body =~ /botsnack/i ) {
@jegade
jegade / irc.pl
Created February 20, 2012 16:59 — forked from kraih/irc.pl
#!/usr/bin/env perl
use Mojolicious::Lite;
use EV;
use AnyEvent::IRC::Client;
# Join #mojo on irc.perl.org
my $irc = AnyEvent::IRC::Client->new;
$irc->connect('irc.perl.org', 6667, {nick => "mojobot$$"});
$irc->send_srv(JOIN => '#mojo');
0.000072 main(2): ALWAYS INCLUDE THE FOLLOWING LINES WHEN SENDING DEBUG MESSAGES TO THE MAILING LIST:
0.000642 main(2): gphoto2 2.4.11
0.000745 main(2): gphoto2 has been compiled with the following options:
0.000817 main(2): + armv7a-hardfloat-linux-gnueabi-gcc (C compiler used)
0.000882 main(2): + popt (mandatory, for handling command-line parameters)
0.000947 main(2): + no exif (for displaying EXIF information)
0.001012 main(2): + cdk (for accessing configuration options)
0.001077 main(2): + no aa (for displaying live previews)
0.001140 main(2): + no jpeg (for displaying live previews in JPEG format)
0.001204 main(2): + readline (for easy navigation in the shell)
usb_set_debug: Setting debugging level to 255 (on)
usb_os_init: Found USB VFS at /dev/bus/usb
usb_os_find_busses: Found 001
usb_os_find_devices: Found 022 on 001
usb_os_find_devices: Found 001 on 001
error obtaining child information: Inappropriate ioctl for device
usb_set_debug: Setting debugging level to 255 (on)
usb_os_init: Found USB VFS at /dev/bus/usb
usb_os_find_busses: Found 001
usb_os_find_devices: Found 022 on 001
my $delay = Mojo::IOLoop::Delay->new;
tail -n+52098860 /opt/osm/planet-latest.osm | head -n 10
<changeset id="13294575" created_at="2012-09-29T10:15:29Z" num_changes="1" closed_at="2012-09-29T10:15:30Z" open="false" min_lon="136.9247420" min_lat="35.0770770" max_lon="136.9247420" max_lat="35.0770770" user="TKE-waka" uid="728316">
<tag k="comment" v="Created new POI: �野家" />
<tag k="created_by" v="OSMPOIEditor" />
</changeset>