18 |
|
|
19 |
## CONFIG |
## CONFIG |
20 |
|
|
21 |
|
my $HOSTNAME = `hostname`; |
22 |
|
|
23 |
my $NICK = 'irc-logger'; |
my $NICK = 'irc-logger'; |
24 |
|
$NICK .= '-dev' if ($HOSTNAME =~ m/llin/); |
25 |
my $CONNECT = |
my $CONNECT = |
26 |
{Server => 'irc.freenode.net', |
{Server => 'irc.freenode.net', |
27 |
Nick => $NICK, |
Nick => $NICK, |
28 |
Ircname => "try /msg $NICK help", |
Ircname => "try /msg $NICK help", |
29 |
}; |
}; |
30 |
my $CHANNEL = '#razmjenavjestina'; |
my $CHANNEL = '#razmjenavjestina'; |
31 |
|
$CHANNEL = '#irc-logger' if ($HOSTNAME =~ m/llin/); |
32 |
my $IRC_ALIAS = "log"; |
my $IRC_ALIAS = "log"; |
33 |
|
|
34 |
my %FOLLOWS = |
my %FOLLOWS = |
510 |
my $tag = $1; |
my $tag = $1; |
511 |
next if (! $tag || $tag =~ m/https?:/i); |
next if (! $tag || $tag =~ m/https?:/i); |
512 |
push @{ $tags->{$tag} }, $arg->{id}; |
push @{ $tags->{$tag} }, $arg->{id}; |
513 |
warn "+tag $tag: $arg->{id}\n"; |
#warn "+tag $tag: $arg->{id}\n"; |
514 |
|
$cloud->add($tag, "?tag=$tag", scalar @{$tags->{$tag}} + 1); |
515 |
} |
} |
516 |
} |
} |
517 |
|
|
588 |
$cloud->css . |
$cloud->css . |
589 |
qq{</style></head><body>} . |
qq{</style></head><body>} . |
590 |
qq{ |
qq{ |
591 |
<form method="post" class="search"> |
<form method="post" class="search" action="/"> |
592 |
<input type="text" name="search" value="$search" size="10"> |
<input type="text" name="search" value="$search" size="10"> |
593 |
<input type="submit" value="search"> |
<input type="submit" value="search"> |
594 |
</form> |
</form> |