clkao

CLIENT:

mtl-2:rt-extension-mailgate clkao$ fdm -vvvv -f t/fdm.conf fetch 
version is: fdm 1.6, started at: Wed Sep  1 22:50:39 2010
running on: Darwin 9.8.0 Darwin Kernel Version 9.8.0: Wed Jul 15 16:55:01 PDT 2009; root:xnu-1228.15.4~1/RELEASE_I386 i386
host is: mtl-2.local mtl-2.local fe80::21e:52ff:fe80:2b63%en1
home is: /Users/clkao
loading configuration from t/fdm.conf
added account "test-acconut": fetch=imaps server "localhost" port 1993 user "[email protected]" folders "INBOX"
added rule 0: matches=regexp "^To:.*[email protected]" in headers actions="rtmail"

clkao

t/web/gnupg-outgoing.t                             421.608s
t/shredder/02queue.t                                88.646s
t/shredder/02group_member.t                         86.909s
t/web/unlimited_search.t                            86.011s
t/mail/gnupg-reverification.t                       83.846s
t/web/gnupg-select-keys-on-update.t                 81.712s
t/shredder/01basics.t                               78.087s
t/shredder/02template.t                             78.069s
t/shredder/03plugin_tickets.t                       77.865s
t/shredder/02user.t                                 77.056s

clkao

use Graphics::Color::RGB;
my $hsl = Graphics::Color::RGB->new( red => 255 / 255, green => 253 / 255, blue => 248 / 255, alpha => 255 / 255 )->to_hsl;

clkao

#!/Users/clkao/perl5/perlbrew/bin/perl -w
# BEGIN BPS TAGGED BLOCK {{{
# 
# COPYRIGHT:
# 
# This software is Copyright (c) 1996-2009 Best Practical Solutions, LLC
#                                          <[email protected]>
# 
# (Except where explicitly superseded by other copyright notices)
# 

clkao

diff --git a/perl/FCGI.XL b/perl/FCGI.XL
index 5bd85fa..24e9504 100644
--- a/perl/FCGI.XL
+++ b/perl/FCGI.XL
@@ -38,6 +38,13 @@ __END__
 #define INT2PTR(a,b) ((a) (b))
 #endif
 
+#define WARN_WC
+

clkao

use strict;
use warnings;
use Test::More qw(no_diag);
use Test::TCP;
use Plack::Loader;
use Plack::Request;
use HTTP::Response;

use Plack::Middleware::Deflater;
use Plack::App::File;

clkao

diff --git a/lib/RT/Interface/Web.pm b/lib/RT/Interface/Web.pm
index 7e5f975..ad2a6a3 100755
--- a/lib/RT/Interface/Web.pm
+++ b/lib/RT/Interface/Web.pm
@@ -1521,6 +1521,8 @@ sub ProcessTicketBasics {
     my $TicketObj = $args{'TicketObj'};
     my $ARGSRef   = $args{'ARGSRef'};
 
+    my $OrigOwner = $TicketObj->Owner;
+

clkao

           (0,500]        (500,1e+03]    (1e+03,1.5e+03]    (1.5e+03,2e+03]    (2e+03,2.5e+03]    (2.5e+03,3e+03] 
                 0                  0                  3                  3                  2                  4 
   (3e+03,3.5e+03]    (3.5e+03,4e+03]    (4e+03,4.5e+03]    (4.5e+03,5e+03]    (5e+03,5.5e+03]    (5.5e+03,6e+03] 
                 6                 11                 23                 26                 22                 34 
   (6e+03,6.5e+03]    (6.5e+03,7e+03]    (7e+03,7.5e+03]    (7.5e+03,8e+03]    (8e+03,8.5e+03]    (8.5e+03,9e+03] 
                30                 24                 22                 23                 16                 10 
   (9e+03,9.5e+03]    (9.5e+03,1e+04]   (1e+04,1.05e+04] (1.05e+04,1.1e+04] (1.1e+04,1.15e+04] (1.15e+04,1.2e+04] 
                 9                  8                  2                  2                  0                  1 
(1.2e+04,1.25e+04]     (1.25e+04,Inf] 

clkao

backend b1 {
    .host = "127.0.0.1";
    .port = "8028";
}
backend hippie {
    .host = "127.0.0.1";
    .port = "8018";
}

clkao

            my @keys = map {
                my $k = $env->{'HTTP_SEC_WEBSOCKET_KEY'.$_};
                join('', $k =~ m/\d/g) / scalar @{[$k =~ m/ /g]};
            } (1,2);

            $h->push_write($hs);

            $h->push_write(md5(pack('NN', @keys) . $key3));