IM Preferences In Profile 1.5 views the IM preferences in your profile Bjoern Berg - cgi@bjoern-berg.de http://www.wintotal.de/YaBB Sources/Profile.pl opendir(DIR, "$facesdir") || fatal_error("$txt{'230'} ($facesdir)!
$txt{'681'}"); closedir(DIR); #HbBB - IMPref in Profil my( @imconfig, $sel0, $sel1 ); if (-e("$memberdir/$username.imconfig")) { fopen(FILE, "$memberdir/$username.imconfig"); @imconfig = ; fclose(FILE); } $imconfig[0] =~ s/[\n\r]//g; $imconfig[0] =~ s/\|/\n/g; $imconfig[1] =~ s/[\n\r]//g; if ($imconfig[1]) { $sel0=''; $sel1=' selected'; } else { $sel0=' selected'; $sel1=''; } ##HbBB - IMPref in Profil tick(); //--> EOT #HbBB - IMPref in Profil print <<"EOT";
$txt{'159'}-$txt{'605'} EOT ##HbBB - IMPref in Profil my( %member, $key, $value, $newpassemail, @memberlist, $a, @check_settings, @reserve, $matchword, $matchcase, $matchuser, $matchname, $namecheck, $reserved, $reservecheck, @dirdata, $filename, @entries, $entry, $umail, @members, $tempname ); #HbBB - IMPref in Profil my( $ignorelist, $notify ); $ignorelist = "$FORM{'ignore'}"; $notify = "$FORM{'notify'}"; $ignorelist =~ s~\A\n\s*~~; $ignorelist =~ s~\s*\n\Z~~; $ignorelist =~ s~\n\s*\n~\n~g; $ignorelist =~ s~[\n\r]~\|~g; $ignorelist =~ s~\|\|~\|~g; $notify =~ s~[\n\r]~~g; fopen(FILE, "+>$memberdir/$username.imconfig"); print FILE "$ignorelist\n$notify\n"; fclose(FILE); ##HbBB - IMPref in Profil
$txt{'325'}:
$txt{'326'}
$txt{'327'}: