ImgSize SP1/1.1 1.22 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. 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:"; Sources/Admin.pl unlink("$memberdir/$currentmem.imconfig"); if (-e "$memberdir/$currentmem.siz") { unlink("$memberdir/$currentmem.siz"); } Sources/AdminEdit.pl $txt{'476'} $txt{'477'} $txt{'476'} $siztxt{'05'} $siztxt{'06'} $siztxt{'04'} $siztxt{'05'} $siztxt{'06'} 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 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"~ : ''; $userprofile{$user}->[13] = $userprofile{$user}->[13] =~ m~\A[\s\n]*http://~i ? qq~


~ : qq~

~; $userprofile{$user}->[13] = $userprofile{$user}->[13] =~ m~\A[\s\n]*http://~i ? qq~

~ : qq~

~; 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); } } }