SHARE
TWEET

Burak Grsoy

a guest Jul 20th, 2009 52 Never
  1. use strict;
  2. use warnings;
  3. use CGI ();
  4. use URI ();
  5.  
  6. my $subject = subject() || '';
  7.  
  8. print "Subject: $subject\n";
  9.  
  10. sub subject {
  11.     my $cgi         = CGI->new;
  12.     my $referrerUrl = $cgi->param('referrerUrl');
  13.     my $uri         = URI->new($referrerUrl);
  14.     my $path        = $uri->path;
  15.     my %param       = $uri->query_form;
  16.     my $value       = $param{q} || return;
  17.  
  18.     return $value =~ /log/          ? 'logging'
  19.          : $value =~ /mailq/        ? 'mailq'
  20.          : $value =~ /loops.+?back/ ? 'loopsback'
  21.          : $value =~ /port/         ? 'changeport'
  22.          : $value =~ /white.+?list/ ? 'whitelist'
  23.          :                            ''
  24.          ;
  25. }
RAW Paste Data
Top