$chat_state = CHAT_STATE->{'active'};
$chat{'state'} = $chat_state;
}
- write_data_file($fh, '', '', \%chat);
+ write_data_file($fh, \%chat);
}
else {
$message = 'Invalid username.';
$chat_state = CHAT_STATE->{'ready'};
$chat{'state'} = $chat_state;
}
- write_data_file($fh, '', '', \%chat);
+ write_data_file($fh, \%chat);
}
elsif ($words eq '') {
$message = 'Server ID missing.';
if ($username =~ /^[A-Za-z]*$/) {
$chat{'content'} .= 'leave@'.$username.': '.$words."\n";
if ($username ne '') {
- write_data_file($fh, '', '', \%chat);
+ write_data_file($fh, \%chat);
}
else {
my %new_chat;
if ($chat_state > 1) {
- write_data_file(DATA_CHAT_PATH.$chat_id, '', '', \%chat);
+ write_data_file(DATA_CHAT_PATH.$chat_id, \%chat);
$new_chat{'id'} = $chat_id+1;
}
else {
}
$new_chat{'state'} = CHAT_STATE->{'disconnected'};
$new_chat{'content'} = '';
- write_data_file($fh, '', '', \%new_chat);
+ write_data_file($fh, \%new_chat);
}
}
else {
$chat_state = CHAT_STATE->{'active'};
$chat{'state'} = $chat_state;
}
- write_data_file($fh, '', '', \%chat);
+ write_data_file($fh, \%chat);
}
else {
$message = 'Invalid username.';
if ($password_ok) {
my $password_query = url_query_encode({'p', $settings{'password'}});
- $coin_url = merge_url($coin_url , {'query' => $password_query, 'append_query' => 1});
- $oldest_url = merge_url($oldest_url, {'query' => $password_query, 'append_query' => 1});
- $older_url = merge_url($older_url , {'query' => $password_query, 'append_query' => 1});
- $newer_url = merge_url($newer_url , {'query' => $password_query, 'append_query' => 1});
+ $coin_url = merge_url($coin_url , {'query' => $password_query, 'append_query' => 1, 'preserve_fragment' => 1});
+ $oldest_url = merge_url($oldest_url, {'query' => $password_query, 'append_query' => 1, 'preserve_fragment' => 1});
+ $older_url = merge_url($older_url , {'query' => $password_query, 'append_query' => 1, 'preserve_fragment' => 1});
+ $newer_url = merge_url($newer_url , {'query' => $password_query, 'append_query' => 1, 'preserve_fragment' => 1});
}
my $abbr = abbr_name($username);