Re^2: XDR encoded packet over udp socket

i know, but i dont understand those functions :(

sub xdrencode() {
    my ($args) = shift;
    my $xid = "FGMS";
    my $vers = "1.1";
    my $proc = "test";
    my $prog = "test2";
    my $xdr = XDR->call_packet($xid, $proc, $args, $vers, $prog);
    return ($xdr);
}

print &xdrencode("www");
[download]

how do i create such a packet? can anyone give me an example please? :(

Comment on Re^2: XDR encoded packet over udp socket Download Code

Replies are listed 'Best First'.
Re^3: XDR encoded packet over udp socket by Anonymous Monk on Aug 09, 2012 at 09:37 UTC
i know, but i dont understand those functions :( ... how do i create such a packet? can anyone give me an example please? :( Um, look at the examples that come with the module, say http://cpansearch.perl.org/src/GORD/XDR-0.03/t/record.t, http://cpansearch.perl.org/src/GORD/XDR-0.03/t/rpc.t, http://cpansearch.perl.org/src/GORD/XDR-0.03/t/codec.t call_packet is not a method so do not call it as such (with arrow), call it as a function	[reply]
Re^4: XDR encoded packet over udp socket by Anonymous Monk on Aug 09, 2012 at 12:22 UTC
Thanks! ive just overseen those examples -.- however, i managed to get the right packet size now, but how can i add the magic number the server asks for? `// magic value for messages const uint32_t MSG_MAGIC = 0x46474653; // "FGFS" // protocoll version const uint32_t PROTO_VER = 0x00010001; // 1.1` [download]	[reply] [d/l]