AMF-Perl
view release on metacpan or search on metacpan
Revision history for Perl extension AMF::Perl.
0.15 Sun Sep 19 13:01:35 EDT 2004
Converted examples (except for Petmarket) to ActionScript 2.0 under Flash MX 2004.
Patches from Kostas Chatzikokolakis about error checking of input data length.
WriteUTF() writes the string length as long for lengths > 65535.
Also, check for (defined $s) and not just ($s) in writeUTF.
0.14 Sun Jul 11 18:59:36 EDT 2004
Really fixed the number 16 issue (forgot to include the change in 0.13).
Added Richard Boulton's change to readDouble() and writeDouble() to take into account endian-ness.
Changed the behavior of amf_throw() to enable die() to work.
0.13 Sun Jun 20 15:52:57 EDT 2004
Started duplicating changes in this file.
doc/examples/basic/basic.html view on Meta::CPAN
This shows various data types passed through AMF to the perl backend and sent back.
The most interesting this is not so much what it does, but how it works. The Perl script utilizes the "service discovery" approach - you simply put Perl modules into a certain directory, and they are automatically registered as services.
<br><br>
This example also shows how to throw exceptions, handled by functionName_onStatus in the Flash client (as opposed to functionName_onResult, which is called normally). Simply include in your Perl code
<pre>
use AMF::Perl qw/amf_throw/;
</pre>
and then call <em>amf_throw()</em> with a string or an arbitrary object as a parameter.
<br><br>
If you call <em>die "Error message"</em>, it will be also caught in the same way and sent as an error to Flash.
<br><br>
<a href=basic.pl>This is the server-side Perl script basic.pl.</a>
<a href=basicservices/DataEcho.pm>This is a sample service DataEcho.pm.</a>
</td>
<td width=600>
<OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,40,0" id="basic" width=550 height=350>
<PARAM NAME=movie VALUE="basic.swf">
doc/examples/basic/basicservices/DataEcho.pm view on Meta::CPAN
=head1 NAME
DataEcho
==head1 DESCRIPTION
Service class used in conjusction with basic.pl
All AMF::Perl service classes must define the method table, where the user can supply optional description and return type.
If you want to return an error message, handled by functionName_onStatus in the Flash client (as opposed to functionName_onResult, which is normal), include
use AMF::Perl qw/amf_throw/;
and then call amf_throw() with a string or an arbitrary object as a parameter.
==head1 CHANGES
Tue Jul 6 22:06:56 EDT 2004
Added exception throwing via amf_throw().
doc/examples/basic/basicservices/DataEcho.pm view on Meta::CPAN
"description" => "Echoes a Flash Date Object (the returnType needs setting)",
"access" => "remote", # available values are private, public, remote
"returns" => "date"
},
"echoXML" => {
"description" => "Echoes a Flash XML Object (the returnType needs setting)",
"access" => "remote", # available values are private, public, remote
"returns" => "xml"
},
"generateError" => {
"description" => "Throw an error so that _status, not _result on the client side is called",
"access" => "remote", # available values are private, public, remote
},
};
}
sub echoNormal
{
my ($self, $data) = @_;
return $data;
}
doc/examples/basic/basicservices/DataEcho.pm view on Meta::CPAN
{
my ($self, $data) = @_;
return $data;
}
sub echoXML
{
my ($self, $data) = @_;
return $data;
}
#This function will NOT return the value, because the call to amf_throw() will interrupt
#the control flow and cause the _Status function on the client to be called.
sub generateError
{
my ($self, $data) = @_;
amf_throw("An error!!!");
return "No error";
}
1;
doc/examples/petmarket/petmarket/api/dbConn.pm view on Meta::CPAN
use DBI;
use AMF::Perl::Sql::MysqlRecordSet;
sub new
{
my ($proto) = @_;
my $self = {};
bless $self, $proto;
my $dbh = DBI->connect("DBI:mysql:host=$dbhost:db=$dbname","$dbuser","$dbpass",{ PrintError=>1, RaiseError=>1 }) or die "Unable to connect: " . $DBI::errstr . "\n";
$self->dbh($dbh);
my $recordset = AMF::Perl::Sql::MysqlRecordSet->new($dbh);
$self->recordset($recordset);
return $self;
}
doc/examples/petmarket/petmarket/api/stringresourcesservice.pm view on Meta::CPAN
$strings{"BILLING_FLDS_HINT_str"}="Please enter your billing address.";
$strings{"SHIPPING_FLDS_HINT_str"}="Please enter your shipping address.";
$strings{"USE_THIS_FOR_SHIPPING_CH_LBL_str"}="Use this address for shipping";
$strings{"USE_BILLING_FOR_SHIPPING_CH_LBL_str"}="Use billing address for shipping";
$strings{"EDIT_LBL_str"}="Edit";
$strings{"CHECKOUT_USER_HD_str"}="1) Welcome";
$strings{"CHECKOUT_BILLING_HD_str"}="2) Customer Details / Billing Address";
$strings{"CHECKOUT_SHIPPING_HD_str"}="3) Shipping Address";
$strings{"CHECKOUT_SHIPPING_METHOD_HD_str"}="4) Shipping Options & Promotions";
$strings{"CHECKOUT_PAYMENT_HD_str"}="5) Payment Method & Confirmation";
$strings{"SHIPPING_METHODS_FLDS_HINT_str"}="Please select your preferred shipping method. If you were provided a promotional code, enter it here.";
$strings{"SHIPPING_METHOD_LBL_str"}="Shipping Method:";
$strings{"PROMOTION_CODE_LBL_str"}="Promotion Code:";
$strings{"EST_DELIVERY_DATE_LBL_str"}="Estimated delivery date:";
$strings{"CHECKOUT_SUBMIT_BTN_LBL_str"}="Place Order";
$strings{"PAYMENT_METHOD_LBL_str"}="Credit Card Type:";
$strings{"PAYMENT_METHODS_HINT_str"}="Please review the billing and shipping information you entered above. Make changes by clicking the Edit button.\n\nComplete your purchase by clicking the Place Order button.";
$strings{"CHECKOUT_EXIT_BTN_LBL_str"}="Exit Checkout";
$strings{"ADD_TO_CART_BTN_LBL_str"}="Add To Cart";
$strings{"HISTORY_WIDGET_LBL_str"}="history";
$strings{"SEARCH_WIDGET_LBL_str"}="search";
doc/examples/petmarket/petmarket/api/stringresourcesservice.pm view on Meta::CPAN
$strings{"CART_CHECKOUT_BTN_LBL_str"}="Checkout";
$strings{"CART_CONTINUE_BTN_LBL_str"}="Shop More";
$strings{"STATE_CB_NON_US_LBL_str"}="State / Provence:";
$strings{"STATE_CB_US_LBL_str"}="State:";
$strings{"COUNTRY_CB_LBL_str"}="Country:";
$strings{"FULL_NAME_LBL_str"}="Full name:";
$strings{"FIRST_NAME_LBL_str"}="First name:";
$strings{"LAST_NAME_LBL_str"}="Last name:";
$strings{"CHECKOUT_GROUP_HD_str"}="Checkout";
$strings{"CHARGE_SUMMARY_HD_str"}="Charge Summary";
$strings{"CHARGE_SUMMARY_HINT_str"}="Please review all charges listed below before completing your purchase.\n\nMake sure that you have selected your preferred shipping method and entered any promotional codes that may entitle you to a discou...
$strings{"CHARGE_SUMMARY_SUBTOTAL_LBL_str"}="Cart Subtotal:";
$strings{"CHARGE_SUMMARY_PROMOTIONS_LBL_str"}="Promotions:";
$strings{"CHARGE_SUMMARY_SHIPPING_LBL_str"}="Shipping Charges:";
$strings{"CHARGE_SUMMARY_TAX_LBL_str"}="Taxes:";
$strings{"CHARGE_SUMMARY_GRAND_TOTAL_LBL_str"}="Total Charges:";
$strings{"VALIDATE_EMAIL_ERR_TITLE_str"}="E-mail not valid";
$strings{"VALIDATE_EMAIL_ERR_MSG_str"}="E-mail entered is not valid.\nPlease try again.";
$strings{"VALIDATE_PASS_ERR_TITLE_str"}="Password invalid";
$strings{"VALIDATE_PASS_MISMATCH_ERR_MSG_str"}="Passwords do not match.\nPlease try again.";
$strings{"VALIDATE_PASS_INVALID_ERR_MSG_str"}="Invalid password.\nPlease try again.";
doc/examples/sql/park.sql view on Meta::CPAN
INSERT INTO tblparks VALUES ('EVERGLADES NATIONAL PARK','P.O. BOX 279','','','HOMESTEAD','FL','33030','305-242-7700','SOUTHEAST REGION','Ring, Richard G.','8:00 AM TO 5:00 PM','12/06/1947','NATIONAL PARK');
INSERT INTO tblparks VALUES ('FATHER MARQUETTE NATIONAL MEMORIAL','STRAITS STATE PARK','','','ST IGNACE','MI','49781','906-643-8620','MIDWEST REGION','None','8:00 AM TO 5:00 PM',' / /19','NATIONAL MEMORIAL');
INSERT INTO tblparks VALUES ('FEDERAL HALL NATIONAL MEMORIAL','C/O MANHATTEN SITES','26 WALL STREET','','NEW YORK','NY','10005','212-264-8711','NORTH ATLANTIC REGION','Mueller, Diane','9:00 AM TO 5:00 PM','08/11/1955','NATIONAL MEMORIAL');
INSERT INTO tblparks VALUES ('FEDERAL LAW ENFORCEMENT TRAINING CTR','NATIONAL PARK SERVICE','BUILDING 64 ROOM 213','','GLYNCO','GA','31524','912-267-2246','WASHINGTON OFFICE','(VACANT)','8:00 AM TO 4:30 PM',' / /19','SERVICE/TRAINING/ARCHEOL CENTER...
INSERT INTO tblparks VALUES ('FIRE ISLAND NATIONAL SEASHORE','120 LAUREL STREET','','','PATCHOGUE','NY','11772','516-289-4810','NORTH ATLANTIC REGION','Hauptman, John A.','8:00 AM TO 5:00 PM','09/12/1984','NATIONAL SEASHORE');
INSERT INTO tblparks VALUES ('FIRE MANAGEMENT OFFICE','NATIONAL INTERAGENCY FIRE CENTER','NATIONAL PARK SERVICE','3833 SOUTH DEVELOPMENT AVENUE','BOISE','ID','83705-5354','208-387-5200','Pacific Northwest Region','ERSKINE, DOUGLAS','8:00 AM TO 4:30 P...
INSERT INTO tblparks VALUES ('FLORISSANT FOSSIL BEDS NATIONAL MONUMENT','P.O. BOX 185','','','FLORISSANT','CO','80816-0185','719-748-3253','ROCKY MOUNTAIN REGION','Ditmanson, Dale','8:00 AM TO 4:30 PM',' / /19','NATIONAL MONUMENT');
INSERT INTO tblparks VALUES ('FORD\'S THEATRE NATIONAL HISTORIC SITE','C/O NATIONAL CAPITAL PARKS-CENTRAL','900 OHIO DRIVE, S.W.','','WASHINGTON','DC','20242','202-426-6924','NATIONAL CAPITAL REGION','FOOTMON, EDWARD B.','9:00 AM TO 5:00 PM','06/23/1...
INSERT INTO tblparks VALUES ('FORT CAROLINE NATIONAL MEMORIAL','NATIONAL PARK SERVICE','13165 MT. PLEASANT ROAD','','JACKSONVILLE','FL','32225','904-221-5568','SOUTHEAST REGION','LEWIS, SUZANNE','8:00 AM TO 4:30 PM','01/16/1953','NATIONAL MEMORIAL');...
INSERT INTO tblparks VALUES ('FORT CLATSOP NATIONAL MEMORIAL','ROUTE 3, BOX 604-FC','','','ASTORIA','OR','97103-9197','503-861-2471','PACIFIC NORTHWEST REGION','ORLANDO, CYNTHIA','8:00 AM TO 5:00 PM','10/17/1962','NATIONAL MEMORIAL');
INSERT INTO tblparks VALUES ('FORT DAVIS NATIONAL HISTORIC SITE','P.O. BOX 1456','','','FORT DAVIS','TX','79734','915-426-3225','Southwest Region','Yarbrough, Jerry','8:00 AM TO 5:00 PM','07/04/1963','National Historical Site');
INSERT INTO tblparks VALUES ('FORT DONELSON NATIONAL BATTLEFIELD','P.O. BOX 434','','','DOVER','TN','37058-0434','615-232-5348','Southeast Region','MAYER, WALTER L.','8:00 AM TO 4:30 PM','03/26/1928','National Battlefield');
INSERT INTO tblparks VALUES ('FORT DONELSON NATIONAL CEMETERY','C/O FORT DONELSON NATL BATTLEFIELD','P.O. BOX 434','','DOVER','TN','37058-0434','615-232-5348','Southeast Region','MAYER, WALTER L.','8:00 AM TO 4:30 PM','04-01-1867','National Cemetary'...
INSERT INTO tblparks VALUES ('FORT FREDERICA NATIONAL MONUMENT','ROUTE 9, BOX 286-C','','','ST. SIMONS ISLAND','GA','31522','912-638-3639','Southeast Region','Tennent, Michael D.','8:00 AM TO 5:00 PM',' / /19','National Monument');
INSERT INTO tblparks VALUES ('FORT JEFFERSON NATIONAL MONUMENT','P.O. BOX 6208','','','KEY WEST','FL','33040','305-246-2521','SOUTHEAST REGION','(VACANT)','8:00 AM TO 5:00 PM','01/04/1935','NATIONAL MONUMENT');
INSERT INTO tblparks VALUES ('FORT LARAMIE NATIONAL HISTORIC SITE','P.O. BOX 86','','','FORT LARAMIE','WY','82212-0086','307-837-2221','Rocky Mountain Region','Gwaltey, William','8:00 AM TO 4:30 PM',' / /19','National Historical Site');
INSERT INTO tblparks VALUES ('FORT LARNED NATIONAL HISTORIC SITE','ROUTE 3','','','LARNED','KS','67550','316-285-6911','MIDWEST REGION','LINDERER, STEVEN R.','8:30 AM TO 5:00 PM','10/14/1966','NATIONAL HISTORICAL SITE');
INSERT INTO tblparks VALUES ('FORT MATANZAS NATIONAL MONUMENT','C/O CASTILLO DE SAN MARCOS NM','1 CASTILLO DRIVE','','ST. AUGUSTINE','FL','32084','904-471-0116','SOUTHEAST REGION','Wilson, Gordon J.','8:30 AM TO 5:00 PM','10/15/1924','NATIONAL MONUME...
INSERT INTO tblparks VALUES ('FORT MCHENRY NATL MONUMENT & HIST SHRINE','EAST FORT AVENUE','','','BALTIMORE','MD','21230','410-962-4290','MID-ATLANTIC REGION','TYLER, JOHN W.','8:00 AM TO 5:00 PM',' / /19','NATIONAL MONUMENT');
INSERT INTO tblparks VALUES ('FORT NECESSITY NATIONAL BATTLEFIELD','RD 2, BOX 528','','','FARMINGTON','PA','15437','412-329-5512','MID-ATLANTIC REGION','Paris, Marilyn H.','8:00 AM TO 5:00 PM',' / /19','NATIONAL BATTLEFIELD');
INSERT INTO tblparks VALUES ('FORT PULASKI NATIONAL MONUMENT','P.O. BOX 30757','SAVANNAH, GA 31410-0757','','TYBEE ISLAND','GA','31328','912-786-5787','Southeast Region','BREEN, JOHN D.','8:15 AM TO 5:00 PM','10/15/1924','National Monument');
doc/examples/sql/park.sql view on Meta::CPAN
INSERT INTO tblparks VALUES ('GEORGE WASHINGTON CARVER NM','5646 CARVER ROAD','','','DIAMOND','MO','64840','417-325-4151','Midwest Region','WILLIAM N. JACKSON','8:00 AM TO 5:00 PM','11/30/1950','National Monument');
INSERT INTO tblparks VALUES ('GEORGE WASHINGTON MEMORIAL PARKWAY','TURKEY RUN PARK','','','MCLEAN','VA','22443-','301-285-2600','National Capital Region','John J. Donahue','8:00 AM TO 5:00 PM',' / /19','Memorial Parkway');
INSERT INTO tblparks VALUES ('GETTYSBURG NATIONAL CEMETERY','P.O. BOX 1080','','','GETTYSBURG','PA','17325-1080','717-334-1124','Mid-Atlantic Region','Cisneros, Jose A.','8:00 AM TO 5:00 PM','05-01-1872','National Cemetary');
INSERT INTO tblparks VALUES ('GETTYSBURG NATIONAL MILITARY PARK','97 TANEYTOWN RD','','','GETTYSBURG','PA','17325-2804','717-334-1124','Mid-Atlantic Region','LATSCHAR, JOHN A.','8:00 AM TO 5:00 PM','02-11-1895','National Military Park');
INSERT INTO tblparks VALUES ('GILA CLIFF DWELLINGS NATIONAL MONUMENT','ROUTE 11, BOX 100','','','SILVER CITY','NM','88061','505-536-9461','SOUTHWEST REGION','Kozacek, Susan','8:00 AM TO 5:00 PM','11/16/1907','NATIONAL MONUMENT');
INSERT INTO tblparks VALUES ('GLACIER NATIONAL PARK','','','','WEST GLACIER','MT','59936-0128','406-888-5441','Rocky Mountain Region','MIHALIC, DAVID A.','8:00 AM TO 4:30 PM','05/11/1910','National Park');
INSERT INTO tblparks VALUES ('GLEN CANYON NATIONAL RECREATION AREA','P.O. BOX 1507','','','PAGE','AZ','86040-1507','520-608-6200','Rocky Mountain Region','ALSTON, JOE','7:00 AM TO 4:00 PM','10/27/1972','National Recreation Area');
INSERT INTO tblparks VALUES ('GLEN ECHO PARK','C/O GEORGE WASHINGTON MEMORIAL PRKWY','TURKEY RUN PARK','','MCLEAN','VA','22101','301-492-6266','NATIONAL CAPITAL REGION','CALHOUN, AUDRY F.','9:00 AM TO 5:00 PM','03/22/1976','NATIONAL CAPITAL PARK');
INSERT INTO tblparks VALUES ('GLORIA DEI (OLD SWEDES) CHURCH NHS','2 DELAWARE AND CHRISTIAN ST.','','','PHILADELPHIA','PA','19106','215-597-7120','MID-ATLANTIC REGION','Aikens, Martha','8:00 AM TO 5:00 PM',' / /19','NATIONAL HISTORICAL SITE');
INSERT INTO tblparks VALUES ('GOLDEN GATE NATIONAL RECREATION AREA','BUILDING 201, FORT MASON','','','SAN FRANCISCO','CA','94123','415-556-2920','WESTERN REGION','O\'neill, Brian','7:45 AM TO 4:30 PM','10/27/1972','NATIONAL RECREATION AREA');
INSERT INTO tblparks VALUES ('GOLDEN SPIKE NATIONAL HISTORIC SITE','P.O. BOX 897','','','BRIGHAM CITY','UT','84302-0923','801-471-2209','ROCKY MOUNTAIN REGION','Herr, William M.','8:00 AM TO 4:30 PM','07/30/1965','NATIONAL HISTORICAL SITE');
INSERT INTO tblparks VALUES ('GRAND PORTAGE NATIONAL MONUMENT','P.O. BOX 668','','','GRAND MARAIS','MN','55604','218-387-2788','MIDWEST REGION','Einwalter, Dean C.','8:00 AM TO 5:00 PM','09/02/1958','NATIONAL MONUMENT');
INSERT INTO tblparks VALUES ('GRAND TETON NATIONAL PARK','P.O. BOX 170','','','MOOSE','WY','83012-0170','307-733-2880','ROCKY MOUNTAIN REGION','Neckels, Jack','8:00 AM TO 4:30 PM','02/26/1929','NATIONAL PARK');
INSERT INTO tblparks VALUES ('GRANT-KOHRS RANCH NATIONAL HISTORIC SITE','P.O. BOX 790','','','DEER LODGE','MT','59722-0790','406-846-2070','Rocky Mountain Region','Schrtzle, Tony','7:30 AM TO 4:30 PM',' / /19','National Historical Site');
INSERT INTO tblparks VALUES ('GREAT BASIN NATIONAL PARK','','','','BAKER','NV','89311','702-234-7331','Western Region','VACANT','8:00 AM TO 5:00 PM','10/27/1986','National Park');
INSERT INTO tblparks VALUES ('GREAT FALLS PARK','C/O GEORGE WASHINGTON MEMORIAL PRKWY','TURKEY RUN PARK','','MCLEAN','VA','22101','703-759-2915','NATIONAL CAPITAL REGION','ANDERSON, JANE','9:00 AM TO 5:00 PM','10/10/1965','NATIONAL CAPITAL PARK');
INSERT INTO tblparks VALUES ('GREAT ONYX JOB CORPS CIV CONS CTR','3115 OLLIE RIDGE ROAD','','','MAMMOTH CAVE','KY','42259','502-286-4514','SOUTHEAST REGION','Yates, Ralph P.','8:00 AM TO 4:30 PM','06/15/1965','JOB CORPS CENTER');
INSERT INTO tblparks VALUES ('GREAT SAND DUNES NATIONAL MONUMENT','11500 HIGHWAY 150','','','MOSCA','CO','81146-9798','719-378-2312','ROCKY MOUNTAIN REGION','Wellman, William E.','8:00 AM TO 5:00 PM','03/17/1932','NATIONAL MONUMENT');
INSERT INTO tblparks VALUES ('GREAT SMOKY MOUNTAINS NATIONAL PARK','107 PARK HEADQUARTERS ROAD','','','GATLINBURG','TN','37738','615-436-1200','Southeast Region','Wade, Karen','8:00 AM TO 4:30 PM','02/06/1930','National Park');
INSERT INTO tblparks VALUES ('GREATER YELLOWSTONE COORDINATING COMM','C/O U.S. FOREST SERVICE','P.O. BOX 2556','','BILLINGS','MT','59103','406-657-6361','ROCKY MOUNTAIN REGION','Hellickson-Key, Sandra','','11/30/1987','MISCELLANEOUS');
INSERT INTO tblparks VALUES ('GREEN SPRINGS NAT HIST LANDMARK DIST','P.O. BOX 1838','','','LOUISA','VA','23093','703-967-9671','MID-ATLANTIC REGION','ZINCK, JAMES R.','8:30 AM TO 5:00 PM','12/12/1980',NULL);
INSERT INTO tblparks VALUES ('GREENBELT PARK','6565 GREENBELT ROAD','','','GREENBELT','MD','20770','301-344-3948','NATIONAL CAPITAL REGION','Hickman, Robert','8:00 AM TO 5:00 PM',' / /19','NATIONAL CAPITAL PARK');
INSERT INTO tblparks VALUES ('GUADALUPE MOUNTAINS NATIONAL PARK','HC 60, BOX 400','','','SALT FLAT','TX','79847-9400','915-828-3251','SOUTHWEST REGION','Henderson, Larry','8:00 AM TO 4:30 PM','09/30/1972','NATIONAL PARK');
INSERT INTO tblparks VALUES ('GUILFORD COURTHOUSE NMP','2332 NEW GARDEN ROAD','','','GREENSBORO','NC','27410-2355','910-288-1776','SOUTHEAST REGION','WOODS, MARK','8:30 AM TO 5:00 PM','03/02/1917','NATIONAL MILITARY PARK');
INSERT INTO tblparks VALUES ('GULF ISLANDS NATIONAL SEASHORE','1801 GULF BREEZE PARKWAY','','','GULF BREEZE','FL','32561','904-934-2604','SOUTHEAST REGION','Eubanks, Jerry A.','8:00 AM TO 4:30 PM','07/06/1984','NATIONAL SEASHORE');
INSERT INTO tblparks VALUES ('HALEAKALA NATIONAL PARK','P.O. BOX 369 MAKAWAO','','','MAUI','HI','96768','808-572-9306','Western Region','Reeser, Don','7:30 AM TO 4:00 PM','07/01/1961','National Park');
INSERT INTO tblparks VALUES ('HAMPTON NATIONAL HISTORIC SITE','535 HAMPTON LANE','','','TOWSON','MD','21286','410-962-0688','MID-ATLANTIC REGION','SHERMAN, BESS','8:00 AM TO 5:00 PM','06/22/1948','NATIONAL HISTORICAL SITE');
INSERT INTO tblparks VALUES ('HARPERS FERRY JOB CORPS CIV CONS CTR','P.O. BOX 237','','','HARPERS FERRY','WV','25425','304-725-2011','NATIONAL CAPITAL REGION','Thomas, Claude','8:00 AM TO 4:30 PM',' / /19','JOB CORPS CENTER');
INSERT INTO tblparks VALUES ('HARPERS FERRY NATIONAL HISTORICAL PARK','P.O. BOX 65','','','HARPERS FERRY','WV','25425','304-535-6224','National Capital Region','CAMPBELL, DONALD W.','8:00 AM TO 4:30 PM','06/30/1944','National Historical Site');
INSERT INTO tblparks VALUES ('HARRY S TRUMAN NATIONAL HISTORIC SITE','223 NORTH MAIN STREET','','','INDEPENDENCE','MO','64050-2803','816-254-2720','Midwest Region','APSCHNIKAT, KENNETH E.','8:00 AM TO 5:00 PM','05/23/1983','National Historical Site')...
INSERT INTO tblparks VALUES ('HAWAII VOLCANOES NATIONAL PARK','P.O. BOX 52','','','HAWAII VOLCANOES','HI','96718','808-967-7311','Western Region','Martin, Jim','7:30 AM TO 4:00 PM','08/01/1916','National Park');
INSERT INTO tblparks VALUES ('HERBERT HOOVER NATIONAL HISTORIC SITE','P.O. BOX 607','','','WEST BRANCH','IA','52358-0607','319-643-2541','Midwest Region','Carol kohan','8:00 AM TO 5:00 PM','08/17/1972','National Historical Site');
INSERT INTO tblparks VALUES ('HOHOKAM PIMA NATIONAL MONUMENT','1100 RUINS DRIVE','','','COOLIDGE','AZ','85228','602-723-3172','WESTERN REGION','None','7:00 AM TO 6:00 PM',' / /19','NATIONAL MONUMENT');
INSERT INTO tblparks VALUES ('HOME OF FRANKLIN D ROOSEVELT NHS','249 ALBANY POST ROAD','','','HYDE PARK','NY','12538','914-229-9115','NORTH ATLANTIC REGION','Pearson, Duane R.','8:30 AM TO 5:00 PM','01/15/1944','NATIONAL HISTORICAL SITE');
INSERT INTO tblparks VALUES ('HOMESTEAD NATIONAL MONUMENT OF AMERICA','ROUTE 3, BOX 47','','','BEATRICE','NE','68310','402-223-3514','Midwest Region','DILLON, CONSTANTINE','8:00 AM TO 5:00 PM','01/03/1939','National Monument');
INSERT INTO tblparks VALUES ('HOPEWELL CULTURE NATL HISTORICAL PARK','16062 STATE RT. 104','','','CHILLICOTHE','OH','45601-8694','614-774-1126','MIDWEST REGION','NEAL, JOHN D.','8:00 AM TO 5:00 PM','03/02/1923',NULL);
INSERT INTO tblparks VALUES ('HOPEWELL FURNACE NATIONAL HISTORIC SITE','2 MARK BIRD LANE','','','ELVERSON','PA','19520','215-582-8773','MID-ATLANTIC REGION','Cook, Derrick M.','8:45 AM TO 5:15 PM','08/03/1938','NATIONAL HISTORICAL SITE');
INSERT INTO tblparks VALUES ('HORACE M. ALBRIGHT TRAINING CENTER','NATIONAL PARK SERVICE','P.O. BOX 477','','GRAND CANYON','AZ','86023','602-638-2691','WASHINGTON OFFICE','(VACANT)','8:00 AM TO 5:00 PM','07/01/1963','SERVICE/TRAINING/ARCHEOL CENTER')...
INSERT INTO tblparks VALUES ('HORSESHOE BEND NATIONAL MILITARY PARK','11288 HORSESHOE BEND ROAD','','','DAVISTON','AL','36256-9751','205-234-7111','SOUTHEAST REGION','DAVID, JAMES S.','8:00 AM TO 5:00 PM','08/11/1959','NATIONAL MILITARY PARK');
INSERT INTO tblparks VALUES ('HOT SPRINGS NATIONAL PARK','P.O. BOX 1860','','','HOT SPRINGS','AR','71902','501-624-3383','Southwest Region','Giddings, Roger E.','8:00 AM TO 4:30 PM','03/04/1921','National Park');
INSERT INTO tblparks VALUES ('HOVENWEEP NATIONAL MONUMENT','McELMO ROUTE','CORTEZ, CO 81321','','MESA VERDE NATIONAL PARK','CO','81321','303-529-4461','Rocky Mountain Region','Hutchinson, Art','8:00 AM TO 4:30 PM','03/02/1923','National Monument');
INSERT INTO tblparks VALUES ('HUBBELL TRADING POST NHS','P.O. BOX 150','','','GANADO','AZ','86505-0150','520-755-3475','Southwest Region','VACANT','8:00 AM TO 5:00 PM','04/03/1967','National Historical Site');
INSERT INTO tblparks VALUES ('ICE AGE NATIONAL SCENIC TRAIL','700 RAYOVAC DRIVE , SUITE 100','','','MADISON','WI','53711','608-264-5610','Midwest Region','GILBERT, THOMAS L.','8:00 AM TO 4:30 PM','10/03/1980','National Trail');
INSERT INTO tblparks VALUES ('ICE AGE NATIONAL SCIENTIFIC RESERVE','WISCONSIN DEPT OF NATURAL RESOURCES','P.O. BOX 7921','','MADISON','WI','53707','608-266-7616','Midwest Region','MOORMAN, WILLIAM T.','','05-21-1971','National Reserve');
INSERT INTO tblparks VALUES ('ILLINOIS & MICHIGAN CANAL','NATIONAL HERITAGE CORRIDOR','15701 S. INDEPENDENCE BLVD','LOCKPORT, IL 60441','JOLIET','IL','60441','815-740-2047','MIDWEST REGION','Hanson, Lee','8:00 AM TO 4:30 PM','08/24/1984','MISCELLANE...
INSERT INTO tblparks VALUES ('INDEPENDENCE NATIONAL HISTORICAL PARK','313 WALNUT STREET','','','PHILADELPHIA','PA','19106','215-597-7120','MID-ATLANTIC REGION','Aikens, Martha','8:00 AM TO 5:00 PM','07/07/1956','NATIONAL HISTORICAL PARK');
INSERT INTO tblparks VALUES ('INDIANA DUNES NATIONAL LAKESHORE','1100 N. MINERAL SPRINGS RD.','','','PORTER','IN','46304-1299','219-926-7561','MIDWEST REGION','ENGQUIST, DALE B.','8:00 AM TO 4:30 PM','09/20/1972','NATIONAL LAKESHORE');
doc/examples/sql/park.sql view on Meta::CPAN
INSERT INTO tblparks VALUES ('PICTURED ROCKS NATIONAL LAKESHORE','P.O. BOX 40','','','MUNISING','MI','49862','906-387-2607','MIDWEST REGION','Petersen, Grant A.','8:00 AM TO 4:30 PM','08/25/1972','NATIONAL LAKESHORE');
INSERT INTO tblparks VALUES ('PINELANDS NATIONAL RESERVE','C/O MID-ATLANTIC REGIONAL OFFICE','NATIONAL PARK SERVICE','143 SOUTH THIRD STREET','PHILADELPHIA','PA','19106','617-223-3769','MID-ATLANTIC REGION','NONE','','11/10/1978','NATIONAL RESERVE');...
INSERT INTO tblparks VALUES ('PINNACLES NATIONAL MONUMENT','','','','PAICINES','CA','95043','408-389-4485','Western Region','Candelaria, Gary','8:00 AM TO 4:30 PM','05/12/1910','National Monument');
INSERT INTO tblparks VALUES ('PIPE SPRING NATIONAL MONUMENT','HC 65, BOX 5','','','FREDONIA','AZ','86022','520-643-7105','Rocky Mountain Region','HISCOCK, JOHN','8:00 AM TO 4:30 PM','05/31/1923','National Monument');
INSERT INTO tblparks VALUES ('PIPESTONE NATIONAL MONUMENT','P.O. BOX 727','','','PIPESTONE','MN','56164','507-825-5464','MIDWEST REGION','HALVORSON, VINCENT J.','8:00 AM TO 5:00 PM','08/25/1937','NATIONAL MONUMENT');
INSERT INTO tblparks VALUES ('PISCATAWAY PARK','C/O NATIONAL CAPITAL REGION-EAST','1900 ANACOSTIA DRIVE, SE','','WASHINGTON','DC','20020','301-292-2112','NATIONAL CAPITAL REGION','Korzan, Al','7:30 AM TO 4:30 PM','10/04/1961','NATIONAL CAPITAL PARK')...
INSERT INTO tblparks VALUES ('POINT REYES NATIONAL SEASHORE','','','','POINT REYES','CA','94956','415-663-8522','Western Region','Neubackes, Don','8:00 AM TO 4:30 PM','10/20/1972','National Seashore');
INSERT INTO tblparks VALUES ('POPLAR GROVE NATIONAL CEMETERY','P.O. BOX 549','','','PETERSBURG','VA','23804','804-732-3531','Mid-Atlantic Region','HILL, MICHAEL O.','7:30 AM TO 4:00 PM','07/03/1926','National Cemetary');
INSERT INTO tblparks VALUES ('POTOMAC HERITAGE NATL SCENIC TRAIL','C/O NATL CAPITAL REGIONAL OFFICE','NATIONAL PARK SERVICE','1100 OHIO DRIVE, SW','WASHINGTON','DC','20242','','National Capital Region','NONE','7:45 AM TO 4:15 PM','03/28/1983','Nation...
INSERT INTO tblparks VALUES ('POVERTY POINT NATIONAL MONUMENT','','','','','','','','Southwest Region','(Vacant)','','10/31/1988','National Monument');
INSERT INTO tblparks VALUES ('PU\'UHONUA O HONAUNAU NHP','P.O. BOX 129','','','KONA','HI','96726','808-328-2326','Western Region','Shimoda, Jerry Y.','7:30 AM TO 4:00 PM','07/01/1961','National Historical Site');
INSERT INTO tblparks VALUES ('PUUKOHOLA HEIAU NATIONAL HISTORIC SITE','P.O BOX 44340','','','KAWAIHAE','HI','96743','808-882-7218','Western Region','KAWAIAEA, DANIEL','7:30 AM TO 4:00 PM','08/17/1972','National Historical Site');
INSERT INTO tblparks VALUES ('RAINBOW BRIDGE NATIONAL MONUMENT','C/O GLEN CANYON NATL RECR AREA','P.O. BOX 1507','','PAGE','AZ','86040-1507','602-645-2471','Rocky Mountain Region','ALSTON, JOE','7:00 AM TO 4:00 PM','05/30/1910','National Monument');
INSERT INTO tblparks VALUES ('REDWOOD NATIONAL PARK','1111 SECOND STREET','','','CRESCENT CITY','CA','95531','707-464-6101','Western Region','Renggold, Andy','8:00 AM TO 5:00 PM',' / /19','National Park');
INSERT INTO tblparks VALUES ('RICHMOND NATIONAL BATTLEFIELD PARK','3215 EAST BROAD STREET','','','RICHMOND','VA','23223','804-226-1981','MID-ATLANTIC REGION','MACLEOD, CYNTHIA','8:00 AM TO 5:00 PM','07/14/1944','NATIONAL BATTLEFIELD PARK');
INSERT INTO tblparks VALUES ('RIO GRANDE WILD & SCENIC RIVER','C/O BIG BEND NATIONAL PARK','PANTHER JUNCTION','','BIG BEND NATIONAL PARK','TX','79834','915-477-2251','SOUTHWEST REGION','Arnberger, Robert L.','8:00 AM TO 5:00 PM',' / /19','NATIONAL ...
INSERT INTO tblparks VALUES ('ROCK CREEK PARK','3545 WILLIAMSBURG LANE, NW','','','WASHINGTON','DC','20008-','202-282-1063','National Capital Region','Shields, William','7:45 AM TO 4:30 PM',' - -','National Capital Park');
INSERT INTO tblparks VALUES ('ROCKY MOUNTAIN NATIONAL PARK','','','','ESTES PARK','CO','80517-8397','303-586-2371','Rocky Mountain Region','Jones, Randy','8:00 AM TO 4:45 PM','01/26/1915','National Park');
INSERT INTO tblparks VALUES ('ROCKY MOUNTAIN REGIONAL OFFICE','NATIONAL PARK SERVICE','12795 W. ALAMEDA PARKWAY','P.O. BOX 25287','DENVER','CO','80225-0287','303-969-2000','Rocky Mountain Region','COOK, JOHN','7:30 AM TO 4:15 PM','12/01/1973','Region...
INSERT INTO tblparks VALUES ('ROGER WILLIAMS NATIONAL MEMORIAL','282 NORTH MAIN STREET','','','PROVIDENCE','RI','02903','401-521-7266','North Atlantic Region','PEPPER, JAMES','8:00 AM TO 4:30 PM','12/30/1974','National Memorial');
INSERT INTO tblparks VALUES ('ROOSEVELT CAMPOBELLO INTERNATIONAL PARK','C/O EXEC SEC, INT\'L PARK COMM','P.O. BOX 97','','LUBEC','ME','04654','506-752-2922','NORTH ATLANTIC REGION','Stevens, Harry','','07/07/1964','MISCELLANEOUS');
doc/examples/sql/park.sql view on Meta::CPAN
INSERT INTO tblparks VALUES ('SHILOH NATIONAL MILITARY PARK','ROUTE 1, BOX 9','','','SHILOH','TN','38376','901-689-5275','Southeast Region','HARRELL, HAYWOOD S.','8:00 AM TO 5:00 PM','12-27-1894','National Military Park');
INSERT INTO tblparks VALUES ('SLEEPING BEAR DUNES NATIONAL LAKESHORE','9922 FRONT STREET (HWY M-72)','','','EMPIRE','MI','49630','616-326-5134','MIDWEST REGION','MILLER, IVAN D.','8:00 AM TO 4:30 PM','10/07/1977','NATIONAL LAKESHORE');
INSERT INTO tblparks VALUES ('SOUTHEAST ARCHEOLOGICAL CENTER','NATIONAL PARK SERVICE','P.O. BOX 2416','','TALLAHASSEE','FL','32304','904-561-9106','SOUTHEAST REGION','Faust, Richard','',' / /19','SERVICE/TRAINING/ARCHEOL CENTER');
INSERT INTO tblparks VALUES ('SOUTHEAST REGIONAL OFFICE','NATIONAL PARK SERVICE','75 SPRING STREET, SW','','ATLANTA','GA','30303','404-331-5185','SOUTHEAST REGION','Coleman, James W., Jr.','7:30 AM TO 4:00 PM','08/01/1937','REGIONAL OFFICE');
INSERT INTO tblparks VALUES ('SOUTHERN ARIZONA GROUP','NATIONAL PARK SERVICE','202 E. EARLL DRIVE, SUITE 115','','PHOENIX','AZ','85012','602-640-5250','Western Region','BELSON, JERRY','7:45 AM TO 4:15 PM',' / /19','Group Office');
INSERT INTO tblparks VALUES ('SOUTHWEST CULTURAL RESOURCES CENTER','P.O. BOX 728','','','SANTA FE','NM','87504-0728','505-988-6781','SOUTHWEST REGION','Sellars, Richard W.','8:00 AM TO 4:30 PM','11/21/1976','SERVICE/TRAINING/ARCHEOL CENTER');
INSERT INTO tblparks VALUES ('SOUTHWEST REGIONAL OFFICE','NATIONAL PARK SERVICE','P.O. BOX 728','','SANTA FE','NM','87504-0728','505-988-6004','Southwest Region','ROGERS, JERRY','8:00 AM TO 4:30 PM','08/01/1937','Regional Office');
INSERT INTO tblparks VALUES ('SPANISH COLONIAL RESEARCH CENTER','ZIMMERMAN LIBRARY','SNIVERSITY OF NEW MEXICO','','ALBUQUERQUE','NM','87131','505-766-8743','SOUTHWEST REGION','SANCHEZ, JOSEPH P.','','11/30/1985','MISCELLANEOUS');
INSERT INTO tblparks VALUES ('SPRINGFIELD ARMORY NHS','ONE ARMORY SQUARE','','','SPRINGFIELD','MA','01105','413-734-6477','NORTH ATLANTIC REGION','Beatty, Steve','8:00 AM TO 5:00 PM',' / /19','NATIONAL HISTORICAL SITE');
INSERT INTO tblparks VALUES ('STATUE OF LIBERTY NATIONAL MONUMENT','LIBERTY ISLAND','','','NEW YORK','NY','10004','212-363-8340','North Atlantic Region','Belkov, M. Ann','8:00 AM TO 5:00 PM',' / /19','National Monument');
INSERT INTO tblparks VALUES ('STEAMTOWN NATIONAL HISTORIC SITE','150 SOUTH WASHINGTON AVENUE','','','SCRANTON','PA','18503','717-340-5200','Mid-Atlantic Region','Gess, Terry','7:30 AM TO 4:30 PM','10-30-1986','National Historical Site');
INSERT INTO tblparks VALUES ('STONES RIVER NATIONAL BATTLEFIELD','3501 OLD NASHVILLE HWY','','','MURFREESBORO','TN','39129','615-893-9501','Southeast Region','Peckham, Mary Ann','8:00 AM TO 5:00 PM','03/03/1927','National Battlefield');
INSERT INTO tblparks VALUES ('STONES RIVER NATIONAL CEMETERY','3501 OLD NASHVILLE HIGHWAY','RT 10, BOX 495','','MURFREESBORO','TN','37129','615-893-9501','Southeast Region','Peckham, Mary Ann','8:00 AM TO 5:00 PM','03/03/1927','National Cemetary');
INSERT INTO tblparks VALUES ('THADDEUS KOSCIUSZKO NATIONAL MEMORIAL','C/O INDEPENDENCE NHP','313 WALNUT STREET','','PHILADELPHIA','PA','19106','215-597-7120','MID-ATLANTIC REGION','None','8:00 AM TO 5:00 PM',' / /19','NATIONAL MEMORIAL');
INSERT INTO tblparks VALUES ('THEODORE ROOSEVELT BIRTHPLACE NHS','C/O MANHATTAN SITES','26 WALL STREET','','NEW YORK','NY','10005','212-260-1616','NORTH ATLANTIC REGION','Gross, Katharine','9:00 AM TO 5:00 PM','07/15/1963','NATIONAL HISTORICAL SITE')...
INSERT INTO tblparks VALUES ('THEODORE ROOSEVELT INAUGURAL NHS','641 DELAWARE AVE','','','BUFFALO','NY','14202','716-884-0095','NORTH ATLANTIC REGION','Brandt, Barbara','9:00 AM TO 5:00 PM',' / /19','NATIONAL HISTORICAL SITE');
INSERT INTO tblparks VALUES ('THEODORE ROOSEVELT NATIONAL PARK','P.O. BOX 7','','','MEDORA','ND','58645-0007','701-623-4466','ROCKY MOUNTAIN REGION','Hart, Peter','8:00 AM TO 4:30 PM','04/25/1947','NATIONAL PARK');
INSERT INTO tblparks VALUES ('THOMAS JEFFERSON MEMORIAL','C/O NATIONAL CAPITAL PARKS-CENTRAL','MALL OPERATIONS','900 OHIO DRIVE, S.W.','WASHINGTON','DC','20242','202-426-6822','NATIONAL CAPITAL REGION','Fudge, Robert','8:00 AM TO 5:00 PM',' / /19',...
INSERT INTO tblparks VALUES ('TIMPANOGOS CAVE NATIONAL MONUMENT','RURAL ROUTE 3, BOX 200','','','AMERICAN FORK','UT','84003-9803','801-756-5239','Rocky Mountain Region','Cordell, Roy','8:00 AM TO 4:30 PM','10/14/1922','National Monument');
INSERT INTO tblparks VALUES ('TIMUCUAN ECOLOGICAL & HIST PRESERVE','NATIONAL PARK SERVICE','13165 MT. PLEASANT ROAD','','JACKSONVILLE','FL','32225','904-221-5568','SOUTHEAST REGION','LEWIS, SUZANNE','8:00 AM TO 4:30 PM','02/16/1988','MISCELLANEOUS');...
INSERT INTO tblparks VALUES ('TOURO SYNAGOGUE NATL HIST SITE','85 TOURO STREET','','','NEWPORT','RI','02840','401-847-4794','NORTH ATLANTIC REGION','None','',' / /19','NATIONAL HISTORICAL SITE');
doc/examples/sql/parkservices/ParkService.pm view on Meta::CPAN
use DBI;
sub new
{
my ($proto) = @_;
my $self = {};
bless $self, $proto;
my $dbh = DBI->connect("DBI:mysql:host=$dbhost:db=$dbname","$dbuser","$dbpass",{ PrintError=>1, RaiseError=>1 })
or die "Unable to connect: " . $DBI::errstr . "\n";
my $recordset = AMF::Perl::Sql::MysqlRecordSet->new($dbh);
$self->recordset($recordset);
return $self;
}
sub recordset
{
doc/updates.html view on Meta::CPAN
<body
style="background-image: url(orn5.gif);">
<div style="position: absolute; left: 20px;">
<h1>AMF::Perl - Flash Remoting in Perl<br>
</h1>
<table cellpadding="2" cellspacing="2" border="0"
style="text-align: left; width: 600px;">
<tbody>
<tr><td>
<h2><a href="http://www.simonf.com/amfperl">AMF::Perl</a> update history</h2>
<br><br>September 19, 2004. Version 0.15 uploaded. Converted examples to ActionScript 2.0, better input error checking.
<br><br>Jul 11, 2004. Version 0.14 uploaded. Endianness, better exception handling.
<br><br>Jul 06, 2004. Version 0.13 uploaded. Small bug fixes, exception handling.
<br><br>Apr 29, 2004. Version 0.12 uploaded. Changed "use Apache2" to "require Apache2".
<br><br>Apr 24, 2004. Flash::FLAP renamed to AMF::Perl. Version 0.11 uploaded (0.10 was an interim release). Hopefully complete mod_perl 1 and 2 handling. Mysql column type determination.
<br><br>Mar 13, 2004. Version 0.09 uploaded. Fixed a couple of "uninitialized" warnings, accepted patches for POD documentation, smarter detection of numbers and dates in Serializer and text encoding.
lib/AMF/Perl.pm view on Meta::CPAN
eval
{
$results = $self->{exec}->doMethodCall( $body->{"value"} );
# get the return type
$returnType = $self->{exec}->getReturnType();
};
if ( $@ )
{
$results = UNIVERSAL::isa( $@, 'AMFException' ) ? $@->error : constructException($@);
$self->{"response"} = "/onStatus";
$returnType = "AMFObject";
}
# save the result in our amfout object
$amfout->addBody($body->{"response"}.$self->{"response"}, "null", $results, $returnType);
}
# create a new output stream
my $outstream = new AMF::Perl::IO::OutputStream ();
lib/AMF/Perl.pm view on Meta::CPAN
$self->{exec}->registerService($package, $servicepackage);
}
sub constructException
{
my ($description) = @_;
my $stack = Devel::StackTrace->new();
my %result;
$description = "An error occurred" unless $description;
$result{"description"} = $description;
$result{"exceptionStack"} = $stack->as_string;
my @frames = $stack->frames;
$result{"details"} = $frames[1]->filename();
$result{"line"} = $frames[1]->line();
$result{"level"} = "Error";
$result{"code"} = "1";
return \%result;
}
sub amf_throw
{
my ($description) = @_;
AMFException->throw( error => constructException($description) );
}
sub setSafeExecution
{
my ($self, $safe) = @_;
print STDERR "There is no need to call setSafeExecution anymore!\n";
}
sub encoding
lib/AMF/Perl/App/Executive.pm view on Meta::CPAN
sub setTarget
{
my ($self, $target)=@_;
$self->{target} = $target;
# grab the position of the last . char
my $lpos = strrpos($target, ".");
# there were none
unless ($lpos)
{
print STDERR "Service name $target does not contain a dot.\n";
# throw an error because there has to be atleast 1
}
else
{
# the method name is the very last part
$self->{_methodname} = substr($target, $lpos+1);
}
# truncate the method name from the string
my $trunced = substr($target, 0, $lpos);
$self->{_classname} = $trunced;
lib/AMF/Perl/App/Executive.pm view on Meta::CPAN
# Check to see if the DescribeService header has been turned on
if ($self->{_headerFilter} && $self->{_headerFilter} eq "DescribeService")
{
my $wrapper = new AMF::Perl::Util::RemotingService($package, $object);
$self->{_classConstruct} = $wrapper;
$method = "__describeService";
# override the method name to the __describeService method
$self->{_methodname} = $method;
# add the instance to the methodrecord to control registered discover
my $methodTable = $self->{_classConstruct}->methodTable;
$methodTable->{$method}{'instance'} = $self->{_instanceName};
}
else
{
$self->{_classConstruct} = $object;
lib/AMF/Perl/App/Executive.pm view on Meta::CPAN
{
# map the _methodname to the alias
$method = $methodrecord{'alias'};
}
if (exists($methodrecord{'instance'}))
{
# check the instance names to see if they match. If so, then let this happen
if (!exists($methodrecord{'instance'}) || $self->{_instanceName} != $methodrecord{'instance'})
{
# if they don't match then print STDERR with this error
print STDERR "Access error for " . $self->{_headerFilter} . ".\n";
return;
}
}
# check to see if an explicit return type was defined
if (exists($methodrecord{'returns'}))
{
$self->{_returnType} = $methodrecord{'returns'};
}
# set the default return type of "unknown"
lib/AMF/Perl/App/Executive.pm view on Meta::CPAN
if ( (exists($methodrecord{'access'})) && (lc ($methodrecord{'access'}) eq "remote"))
{
# finally check to see if the method existed
if ($self->{_classConstruct}->can($method))
{
# execute the method and return it's results to the gateway
return $self->{_classConstruct}->$method(@$a);
}
else
{
# print STDERR with error
print STDERR "Method " . $calledMethod . " does not exist in class ".$self->{_classConstruct}.".\n";
}
}
else
{
# print STDERR with error
print STDERR "Access Denied to " . $calledMethod . "\n";
}
}
else
{
# print STDERR with error
print STDERR "Function " . $calledMethod . " does not exist in class ".$self->{_classConstruct}.".\n";
}
}
sub doMethodCall_registered
{
my ($self, $package, $method, $a) = @_;
my $serviceobject = $self->{services}->{$package};
if(length($package) == 0)
{
# TODO: handle non packaged functions
#trigger_error("ERROR: no package in call",E_USER_ERROR);
return;
}
elsif(!$serviceobject)
{
print STDERR "Package ".$package." not registerd on server\n";
return;
}
elsif(!$serviceobject->can($method))
{
print STDERR "Function ".$method." does not exist in package ".$package."\n";
lib/AMF/Perl/IO/Deserializer.pm view on Meta::CPAN
AMF::Perl::IO::Deserializer
=head1 DESCRIPTION
Package used to turn the binary data into physical perl objects.
=head1 CHANGES
=head2 Sun Sep 19 13:01:35 EDT 2004
=item Patch from Kostas Chatzikokolakis about error checking of input data length.
=head2 Sat Mar 13 16:31:31 EST 2004
=item Patch from Kostas Chatzikokolakis handling encoding.
=head2 Sun Mar 9 18:17:31 EST 2003
=item The return value of readArray should be \@ret, not @ret.
=head2 Tue Mar 11 21:55:41 EST 2003
lib/AMF/Perl/IO/InputStream.pm view on Meta::CPAN
AMF::Perl::IO::InputStream
=head1 DESCRIPTION
InputStream package built to handle getting the binary data from the raw input stream.
=head1 CHANGES
=head2 Sun Sep 19 13:01:35 EDT 2004
=item Patch from Kostas Chatzikokolakis about error checking of input data length.
=head2 Tue Jun 22 19:28:30 EDT 2004
=item Improved the check in readDouble to append "0" to the string instead of skipping
the value. Otherwise the number 16 did not go through.
=item Added defined($thisByte) in readInt, otherwise the character "0" (say, in string length of 30)
did not go through.
=head2 Sat Mar 13 16:39:29 EST 2004
=item Changed calls to ord() in readByte() and concatenation readDouble()
lib/AMF/Perl/IO/Serializer.pm view on Meta::CPAN
# were still lacking dates, xml, and strings longer than 65536 chars
sub writeData
{
my ($self, $d, $type)=@_;
$type = "unknown" unless $type;
# **************** TO DO **********************
# Since we are now allowing the user to determine
# the datatype we have to validate the user's suggestion
# vs. the actual data being passed and throw an error
# if things don't check out.!!!!
# **********************************************
# get the type of the data by checking its reference name
#if it was not explicitly passed
if ($type eq "unknown")
{
if (!defined $d) # convert undef to null, but not "" or 0
{
$type = "NULL";
( run in 1.673 second using v1.01-cache-2.11-cpan-49f99fa48dc )