FirePhp for perl

Реализация протокола WildFire на perl

Сделал простейшую реализацию протокола WildFire на perl, для вывода сообщений в консоль FireBug с помощью плагина FirePhp.
Те модули, что я находил на cpan, по каким-то причинам не подошли.

my @fbheaders = ();

################################################################################
# Subprogram:  fb
# позволяет осуществлять вывод в консоль firephp (firebug)
#
sub fb {
   my $content = shift;
   $content =~ s/\"/\\"/g;
   $content =~ s/\:/:/g;
   $content =~ s/\n//g;

   $content = qq![{"Type":"LOG"},"$content"]!;
   my $len = length $content;
   my $counter = $#fbheaders + 2;
   push @fbheaders, qq!X-Wf-1-1-1-$counter: $len|$content|!;

} # End fb


   # firephp headers
   if( $ENV{ 'HTTP_USER_AGENT' } =~ /FirePHP/i && $#fbheaders >= 0 ) {

      my $headers = "X-Wf-Protocol-1: http://meta.wildfirehq.org/Protocol/JsonStream/0.2\n";
      $headers .= "X-Wf-1-Plugin-1: http://meta.firephp.org/Wildfire/Plugin/FirePHP/Library-FirePHPCore/0.3\n";
      $headers .= "X-Wf-1-Structure-1: http://meta.firephp.org/Wildfire/Structure/FirePHP/FirebugConsole/0.1\n";
      print $headers;
      foreach my $el ( @fbheaders ) {
         print $el . "\n";
      } # End foreach

   } # End if

Вернуться к списку записей

---

---

комментарии работают на Disqus