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('ãã¡ã¤ã«ã®ã¢ãããã¼ãï¼ä¸æ£ãªãã¡ã¤ã«ã¿ã¤ãã§ã');
}