Changeset 981

Timestamp:

06/13/06 18:28:48

Author:

miyagawa

Message:

Add ThinkPadShockMgr? push plugin.
binmode STDIN for win32 environment.

Files:

• branches/feature-server/plagger/lib/Plagger/Plugin/Server/Protocol/PLAGGER.pm (modified) (1 diff)
• branches/feature-server/plagger/lib/Plagger/Plugin/Server/Push/ThinkPadShockMgr.pm (added)

branches/feature-server/plagger/lib/Plagger/Plugin/Server/Protocol/PLAGGER.pm

@@ -17 +17 @@
-    my $req = shift;
-
+    binmode STDIN, ":raw";
-    my $line = <STDIN>;
+
-    return unless $line =~ m!^MODE: (.+)\r\n$!;
-    my $module = "Plagger::Plugin::Server::Protocol::$1";