sub reload_html {
print "";
$client->shutdown(2);
exit 0;
}
sub printfile {
my($file2print, $pagetitle, $bodyclass) = @_;
&start_html($pagetitle, $bodyclass) if $pagetitle ne '';
&menu unless $bodyclass eq 'blank';
open FILE2PRINT, "<$file2print";
print "$_\n" while defined($_ = );
close FILE2PRINT;
}
sub start_html {
print "$title - $_[0]$_[2]";
&style;
print '';
if ($_[1] eq 'start') {
print '';
}
elsif ($_[1] ne '') {
print "";
}
else {
print '';
}
}
sub log {
my $msg2log = $_[0];
my($secs, $mins, $hours, $days, $months, $years) = &timearray;
my $js;
($msg2log, $js) = split(/<;\n];
close MSGFILE;
opendir PID, "data/online/pids/$room";
my(@pids) = readdir PID;
closedir PID;
foreach $_ (@pids) {
kill 'USR1', $_ if -f "data/online/pids/$room/$_";
}
}
sub get_theme {
my $room = shift @_;
open RSTAT, "data/online/rstat/$room";
my(@rstat) = ;
close RSTAT;
chomp $rstat[1];
return 'Raumthema:' . $rstat[1] if $rstat[1] ne undef;
}
sub get_room {
my $alias = shift @_;
opendir DIR, 'data/online/rooms';
my(@dir) = readdir DIR;
closedir DIR;
foreach my $room (@dir) {
opendir DIR, "data/online/rooms/$room";
my(@chatter) = readdir DIR;
closedir DIR;
foreach my $chatter (@chatter) {
return $room if $chatter eq $alias;
}
}
return undef;
}
sub debug {
open DEBUG, '>data/debug';
while (@_) {
chomp $_;
print DEBUG "$_\n";
}
close DEBUG;
}
1;