Jump to content

Translations:KMail/Tools/40/da

From KDE UserBase Wiki
Revision as of 15:54, 27 September 2010 by Claus chr (talk | contribs) (Created page with '{{Input|1=#!/usr/bin/perl $endOfHeader = 0; while (<>) { if ( $endOfHeader == 0 ) { if ( /^(?i:Subject):\s+Bug\#(\d{4,5}):/ ) { ...')
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)

{{Input|1=#!/usr/bin/perl

   $endOfHeader = 0;
   while (<>) {
       if ( $endOfHeader == 0 )
       {
           if ( /^(?i:Subject):\s+Bug\#(\d{4,5}):/ )
           {
               $_ = "Reply-To: $1\@bugs.kde.org\n".$_;
           }
           elsif ( /^$/ )
           {
               $endOfHeader = 1;
           }
       }
       print;
   };