package attachment;
use strict;
use record;

@attachment::ISA=qw(record);
sub new{
    my $className=shift;
    my $primaryKey=shift;  #新しいレコードの場合空
    &record::init($className,$primaryKey);
}

sub columnProp {
    # インスタンス変数の属性を設定します
    # 例:
    return 
	(
	  "comment"=>"n",          # Number:   numは数値型カラム 
	  );
    # ここで指定しなかったインスタンス変数は文字列型カラムとみなされます
    # ただし、primaryKeyNameで指定されたものはプライマリキーとみなされます
}

sub primaryKeyName {
    "id";
}

sub localFile {
    my $t=shift;
    die ("Invalid file name: $t->{filename}") if ($t->{filename} =~ /(\||\.\.|<|>)/ ); 
    "../files/attachments/@{[$t->primaryKey]}$t->{filename}";
}
sub upload {
    my $t=shift;
    my $content=shift;
    open OUT, ">". $t->localFile or die(" cannot upload @{[$t->localFile]}");
    binmode OUT;
    print OUT $content;
    close OUT;
}

sub link {
    my $t=shift;    
    qq(<a href="@{[$t->localFile]}"><img src="../img/clip.png" border=0>
        添付ファイルをダウンロード</a>);
}
1;