[Affelio-cvs 494] CVS update: affelio/apps/diary

Back to archive index

Masato Kikuhara en-sf****@users*****
2005年 7月 2日 (土) 04:00:27 JST


Index: affelio/apps/diary/Diary.pm
diff -u affelio/apps/diary/Diary.pm:1.18 affelio/apps/diary/Diary.pm:1.19
--- affelio/apps/diary/Diary.pm:1.18	Fri Jul  1 11:06:39 2005
+++ affelio/apps/diary/Diary.pm	Sat Jul  2 04:00:26 2005
@@ -585,7 +585,7 @@
 	my $uname = $self->{afap}->get_owner_info('nickname');
 
 	foreach (@entries) {
-		my $link = $web_root."apps/$self->{afap}->{install_name}/show_diary.cgi?id=$_->{id}";
+		my $link = "$web_root/apps/$self->{afap}->{install_name}/show_diary.cgi?id=$_->{id}";
 		push @item_list, { LINK => $link, };
 		my ($sec, $min, $hour, $mday, $mon, $year) = localtime($_->{timestamp});
 		push @items, {
@@ -655,7 +655,7 @@
 	my $filesize = 0;
 	while (my $bytesread = read($filename, $buf, 1024)) {
 		$file .= $buf;
-		$self->errorExit('ファイルのアップロード:ファイルサイズが大きすぎます') if ($filesize++ > 300);
+		$self->errorExit('ファイルのアップロード:ファイルサイズが大きすぎます') if (++$filesize >= 300);
 	}
 
 	my $imgdir = "$self->{datadir}img/";
@@ -670,7 +670,7 @@
 	fileparse_set_fstype('MSDOS');
 	my $distfile = $basedir.basename($filename);
 
-	unless (basename($filename) =~ /^[a-zA-Z0-9\.\-\_]{1,28}\.(jpg|png|gif|bmp)$/) {
+	unless (basename($filename) =~ /^[a-zA-Z0-9\.\-\_]{1,28}\.(jpg|jpeg|png|gif|bmp)$/i) {
 		$self->errorExit('ファイルのアップロード:不正なファイルタイプです');
 	}
 


Affelio-cvs メーリングリストの案内
Back to archive index