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]

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

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]