Here is the data being sent between the single quotes: 
to client:'1:AAE/LxI1l9kvzveExnBSsku783Z+1mWYld/J7G3nl/OijlRXuIZXDKcHQ
+DTlkIB52p/qxiFohG76Jxhb1F64oyPpom24PO7RVvKb4jQkOoi4xNbBwSbvMUsq1ZnqNP
+95vz2ifeWzqqPmR9XRS7OfbgZSK8X3le/YP/Ca8Mj5K90aJ7oYF2HaeJFotVeCO9eLpS5
+zlH02gGMADCfS+ZXwN4420u/fwevNrBMx/cSeCVtcocS6i3wPNlJKA'

[download]
It's base64 encoded binary data. Wireshark shows the data being truncated at 128 bytes around nqNP and 95vz

And the section of code that sends it: 

 my $sql="SELECT data FROM firmware_data WHERE firmware_key = '$firmwa
+re_key' AND row_number = $current_row";
$self->log(4, "select: $sql");
$sth=$dbh->prepare($sql);
$sth->execute;
$firmware_packet=$sth->fetchrow();
$sth->finish();

if (defined($firmware_packet) ){
  $IdleUserTimeout=0;     #reset the timer since we got some user data
  $self->log(4,"firmware row: $current_row");

  #send the data
  $self->log(4, "firmware to client:'$current_row:$firmware_packet'");
  print "$current_row:$firmware_packet\r\n";
  if ($current_row < $data_NumberOfRows){
    $current_row++; #get the next packet net time around
  }
  if ($firmware_packet =~ /^#bye$/){
    #we recived the BYE command, so inform the client and close the so
+cket down
    log_user_out($self, $dbh, $MAC);
    return;
  }

  select(undef, undef, undef, .5); #500ms

[download]
This is the line that sends the data, from above.
print "$current_row:$firmware_packet\r\n";

UPDATE: I'm using perl 5.8.8 on Ubuntu 8.04 LTS Server
Linux 2.6.24-23-server

Thanks for the help,
Aaron

In reply to Re^2: Net::Server only sends 128bytes at a time by alager
in thread Net::Server only sends 128bytes at a time by alager

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.