Changeset 982
- Timestamp:
- 06/13/06 18:31:23
- Files:
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
branches/feature-server/plagger/lib/Plagger/Plugin/Server/Push/ThinkPadShockMgr.pm
r981 r982 68 68 } 69 69 70 sub send {71 my($self, $context, $sock, $data) = @_;72 $sock->send("MODE: PLAGGER\r\n");73 $sock->send(sprintf("Plagger-Package: %s\r\n", __PACKAGE__));74 $sock->send(sprintf("Content-Length: 0\r\n"));75 $sock->send("\r\n");76 77 my $i = 0;78 while (<$data>) {79 last if $i++ > 50;80 }81 }82 83 70 1;
