한빛출판네트워크

# 자원 파일을 찾는다
my $filename = get_local_path($id);
if (-f $filename) {

    # 파일을 열고 내용을 읽어 자원을 출력한다
    open my $bookfh, $filename
    or barf 500, "I Am Broke", "Cannot open $filename: $!";

    print $q->header("text/yaml");
    print do { local $/; <$bookfh> };
}

# 아무런 자원이 존재하지 않음
else {
    barf 404, "Where is What?", "Book for $id does not exist.";
}

# 입력된 서적이 정상적인지를 확인한다
my $book = check_book( $q->param("POSTDATA") );

# 만약 책에 ISBN이 있고(어떤 책은 ISBN이 없기도 하다!), 해당 ISBN이 이미 
# 시스템에 들어 있다면 여기에서는 POST를 통해 갱신이 이루어지는 것을 
# 허용하지 않으므로 실행을 중단한다(die).
if ($book->{isbn} and -f get_local_path($book->{isbn})) {
    barf 500, "Not Gonna Do It",
        "A POST may not be used to update an existing book.";
}

# 데이터가 정상적이다!

# ID를 계산하는데, 이것은 ISBN이나 생성된 ID이다
my $id = $book->{isbn} ? $book->{isbn} : next_id;

# 레코드에 참조 ID를 저장한다
$book->{id} = $id;

# 자원을 저장한다
eval { YAML::DumpFile(get_local_path($id), $book) };
barf 500, "I Am Broke", $@ if $@;

# 최종 사용자에게 성공했음을 알린다
my $resource_url = absolute_url("/=/model/book/id/".$id);
print $q->header(
    -status   => 201,
    -type     => "text/html",
    -location => $resource_url,
);
print $q->h1("Created $book->Developing RESTful Web Services in Perl");
print $q->ul(
    $q->li(
        $q->a({ href => $resource_url }, $resource_url)
    )
);

# 입력된 책의 정상성 여부를 점검
my $book = check_book( $q->param("PUTDATA") );

# 책이 이미 존재하는지를 확인하고 존재하지 않는다면 오류를 반환한다
my $resource_path = get_local_path($id);
unless (-f $resource_path) {
    barf 500, "Not Gonna Do It",
        "Cannot use PUTs for creating a new resource.";
}

# ID를 지정
$book->{id} = $id;

# 자원을 저장
eval { YAML::DumpFile($resource_path, $book) };
barf 500, "I Am Broke", $@ if $@;

# 최종 사용자에게 성공했음을 알린다
print $q->header("text/html");
print $q->h1("Updated $book->Developing RESTful Web Services in Perl");

# 책이 실제로 존재하는지 확인
my $resource_path = get_local_path($id);
unless (-f $resource_path) {
    barf 404, "Where is What?",
        "Nothing here to delete.";
}

# 완전 삭제!
unlink $resource_path;

# 삭제 결과를 알려줌
print $q->header("text/html");
print $q->h1("Deleted $id");