ImgSize SP1/1.1 1.3 Features: This mod let users apply width and height of their own picture in profile and then resizes it to max. height or width without stretching. Admin set max. width and heigth for userpicture in profile and max. width and heigth for userpicture in posts from AdminCenter. Centers the userpicture in posts. Admin can disable members own pictures to be shown in posts from Admin-center. Instructions: Apply mod. Upload english.lng, Admin.pl, AdminEdit.pl, Display.pl, Load.pl, Profile.pl and Subs.pl REMEMBER: AFTER APPLYING AND UPLOADING THE MOD - GO TO ADMINCENTER AND SET MAX. HEIGHT AND WIDTH FOR PICTURES IN POSTS. Carsten http://www.langaa-net.dk/forum english.lng $txt{'476'} = "Userpic Width (0 = disable limit)"; $txt{'476'} = "Max. Userpic size in Profile (0 = disable limit)"; $txt{'796'} = "Your Instant Messages:"; $siztxt{'01'} = "Userpic Width x Height"; $siztxt{'02'} = "The Userpic Width box can only contain digits."; $siztxt{'03'} = "The Userpic Height box can only contain digits."; $siztxt{'04'} = "Max. Userpic size in Posts (0 = disable limit)"; $siztxt{'05'} = "Width:"; $siztxt{'06'} = "Height:"; $siztxt{'07'} = "Allow only Admins own Picture in Posts:"; Sources/Admin.pl unlink("$memberdir/$currentmem.imconfig"); if (-e "$memberdir/$currentmem.siz") { unlink("$memberdir/$currentmem.siz"); } Sources/AdminEdit.pl my($snfchecked, $fls1, $fls2, $fls3, $utfchecked, $truncchecked, $mts1, $mts2, $mts3, $tsl6, $tsl5, $tsl4, $tsl3, $tsl2, $tsl1); my($sonly_adminpic); if ($timeselected == 6) { $tsl6 = " selected" } elsif ($timeselected == 5) { $tsl5 = " selected" } elsif ($timeselected == 4) { $tsl4 = " selected" } elsif ($timeselected == 3) { $tsl3 = " selected" } elsif ($timeselected == 2) { $tsl2 = " selected" } else { $tsl1 = " selected" } if ($only_adminpic) { $sonly_adminpic = 'checked' } $txt{'476'} $txt{'477'} $siztxt{'07'} $txt{'476'} $siztxt{'05'} $siztxt{'06'} $siztxt{'04'} $siztxt{'05'} $siztxt{'06'} # Set as 0 or 1 if box was checked or not my $fi; map { $fi = lc $_; ${$_} = $FORM{$fi} eq 'on' ? 1 : 0; } @onoff; $guestaccess = $guestaccess ? 0 : 1; push(@onoff, "only_adminpic"); if ($FORM{'userpic_height'} =~ /\d+/) { $userpic_height = $FORM{'userpic_height'}; } else { $userpic_height = 65; } if ($FORM{'postuserpic_width'} =~ /\d+/) { $postuserpic_width = $FORM{'postuserpic_width'}; } else { $postuserpic_width = 65; } if ($FORM{'postuserpic_height'} =~ /\d+/) { $postuserpic_height = $FORM{'postuserpic_height'}; } else { $postuserpic_height = 65; } \$userpic_height = $userpic_height; # Set pixel size to which the selfselected userpics are resized, 0 disables this limit \$postuserpic_width = $postuserpic_width; # Set pixel size to which the selfselected userpics in posts are resized, 0 disables this limit \$postuserpic_height = $postuserpic_height; # Set pixel size to which the selfselected userpics in posts are resized, 0 disables this limit \$allow_hide_email = $allow_hide_email; # Allow users to hide their email from public. Set 0 to disable \$only_adminpic = $only_adminpic; # Set to 0 to allow others than Admin to show own Picture in Posts and Profile Sources/Display.pl $userprofile[13]$userprofile[12] $userprofile[13]$userprofile[12]
Sources/Load.pl unless(exists $userprofile{$user}) { return 0 ; } } &LoadCensorList; # Load censor list if( fopen(FILE, "$memberdir/$user.siz") ) {; @{$imgsize{$user}} = ; fclose(FILE); for( $_ = 0; $_ < @{$imgsize{$user}}; $_++ ) { chomp $imgsize{$user}->[$_]; } } else { $imgsize{$user}[0] = 65; $imgsize{$user}[1] = 65; } $akt_width = $imgsize{$user}[0]; $akt_height = $imgsize{$user}[1]; &set_picsize($akt_width, $akt_height, $postuserpic_width, $postuserpic_height); $userpic_tmpwidth ||= $userpic_width ? qq~ width="$userpic_width"~ : ''; $userpic_tmpheight ||= $userpic_height ? qq~ height="$userpic_height"~ : ''; $userpic_tmpwidth{$user} ||= $akt_width ? qq~ width="$akt_width"~ : ''; $userpic_tmpheight{$user} ||= $akt_height ? qq~ height="$akt_height"~ : ''; if($showuserpic && $allowpics) { $userprofile{$user}->[13] ||= 'blank.gif'; $userprofile{$user}->[13] = $userprofile{$user}->[13] =~ m~\A[\s\n]*http://~i ? qq~


