t/misc/negotiate

   1
   2 use HTTP::Request;
   3 use HTTP::Negotiate;
   4
   5  #  ID       QS     Content-Type   Encoding Char-Set        Lang   Size
   6  $variants =
   7   [['var1',  1.000, 'text/html;version=2.0',   'gzip',   'iso-8859-1',   'en',   3000],
   8    ['var2',  0.950, 'text/plain',  ['uuencode',
   9                                     'compress'],  'iso-8859-2','se',    400],
  10    ['var3',  0.3,   'image/gif',   undef,   undef,          undef, 43555],
  11  ];
  12
  13
  14 $request = new HTTP::Request 'GET', 'http://localhost/';
  15 $request->header('Accept', 'text/plain; q=0.55, image/jpg; mbx=10000');
  16 $request->push_header('Accept', 'text/*; q=0.01');
  17 $request->header('Accept-Language', 'no, en');
  18 $request->header('Accept-Charset', 'iso-8859-1');
  19 $request->header('Accept-Encoding', 'gzip');
  20
  21 #print $request->as_string;
  22
  23 $HTTP::Negotiate::DEBUG = 1;
  24
  25 $a = choose($variants);
  26
  27 print "SEL=$a\n";
  28
  29
  30
  31
  32
  33
  34
  35