Translations:KMail/Tools/40/da: Difference between revisions
Appearance
Created page with '{{Input|1=#!/usr/bin/perl $endOfHeader = 0; while (<>) { if ( $endOfHeader == 0 ) { if ( /^(?i:Subject):\s+Bug\#(\d{4,5}):/ ) { ...' |
No edit summary |
||
Line 1: | Line 1: | ||
{{Input|1=#!/usr/bin/perl | !!FUZZY!!{{Input|1=#!/usr/bin/perl | ||
$endOfHeader = 0; | $endOfHeader = 0; | ||
while (<>) { | while (<>) { | ||
Line 15: | Line 15: | ||
print; | print; | ||
}; | }; | ||
}} |
Revision as of 15:58, 27 September 2010
!!FUZZY!!
#!/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;
};