Hi!
I still have some problems viewing varibles in the debugger.
Here is a dump of the epic console debugger:
;{
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
my $offset = 0;
my $varexpr = <<'EOT';
\%{$main::soap}->{'_current'}
EOT
my $subref = \&dumpvar_epic::dump_array_expr;
my $savout = select($DB::OUT);
$subref->($offset, $varexpr);
select($savout);
};
Not an ARRAY reference at C:/Software/eclipse/workspace/.metadata/.plugins/org.epic.debug/dumpvar_epic.pm line 25.
DB<179> ;{
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
my $offset = 0;
my $varexpr = <<'EOT';
\%{$main::soap}->{'_current'}
EOT
my $subref = \&dumpvar_epic::dump_array_expr;
my $savout = select($DB::OUT);
$subref->($offset, $varexpr);
select($savout);
};
Not an ARRAY reference at C:/Software/eclipse/workspace/.metadata/.plugins/org.epic.debug/dumpvar_epic.pm line 25.
DB<180> ;{
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
my $offset = 0;
my $varexpr = <<'EOT';
\%{$main::soap}->{'_content'}
EOT
my $subref = \&dumpvar_epic::dump_array_expr;
my $savout = select($DB::OUT);
$subref->($offset, $varexpr);
select($savout);
};
Not an ARRAY reference at C:/Software/eclipse/workspace/.metadata/.plugins/org.epic.debug/dumpvar_epic.pm line 25.
DB<181> ;{
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
my $offset = 0;
my $varexpr = <<'EOT';
\%{$main::soap}->{'_content'}
EOT
my $subref = \&dumpvar_epic::dump_array_expr;
my $savout = select($DB::OUT);
$subref->($offset, $varexpr);
select($savout);
};
Not an ARRAY reference at C:/Software/eclipse/workspace/.metadata/.plugins/org.epic.debug/dumpvar_epic.pm line 25.
DB<182> ;{
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
my $offset = 0;
my $varexpr = <<'EOT';
\%{$main::soap}->{'_current'}
EOT
my $subref = \&dumpvar_epic::dump_array_expr;
my $savout = select($DB::OUT);
$subref->($offset, $varexpr);
select($savout);
};
Not an ARRAY reference at C:/Software/eclipse/workspace/.metadata/.plugins/org.epic.debug/dumpvar_epic.pm line 25.
DB<183> ;{
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
my $offset = 0;
my $varexpr = <<'EOT';
\%{$main::soap}->{'_current'}
EOT
my $subref = \&dumpvar_epic::dump_array_expr;
my $savout = select($DB::OUT);
$subref->($offset, $varexpr);
select($savout);
};
Not an ARRAY reference at C:/Software/eclipse/workspace/.metadata/.plugins/org.epic.debug/dumpvar_epic.pm line 25.
DB<184>
-----------------------------------------------
Here is the stack trace from the Eclipse system:
java.lang.StringIndexOutOfBoundsException: String index out of range: 114
at java.lang.String.charAt(Unknown Source)
at org.epic.debug.db.DumpedEntityReader.token(DumpedEntityReader.java:46)
at org.epic.debug.db.DumpedEntityReader.nextEntity(DumpedEntityReader.java:33)
at org.epic.debug.db.ArrayValue.parseArrayContent(ArrayValue.java:49)
at org.epic.debug.db.ArrayValue.<init>(ArrayValue.java:25)
at org.epic.debug.db.PerlVariable.getValue(PerlVariable.java:122)
at org.eclipse.debug.internal.ui.elements.adapters.VariableContentAdapter.hasChildren(VariableContentAdapter.java:44)
at org.eclipse.debug.internal.ui.viewers.provisional.AsynchronousContentAdapter.computeIsContainer(AsynchronousContentAdapter.java:126)
at org.eclipse.debug.internal.ui.viewers.provisional.AsynchronousContentAdapter$2.run(AsynchronousContentAdapter.java:72)
at org.eclipse.core.internal.jobs.Worker.run(Worker.java:58)
----------------------------------------------------
The whole stacktrace occurs when I click on a $soap variable,
Code looks like this:
$soap = SOAP::Lite
-> uri("urn:VFA")
-> proxy($proxy)
-> upload($upload_data);
And when I click on the $soap varible, which then seems to contain something that the debugger cannot handle, it crashes w. the above java stack trace.
If you need more info pls contact me at:
peter.grape<at>strandinterconnect.se or here (of course).
Regards
Peter
Logged In: YES
user_id=1821949
Originator: YES
I forgot, I am using the 0.6.10 version of EPIC eclipse 3.2.2, Perl 5.8.8.
Logged In: YES
user_id=86907
Originator: NO
Provide the output of
use Data::Dumper;
print Dumper($soap);
as well as the output from the debugger console.
Logged In: YES
user_id=1821949
Originator: YES
Hi Jan!
Here is some more info.
First a dump of the actual "$soap" data using Dumper as requested.
-----------------------------------------------------------
$VAR1 = bless( {
'_content' => [
'SOAP-ENV:Envelope',
{
'xmlns:xsi' => 'http://www.w3.org/1999/XMLSchema-instance',
'xmlns:SOAP-ENC' => 'http://schemas.xmlsoap.org/soap/encoding/',
'xmlns:SOAP-ENV' => 'http://schemas.xmlsoap.org/soap/envelope/',
'xmlns:xsd' => 'http://www.w3.org/1999/XMLSchema',
'SOAP-ENV:encodingStyle' => 'http://schemas.xmlsoap.org/soap/encoding/'
},
[
[
'SOAP-ENV:Body',
{},
[
[
'SOAP-ENV:Fault',
{},
[
[
'faultcode',
{
'xsi:type' => 'xsd:string'
},
'SOAP-ENV:Server',
undef,
'SOAP-ENV:Server',
'faultcode',
{
'xsi:type' => bless( [
'xsd:string',
'http://www.w3.org/1999/XMLSchema',
'string'
], 'SOAP::Lite::QNameValue' ),
'{http://www.w3.org/1999/XMLSchema-instance}type' => '{http://www.w3.org/1999/XMLSchema}string'
}
],
[
'faultstring',
{
'xsi:type' => 'xsd:string'
},
'C:/software/log/20070626-s03907.log Permission denied at C:\\Inetpub\\wwwroot\\sams\\service.cgi line 795.
',
undef,
'C:/software/log/20070626-s03907.log Permission denied at C:\\Inetpub\\wwwroot\\sams\\service.cgi line 795.
',
'faultstring',
{
'xsi:type' => bless( [
'xsd:string',
'http://www.w3.org/1999/XMLSchema',
'string'
], 'SOAP::Lite::QNameValue' ),
'{http://www.w3.org/1999/XMLSchema-instance}type' => '{http://www.w3.org/1999/XMLSchema}string'
}
]
],
undef,
{
'faultcode' => 'SOAP-ENV:Server',
'faultstring' => 'C:/software/log/20070626-s03907.log Permission denied at C:\\Inetpub\\wwwroot\\sams\\service.cgi line 795.
'
},
'{http://schemas.xmlsoap.org/soap/envelope/}Fault',
{}
]
],
undef,
{
'Fault' => $VAR1->{'_content'}[2][0][2][0][4]
},
'{http://schemas.xmlsoap.org/soap/envelope/}Body',
{}
]
],
undef,
{
'Body' => $VAR1->{'_content'}[2][0][4]
},
'{http://schemas.xmlsoap.org/soap/envelope/}Envelope',
{
'SOAP-ENV:encodingStyle' => 'http://schemas.xmlsoap.org/soap/encoding/',
'{http://schemas.xmlsoap.org/soap/envelope/}encodingStyle' => 'http://schemas.xmlsoap.org/soap/encoding/'
}
],
'_current' => [
$VAR1->{'_content'}
]
}, 'SOAP::SOM' );
-----------------------------------------------------------------------
Second a console output:
Loading DB routines from perl5db.pl version 1.28
Editor support available.
Enter h or `h h' for help, or `perldoc perldebug' for more help.
main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:9):
9: my $q = new CGI;
DB<1> printf $DB::OUT "%vd", $^V;
5.8.8
DB<2> print $DB::OUT eval { require PadWalker; PadWalker->VERSION(0.08) }
1.5
DB<3> ;{
my $file = <<'EOT';
C:/Inetpub/wwwroot/sams/test/testclient.cgi
EOT
my $line = <<'EOT';
148
EOT
my $cond = '';
epic_breakpoints::add_breakpoint($file, $line, $cond);
};
DB<4> ;{
my $file = <<'EOT';
C:/Inetpub/wwwroot/sams/test/testclient.cgi
EOT
my $line = <<'EOT';
116
EOT
my $cond = '';
epic_breakpoints::add_breakpoint($file, $line, $cond);
};
DB<5> ;{
my $file = <<'EOT';
C:/Inetpub/wwwroot/sams/service.cgi
EOT
my $line = <<'EOT';
303
EOT
my $cond = '';
epic_breakpoints::add_breakpoint($file, $line, $cond);
};
DB<6> .
main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:9):
9: my $q = new CGI;
DB<7> T
DB<8> .
main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:9):
9: my $q = new CGI;
DB<9> .
main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:9):
9: my $q = new CGI;
DB<10> .
main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:9):
9: my $q = new CGI;
DB<11> c
main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:116):
116: my $upload_data = SOAP::Data->name('data' => \%data);
DB<12> .
main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:116):
116: my $upload_data = SOAP::Data->name('data' => \%data);
DB<13> .
main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:116):
116: my $upload_data = SOAP::Data->name('data' => \%data);
DB<14> .
main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:116):
116: my $upload_data = SOAP::Data->name('data' => \%data);
DB<15> T
DB<16> .
main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:116):
116: my $upload_data = SOAP::Data->name('data' => \%data);
DB<17> ;{
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_package_vars;
my $savout = select($DB::OUT);
dumpvar_epic::dump_package_vars();
select($savout);
};
3|$^A|1|1|17|SCALAR(0x183d260)|2|''|1|2
3|$^D|1|1|17|SCALAR(0x1886408)|3|'0'|1|3
3|$^E|1|1|17|SCALAR(0x1946530)|2|''|1|2
3|$^F|1|1|17|SCALAR(0x195ace4)|3|'2'|1|3
3|$^H|1|1|16|SCALAR(0x276eac)|5|'256'|1|5
3|$^L|1|1|17|SCALAR(0x183d128)|3|' '|1|3
3|$^O|1|1|17|SCALAR(0x1878270)|9|'MSWin32'|1|9
3|$^P|1|1|17|SCALAR(0x19cd2cc)|5|'831'|1|5
3|$^S|1|1|17|SCALAR(0x1bd55ec)|3|'1'|1|3
7|$^TAINT|1|1|17|SCALAR(0x1c0ddfc)|3|'0'|1|3
9|$^UNICODE|1|1|17|SCALAR(0x21767e8)|3|'0'|1|3
3|$^V|1|1|16|SCALAR(0x276dc8)|5|''|1|5
3|$^W|1|1|17|SCALAR(0x1820450)|3|'1'|1|3
14|$^WARNING_BITS|1|1|17|SCALAR(0x18931bc)|14|'UUUUUUUUUUUU'|2|14
3|$^X|1|1|16|SCALAR(0x277c50)|22|'C:\Perl\bin\perl.exe'|2|22
2|$!|1|1|17|SCALAR(0x18402c0)|21|'Bad file descriptor'|2|21
2|%!|1|1|15|HASH(0x1be8f18)|3|...|1|3
2|$"|1|1|16|SCALAR(0x277ad0)|3|' '|1|3
2|$$|1|1|17|SCALAR(0x182da98)|6|'3368'|1|6
2|$%|1|1|17|SCALAR(0x18bb50c)|3|'0'|1|3
2|$-|1|1|17|SCALAR(0x182dab0)|3|'0'|1|3
2|$/|1|1|16|SCALAR(0x276fc0)|3|'
'|1|3
2|$0|1|1|16|SCALAR(0x277c38)|57|'C:\Inetpub\wwwroot\sams\test\testclient.cgi'|2|57
2|$:|1|1|17|SCALAR(0x18bbc74)|5|'
-'|1|5
2|$;|1|1|17|SCALAR(0x1df0394)|3|''|1|3
2|$<|1|1|17|SCALAR(0x185be00)|3|'0'|1|3
2|$=|1|1|17|SCALAR(0x18bb68c)|4|'60'|1|4
2|$?|1|1|17|LVALUE(0x191e7f8)|3|...|1|3
2|$@|1|1|16|SCALAR(0x276ee8)|2|''|1|2
4|%ENV|1|1|14|HASH(0x277c74)|3|...|1|3
4|@INC|1|1|15|ARRAY(0x276e88)|3|...|1|3
4|%INC|1|1|14|HASH(0x276e94)|3|...|1|3
4|%SIG|1|1|15|HASH(0x185b548)|3|...|1|3
18|FileHandle(STDERR)|1|1|17|SCALAR(0x22564cc)|11|'fileno(2)'|2|11
17|FileHandle(STDIN)|1|1|17|SCALAR(0x22564d8)|11|'fileno(0)'|2|11
18|FileHandle(STDOUT)|1|1|17|SCALAR(0x22564cc)|11|'fileno(1)'|2|11
2|$]|1|1|17|SCALAR(0x19e76c8)|10|'5.008008'|2|10
2|$^|1|1|17|SCALAR(0x18bbb18)|10|'GEN0_TOP'|2|10
7|$method|1|1|17|SCALAR(0x190ae04)|6|'http'|1|6
7|$server|1|1|17|SCALAR(0x190ad98)|15|'10.224.141.99'|2|15
18|FileHandle(stderr)|1|1|17|SCALAR(0x22561d8)|11|'fileno(2)'|2|11
17|FileHandle(stdin)|1|1|17|SCALAR(0x22561f0)|11|'fileno(0)'|2|11
18|FileHandle(stdout)|1|1|17|SCALAR(0x22561d8)|11|'fileno(1)'|2|11
2|$||1|1|17|SCALAR(0x18baea0)|3|'1'|1|3
2|$~|1|1|17|SCALAR(0x18bb974)|6|'GEN0'|1|6
DB<18> ;{
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
my $offset = 0;
my $savout = select($DB::OUT);
dumpvar_epic::dump_lexical_vars($offset);
select($savout);
};
7|$SERVER|1|1|17|SCALAR(0x1c37454)|5|undef|1|5
6|$proxy|1|1|17|SCALAR(0x2116cb4)|51|'http://10.224.141.99/sams/service.cgi'|2|51
2|$q|1|2|14|REF(0x1946c08)|19|CGI=HASH(0x21edc5c)|3|...|1|3
4|%car|1|1|15|HASH(0x21174d0)|3|...|1|3
9|%customer|1|1|15|HASH(0x21290c8)|3|...|1|3
5|%data|1|1|15|HASH(0x2117488)|3|...|1|3
9|%reseller|1|1|15|HASH(0x2133738)|3|...|1|3
7|%seller|1|1|15|HASH(0x2092230)|3|...|1|3
DB<19> ;{
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
my $offset = 0;
my $varexpr = <<'EOT';
${$h->{'$q'}}
EOT
my $subref = \&dumpvar_epic::dump_hash_expr;
my $savout = select($DB::OUT);
$subref->($offset, $varexpr);
select($savout);
};
8|.charset|1|1|17|SCALAR(0x21cc284)|12|'ISO-8859-1'|2|12
11|.fieldnames|1|2|14|REF(0x21eda64)|15|HASH(0x218fad0)|3|...|1|3
15|.header_printed|1|1|17|SCALAR(0x21f8dc8)|3|'1'|1|3
11|.parameters|1|2|14|REF(0x21cc74c)|16|ARRAY(0x21f869c)|3|...|1|3
6|button|1|2|14|REF(0x223f8a8)|16|ARRAY(0x223f8b4)|3|...|1|3
24|car_additional_equipment|1|2|14|REF(0x223f668)|16|ARRAY(0x223f674)|3|...|1|3
33|car_additional_equipment_discount|1|2|14|REF(0x223f698)|16|ARRAY(0x223f6a4)|3|...|1|3
18|car_chassie_number|1|2|14|REF(0x223f5a8)|16|ARRAY(0x223f5b4)|3|...|1|3
11|car_counter|1|2|14|REF(0x223f578)|16|ARRAY(0x223f584)|3|...|1|3
19|car_extra_equipment|1|2|14|REF(0x223f728)|16|ARRAY(0x223f734)|3|...|1|3
28|car_extra_equipment_discount|1|2|14|REF(0x223f758)|16|ARRAY(0x223f764)|3|...|1|3
21|car_factory_equipment|1|2|14|REF(0x223f7e8)|16|ARRAY(0x223f7f4)|3|...|1|3
30|car_factory_equipment_discount|1|2|14|REF(0x223f818)|16|ARRAY(0x223f824)|3|...|1|3
21|car_harbour_equipment|1|2|14|REF(0x223f788)|16|ARRAY(0x223f794)|3|...|1|3
30|car_harbour_equipment_discount|1|2|14|REF(0x223f7b8)|16|ARRAY(0x223f7c4)|3|...|1|3
11|car_licence|1|2|14|REF(0x223f5d8)|16|ARRAY(0x223f5e4)|3|...|1|3
7|car_lob|1|2|14|REF(0x223f4b8)|16|ARRAY(0x223f4c4)|3|...|1|3
8|car_make|1|2|14|REF(0x223f3c8)|16|ARRAY(0x223f3d4)|3|...|1|3
9|car_model|1|2|14|REF(0x223f3f8)|16|ARRAY(0x223f404)|3|...|1|3
14|car_model_code|1|2|14|REF(0x223f428)|16|ARRAY(0x223f434)|3|...|1|3
21|car_package_equipment|1|2|14|REF(0x223f6c8)|16|ARRAY(0x223f6d4)|3|...|1|3
30|car_package_equipment_discount|1|2|14|REF(0x223f6f8)|16|ARRAY(0x223f704)|3|...|1|3
15|car_paint_price|1|2|14|REF(0x223f848)|16|ARRAY(0x223f854)|3|...|1|3
9|car_price|1|2|14|REF(0x223f4e8)|16|ARRAY(0x223f4f4)|3|...|1|3
18|car_price_discount|1|2|14|REF(0x223f548)|16|ARRAY(0x223f554)|3|...|1|3
18|car_price_vat_type|1|2|14|REF(0x223f518)|16|ARRAY(0x223f524)|3|...|1|3
10|car_regFee|1|2|14|REF(0x223f878)|16|ARRAY(0x223f884)|3|...|1|3
17|car_tradein_price|1|2|14|REF(0x223f608)|16|ARRAY(0x223f614)|3|...|1|3
20|car_tradein_vat_type|1|2|14|REF(0x223f638)|16|ARRAY(0x223f644)|3|...|1|3
8|car_used|1|2|14|REF(0x223f488)|16|ARRAY(0x223f494)|3|...|1|3
8|car_year|1|2|14|REF(0x223f458)|16|ARRAY(0x223f464)|3|...|1|3
20|configuration_number|1|2|14|REF(0x21f88b8)|16|ARRAY(0x21f8a2c)|3|...|1|3
16|customer_address|1|2|14|REF(0x223f248)|16|ARRAY(0x223f254)|3|...|1|3
19|customer_cell_phone|1|2|14|REF(0x223f338)|16|ARRAY(0x223f344)|3|...|1|3
13|customer_city|1|2|14|REF(0x223f2a8)|16|ARRAY(0x223f2b4)|3|...|1|3
19|customer_co_address|1|2|14|REF(0x223f218)|16|ARRAY(0x223f224)|3|...|1|3
16|customer_company|1|2|14|REF(0x223f1b8)|16|ARRAY(0x223f1c4)|3|...|1|3
14|customer_email|1|2|14|REF(0x223f398)|16|ARRAY(0x223f3a4)|3|...|1|3
12|customer_fax|1|2|14|REF(0x223f368)|16|ARRAY(0x223f374)|3|...|1|3
13|customer_name|1|2|14|REF(0x223f1e8)|16|ARRAY(0x223f1f4)|3|...|1|3
15|customer_number|1|2|14|REF(0x223f188)|16|ARRAY(0x223f194)|3|...|1|3
14|customer_phone|1|2|14|REF(0x223f2d8)|16|ARRAY(0x223f2e4)|3|...|1|3
19|customer_work_phone|1|2|14|REF(0x223f308)|16|ARRAY(0x223f314)|3|...|1|3
12|customer_zip|1|2|14|REF(0x223f278)|16|ARRAY(0x223f284)|3|...|1|3
6|escape|1|1|17|SCALAR(0x21cc218)|3|'1'|1|3
12|order_number|1|2|14|REF(0x21f8a50)|16|ARRAY(0x21f8a5c)|3|...|1|3
8|password|1|2|14|REF(0x21f8a20)|16|ARRAY(0x21f88f4)|3|...|1|3
16|reseller_address|1|2|14|REF(0x21f8d5c)|16|ARRAY(0x21f8d68)|3|...|1|3
13|reseller_city|1|2|14|REF(0x223f0f8)|16|ARRAY(0x223f104)|3|...|1|3
13|reseller_name|1|2|14|REF(0x21f8d20)|16|ARRAY(0x21f8bac)|3|...|1|3
15|reseller_number|1|2|14|REF(0x21f8d2c)|16|ARRAY(0x21f8d38)|3|...|1|3
19|reseller_org_number|1|2|14|REF(0x223f128)|16|ARRAY(0x223f134)|3|...|1|3
14|reseller_phone|1|2|14|REF(0x223f158)|16|ARRAY(0x223f164)|3|...|1|3
12|reseller_zip|1|2|14|REF(0x223f0c8)|16|ARRAY(0x223f0d4)|3|...|1|3
14|seller_address|1|2|14|REF(0x21f8ab0)|16|ARRAY(0x21f8abc)|3|...|1|3
14|seller_company|1|2|14|REF(0x21f8c0c)|16|ARRAY(0x21f8c78)|3|...|1|3
12|seller_email|1|2|14|REF(0x21f8c84)|16|ARRAY(0x21f8c48)|3|...|1|3
11|seller_name|1|2|14|REF(0x21f8a80)|16|ARRAY(0x21f8a8c)|3|...|1|3
13|seller_number|1|2|14|REF(0x21f8d08)|16|ARRAY(0x21f8cf0)|3|...|1|3
12|seller_phone|1|2|14|REF(0x21f8ae0)|16|ARRAY(0x21f8b88)|3|...|1|3
12|use_tempfile|1|1|17|SCALAR(0x21cc32c)|3|'1'|1|3
9|user_name|1|2|14|REF(0x21f88ac)|16|ARRAY(0x21cc3b0)|3|...|1|3
DB<20> ;{
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
my $offset = 0;
my $varexpr = <<'EOT';
$h->{'%car'}
EOT
my $subref = \&dumpvar_epic::dump_hash_expr;
my $savout = select($DB::OUT);
$subref->($offset, $varexpr);
select($savout);
};
20|additional_equipment|1|2|14|REF(0x2248a20)|26|SOAP::Data=HASH(0x2248150)|3|...|1|3
29|additional_equipment_discount|1|2|14|REF(0x2248a2c)|26|SOAP::Data=HASH(0x22481d4)|3|...|1|3
14|chassie_number|1|2|14|REF(0x22489f0)|26|SOAP::Data=HASH(0x2247f34)|3|...|1|3
7|counter|1|2|14|REF(0x22489e4)|26|SOAP::Data=HASH(0x2247ea4)|3|...|1|3
15|extra_equipment|1|2|14|REF(0x2248a50)|26|SOAP::Data=HASH(0x2248360)|3|...|1|3
24|extra_equipment_discount|1|2|14|REF(0x2248a5c)|26|SOAP::Data=HASH(0x22483e4)|3|...|1|3
17|factory_equipment|1|2|14|REF(0x2248a80)|26|SOAP::Data=HASH(0x2248570)|3|...|1|3
26|factory_equipment_discount|1|2|14|REF(0x2248a8c)|26|SOAP::Data=HASH(0x22485f4)|3|...|1|3
17|harbour_equipment|1|2|14|REF(0x2248a68)|26|SOAP::Data=HASH(0x2248468)|3|...|1|3
26|harbour_equipment_discount|1|2|14|REF(0x2248a74)|26|SOAP::Data=HASH(0x22484ec)|3|...|1|3
7|licence|1|2|14|REF(0x22489fc)|26|SOAP::Data=HASH(0x2247fc4)|3|...|1|3
3|lob|1|2|14|REF(0x22489b4)|26|SOAP::Data=HASH(0x2247c94)|3|...|1|3
4|make|1|2|14|REF(0x2248978)|26|SOAP::Data=HASH(0x224dd10)|3|...|1|3
5|model|1|2|14|REF(0x2248984)|26|SOAP::Data=HASH(0x224e244)|3|...|1|3
10|model_code|1|2|14|REF(0x2248990)|26|SOAP::Data=HASH(0x224e628)|3|...|1|3
17|package_equipment|1|2|14|REF(0x2248a38)|26|SOAP::Data=HASH(0x2248258)|3|...|1|3
26|package_equipment_discount|1|2|14|REF(0x2248a44)|26|SOAP::Data=HASH(0x22482dc)|3|...|1|3
11|paint_price|1|2|14|REF(0x2248a98)|26|SOAP::Data=HASH(0x2248678)|3|...|1|3
5|price|1|2|14|REF(0x22489c0)|26|SOAP::Data=HASH(0x2247d18)|3|...|1|3
14|price_discount|1|2|14|REF(0x22489d8)|26|SOAP::Data=HASH(0x2247e20)|3|...|1|3
14|price_vat_type|1|2|14|REF(0x22489cc)|26|SOAP::Data=HASH(0x2247d9c)|3|...|1|3
6|regFee|1|2|14|REF(0x2248aa4)|26|SOAP::Data=HASH(0x22486fc)|3|...|1|3
13|tradein_price|1|2|14|REF(0x2248a08)|26|SOAP::Data=HASH(0x2248048)|3|...|1|3
16|tradein_vat_type|1|2|14|REF(0x2248a14)|26|SOAP::Data=HASH(0x22480cc)|3|...|1|3
4|used|1|2|14|REF(0x22489a8)|26|SOAP::Data=HASH(0x2247c10)|3|...|1|3
4|year|1|2|14|REF(0x224899c)|26|SOAP::Data=HASH(0x224e6a0)|3|...|1|3
DB<21> ;{
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
my $offset = 0;
my $varexpr = <<'EOT';
$h->{'%reseller'}
EOT
my $subref = \&dumpvar_epic::dump_hash_expr;
my $savout = select($DB::OUT);
$subref->($offset, $varexpr);
select($savout);
};
7|address|1|2|14|REF(0x224e0b8)|26|SOAP::Data=HASH(0x224ddac)|3|...|1|3
4|city|1|2|14|REF(0x224e0d0)|26|SOAP::Data=HASH(0x224decc)|3|...|1|3
4|name|1|2|14|REF(0x224e0a0)|26|SOAP::Data=HASH(0x224db18)|3|...|1|3
6|number|1|2|14|REF(0x224e0ac)|26|SOAP::Data=HASH(0x224dc80)|3|...|1|3
10|org_number|1|2|14|REF(0x224e0dc)|26|SOAP::Data=HASH(0x224df5c)|3|...|1|3
5|phone|1|2|14|REF(0x224e0e8)|26|SOAP::Data=HASH(0x224dfec)|3|...|1|3
3|zip|1|2|14|REF(0x224e0c4)|26|SOAP::Data=HASH(0x224de3c)|3|...|1|3
DB<22> ;{
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
my $offset = 0;
my $varexpr = <<'EOT';
$h->{'%customer'}
EOT
my $subref = \&dumpvar_epic::dump_hash_expr;
my $savout = select($DB::OUT);
$subref->($offset, $varexpr);
select($savout);
};
7|address|1|2|14|REF(0x224e754)|26|SOAP::Data=HASH(0x224e208)|3|...|1|3
10|cell_phone|1|2|14|REF(0x224e790)|26|SOAP::Data=HASH(0x224e4d8)|3|...|1|3
4|city|1|2|14|REF(0x224e76c)|26|SOAP::Data=HASH(0x224e328)|3|...|1|3
10|co_address|1|2|14|REF(0x224e748)|26|SOAP::Data=HASH(0x224e178)|3|...|1|3
7|company|1|2|14|REF(0x224e730)|26|SOAP::Data=HASH(0x224e01c)|3|...|1|3
5|email|1|2|14|REF(0x2247c04)|26|SOAP::Data=HASH(0x224e5f8)|3|...|1|3
3|fax|1|2|14|REF(0x2247bf8)|26|SOAP::Data=HASH(0x224e568)|3|...|1|3
4|name|1|2|14|REF(0x224e73c)|26|SOAP::Data=HASH(0x224e094)|3|...|1|3
6|number|1|2|14|REF(0x224e724)|26|SOAP::Data=HASH(0x224dddc)|3|...|1|3
5|phone|1|2|14|REF(0x224e778)|26|SOAP::Data=HASH(0x224e3b8)|3|...|1|3
10|work_phone|1|2|14|REF(0x224e784)|26|SOAP::Data=HASH(0x224e448)|3|...|1|3
3|zip|1|2|14|REF(0x224e760)|26|SOAP::Data=HASH(0x224e298)|3|...|1|3
DB<23> ;{
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
my $offset = 0;
my $varexpr = <<'EOT';
$h->{'%data'}
EOT
my $subref = \&dumpvar_epic::dump_hash_expr;
my $savout = select($DB::OUT);
$subref->($offset, $varexpr);
select($savout);
};
3|car|1|2|14|REF(0x22487bc)|15|HASH(0x21174d0)|3|...|1|3
20|configuration_number|1|2|14|REF(0x2248780)|26|SOAP::Data=HASH(0x2248000)|3|...|1|3
8|customer|1|2|14|REF(0x22487b0)|15|HASH(0x21290c8)|3|...|1|3
12|order_number|1|2|14|REF(0x224878c)|26|SOAP::Data=HASH(0x22482d0)|3|...|1|3
8|password|1|2|14|REF(0x2248774)|26|SOAP::Data=HASH(0x2247d90)|3|...|1|3
8|reseller|1|2|14|REF(0x22487a4)|15|HASH(0x2133738)|3|...|1|3
6|seller|1|2|14|REF(0x2248798)|15|HASH(0x2092230)|3|...|1|3
9|user_name|1|2|14|REF(0x2248768)|26|SOAP::Data=HASH(0x224e5ec)|3|...|1|3
DB<24> ;{
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
my $offset = 0;
my $varexpr = <<'EOT';
$h->{'%seller'}
EOT
my $subref = \&dumpvar_epic::dump_hash_expr;
my $savout = select($DB::OUT);
$subref->($offset, $varexpr);
select($savout);
};
7|address|1|2|14|REF(0x224dd34)|26|SOAP::Data=HASH(0x224da58)|3|...|1|3
7|company|1|2|14|REF(0x224dd4c)|26|SOAP::Data=HASH(0x224db78)|3|...|1|3
5|email|1|2|14|REF(0x224dd58)|26|SOAP::Data=HASH(0x224dc08)|3|...|1|3
4|name|1|2|14|REF(0x224dd28)|26|SOAP::Data=HASH(0x224d9c8)|3|...|1|3
6|number|1|2|14|REF(0x224dd64)|26|SOAP::Data=HASH(0x224dc8c)|3|...|1|3
5|phone|1|2|14|REF(0x224dd40)|26|SOAP::Data=HASH(0x224dae8)|3|...|1|3
DB<25> .
main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:116):
116: my $upload_data = SOAP::Data->name('data' => \%data);
DB<26> n
main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:121):
121: if ($q->param('button') eq "UPLOAD (T10)") {
DB<27> .
main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:121):
121: if ($q->param('button') eq "UPLOAD (T10)") {
DB<28> .
main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:121):
121: if ($q->param('button') eq "UPLOAD (T10)") {
DB<29> .
main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:121):
121: if ($q->param('button') eq "UPLOAD (T10)") {
DB<30> .
main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:121):
121: if ($q->param('button') eq "UPLOAD (T10)") {
DB<31> T
DB<32> .
main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:121):
121: if ($q->param('button') eq "UPLOAD (T10)") {
DB<33> ;{
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_package_vars;
my $savout = select($DB::OUT);
dumpvar_epic::dump_package_vars();
select($savout);
};
3|$^A|1|1|17|SCALAR(0x183d260)|2|''|1|2
3|$^D|1|1|17|SCALAR(0x1886408)|3|'0'|1|3
3|$^E|1|1|17|SCALAR(0x1946530)|67|'The system could not find the environment option that was entered'|2|67
3|$^F|1|1|17|SCALAR(0x195ace4)|3|'2'|1|3
3|$^H|1|1|16|SCALAR(0x276eac)|5|'256'|1|5
3|$^L|1|1|17|SCALAR(0x183d128)|3|' '|1|3
3|$^O|1|1|17|SCALAR(0x1878270)|9|'MSWin32'|1|9
3|$^P|1|1|17|SCALAR(0x19cd2cc)|5|'831'|1|5
3|$^S|1|1|17|SCALAR(0x1bd55ec)|3|'1'|1|3
7|$^TAINT|1|1|17|SCALAR(0x1c0ddfc)|3|'0'|1|3
9|$^UNICODE|1|1|17|SCALAR(0x21767e8)|3|'0'|1|3
3|$^V|1|1|16|SCALAR(0x276dc8)|5|''|1|5
3|$^W|1|1|17|SCALAR(0x1820450)|3|'1'|1|3
14|$^WARNING_BITS|1|1|17|SCALAR(0x18931bc)|14|'UUUUUUUUUUUU'|2|14
3|$^X|1|1|16|SCALAR(0x277c50)|22|'C:\Perl\bin\perl.exe'|2|22
2|$!|1|1|17|SCALAR(0x18402c0)|21|'Bad file descriptor'|2|21
2|%!|1|1|15|HASH(0x1be8f18)|3|...|1|3
2|$"|1|1|16|SCALAR(0x277ad0)|3|' '|1|3
2|$$|1|1|17|SCALAR(0x182da98)|6|'3368'|1|6
2|$%|1|1|17|SCALAR(0x18bb50c)|3|'0'|1|3
2|$-|1|1|17|SCALAR(0x182dab0)|3|'0'|1|3
2|$/|1|1|16|SCALAR(0x276fc0)|3|'
'|1|3
2|$0|1|1|16|SCALAR(0x277c38)|57|'C:\Inetpub\wwwroot\sams\test\testclient.cgi'|2|57
2|$:|1|1|17|SCALAR(0x18bbc74)|5|'
-'|1|5
2|$;|1|1|17|SCALAR(0x1df0394)|3|''|1|3
2|$<|1|1|17|SCALAR(0x185be00)|3|'0'|1|3
2|$=|1|1|17|SCALAR(0x18bb68c)|4|'60'|1|4
2|$?|1|1|17|LVALUE(0x191e7f8)|3|...|1|3
2|$@|1|1|16|SCALAR(0x276ee8)|2|''|1|2
4|%ENV|1|1|14|HASH(0x277c74)|3|...|1|3
4|@INC|1|1|15|ARRAY(0x276e88)|3|...|1|3
4|%INC|1|1|14|HASH(0x276e94)|3|...|1|3
4|%SIG|1|1|15|HASH(0x185b548)|3|...|1|3
18|FileHandle(STDERR)|1|1|17|SCALAR(0x22e9bf0)|11|'fileno(2)'|2|11
17|FileHandle(STDIN)|1|1|17|SCALAR(0x22e9b0c)|11|'fileno(0)'|2|11
18|FileHandle(STDOUT)|1|1|17|SCALAR(0x22e9af4)|11|'fileno(1)'|2|11
2|$]|1|1|17|SCALAR(0x19e76c8)|10|'5.008008'|2|10
2|$^|1|1|17|SCALAR(0x18bbb18)|10|'GEN0_TOP'|2|10
7|$method|1|1|17|SCALAR(0x190ae04)|6|'http'|1|6
7|$server|1|1|17|SCALAR(0x190ad98)|15|'10.224.141.99'|2|15
18|FileHandle(stderr)|1|1|17|SCALAR(0x22e9b24)|11|'fileno(2)'|2|11
17|FileHandle(stdin)|1|1|17|SCALAR(0x22e9af4)|11|'fileno(0)'|2|11
18|FileHandle(stdout)|1|1|17|SCALAR(0x22e9c14)|11|'fileno(1)'|2|11
2|$||1|1|17|SCALAR(0x18baea0)|3|'1'|1|3
2|$~|1|1|17|SCALAR(0x18bb974)|6|'GEN0'|1|6
DB<34> ;{
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
my $offset = 0;
my $savout = select($DB::OUT);
dumpvar_epic::dump_lexical_vars($offset);
select($savout);
};
7|$SERVER|1|1|17|SCALAR(0x1c37454)|5|undef|1|5
6|$proxy|1|1|17|SCALAR(0x2116cb4)|51|'http://10.224.141.99/sams/service.cgi'|2|51
2|$q|1|2|14|REF(0x1946c08)|19|CGI=HASH(0x21edc5c)|3|...|1|3
12|$upload_data|1|2|14|REF(0x190af60)|26|SOAP::Data=HASH(0x224872c)|3|...|1|3
4|%car|1|1|15|HASH(0x21174d0)|3|...|1|3
9|%customer|1|1|15|HASH(0x21290c8)|3|...|1|3
5|%data|1|1|15|HASH(0x2117488)|3|...|1|3
9|%reseller|1|1|15|HASH(0x2133738)|3|...|1|3
7|%seller|1|1|15|HASH(0x2092230)|3|...|1|3
DB<35> ;{
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
my $offset = 0;
my $varexpr = <<'EOT';
${$h->{'$q'}}
EOT
my $subref = \&dumpvar_epic::dump_hash_expr;
my $savout = select($DB::OUT);
$subref->($offset, $varexpr);
select($savout);
};
8|.charset|1|1|17|SCALAR(0x21cc284)|12|'ISO-8859-1'|2|12
11|.fieldnames|1|2|14|REF(0x21eda64)|15|HASH(0x218fad0)|3|...|1|3
15|.header_printed|1|1|17|SCALAR(0x21f8dc8)|3|'1'|1|3
11|.parameters|1|2|14|REF(0x21cc74c)|16|ARRAY(0x21f869c)|3|...|1|3
6|button|1|2|14|REF(0x223f8a8)|16|ARRAY(0x223f8b4)|3|...|1|3
24|car_additional_equipment|1|2|14|REF(0x223f668)|16|ARRAY(0x223f674)|3|...|1|3
33|car_additional_equipment_discount|1|2|14|REF(0x223f698)|16|ARRAY(0x223f6a4)|3|...|1|3
18|car_chassie_number|1|2|14|REF(0x223f5a8)|16|ARRAY(0x223f5b4)|3|...|1|3
11|car_counter|1|2|14|REF(0x223f578)|16|ARRAY(0x223f584)|3|...|1|3
19|car_extra_equipment|1|2|14|REF(0x223f728)|16|ARRAY(0x223f734)|3|...|1|3
28|car_extra_equipment_discount|1|2|14|REF(0x223f758)|16|ARRAY(0x223f764)|3|...|1|3
21|car_factory_equipment|1|2|14|REF(0x223f7e8)|16|ARRAY(0x223f7f4)|3|...|1|3
30|car_factory_equipment_discount|1|2|14|REF(0x223f818)|16|ARRAY(0x223f824)|3|...|1|3
21|car_harbour_equipment|1|2|14|REF(0x223f788)|16|ARRAY(0x223f794)|3|...|1|3
30|car_harbour_equipment_discount|1|2|14|REF(0x223f7b8)|16|ARRAY(0x223f7c4)|3|...|1|3
11|car_licence|1|2|14|REF(0x223f5d8)|16|ARRAY(0x223f5e4)|3|...|1|3
7|car_lob|1|2|14|REF(0x223f4b8)|16|ARRAY(0x223f4c4)|3|...|1|3
8|car_make|1|2|14|REF(0x223f3c8)|16|ARRAY(0x223f3d4)|3|...|1|3
9|car_model|1|2|14|REF(0x223f3f8)|16|ARRAY(0x223f404)|3|...|1|3
14|car_model_code|1|2|14|REF(0x223f428)|16|ARRAY(0x223f434)|3|...|1|3
21|car_package_equipment|1|2|14|REF(0x223f6c8)|16|ARRAY(0x223f6d4)|3|...|1|3
30|car_package_equipment_discount|1|2|14|REF(0x223f6f8)|16|ARRAY(0x223f704)|3|...|1|3
15|car_paint_price|1|2|14|REF(0x223f848)|16|ARRAY(0x223f854)|3|...|1|3
9|car_price|1|2|14|REF(0x223f4e8)|16|ARRAY(0x223f4f4)|3|...|1|3
18|car_price_discount|1|2|14|REF(0x223f548)|16|ARRAY(0x223f554)|3|...|1|3
18|car_price_vat_type|1|2|14|REF(0x223f518)|16|ARRAY(0x223f524)|3|...|1|3
10|car_regFee|1|2|14|REF(0x223f878)|16|ARRAY(0x223f884)|3|...|1|3
17|car_tradein_price|1|2|14|REF(0x223f608)|16|ARRAY(0x223f614)|3|...|1|3
20|car_tradein_vat_type|1|2|14|REF(0x223f638)|16|ARRAY(0x223f644)|3|...|1|3
8|car_used|1|2|14|REF(0x223f488)|16|ARRAY(0x223f494)|3|...|1|3
8|car_year|1|2|14|REF(0x223f458)|16|ARRAY(0x223f464)|3|...|1|3
20|configuration_number|1|2|14|REF(0x21f88b8)|16|ARRAY(0x21f8a2c)|3|...|1|3
16|customer_address|1|2|14|REF(0x223f248)|16|ARRAY(0x223f254)|3|...|1|3
19|customer_cell_phone|1|2|14|REF(0x223f338)|16|ARRAY(0x223f344)|3|...|1|3
13|customer_city|1|2|14|REF(0x223f2a8)|16|ARRAY(0x223f2b4)|3|...|1|3
19|customer_co_address|1|2|14|REF(0x223f218)|16|ARRAY(0x223f224)|3|...|1|3
16|customer_company|1|2|14|REF(0x223f1b8)|16|ARRAY(0x223f1c4)|3|...|1|3
14|customer_email|1|2|14|REF(0x223f398)|16|ARRAY(0x223f3a4)|3|...|1|3
12|customer_fax|1|2|14|REF(0x223f368)|16|ARRAY(0x223f374)|3|...|1|3
13|customer_name|1|2|14|REF(0x223f1e8)|16|ARRAY(0x223f1f4)|3|...|1|3
15|customer_number|1|2|14|REF(0x223f188)|16|ARRAY(0x223f194)|3|...|1|3
14|customer_phone|1|2|14|REF(0x223f2d8)|16|ARRAY(0x223f2e4)|3|...|1|3
19|customer_work_phone|1|2|14|REF(0x223f308)|16|ARRAY(0x223f314)|3|...|1|3
12|customer_zip|1|2|14|REF(0x223f278)|16|ARRAY(0x223f284)|3|...|1|3
6|escape|1|1|17|SCALAR(0x21cc218)|3|'1'|1|3
12|order_number|1|2|14|REF(0x21f8a50)|16|ARRAY(0x21f8a5c)|3|...|1|3
8|password|1|2|14|REF(0x21f8a20)|16|ARRAY(0x21f88f4)|3|...|1|3
16|reseller_address|1|2|14|REF(0x21f8d5c)|16|ARRAY(0x21f8d68)|3|...|1|3
13|reseller_city|1|2|14|REF(0x223f0f8)|16|ARRAY(0x223f104)|3|...|1|3
13|reseller_name|1|2|14|REF(0x21f8d20)|16|ARRAY(0x21f8bac)|3|...|1|3
15|reseller_number|1|2|14|REF(0x21f8d2c)|16|ARRAY(0x21f8d38)|3|...|1|3
19|reseller_org_number|1|2|14|REF(0x223f128)|16|ARRAY(0x223f134)|3|...|1|3
14|reseller_phone|1|2|14|REF(0x223f158)|16|ARRAY(0x223f164)|3|...|1|3
12|reseller_zip|1|2|14|REF(0x223f0c8)|16|ARRAY(0x223f0d4)|3|...|1|3
14|seller_address|1|2|14|REF(0x21f8ab0)|16|ARRAY(0x21f8abc)|3|...|1|3
14|seller_company|1|2|14|REF(0x21f8c0c)|16|ARRAY(0x21f8c78)|3|...|1|3
12|seller_email|1|2|14|REF(0x21f8c84)|16|ARRAY(0x21f8c48)|3|...|1|3
11|seller_name|1|2|14|REF(0x21f8a80)|16|ARRAY(0x21f8a8c)|3|...|1|3
13|seller_number|1|2|14|REF(0x21f8d08)|16|ARRAY(0x21f8cf0)|3|...|1|3
12|seller_phone|1|2|14|REF(0x21f8ae0)|16|ARRAY(0x21f8b88)|3|...|1|3
12|use_tempfile|1|1|17|SCALAR(0x21cc32c)|3|'1'|1|3
9|user_name|1|2|14|REF(0x21f88ac)|16|ARRAY(0x21cc3b0)|3|...|1|3
DB<36> ;{
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
my $offset = 0;
my $varexpr = <<'EOT';
${$h->{'$upload_data'}}
EOT
my $subref = \&dumpvar_epic::dump_hash_expr;
my $savout = select($DB::OUT);
$subref->($offset, $varexpr);
select($savout);
};
5|_attr|1|2|14|REF(0x23092b4)|15|HASH(0x224845c)|3|...|1|3
5|_name|1|1|17|SCALAR(0x2302d20)|6|'data'|1|6
10|_signature|1|2|14|REF(0x23094f4)|16|ARRAY(0x2309464)|3|...|1|3
6|_value|1|2|14|REF(0x2309554)|16|ARRAY(0x23103e4)|3|...|1|3
DB<37> ;{
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
my $offset = 0;
my $varexpr = <<'EOT';
$h->{'%car'}
EOT
my $subref = \&dumpvar_epic::dump_hash_expr;
my $savout = select($DB::OUT);
$subref->($offset, $varexpr);
select($savout);
};
20|additional_equipment|1|2|14|REF(0x2248a20)|26|SOAP::Data=HASH(0x2248150)|3|...|1|3
29|additional_equipment_discount|1|2|14|REF(0x2248a2c)|26|SOAP::Data=HASH(0x22481d4)|3|...|1|3
14|chassie_number|1|2|14|REF(0x22489f0)|26|SOAP::Data=HASH(0x2247f34)|3|...|1|3
7|counter|1|2|14|REF(0x22489e4)|26|SOAP::Data=HASH(0x2247ea4)|3|...|1|3
15|extra_equipment|1|2|14|REF(0x2248a50)|26|SOAP::Data=HASH(0x2248360)|3|...|1|3
24|extra_equipment_discount|1|2|14|REF(0x2248a5c)|26|SOAP::Data=HASH(0x22483e4)|3|...|1|3
17|factory_equipment|1|2|14|REF(0x2248a80)|26|SOAP::Data=HASH(0x2248570)|3|...|1|3
26|factory_equipment_discount|1|2|14|REF(0x2248a8c)|26|SOAP::Data=HASH(0x22485f4)|3|...|1|3
17|harbour_equipment|1|2|14|REF(0x2248a68)|26|SOAP::Data=HASH(0x2248468)|3|...|1|3
26|harbour_equipment_discount|1|2|14|REF(0x2248a74)|26|SOAP::Data=HASH(0x22484ec)|3|...|1|3
7|licence|1|2|14|REF(0x22489fc)|26|SOAP::Data=HASH(0x2247fc4)|3|...|1|3
3|lob|1|2|14|REF(0x22489b4)|26|SOAP::Data=HASH(0x2247c94)|3|...|1|3
4|make|1|2|14|REF(0x2248978)|26|SOAP::Data=HASH(0x224dd10)|3|...|1|3
5|model|1|2|14|REF(0x2248984)|26|SOAP::Data=HASH(0x224e244)|3|...|1|3
10|model_code|1|2|14|REF(0x2248990)|26|SOAP::Data=HASH(0x224e628)|3|...|1|3
17|package_equipment|1|2|14|REF(0x2248a38)|26|SOAP::Data=HASH(0x2248258)|3|...|1|3
26|package_equipment_discount|1|2|14|REF(0x2248a44)|26|SOAP::Data=HASH(0x22482dc)|3|...|1|3
11|paint_price|1|2|14|REF(0x2248a98)|26|SOAP::Data=HASH(0x2248678)|3|...|1|3
5|price|1|2|14|REF(0x22489c0)|26|SOAP::Data=HASH(0x2247d18)|3|...|1|3
14|price_discount|1|2|14|REF(0x22489d8)|26|SOAP::Data=HASH(0x2247e20)|3|...|1|3
14|price_vat_type|1|2|14|REF(0x22489cc)|26|SOAP::Data=HASH(0x2247d9c)|3|...|1|3
6|regFee|1|2|14|REF(0x2248aa4)|26|SOAP::Data=HASH(0x22486fc)|3|...|1|3
13|tradein_price|1|2|14|REF(0x2248a08)|26|SOAP::Data=HASH(0x2248048)|3|...|1|3
16|tradein_vat_type|1|2|14|REF(0x2248a14)|26|SOAP::Data=HASH(0x22480cc)|3|...|1|3
4|used|1|2|14|REF(0x22489a8)|26|SOAP::Data=HASH(0x2247c10)|3|...|1|3
4|year|1|2|14|REF(0x224899c)|26|SOAP::Data=HASH(0x224e6a0)|3|...|1|3
DB<38> ;{
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
my $offset = 0;
my $varexpr = <<'EOT';
$h->{'%customer'}
EOT
my $subref = \&dumpvar_epic::dump_hash_expr;
my $savout = select($DB::OUT);
$subref->($offset, $varexpr);
select($savout);
};
7|address|1|2|14|REF(0x224e754)|26|SOAP::Data=HASH(0x224e208)|3|...|1|3
10|cell_phone|1|2|14|REF(0x224e790)|26|SOAP::Data=HASH(0x224e4d8)|3|...|1|3
4|city|1|2|14|REF(0x224e76c)|26|SOAP::Data=HASH(0x224e328)|3|...|1|3
10|co_address|1|2|14|REF(0x224e748)|26|SOAP::Data=HASH(0x224e178)|3|...|1|3
7|company|1|2|14|REF(0x224e730)|26|SOAP::Data=HASH(0x224e01c)|3|...|1|3
5|email|1|2|14|REF(0x2247c04)|26|SOAP::Data=HASH(0x224e5f8)|3|...|1|3
3|fax|1|2|14|REF(0x2247bf8)|26|SOAP::Data=HASH(0x224e568)|3|...|1|3
4|name|1|2|14|REF(0x224e73c)|26|SOAP::Data=HASH(0x224e094)|3|...|1|3
6|number|1|2|14|REF(0x224e724)|26|SOAP::Data=HASH(0x224dddc)|3|...|1|3
5|phone|1|2|14|REF(0x224e778)|26|SOAP::Data=HASH(0x224e3b8)|3|...|1|3
10|work_phone|1|2|14|REF(0x224e784)|26|SOAP::Data=HASH(0x224e448)|3|...|1|3
3|zip|1|2|14|REF(0x224e760)|26|SOAP::Data=HASH(0x224e298)|3|...|1|3
DB<39> ;{
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
my $offset = 0;
my $varexpr = <<'EOT';
$h->{'%data'}
EOT
my $subref = \&dumpvar_epic::dump_hash_expr;
my $savout = select($DB::OUT);
$subref->($offset, $varexpr);
select($savout);
};
3|car|1|2|14|REF(0x22487bc)|15|HASH(0x21174d0)|3|...|1|3
20|configuration_number|1|2|14|REF(0x2248780)|26|SOAP::Data=HASH(0x2248000)|3|...|1|3
8|customer|1|2|14|REF(0x22487b0)|15|HASH(0x21290c8)|3|...|1|3
12|order_number|1|2|14|REF(0x224878c)|26|SOAP::Data=HASH(0x22482d0)|3|...|1|3
8|password|1|2|14|REF(0x2248774)|26|SOAP::Data=HASH(0x2247d90)|3|...|1|3
8|reseller|1|2|14|REF(0x22487a4)|15|HASH(0x2133738)|3|...|1|3
6|seller|1|2|14|REF(0x2248798)|15|HASH(0x2092230)|3|...|1|3
9|user_name|1|2|14|REF(0x2248768)|26|SOAP::Data=HASH(0x224e5ec)|3|...|1|3
DB<40> ;{
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
my $offset = 0;
my $varexpr = <<'EOT';
$h->{'%reseller'}
EOT
my $subref = \&dumpvar_epic::dump_hash_expr;
my $savout = select($DB::OUT);
$subref->($offset, $varexpr);
select($savout);
};
7|address|1|2|14|REF(0x224e0b8)|26|SOAP::Data=HASH(0x224ddac)|3|...|1|3
4|city|1|2|14|REF(0x224e0d0)|26|SOAP::Data=HASH(0x224decc)|3|...|1|3
4|name|1|2|14|REF(0x224e0a0)|26|SOAP::Data=HASH(0x224db18)|3|...|1|3
6|number|1|2|14|REF(0x224e0ac)|26|SOAP::Data=HASH(0x224dc80)|3|...|1|3
10|org_number|1|2|14|REF(0x224e0dc)|26|SOAP::Data=HASH(0x224df5c)|3|...|1|3
5|phone|1|2|14|REF(0x224e0e8)|26|SOAP::Data=HASH(0x224dfec)|3|...|1|3
3|zip|1|2|14|REF(0x224e0c4)|26|SOAP::Data=HASH(0x224de3c)|3|...|1|3
DB<41> ;{
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
my $offset = 0;
my $varexpr = <<'EOT';
$h->{'%seller'}
EOT
my $subref = \&dumpvar_epic::dump_hash_expr;
my $savout = select($DB::OUT);
$subref->($offset, $varexpr);
select($savout);
};
7|address|1|2|14|REF(0x224dd34)|26|SOAP::Data=HASH(0x224da58)|3|...|1|3
7|company|1|2|14|REF(0x224dd4c)|26|SOAP::Data=HASH(0x224db78)|3|...|1|3
5|email|1|2|14|REF(0x224dd58)|26|SOAP::Data=HASH(0x224dc08)|3|...|1|3
4|name|1|2|14|REF(0x224dd28)|26|SOAP::Data=HASH(0x224d9c8)|3|...|1|3
6|number|1|2|14|REF(0x224dd64)|26|SOAP::Data=HASH(0x224dc8c)|3|...|1|3
5|phone|1|2|14|REF(0x224dd40)|26|SOAP::Data=HASH(0x224dae8)|3|...|1|3
DB<42> .
main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:121):
121: if ($q->param('button') eq "UPLOAD (T10)") {
DB<43> n
main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:122):
122: $soap = SOAP::Lite
123: -> uri("urn:VFA")
124: -> proxy($proxy)
125: -> upload($upload_data);
DB<44> .
main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:122):
122: $soap = SOAP::Lite
123: -> uri("urn:VFA")
124: -> proxy($proxy)
125: -> upload($upload_data);
DB<45> .
main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:122):
122: $soap = SOAP::Lite
123: -> uri("urn:VFA")
124: -> proxy($proxy)
125: -> upload($upload_data);
DB<46> .
main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:122):
122: $soap = SOAP::Lite
123: -> uri("urn:VFA")
124: -> proxy($proxy)
125: -> upload($upload_data);
DB<47> .
main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:122):
122: $soap = SOAP::Lite
123: -> uri("urn:VFA")
124: -> proxy($proxy)
125: -> upload($upload_data);
DB<48> T
DB<49> .
main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:122):
122: $soap = SOAP::Lite
123: -> uri("urn:VFA")
124: -> proxy($proxy)
125: -> upload($upload_data);
DB<50> ;{
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_package_vars;
my $savout = select($DB::OUT);
dumpvar_epic::dump_package_vars();
select($savout);
};
3|$^A|1|1|17|SCALAR(0x183d260)|2|''|1|2
3|$^D|1|1|17|SCALAR(0x1886408)|3|'0'|1|3
3|$^E|1|1|17|SCALAR(0x1946530)|67|'The system could not find the environment option that was entered'|2|67
3|$^F|1|1|17|SCALAR(0x195ace4)|3|'2'|1|3
3|$^H|1|1|16|SCALAR(0x276eac)|5|'256'|1|5
3|$^L|1|1|17|SCALAR(0x183d128)|3|' '|1|3
3|$^O|1|1|17|SCALAR(0x1878270)|9|'MSWin32'|1|9
3|$^P|1|1|17|SCALAR(0x19cd2cc)|5|'831'|1|5
3|$^S|1|1|17|SCALAR(0x1bd55ec)|3|'1'|1|3
7|$^TAINT|1|1|17|SCALAR(0x1c0ddfc)|3|'0'|1|3
9|$^UNICODE|1|1|17|SCALAR(0x21767e8)|3|'0'|1|3
3|$^V|1|1|16|SCALAR(0x276dc8)|5|''|1|5
3|$^W|1|1|17|SCALAR(0x1820450)|3|'1'|1|3
14|$^WARNING_BITS|1|1|17|SCALAR(0x18931bc)|14|'UUUUUUUUUUUU'|2|14
3|$^X|1|1|16|SCALAR(0x277c50)|22|'C:\Perl\bin\perl.exe'|2|22
2|$!|1|1|17|SCALAR(0x18402c0)|21|'Bad file descriptor'|2|21
2|%!|1|1|15|HASH(0x1be8f18)|3|...|1|3
2|$"|1|1|16|SCALAR(0x277ad0)|3|' '|1|3
2|$$|1|1|17|SCALAR(0x182da98)|6|'3368'|1|6
2|$%|1|1|17|SCALAR(0x18bb50c)|3|'0'|1|3
2|$-|1|1|17|SCALAR(0x182dab0)|3|'0'|1|3
2|$/|1|1|16|SCALAR(0x276fc0)|3|'
'|1|3
2|$0|1|1|16|SCALAR(0x277c38)|57|'C:\Inetpub\wwwroot\sams\test\testclient.cgi'|2|57
2|$:|1|1|17|SCALAR(0x18bbc74)|5|'
-'|1|5
2|$;|1|1|17|SCALAR(0x1df0394)|3|''|1|3
2|$<|1|1|17|SCALAR(0x185be00)|3|'0'|1|3
2|$=|1|1|17|SCALAR(0x18bb68c)|4|'60'|1|4
2|$?|1|1|17|LVALUE(0x191e7f8)|3|...|1|3
2|$@|1|1|16|SCALAR(0x276ee8)|2|''|1|2
4|%ENV|1|1|14|HASH(0x277c74)|3|...|1|3
4|@INC|1|1|15|ARRAY(0x276e88)|3|...|1|3
4|%INC|1|1|14|HASH(0x276e94)|3|...|1|3
4|%SIG|1|1|15|HASH(0x185b548)|3|...|1|3
18|FileHandle(STDERR)|1|1|17|SCALAR(0x22e9854)|11|'fileno(2)'|2|11
17|FileHandle(STDIN)|1|1|17|SCALAR(0x22e977c)|11|'fileno(0)'|2|11
18|FileHandle(STDOUT)|1|1|17|SCALAR(0x22e9764)|11|'fileno(1)'|2|11
2|$]|1|1|17|SCALAR(0x19e76c8)|10|'5.008008'|2|10
2|$^|1|1|17|SCALAR(0x18bbb18)|10|'GEN0_TOP'|2|10
7|$method|1|1|17|SCALAR(0x190ae04)|6|'http'|1|6
7|$server|1|1|17|SCALAR(0x190ad98)|15|'10.224.141.99'|2|15
18|FileHandle(stderr)|1|1|17|SCALAR(0x22e983c)|11|'fileno(2)'|2|11
17|FileHandle(stdin)|1|1|17|SCALAR(0x22e9824)|11|'fileno(0)'|2|11
18|FileHandle(stdout)|1|1|17|SCALAR(0x22e97dc)|11|'fileno(1)'|2|11
2|$||1|1|17|SCALAR(0x18baea0)|3|'1'|1|3
2|$~|1|1|17|SCALAR(0x18bb974)|6|'GEN0'|1|6
DB<51> ;{
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
my $offset = 0;
my $savout = select($DB::OUT);
dumpvar_epic::dump_lexical_vars($offset);
select($savout);
};
7|$SERVER|1|1|17|SCALAR(0x1c37454)|5|undef|1|5
6|$proxy|1|1|17|SCALAR(0x2116cb4)|51|'http://10.224.141.99/sams/service.cgi'|2|51
2|$q|1|2|14|REF(0x1946c08)|19|CGI=HASH(0x21edc5c)|3|...|1|3
12|$upload_data|1|2|14|REF(0x190af60)|26|SOAP::Data=HASH(0x224872c)|3|...|1|3
4|%car|1|1|15|HASH(0x21174d0)|3|...|1|3
9|%customer|1|1|15|HASH(0x21290c8)|3|...|1|3
5|%data|1|1|15|HASH(0x2117488)|3|...|1|3
9|%reseller|1|1|15|HASH(0x2133738)|3|...|1|3
7|%seller|1|1|15|HASH(0x2092230)|3|...|1|3
DB<52> ;{
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
my $offset = 0;
my $varexpr = <<'EOT';
${$h->{'$q'}}
EOT
my $subref = \&dumpvar_epic::dump_hash_expr;
my $savout = select($DB::OUT);
$subref->($offset, $varexpr);
select($savout);
};
8|.charset|1|1|17|SCALAR(0x21cc284)|12|'ISO-8859-1'|2|12
11|.fieldnames|1|2|14|REF(0x21eda64)|15|HASH(0x218fad0)|3|...|1|3
15|.header_printed|1|1|17|SCALAR(0x21f8dc8)|3|'1'|1|3
11|.parameters|1|2|14|REF(0x21cc74c)|16|ARRAY(0x21f869c)|3|...|1|3
6|button|1|2|14|REF(0x223f8a8)|16|ARRAY(0x223f8b4)|3|...|1|3
24|car_additional_equipment|1|2|14|REF(0x223f668)|16|ARRAY(0x223f674)|3|...|1|3
33|car_additional_equipment_discount|1|2|14|REF(0x223f698)|16|ARRAY(0x223f6a4)|3|...|1|3
18|car_chassie_number|1|2|14|REF(0x223f5a8)|16|ARRAY(0x223f5b4)|3|...|1|3
11|car_counter|1|2|14|REF(0x223f578)|16|ARRAY(0x223f584)|3|...|1|3
19|car_extra_equipment|1|2|14|REF(0x223f728)|16|ARRAY(0x223f734)|3|...|1|3
28|car_extra_equipment_discount|1|2|14|REF(0x223f758)|16|ARRAY(0x223f764)|3|...|1|3
21|car_factory_equipment|1|2|14|REF(0x223f7e8)|16|ARRAY(0x223f7f4)|3|...|1|3
30|car_factory_equipment_discount|1|2|14|REF(0x223f818)|16|ARRAY(0x223f824)|3|...|1|3
21|car_harbour_equipment|1|2|14|REF(0x223f788)|16|ARRAY(0x223f794)|3|...|1|3
30|car_harbour_equipment_discount|1|2|14|REF(0x223f7b8)|16|ARRAY(0x223f7c4)|3|...|1|3
11|car_licence|1|2|14|REF(0x223f5d8)|16|ARRAY(0x223f5e4)|3|...|1|3
7|car_lob|1|2|14|REF(0x223f4b8)|16|ARRAY(0x223f4c4)|3|...|1|3
8|car_make|1|2|14|REF(0x223f3c8)|16|ARRAY(0x223f3d4)|3|...|1|3
9|car_model|1|2|14|REF(0x223f3f8)|16|ARRAY(0x223f404)|3|...|1|3
14|car_model_code|1|2|14|REF(0x223f428)|16|ARRAY(0x223f434)|3|...|1|3
21|car_package_equipment|1|2|14|REF(0x223f6c8)|16|ARRAY(0x223f6d4)|3|...|1|3
30|car_package_equipment_discount|1|2|14|REF(0x223f6f8)|16|ARRAY(0x223f704)|3|...|1|3
15|car_paint_price|1|2|14|REF(0x223f848)|16|ARRAY(0x223f854)|3|...|1|3
9|car_price|1|2|14|REF(0x223f4e8)|16|ARRAY(0x223f4f4)|3|...|1|3
18|car_price_discount|1|2|14|REF(0x223f548)|16|ARRAY(0x223f554)|3|...|1|3
18|car_price_vat_type|1|2|14|REF(0x223f518)|16|ARRAY(0x223f524)|3|...|1|3
10|car_regFee|1|2|14|REF(0x223f878)|16|ARRAY(0x223f884)|3|...|1|3
17|car_tradein_price|1|2|14|REF(0x223f608)|16|ARRAY(0x223f614)|3|...|1|3
20|car_tradein_vat_type|1|2|14|REF(0x223f638)|16|ARRAY(0x223f644)|3|...|1|3
8|car_used|1|2|14|REF(0x223f488)|16|ARRAY(0x223f494)|3|...|1|3
8|car_year|1|2|14|REF(0x223f458)|16|ARRAY(0x223f464)|3|...|1|3
20|configuration_number|1|2|14|REF(0x21f88b8)|16|ARRAY(0x21f8a2c)|3|...|1|3
16|customer_address|1|2|14|REF(0x223f248)|16|ARRAY(0x223f254)|3|...|1|3
19|customer_cell_phone|1|2|14|REF(0x223f338)|16|ARRAY(0x223f344)|3|...|1|3
13|customer_city|1|2|14|REF(0x223f2a8)|16|ARRAY(0x223f2b4)|3|...|1|3
19|customer_co_address|1|2|14|REF(0x223f218)|16|ARRAY(0x223f224)|3|...|1|3
16|customer_company|1|2|14|REF(0x223f1b8)|16|ARRAY(0x223f1c4)|3|...|1|3
14|customer_email|1|2|14|REF(0x223f398)|16|ARRAY(0x223f3a4)|3|...|1|3
12|customer_fax|1|2|14|REF(0x223f368)|16|ARRAY(0x223f374)|3|...|1|3
13|customer_name|1|2|14|REF(0x223f1e8)|16|ARRAY(0x223f1f4)|3|...|1|3
15|customer_number|1|2|14|REF(0x223f188)|16|ARRAY(0x223f194)|3|...|1|3
14|customer_phone|1|2|14|REF(0x223f2d8)|16|ARRAY(0x223f2e4)|3|...|1|3
19|customer_work_phone|1|2|14|REF(0x223f308)|16|ARRAY(0x223f314)|3|...|1|3
12|customer_zip|1|2|14|REF(0x223f278)|16|ARRAY(0x223f284)|3|...|1|3
6|escape|1|1|17|SCALAR(0x21cc218)|3|'1'|1|3
12|order_number|1|2|14|REF(0x21f8a50)|16|ARRAY(0x21f8a5c)|3|...|1|3
8|password|1|2|14|REF(0x21f8a20)|16|ARRAY(0x21f88f4)|3|...|1|3
16|reseller_address|1|2|14|REF(0x21f8d5c)|16|ARRAY(0x21f8d68)|3|...|1|3
13|reseller_city|1|2|14|REF(0x223f0f8)|16|ARRAY(0x223f104)|3|...|1|3
13|reseller_name|1|2|14|REF(0x21f8d20)|16|ARRAY(0x21f8bac)|3|...|1|3
15|reseller_number|1|2|14|REF(0x21f8d2c)|16|ARRAY(0x21f8d38)|3|...|1|3
19|reseller_org_number|1|2|14|REF(0x223f128)|16|ARRAY(0x223f134)|3|...|1|3
14|reseller_phone|1|2|14|REF(0x223f158)|16|ARRAY(0x223f164)|3|...|1|3
12|reseller_zip|1|2|14|REF(0x223f0c8)|16|ARRAY(0x223f0d4)|3|...|1|3
14|seller_address|1|2|14|REF(0x21f8ab0)|16|ARRAY(0x21f8abc)|3|...|1|3
14|seller_company|1|2|14|REF(0x21f8c0c)|16|ARRAY(0x21f8c78)|3|...|1|3
12|seller_email|1|2|14|REF(0x21f8c84)|16|ARRAY(0x21f8c48)|3|...|1|3
11|seller_name|1|2|14|REF(0x21f8a80)|16|ARRAY(0x21f8a8c)|3|...|1|3
13|seller_number|1|2|14|REF(0x21f8d08)|16|ARRAY(0x21f8cf0)|3|...|1|3
12|seller_phone|1|2|14|REF(0x21f8ae0)|16|ARRAY(0x21f8b88)|3|...|1|3
12|use_tempfile|1|1|17|SCALAR(0x21cc32c)|3|'1'|1|3
9|user_name|1|2|14|REF(0x21f88ac)|16|ARRAY(0x21cc3b0)|3|...|1|3
DB<53> ;{
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
my $offset = 0;
my $varexpr = <<'EOT';
${$h->{'$upload_data'}}
EOT
my $subref = \&dumpvar_epic::dump_hash_expr;
my $savout = select($DB::OUT);
$subref->($offset, $varexpr);
select($savout);
};
5|_attr|1|2|14|REF(0x23092b4)|15|HASH(0x224845c)|3|...|1|3
5|_name|1|1|17|SCALAR(0x2302d20)|6|'data'|1|6
10|_signature|1|2|14|REF(0x23094f4)|16|ARRAY(0x2309464)|3|...|1|3
6|_value|1|2|14|REF(0x2309554)|16|ARRAY(0x23103e4)|3|...|1|3
DB<54> ;{
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
my $offset = 0;
my $varexpr = <<'EOT';
$h->{'%seller'}
EOT
my $subref = \&dumpvar_epic::dump_hash_expr;
my $savout = select($DB::OUT);
$subref->($offset, $varexpr);
select($savout);
};
7|address|1|2|14|REF(0x224dd34)|26|SOAP::Data=HASH(0x224da58)|3|...|1|3
7|company|1|2|14|REF(0x224dd4c)|26|SOAP::Data=HASH(0x224db78)|3|...|1|3
5|email|1|2|14|REF(0x224dd58)|26|SOAP::Data=HASH(0x224dc08)|3|...|1|3
4|name|1|2|14|REF(0x224dd28)|26|SOAP::Data=HASH(0x224d9c8)|3|...|1|3
6|number|1|2|14|REF(0x224dd64)|26|SOAP::Data=HASH(0x224dc8c)|3|...|1|3
5|phone|1|2|14|REF(0x224dd40)|26|SOAP::Data=HASH(0x224dae8)|3|...|1|3
DB<55> ;{
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
my $offset = 0;
my $varexpr = <<'EOT';
$h->{'%car'}
EOT
my $subref = \&dumpvar_epic::dump_hash_expr;
my $savout = select($DB::OUT);
$subref->($offset, $varexpr);
select($savout);
};
20|additional_equipment|1|2|14|REF(0x2248a20)|26|SOAP::Data=HASH(0x2248150)|3|...|1|3
29|additional_equipment_discount|1|2|14|REF(0x2248a2c)|26|SOAP::Data=HASH(0x22481d4)|3|...|1|3
14|chassie_number|1|2|14|REF(0x22489f0)|26|SOAP::Data=HASH(0x2247f34)|3|...|1|3
7|counter|1|2|14|REF(0x22489e4)|26|SOAP::Data=HASH(0x2247ea4)|3|...|1|3
15|extra_equipment|1|2|14|REF(0x2248a50)|26|SOAP::Data=HASH(0x2248360)|3|...|1|3
24|extra_equipment_discount|1|2|14|REF(0x2248a5c)|26|SOAP::Data=HASH(0x22483e4)|3|...|1|3
17|factory_equipment|1|2|14|REF(0x2248a80)|26|SOAP::Data=HASH(0x2248570)|3|...|1|3
26|factory_equipment_discount|1|2|14|REF(0x2248a8c)|26|SOAP::Data=HASH(0x22485f4)|3|...|1|3
17|harbour_equipment|1|2|14|REF(0x2248a68)|26|SOAP::Data=HASH(0x2248468)|3|...|1|3
26|harbour_equipment_discount|1|2|14|REF(0x2248a74)|26|SOAP::Data=HASH(0x22484ec)|3|...|1|3
7|licence|1|2|14|REF(0x22489fc)|26|SOAP::Data=HASH(0x2247fc4)|3|...|1|3
3|lob|1|2|14|REF(0x22489b4)|26|SOAP::Data=HASH(0x2247c94)|3|...|1|3
4|make|1|2|14|REF(0x2248978)|26|SOAP::Data=HASH(0x224dd10)|3|...|1|3
5|model|1|2|14|REF(0x2248984)|26|SOAP::Data=HASH(0x224e244)|3|...|1|3
10|model_code|1|2|14|REF(0x2248990)|26|SOAP::Data=HASH(0x224e628)|3|...|1|3
17|package_equipment|1|2|14|REF(0x2248a38)|26|SOAP::Data=HASH(0x2248258)|3|...|1|3
26|package_equipment_discount|1|2|14|REF(0x2248a44)|26|SOAP::Data=HASH(0x22482dc)|3|...|1|3
11|paint_price|1|2|14|REF(0x2248a98)|26|SOAP::Data=HASH(0x2248678)|3|...|1|3
5|price|1|2|14|REF(0x22489c0)|26|SOAP::Data=HASH(0x2247d18)|3|...|1|3
14|price_discount|1|2|14|REF(0x22489d8)|26|SOAP::Data=HASH(0x2247e20)|3|...|1|3
14|price_vat_type|1|2|14|REF(0x22489cc)|26|SOAP::Data=HASH(0x2247d9c)|3|...|1|3
6|regFee|1|2|14|REF(0x2248aa4)|26|SOAP::Data=HASH(0x22486fc)|3|...|1|3
13|tradein_price|1|2|14|REF(0x2248a08)|26|SOAP::Data=HASH(0x2248048)|3|...|1|3
16|tradein_vat_type|1|2|14|REF(0x2248a14)|26|SOAP::Data=HASH(0x22480cc)|3|...|1|3
4|used|1|2|14|REF(0x22489a8)|26|SOAP::Data=HASH(0x2247c10)|3|...|1|3
4|year|1|2|14|REF(0x224899c)|26|SOAP::Data=HASH(0x224e6a0)|3|...|1|3
DB<56> ;{
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
my $offset = 0;
my $varexpr = <<'EOT';
$h->{'%customer'}
EOT
my $subref = \&dumpvar_epic::dump_hash_expr;
my $savout = select($DB::OUT);
$subref->($offset, $varexpr);
select($savout);
};
7|address|1|2|14|REF(0x224e754)|26|SOAP::Data=HASH(0x224e208)|3|...|1|3
10|cell_phone|1|2|14|REF(0x224e790)|26|SOAP::Data=HASH(0x224e4d8)|3|...|1|3
4|city|1|2|14|REF(0x224e76c)|26|SOAP::Data=HASH(0x224e328)|3|...|1|3
10|co_address|1|2|14|REF(0x224e748)|26|SOAP::Data=HASH(0x224e178)|3|...|1|3
7|company|1|2|14|REF(0x224e730)|26|SOAP::Data=HASH(0x224e01c)|3|...|1|3
5|email|1|2|14|REF(0x2247c04)|26|SOAP::Data=HASH(0x224e5f8)|3|...|1|3
3|fax|1|2|14|REF(0x2247bf8)|26|SOAP::Data=HASH(0x224e568)|3|...|1|3
4|name|1|2|14|REF(0x224e73c)|26|SOAP::Data=HASH(0x224e094)|3|...|1|3
6|number|1|2|14|REF(0x224e724)|26|SOAP::Data=HASH(0x224dddc)|3|...|1|3
5|phone|1|2|14|REF(0x224e778)|26|SOAP::Data=HASH(0x224e3b8)|3|...|1|3
10|work_phone|1|2|14|REF(0x224e784)|26|SOAP::Data=HASH(0x224e448)|3|...|1|3
3|zip|1|2|14|REF(0x224e760)|26|SOAP::Data=HASH(0x224e298)|3|...|1|3
DB<57> ;{
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
my $offset = 0;
my $varexpr = <<'EOT';
$h->{'%data'}
EOT
my $subref = \&dumpvar_epic::dump_hash_expr;
my $savout = select($DB::OUT);
$subref->($offset, $varexpr);
select($savout);
};
3|car|1|2|14|REF(0x22487bc)|15|HASH(0x21174d0)|3|...|1|3
20|configuration_number|1|2|14|REF(0x2248780)|26|SOAP::Data=HASH(0x2248000)|3|...|1|3
8|customer|1|2|14|REF(0x22487b0)|15|HASH(0x21290c8)|3|...|1|3
12|order_number|1|2|14|REF(0x224878c)|26|SOAP::Data=HASH(0x22482d0)|3|...|1|3
8|password|1|2|14|REF(0x2248774)|26|SOAP::Data=HASH(0x2247d90)|3|...|1|3
8|reseller|1|2|14|REF(0x22487a4)|15|HASH(0x2133738)|3|...|1|3
6|seller|1|2|14|REF(0x2248798)|15|HASH(0x2092230)|3|...|1|3
9|user_name|1|2|14|REF(0x2248768)|26|SOAP::Data=HASH(0x224e5ec)|3|...|1|3
DB<58> ;{
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
my $offset = 0;
my $varexpr = <<'EOT';
$h->{'%reseller'}
EOT
my $subref = \&dumpvar_epic::dump_hash_expr;
my $savout = select($DB::OUT);
$subref->($offset, $varexpr);
select($savout);
};
7|address|1|2|14|REF(0x224e0b8)|26|SOAP::Data=HASH(0x224ddac)|3|...|1|3
4|city|1|2|14|REF(0x224e0d0)|26|SOAP::Data=HASH(0x224decc)|3|...|1|3
4|name|1|2|14|REF(0x224e0a0)|26|SOAP::Data=HASH(0x224db18)|3|...|1|3
6|number|1|2|14|REF(0x224e0ac)|26|SOAP::Data=HASH(0x224dc80)|3|...|1|3
10|org_number|1|2|14|REF(0x224e0dc)|26|SOAP::Data=HASH(0x224df5c)|3|...|1|3
5|phone|1|2|14|REF(0x224e0e8)|26|SOAP::Data=HASH(0x224dfec)|3|...|1|3
3|zip|1|2|14|REF(0x224e0c4)|26|SOAP::Data=HASH(0x224de3c)|3|...|1|3
DB<59> .
main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:122):
122: $soap = SOAP::Lite
123: -> uri("urn:VFA")
124: -> proxy($proxy)
125: -> upload($upload_data);
DB<60> n
main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:127):
127: print "SOAP contents:" . Dumper($soap);
DB<61> .
main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:127):
127: print "SOAP contents:" . Dumper($soap);
DB<62> .
main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:127):
127: print "SOAP contents:" . Dumper($soap);
DB<63> .
main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:127):
127: print "SOAP contents:" . Dumper($soap);
DB<64> .
main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:127):
127: print "SOAP contents:" . Dumper($soap);
DB<65> T
DB<66> .
main::(C:\Inetpub\wwwroot\sams\test\testclient.cgi:127):
127: print "SOAP contents:" . Dumper($soap);
DB<67> ;{
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_package_vars;
my $savout = select($DB::OUT);
dumpvar_epic::dump_package_vars();
select($savout);
};
3|$^A|1|1|17|SCALAR(0x183d260)|2|''|1|2
3|$^D|1|1|17|SCALAR(0x1886408)|3|'0'|1|3
3|$^E|1|1|17|SCALAR(0x1946530)|67|'The system could not find the environment option that was entered'|2|67
3|$^F|1|1|17|SCALAR(0x195ace4)|3|'2'|1|3
3|$^H|1|1|16|SCALAR(0x276eac)|5|'256'|1|5
3|$^L|1|1|17|SCALAR(0x183d128)|3|' '|1|3
3|$^O|1|1|17|SCALAR(0x1878270)|9|'MSWin32'|1|9
3|$^P|1|1|17|SCALAR(0x19cd2cc)|5|'831'|1|5
3|$^S|1|1|17|SCALAR(0x1bd55ec)|3|'1'|1|3
7|$^TAINT|1|1|17|SCALAR(0x1c0ddfc)|3|'0'|1|3
9|$^UNICODE|1|1|17|SCALAR(0x21767e8)|3|'0'|1|3
3|$^V|1|1|16|SCALAR(0x276dc8)|5|''|1|5
3|$^W|1|1|17|SCALAR(0x1820450)|3|'1'|1|3
14|$^WARNING_BITS|1|1|17|SCALAR(0x18931bc)|14|'UUUUUUUUUUUU'|2|14
3|$^X|1|1|16|SCALAR(0x277c50)|22|'C:\Perl\bin\perl.exe'|2|22
2|$!|1|1|17|SCALAR(0x18402c0)|2|''|1|2
2|%!|1|1|15|HASH(0x1be8f18)|3|...|1|3
2|$"|1|1|16|SCALAR(0x277ad0)|3|' '|1|3
2|$$|1|1|17|SCALAR(0x182da98)|6|'3368'|1|6
2|$%|1|1|17|SCALAR(0x18bb50c)|3|'0'|1|3
2|$-|1|1|17|SCALAR(0x182dab0)|3|'0'|1|3
2|$/|1|1|16|SCALAR(0x276fc0)|3|'
'|1|3
2|$0|1|1|16|SCALAR(0x277c38)|57|'C:\Inetpub\wwwroot\sams\test\testclient.cgi'|2|57
2|$:|1|1|17|SCALAR(0x18bbc74)|5|'
-'|1|5
2|$;|1|1|17|SCALAR(0x1df0394)|3|''|1|3
2|$<|1|1|17|SCALAR(0x185be00)|3|'0'|1|3
2|$=|1|1|17|SCALAR(0x18bb68c)|4|'60'|1|4
2|$?|1|1|17|LVALUE(0x191e7f8)|3|...|1|3
2|$@|1|1|16|SCALAR(0x276ee8)|2|''|1|2
4|%ENV|1|1|14|HASH(0x277c74)|3|...|1|3
4|@INC|1|1|15|ARRAY(0x276e88)|3|...|1|3
4|%INC|1|1|14|HASH(0x276e94)|3|...|1|3
4|%SIG|1|1|15|HASH(0x185b548)|3|...|1|3
18|FileHandle(STDERR)|1|1|17|SCALAR(0x26903a0)|11|'fileno(2)'|2|11
17|FileHandle(STDIN)|1|1|17|SCALAR(0x269037c)|11|'fileno(0)'|2|11
18|FileHandle(STDOUT)|1|1|17|SCALAR(0x2690388)|11|'fileno(1)'|2|11
2|$]|1|1|17|SCALAR(0x19e76c8)|10|'5.008008'|2|10
2|$^|1|1|17|SCALAR(0x18bbb18)|10|'GEN0_TOP'|2|10
7|$method|1|1|17|SCALAR(0x190ae04)|6|'http'|1|6
7|$server|1|1|17|SCALAR(0x190ad98)|15|'10.224.141.99'|2|15
5|$soap|1|2|14|REF(0x190b038)|25|SOAP::SOM=HASH(0x268a914)|3|'1'|1|3
18|FileHandle(stderr)|1|1|17|SCALAR(0x26903ac)|11|'fileno(2)'|2|11
17|FileHandle(stdin)|1|1|17|SCALAR(0x26902f8)|11|'fileno(0)'|2|11
18|FileHandle(stdout)|1|1|17|SCALAR(0x2690388)|11|'fileno(1)'|2|11
2|$||1|1|17|SCALAR(0x18baea0)|3|'1'|1|3
2|$~|1|1|17|SCALAR(0x18bb974)|6|'GEN0'|1|6
DB<68> ;{
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
my $offset = 0;
my $savout = select($DB::OUT);
dumpvar_epic::dump_lexical_vars($offset);
select($savout);
};
7|$SERVER|1|1|17|SCALAR(0x1c37454)|5|undef|1|5
6|$proxy|1|1|17|SCALAR(0x2116cb4)|51|'http://10.224.141.99/sams/service.cgi'|2|51
2|$q|1|2|14|REF(0x1946c08)|19|CGI=HASH(0x21edc5c)|3|...|1|3
12|$upload_data|1|2|14|REF(0x190af60)|26|SOAP::Data=HASH(0x224872c)|3|...|1|3
4|%car|1|1|15|HASH(0x21174d0)|3|...|1|3
9|%customer|1|1|15|HASH(0x21290c8)|3|...|1|3
5|%data|1|1|15|HASH(0x2117488)|3|...|1|3
9|%reseller|1|1|15|HASH(0x2133738)|3|...|1|3
7|%seller|1|1|15|HASH(0x2092230)|3|...|1|3
DB<69> ;{
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
my $offset = 0;
my $varexpr = <<'EOT';
\%{$main::soap}
EOT
my $subref = \&dumpvar_epic::dump_hash_expr;
my $savout = select($DB::OUT);
$subref->($offset, $varexpr);
select($savout);
};
8|_content|1|2|14|REF(0x268b34c)|16|ARRAY(0x264ec74)|3|...|1|3
8|_current|1|2|14|REF(0x268e23c)|16|ARRAY(0x264a5a0)|3|...|1|3
DB<70> ;{
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
my $offset = 0;
my $varexpr = <<'EOT';
${$h->{'$q'}}
EOT
my $subref = \&dumpvar_epic::dump_hash_expr;
my $savout = select($DB::OUT);
$subref->($offset, $varexpr);
select($savout);
};
8|.charset|1|1|17|SCALAR(0x21cc284)|12|'ISO-8859-1'|2|12
11|.fieldnames|1|2|14|REF(0x21eda64)|15|HASH(0x218fad0)|3|...|1|3
15|.header_printed|1|1|17|SCALAR(0x21f8dc8)|3|'1'|1|3
11|.parameters|1|2|14|REF(0x21cc74c)|16|ARRAY(0x21f869c)|3|...|1|3
6|button|1|2|14|REF(0x223f8a8)|16|ARRAY(0x223f8b4)|3|...|1|3
24|car_additional_equipment|1|2|14|REF(0x223f668)|16|ARRAY(0x223f674)|3|...|1|3
33|car_additional_equipment_discount|1|2|14|REF(0x223f698)|16|ARRAY(0x223f6a4)|3|...|1|3
18|car_chassie_number|1|2|14|REF(0x223f5a8)|16|ARRAY(0x223f5b4)|3|...|1|3
11|car_counter|1|2|14|REF(0x223f578)|16|ARRAY(0x223f584)|3|...|1|3
19|car_extra_equipment|1|2|14|REF(0x223f728)|16|ARRAY(0x223f734)|3|...|1|3
28|car_extra_equipment_discount|1|2|14|REF(0x223f758)|16|ARRAY(0x223f764)|3|...|1|3
21|car_factory_equipment|1|2|14|REF(0x223f7e8)|16|ARRAY(0x223f7f4)|3|...|1|3
30|car_factory_equipment_discount|1|2|14|REF(0x223f818)|16|ARRAY(0x223f824)|3|...|1|3
21|car_harbour_equipment|1|2|14|REF(0x223f788)|16|ARRAY(0x223f794)|3|...|1|3
30|car_harbour_equipment_discount|1|2|14|REF(0x223f7b8)|16|ARRAY(0x223f7c4)|3|...|1|3
11|car_licence|1|2|14|REF(0x223f5d8)|16|ARRAY(0x223f5e4)|3|...|1|3
7|car_lob|1|2|14|REF(0x223f4b8)|16|ARRAY(0x223f4c4)|3|...|1|3
8|car_make|1|2|14|REF(0x223f3c8)|16|ARRAY(0x223f3d4)|3|...|1|3
9|car_model|1|2|14|REF(0x223f3f8)|16|ARRAY(0x223f404)|3|...|1|3
14|car_model_code|1|2|14|REF(0x223f428)|16|ARRAY(0x223f434)|3|...|1|3
21|car_package_equipment|1|2|14|REF(0x223f6c8)|16|ARRAY(0x223f6d4)|3|...|1|3
30|car_package_equipment_discount|1|2|14|REF(0x223f6f8)|16|ARRAY(0x223f704)|3|...|1|3
15|car_paint_price|1|2|14|REF(0x223f848)|16|ARRAY(0x223f854)|3|...|1|3
9|car_price|1|2|14|REF(0x223f4e8)|16|ARRAY(0x223f4f4)|3|...|1|3
18|car_price_discount|1|2|14|REF(0x223f548)|16|ARRAY(0x223f554)|3|...|1|3
18|car_price_vat_type|1|2|14|REF(0x223f518)|16|ARRAY(0x223f524)|3|...|1|3
10|car_regFee|1|2|14|REF(0x223f878)|16|ARRAY(0x223f884)|3|...|1|3
17|car_tradein_price|1|2|14|REF(0x223f608)|16|ARRAY(0x223f614)|3|...|1|3
20|car_tradein_vat_type|1|2|14|REF(0x223f638)|16|ARRAY(0x223f644)|3|...|1|3
8|car_used|1|2|14|REF(0x223f488)|16|ARRAY(0x223f494)|3|...|1|3
8|car_year|1|2|14|REF(0x223f458)|16|ARRAY(0x223f464)|3|...|1|3
20|configuration_number|1|2|14|REF(0x21f88b8)|16|ARRAY(0x21f8a2c)|3|...|1|3
16|customer_address|1|2|14|REF(0x223f248)|16|ARRAY(0x223f254)|3|...|1|3
19|customer_cell_phone|1|2|14|REF(0x223f338)|16|ARRAY(0x223f344)|3|...|1|3
13|customer_city|1|2|14|REF(0x223f2a8)|16|ARRAY(0x223f2b4)|3|...|1|3
19|customer_co_address|1|2|14|REF(0x223f218)|16|ARRAY(0x223f224)|3|...|1|3
16|customer_company|1|2|14|REF(0x223f1b8)|16|ARRAY(0x223f1c4)|3|...|1|3
14|customer_email|1|2|14|REF(0x223f398)|16|ARRAY(0x223f3a4)|3|...|1|3
12|customer_fax|1|2|14|REF(0x223f368)|16|ARRAY(0x223f374)|3|...|1|3
13|customer_name|1|2|14|REF(0x223f1e8)|16|ARRAY(0x223f1f4)|3|...|1|3
15|customer_number|1|2|14|REF(0x223f188)|16|ARRAY(0x223f194)|3|...|1|3
14|customer_phone|1|2|14|REF(0x223f2d8)|16|ARRAY(0x223f2e4)|3|...|1|3
19|customer_work_phone|1|2|14|REF(0x223f308)|16|ARRAY(0x223f314)|3|...|1|3
12|customer_zip|1|2|14|REF(0x223f278)|16|ARRAY(0x223f284)|3|...|1|3
6|escape|1|1|17|SCALAR(0x21cc218)|3|'1'|1|3
12|order_number|1|2|14|REF(0x21f8a50)|16|ARRAY(0x21f8a5c)|3|...|1|3
8|password|1|2|14|REF(0x21f8a20)|16|ARRAY(0x21f88f4)|3|...|1|3
16|reseller_address|1|2|14|REF(0x21f8d5c)|16|ARRAY(0x21f8d68)|3|...|1|3
13|reseller_city|1|2|14|REF(0x223f0f8)|16|ARRAY(0x223f104)|3|...|1|3
13|reseller_name|1|2|14|REF(0x21f8d20)|16|ARRAY(0x21f8bac)|3|...|1|3
15|reseller_number|1|2|14|REF(0x21f8d2c)|16|ARRAY(0x21f8d38)|3|...|1|3
19|reseller_org_number|1|2|14|REF(0x223f128)|16|ARRAY(0x223f134)|3|...|1|3
14|reseller_phone|1|2|14|REF(0x223f158)|16|ARRAY(0x223f164)|3|...|1|3
12|reseller_zip|1|2|14|REF(0x223f0c8)|16|ARRAY(0x223f0d4)|3|...|1|3
14|seller_address|1|2|14|REF(0x21f8ab0)|16|ARRAY(0x21f8abc)|3|...|1|3
14|seller_company|1|2|14|REF(0x21f8c0c)|16|ARRAY(0x21f8c78)|3|...|1|3
12|seller_email|1|2|14|REF(0x21f8c84)|16|ARRAY(0x21f8c48)|3|...|1|3
11|seller_name|1|2|14|REF(0x21f8a80)|16|ARRAY(0x21f8a8c)|3|...|1|3
13|seller_number|1|2|14|REF(0x21f8d08)|16|ARRAY(0x21f8cf0)|3|...|1|3
12|seller_phone|1|2|14|REF(0x21f8ae0)|16|ARRAY(0x21f8b88)|3|...|1|3
12|use_tempfile|1|1|17|SCALAR(0x21cc32c)|3|'1'|1|3
9|user_name|1|2|14|REF(0x21f88ac)|16|ARRAY(0x21cc3b0)|3|...|1|3
DB<71> ;{
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
my $offset = 0;
my $varexpr = <<'EOT';
$h->{'%reseller'}
EOT
my $subref = \&dumpvar_epic::dump_hash_expr;
my $savout = select($DB::OUT);
$subref->($offset, $varexpr);
select($savout);
};
7|address|1|2|14|REF(0x224e0b8)|26|SOAP::Data=HASH(0x224ddac)|3|...|1|3
4|city|1|2|14|REF(0x224e0d0)|26|SOAP::Data=HASH(0x224decc)|3|...|1|3
4|name|1|2|14|REF(0x224e0a0)|26|SOAP::Data=HASH(0x224db18)|3|...|1|3
6|number|1|2|14|REF(0x224e0ac)|26|SOAP::Data=HASH(0x224dc80)|3|...|1|3
10|org_number|1|2|14|REF(0x224e0dc)|26|SOAP::Data=HASH(0x224df5c)|3|...|1|3
5|phone|1|2|14|REF(0x224e0e8)|26|SOAP::Data=HASH(0x224dfec)|3|...|1|3
3|zip|1|2|14|REF(0x224e0c4)|26|SOAP::Data=HASH(0x224de3c)|3|...|1|3
DB<72> ;{
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
my $offset = 0;
my $varexpr = <<'EOT';
${$h->{'$upload_data'}}
EOT
my $subref = \&dumpvar_epic::dump_hash_expr;
my $savout = select($DB::OUT);
$subref->($offset, $varexpr);
select($savout);
};
5|_attr|1|2|14|REF(0x23092b4)|15|HASH(0x224845c)|3|...|1|3
5|_name|1|1|17|SCALAR(0x2302d20)|6|'data'|1|6
10|_signature|1|2|14|REF(0x23094f4)|16|ARRAY(0x24bf440)|3|...|1|3
6|_value|1|2|14|REF(0x2309554)|16|ARRAY(0x23103e4)|3|...|1|3
DB<73> ;{
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
my $offset = 0;
my $varexpr = <<'EOT';
$h->{'%car'}
EOT
my $subref = \&dumpvar_epic::dump_hash_expr;
my $savout = select($DB::OUT);
$subref->($offset, $varexpr);
select($savout);
};
20|additional_equipment|1|2|14|REF(0x2248a20)|26|SOAP::Data=HASH(0x2248150)|3|...|1|3
29|additional_equipment_discount|1|2|14|REF(0x2248a2c)|26|SOAP::Data=HASH(0x22481d4)|3|...|1|3
14|chassie_number|1|2|14|REF(0x22489f0)|26|SOAP::Data=HASH(0x2247f34)|3|...|1|3
7|counter|1|2|14|REF(0x22489e4)|26|SOAP::Data=HASH(0x2247ea4)|3|...|1|3
15|extra_equipment|1|2|14|REF(0x2248a50)|26|SOAP::Data=HASH(0x2248360)|3|...|1|3
24|extra_equipment_discount|1|2|14|REF(0x2248a5c)|26|SOAP::Data=HASH(0x22483e4)|3|...|1|3
17|factory_equipment|1|2|14|REF(0x2248a80)|26|SOAP::Data=HASH(0x2248570)|3|...|1|3
26|factory_equipment_discount|1|2|14|REF(0x2248a8c)|26|SOAP::Data=HASH(0x22485f4)|3|...|1|3
17|harbour_equipment|1|2|14|REF(0x2248a68)|26|SOAP::Data=HASH(0x2248468)|3|...|1|3
26|harbour_equipment_discount|1|2|14|REF(0x2248a74)|26|SOAP::Data=HASH(0x22484ec)|3|...|1|3
7|licence|1|2|14|REF(0x22489fc)|26|SOAP::Data=HASH(0x2247fc4)|3|...|1|3
3|lob|1|2|14|REF(0x22489b4)|26|SOAP::Data=HASH(0x2247c94)|3|...|1|3
4|make|1|2|14|REF(0x2248978)|26|SOAP::Data=HASH(0x224dd10)|3|...|1|3
5|model|1|2|14|REF(0x2248984)|26|SOAP::Data=HASH(0x224e244)|3|...|1|3
10|model_code|1|2|14|REF(0x2248990)|26|SOAP::Data=HASH(0x224e628)|3|...|1|3
17|package_equipment|1|2|14|REF(0x2248a38)|26|SOAP::Data=HASH(0x2248258)|3|...|1|3
26|package_equipment_discount|1|2|14|REF(0x2248a44)|26|SOAP::Data=HASH(0x22482dc)|3|...|1|3
11|paint_price|1|2|14|REF(0x2248a98)|26|SOAP::Data=HASH(0x2248678)|3|...|1|3
5|price|1|2|14|REF(0x22489c0)|26|SOAP::Data=HASH(0x2247d18)|3|...|1|3
14|price_discount|1|2|14|REF(0x22489d8)|26|SOAP::Data=HASH(0x2247e20)|3|...|1|3
14|price_vat_type|1|2|14|REF(0x22489cc)|26|SOAP::Data=HASH(0x2247d9c)|3|...|1|3
6|regFee|1|2|14|REF(0x2248aa4)|26|SOAP::Data=HASH(0x22486fc)|3|...|1|3
13|tradein_price|1|2|14|REF(0x2248a08)|26|SOAP::Data=HASH(0x2248048)|3|...|1|3
16|tradein_vat_type|1|2|14|REF(0x2248a14)|26|SOAP::Data=HASH(0x22480cc)|3|...|1|3
4|used|1|2|14|REF(0x22489a8)|26|SOAP::Data=HASH(0x2247c10)|3|...|1|3
4|year|1|2|14|REF(0x224899c)|26|SOAP::Data=HASH(0x224e6a0)|3|...|1|3
DB<74> ;{
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
my $offset = 0;
my $varexpr = <<'EOT';
$h->{'%customer'}
EOT
my $subref = \&dumpvar_epic::dump_hash_expr;
my $savout = select($DB::OUT);
$subref->($offset, $varexpr);
select($savout);
};
7|address|1|2|14|REF(0x224e754)|26|SOAP::Data=HASH(0x224e208)|3|...|1|3
10|cell_phone|1|2|14|REF(0x224e790)|26|SOAP::Data=HASH(0x224e4d8)|3|...|1|3
4|city|1|2|14|REF(0x224e76c)|26|SOAP::Data=HASH(0x224e328)|3|...|1|3
10|co_address|1|2|14|REF(0x224e748)|26|SOAP::Data=HASH(0x224e178)|3|...|1|3
7|company|1|2|14|REF(0x224e730)|26|SOAP::Data=HASH(0x224e01c)|3|...|1|3
5|email|1|2|14|REF(0x2247c04)|26|SOAP::Data=HASH(0x224e5f8)|3|...|1|3
3|fax|1|2|14|REF(0x2247bf8)|26|SOAP::Data=HASH(0x224e568)|3|...|1|3
4|name|1|2|14|REF(0x224e73c)|26|SOAP::Data=HASH(0x224e094)|3|...|1|3
6|number|1|2|14|REF(0x224e724)|26|SOAP::Data=HASH(0x224dddc)|3|...|1|3
5|phone|1|2|14|REF(0x224e778)|26|SOAP::Data=HASH(0x224e3b8)|3|...|1|3
10|work_phone|1|2|14|REF(0x224e784)|26|SOAP::Data=HASH(0x224e448)|3|...|1|3
3|zip|1|2|14|REF(0x224e760)|26|SOAP::Data=HASH(0x224e298)|3|...|1|3
DB<75> ;{
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
my $offset = 0;
my $varexpr = <<'EOT';
$h->{'%data'}
EOT
my $subref = \&dumpvar_epic::dump_hash_expr;
my $savout = select($DB::OUT);
$subref->($offset, $varexpr);
select($savout);
};
3|car|1|2|14|REF(0x22487bc)|15|HASH(0x21174d0)|3|...|1|3
20|configuration_number|1|2|14|REF(0x2248780)|26|SOAP::Data=HASH(0x2248000)|3|...|1|3
8|customer|1|2|14|REF(0x22487b0)|15|HASH(0x21290c8)|3|...|1|3
12|order_number|1|2|14|REF(0x224878c)|26|SOAP::Data=HASH(0x22482d0)|3|...|1|3
8|password|1|2|14|REF(0x2248774)|26|SOAP::Data=HASH(0x2247d90)|3|...|1|3
8|reseller|1|2|14|REF(0x22487a4)|15|HASH(0x2133738)|3|...|1|3
6|seller|1|2|14|REF(0x2248798)|15|HASH(0x2092230)|3|...|1|3
9|user_name|1|2|14|REF(0x2248768)|26|SOAP::Data=HASH(0x224e5ec)|3|...|1|3
DB<76> ;{
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
my $offset = 0;
my $varexpr = <<'EOT';
$h->{'%seller'}
EOT
my $subref = \&dumpvar_epic::dump_hash_expr;
my $savout = select($DB::OUT);
$subref->($offset, $varexpr);
select($savout);
};
7|address|1|2|14|REF(0x224dd34)|26|SOAP::Data=HASH(0x224da58)|3|...|1|3
7|company|1|2|14|REF(0x224dd4c)|26|SOAP::Data=HASH(0x224db78)|3|...|1|3
5|email|1|2|14|REF(0x224dd58)|26|SOAP::Data=HASH(0x224dc08)|3|...|1|3
4|name|1|2|14|REF(0x224dd28)|26|SOAP::Data=HASH(0x224d9c8)|3|...|1|3
6|number|1|2|14|REF(0x224dd64)|26|SOAP::Data=HASH(0x224dc8c)|3|...|1|3
5|phone|1|2|14|REF(0x224dd40)|26|SOAP::Data=HASH(0x224dae8)|3|...|1|3
DB<77> ;{
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
my $offset = 0;
my $varexpr = <<'EOT';
\%{$main::soap}->{'_current'}
EOT
my $subref = \&dumpvar_epic::dump_array_expr;
my $savout = select($DB::OUT);
$subref->($offset, $varexpr);
select($savout);
};
Not an ARRAY reference at C:/Software/eclipse/workspace/.metadata/.plugins/org.epic.debug/dumpvar_epic.pm line 25.
DB<78> ;{
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
my $offset = 0;
my $varexpr = <<'EOT';
\%{$main::soap}->{'_content'}
EOT
my $subref = \&dumpvar_epic::dump_array_expr;
my $savout = select($DB::OUT);
$subref->($offset, $varexpr);
select($savout);
};
Not an ARRAY reference at C:/Software/eclipse/workspace/.metadata/.plugins/org.epic.debug/dumpvar_epic.pm line 25.
DB<79> ;{
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
my $offset = 0;
my $varexpr = <<'EOT';
\%{$main::soap}->{'_content'}
EOT
my $subref = \&dumpvar_epic::dump_array_expr;
my $savout = select($DB::OUT);
$subref->($offset, $varexpr);
select($savout);
};
Not an ARRAY reference at C:/Software/eclipse/workspace/.metadata/.plugins/org.epic.debug/dumpvar_epic.pm line 25.
DB<80> ;{
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
my $offset = 0;
my $varexpr = <<'EOT';
\%{$main::soap}->{'_current'}
EOT
my $subref = \&dumpvar_epic::dump_array_expr;
my $savout = select($DB::OUT);
$subref->($offset, $varexpr);
select($savout);
};
Not an ARRAY reference at C:/Software/eclipse/workspace/.metadata/.plugins/org.epic.debug/dumpvar_epic.pm line 25.
DB<81> ;{
do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
my $offset = 0;
my $varexpr = <<'EOT';
\%{$main::soap}->{'_current'}
EOT
my $subref = \&dumpvar_epic::dump_array_expr;
my $savout = select($DB::OUT);
$subref->($offset, $varexpr);
select($savout);
};
Not an ARRAY reference at C:/Software/eclipse/workspace/.metadata/.plugins/org.epic.debug/dumpvar_epic.pm line 25.
DB<82>
-------------------------------------------------------------------------------
Hope this helps..., it helped me anyway since I now saw the fault why my SOAP client did not work :-)
I am an experienced Java developer, but a Perl newbie.
/Peter
Logged In: YES
user_id=86907
Originator: NO
Thanks for the info.
Fixed in 0.6.11.