~ : qq~

~; } else { $userprofile{$user}->[13] = '
'; } if ($only_adminpic && $userprofile{$user}->[7] ne 'Administrator' && $userprofile{$user}->[7] ne 'Global Moderator' ) { $userprofile{$user}->[13] = '
'; } else { if($showuserpic && $allowpics) { $userprofile{$user}->[13] ||= 'blank.gif'; $userprofile{$user}->[13] = $userprofile{$user}->[13] =~ m~\A[\s\n]*http://~i ? qq~

~ : qq~

~; } else { $userprofile{$user}->[13] = '
'; } } Sources/Profile.pl else { $pic = $memsettings[13]; $tmp = 'http://'; } if (-e "$memberdir/$INFO{'username'}.siz") { fopen(FILE, "$memberdir/$INFO{'username'}.siz"); @imagsize=; fclose(FILE); foreach (@imagsize) { $_ =~ s~[\n\r]~~g; } $akt_width = $imagsize[0]; $akt_height = $imagsize[1]; } else { $akt_width = 65; $akt_height = 65; } $siztxt{'01'} x pixel &fatal_error("$txt{'592'}") if($member{'userpic'} !~ m^\A[0-9a-zA-Z_\.\#\%\-\:\+\?\$\&\~\.\,\@/]+\Z^); if($FORM{'aktwidth'} !~ /\A[0-9]+\Z/) { &fatal_error("$siztxt{'02'}"); } if($FORM{'aktheight'} !~ /\A[0-9]+\Z/) { &fatal_error("$siztxt{'03'}"); } if($FORM{'aktwidth'} < 1) { &fatal_error("$siztxt{'02'}"); } if($FORM{'aktheight'} < 1) { &fatal_error("$siztxt{'03'}"); } if ($namecheck =~ $reservecheck) { &fatal_error("$txt{'244'} $reserved"); } } } } $member{'aktwidth'} = $FORM{'aktwidth'}; $member{'aktheight'} = $FORM{'aktheight'}; fopen( FILE, ">$memberdir/$member{'username'}.siz", 1); print FILE "$member{'aktwidth'}\n"; print FILE "$member{'aktheight'}\n"; fclose(FILE); unlink("$memberdir/$member{'username'}.imconfig"); if (-e "$memberdir/$member{'username'}.siz") { unlink("$memberdir/$member{'username'}.siz"); } unlink("$memberdir/$username.imconfig"); if (-e "$memberdir/$username.siz") { unlink("$memberdir/$username.siz"); } if ($memsettings[11] eq "Female") { $gender = qq~$txt{'239'}~; } if($allowpics) { if (-e "$memberdir/$INFO{'username'}.siz") { fopen(IMGSIZFILEREAD,"$memberdir/$INFO{'username'}.siz"); @imgsize = ; fclose(IMGSIZFILEREAD); chomp @imgsize; $akt_width = $imgsize[0]; $akt_height = $imgsize[1]; } else { $akt_width = 65; $akt_height = 65; } if ($userpic_width ne 0) { $tmp_width = "width=$userpic_width"; } else { $tmp_width=""; } if ($userpic_height ne 0) { $tmp_height = "height=$userpic_height"; } else { $tmp_height=""; } &set_picsize($akt_width, $akt_height, $userpic_width, $userpic_height); $tmp_width = "width=$akt_width"; $tmp_height = "height=$akt_height"; Sources/Subs.pl 1; sub set_picsize { my ($tmpuserpic_width, $tmpuserpic_height, $ratio); $tmpuserpic_width = $_[2]; $tmpuserpic_height = $_[3]; if ($tmpuserpic_width == 0) { $tmpuserpic_width = $akt_width; } if ($tmpuserpic_height == 0) { $tmpuserpic_height = $akt_height; } $ratio = $akt_width / $akt_height; for(0..1) { if ($akt_width > $tmpuserpic_width) { $akt_width = $tmpuserpic_width; $akt_height = int($akt_width / $ratio); } if ($akt_height > $tmpuserpic_height) { $akt_height = $tmpuserpic_height; $akt_width = int($akt_height * $ratio); } } }