Programming Web Services with SOAPn phần 9

Các dịch vụ Web hứa hẹn sẽ tạo ra một môi trường trong đó các đại lý có thể đánh giá các yếu tố khác nhau của con người sẽ, cho phép những người sử dụng con người để tập trung vào những điều quan trọng hơn cho các doanh nghiệp của họ. | Programming Web Services with SOAP Publisher Service Example C-13. server package Publisher use strict package Publisher DB use DBI use vars qw CONNECT CONNECT DBI CSV f dir home soaplite book csv sep char 0 my dbh sub dbh shift unless dbh dbh DBI- connect shift CONNECT dbh- RaiseError 1 return dbh END dbh- disconnect if dbh sub create my dbh shift- dbh dbh- do foreach split CREATE TABLE members memberID integer email char 100 password char 25 firstName char 50 lastName char 50 title char 50 company char 50 url char 255 subscribed integer CREATE TABLE items itemID integer memberID integer type integer title char 255 description 1 char 512 postStamp integer page 181 Programming Web Services with SOAP sub insert member my dbh shift- dbh my newMemberID 1 dbh- selectrow array SELECT memberID FROM members ORDER BY memberID DESC my parameters @ memberID newMemberID subscribed 0 my names join keys parameters my placeholders join x keys parameters dbh- do INSERT INTO members names VALUES placeholders values parameters return newMemberID sub select_member my dbh shift- dbh my parameters @_ my where join AND map keys parameters where WHERE where if where returns row in array context and first element memberID in scalar return dbh- selectrow array SELECT FROM members where values parameters sub update_member my dbh shift- dbh my memberID parameters @ my set join map keys parameters dbh- do UPDATE members SET set WHERE memberID values parameters memberID return memberID sub insert_item my dbh shift- dbh my newItemID 1 dbh- selectrow array SELECT itemID FROM items ORDER BY itemID DESC my parameters @ itemID newItemID postStamp time my names join keys parameters my placeholders join x keys parameters dbh- do INSERT INTO items names VALUES placeholders values parameters return newItemID sub select_item my dbh shift- dbh my parameters @_ my where join AND map keys parameters return dbh- selectrow array SELECT FROM items WHERE where values parameters page 182 .