You can test on my board.
Open Menu.pm, add this sub :
Code Sample
sub Upload {
my ($obj, $db) = @_;
my $data = $iB::CGI->param('the_value');
my $filename = $data;
$filename =~ s/.*?([^\\\/:]+)$/$1/;
my $save_as = $iB::INFO->{'PUBLIC_UPLOADS'}."/$filename";
unless ($filename) {
$obj->{'.html'} .= qq~
<table cellspacing='0' cellpadding='5' border='0' align='center' width='$iB::SKIN->{'TABLE_WIDTH'}'>
<tr>
<td bgcolor='$iB::SKIN->{'MISCBACK_TITLE'}' valign='left' colspan='2' id='titlelarge'><b>Halt</b></td>
</tr>
<tr>
<td bgcolor='$iB::SKIN->{'MISCBACK_ONE'}' colspan='2'> You need to select a file to upload </td>
</tr>
</table>
~;
} else {
my ($bytesread, $buffer, $size);
open (OUTFILE, ">$save_as");
binmode (OUTFILE);
while ($bytesread = read($data,$buffer,1024)) {
$size += $bytesread;
print OUTFILE $buffer;
}
close OUTFILE;
$obj->{'.html'} .= qq~
<table cellspacing='0' cellpadding='5' border='0' align='center' width='$iB::SKIN->{'TABLE_WIDTH'}'>
<tr>
<td bgcolor='$iB::SKIN->{'MISCBACK_TITLE'}' valign='left' colspan='2' id='titlelarge'><b>Uploaded successful</b></td>
</tr>
<tr>
<td bgcolor='$iB::SKIN->{'MISCBACK_ONE'}' colspan='2'>The uploaded file is : $iB::INFO->{'UPLOAD_URL'}/$filename <br> Uploaded Statics :</td>
</tr>
</table>
~;
}
}
Then find :
Code Sample
'06' => \&Cancelsub,
Add :
Code Sample
'07' => \&Upload,
Find :
Code Sample
$obj->Show_menu();
Replace it with :
Code Sample
unless ($iB::IN{'CODE'} eq '07') {$obj->Show_menu();}
Open MenuView.pm, find:
Code Sample
<tr>
<td bgcolor='$iB::SKIN->{'MISCBACK_TWO'}' align='center' colspan='2'><input type="submit" value="$UserCP::lang->{'avatar_url_submit'}" name='URL' class='forminput'></td>
</tr>
</form>
Add :
Code Sample
<table cellspacing='1' cellpadding='4' bgcolor='#333366' border='0' width='100%' align='center'>
<tr>
<td bgcolor='$iB::SKIN->{'MISCBACK_TITLE'}' valign='left' colspan='2' id='titlelarge'><b>Upload avatar</b></td>
</tr>
<tr>
<form name='bottomForm' enctype='multipart/form-data' method='post' target='MAIN' action='$iB::INFO->{'BOARD_URL'}/ikonboard.$iB::INFO->{'CGI_EXT'}?s=$iB::SESSION'>
<input type='hidden' name='act' value='UserCP'>
<input type='hidden' name='CODE' value='07'>
<td bgcolor='$iB::SKIN->{'MISCBACK_ONE'}' width='40%' valign='top'>Choose avatar from your hard drive to upload: <br>(Maximum Width = 64 pixels | Maximum Height = 64 pixels) </td>
<td bgcolor='$iB::SKIN->{'MISCBACK_ONE'}'><input type='file' name='the_value' value=''> <input type='button' value='Upload' OnClick='submit()'></td>
</form>
</td>
</tr>
</table>
That's all. I'm quite tired , so maybe I lost some lines here Don't forget to back up before doing anything.
At least, you can test at my board, go to Control Panel, Avatar Options to try ... Please dont try something big
|
