Skip to content

bugzilla
bugzilla
Commit d85c44a1 authored by lpsolit%gmail.com's avatar lpsolit%gmail.com
Browse files
Options

Bug 293907: remove tabs from bug_email.pl - Patch by Frédéric Buclin…

Bug 293907: remove tabs from bug_email.pl - Patch by Frédéric Buclin <LpSolit@gmail.com> r=kiko a=justdave
parent d99933e4
Hide whitespace changes
Inline Side-by-side
Showing with 220 additions and 220 deletions
contrib/bug_email.pl
View file @ d85c44a1
......@@ -38,7 +38,7 @@
#
# You need to work with bug_email.pl the MIME::Parser installed.
#
# $Id: bug_email.pl,v 1.25 2005/02/24 23:42:48 mkanat%kerio.com Exp $
# $Id: bug_email.pl,v 1.26 2005/05/12 17:26:26 lpsolit%gmail.com Exp $
###############################################################
# 02/12/2000 (SML)
......@@ -135,41 +135,41 @@ sub storeAttachments( $$ )
$submitter_id ||= 0;
foreach my $pairref ( @$listref ) {
my ($decoded_file, $mime, $on_disk, $description) = @$pairref;
# Size check - mysql has a maximum space for the data ?
$maxsize = 1047552; # should be queried by a system( "mysqld --help" );,
# but this seems not to be supported by all current mysql-versions
# Read data file binary
if( $on_disk ) {
if( open( FILE, "$decoded_file" )) {
binmode FILE;
read FILE, $data, $maxsize;
close FILE;
$att_count ++;
} else {
print "Error while reading attachment $decoded_file!\n";
next;
}
# print "unlinking $datadir/mimedump-tmp/$decoded_file";
# unlink "$datadir/mimedump-tmp/$decoded_file";
} else {
# data is in the scalar
$data = $decoded_file;
}
# Make SQL-String
my $sql = "insert into attachments (bug_id, creation_ts, description, mimetype, ispatch, filename, thedata, submitter_id) values (";
$sql .= "$bugid, now(), " . SqlQuote( $description ) . ", ";
$sql .= SqlQuote( $mime ) . ", ";
$sql .= "0, ";
$sql .= SqlQuote( $decoded_file ) . ", ";
$sql .= SqlQuote( $data ) . ", ";
$sql .= "$submitter_id );";
SendSQL( $sql ) unless( $test );
my ($decoded_file, $mime, $on_disk, $description) = @$pairref;
# Size check - mysql has a maximum space for the data ?
$maxsize = 1047552; # should be queried by a system( "mysqld --help" );,
# but this seems not to be supported by all current mysql-versions
# Read data file binary
if( $on_disk ) {
if( open( FILE, "$decoded_file" )) {
binmode FILE;
read FILE, $data, $maxsize;
close FILE;
$att_count ++;
} else {
print "Error while reading attachment $decoded_file!\n";
next;
}
# print "unlinking $datadir/mimedump-tmp/$decoded_file";
# unlink "$datadir/mimedump-tmp/$decoded_file";
} else {
# data is in the scalar
$data = $decoded_file;
}
# Make SQL-String
my $sql = "insert into attachments (bug_id, creation_ts, description, mimetype, ispatch, filename, thedata, submitter_id) values (";
$sql .= "$bugid, now(), " . SqlQuote( $description ) . ", ";
$sql .= SqlQuote( $mime ) . ", ";
$sql .= "0, ";
$sql .= SqlQuote( $decoded_file ) . ", ";
$sql .= SqlQuote( $data ) . ", ";
$sql .= "$submitter_id );";
SendSQL( $sql ) unless( $test );
}
return( $att_count );
......@@ -196,9 +196,9 @@ sub CheckPermissions {
# SendSQL("select login_name from profiles,groups where groups.name='$GroupName' and profiles.groupset & groups.bit = groups.bit and profiles.login_name=\'$Name\'");
# my $NewName = FetchOneColumn();
# if ( $NewName eq $Name ) {
# return $Name;
# return $Name;
# } else {
# return;
# return;
# }
# my $query = "SELECT login_name FROM profiles WHERE profiles.login_name=\'$Name\'";
# SendSQL($query);
......@@ -219,9 +219,9 @@ sub CheckProduct {
SendSQL("select name from products where name = " . SqlQuote($Product));
my $Result = FetchOneColumn();
if (lc($Result) eq lc($Product)) {
return $Result;
return $Result;
} else {
return "";
return "";
}
}
......@@ -234,9 +234,9 @@ sub CheckComponent {
SendSQL("select components.name from components, products where components.product_id = products.id AND products.name=" . SqlQuote($Product) . " and components.name=" . SqlQuote($Component));
my $Result = FetchOneColumn();
if (lc($Result) eq lc($Component)) {
return $Result;
return $Result;
} else {
return "";
return "";
}
}
......@@ -249,9 +249,9 @@ sub CheckVersion {
SendSQL("select value from versions, products where versions.product_id = products.id AND products.name=" . SqlQuote($Product) . " and value=" . SqlQuote($Version));
my $Result = FetchOneColumn();
if (lc($Result) eq lc($Version)) {
return $Result;
return $Result;
} else {
return "";
return "";
}
}
......@@ -264,10 +264,10 @@ sub Reply( $$$$ ) {
die "Cannot find sender-email-address" unless defined( $Sender );
if( $test ) {
open( MAIL, '>>', "$datadir/bug_email_test.log" );
open( MAIL, '>>', "$datadir/bug_email_test.log" );
}
else {
open( MAIL, "| /usr/sbin/sendmail -t" );
open( MAIL, "| /usr/sbin/sendmail -t" );
}
print MAIL "To: $Sender\n";
......@@ -311,18 +311,18 @@ sub CheckPriority
my @all_prios = getEnumList( "priority" );
if( $prio eq "" || (lsearch( \@all_prios, $prio ) == -1) ) {
# OK, Prio was not defined - create Answer
my $Text = "You sent wrong priority-setting, valid values are:" .
join( "\n\t", @all_prios ) . "\n\n";
$Text .= "* The priority is set to the default value ".
SqlQuote( Param('defaultpriority')) . "\n";
# OK, Prio was not defined - create Answer
my $Text = "You sent wrong priority-setting, valid values are:" .
join( "\n\t", @all_prios ) . "\n\n";
$Text .= "* The priority is set to the default value ".
SqlQuote( Param('defaultpriority')) . "\n";
BugMailError( 0, $Text );
BugMailError( 0, $Text );
# set default value from param-file
$Control{'priority'} = Param( 'defaultpriority' );
# set default value from param-file
$Control{'priority'} = Param( 'defaultpriority' );
} else {
# Nothing to do
# Nothing to do
}
}
......@@ -335,16 +335,16 @@ sub CheckSeverity
my @all_sever = getEnumList( "bug_severity" );
if( (lsearch( \@all_sever, $sever ) == -1) || $sever eq "" ) {
# OK, Prio was not defined - create Answer
my $Text = "You sent wrong bug_severity-setting, valid values are:" .
join( "\n\t", @all_sever ) . "\n\n";
$Text .= "* The bug_severity is set to the default value ".
SqlQuote( "normal" ) . "\n";
# OK, Prio was not defined - create Answer
my $Text = "You sent wrong bug_severity-setting, valid values are:" .
join( "\n\t", @all_sever ) . "\n\n";
$Text .= "* The bug_severity is set to the default value ".
SqlQuote( "normal" ) . "\n";
BugMailError( 0, $Text );
BugMailError( 0, $Text );
# set default value from param-file
$Control{'bug_severity'} = "normal";
# set default value from param-file
$Control{'bug_severity'} = "normal";
}
}
......@@ -357,16 +357,16 @@ sub CheckArea
my @all= getEnumList( "area" );
if( (lsearch( \@all, $area ) == -1) || $area eq "" ) {
# OK, Area was not defined - create Answer
my $Text = "You sent wrong area-setting, valid values are:" .
join( "\n\t", @all ) . "\n\n";
$Text .= "* The area is set to the default value ".
SqlQuote( "BUILD" ) . "\n";
# OK, Area was not defined - create Answer
my $Text = "You sent wrong area-setting, valid values are:" .
join( "\n\t", @all ) . "\n\n";
$Text .= "* The area is set to the default value ".
SqlQuote( "BUILD" ) . "\n";
BugMailError( 0, $Text );
BugMailError( 0, $Text );
# set default value from param-file
$Control{'area'} = "BUILD";
# set default value from param-file
$Control{'area'} = "BUILD";
}
}
......@@ -379,16 +379,16 @@ sub CheckPlatform
my @all = getEnumList( "rep_platform" );
if( (lsearch( \@all, $platform ) == -1) || $platform eq "" ) {
# OK, Prio was not defined - create Answer
my $Text = "You sent wrong platform-setting, valid values are:" .
join( "\n\t", @all ) . "\n\n";
$Text .= "* The rep_platform is set to the default value ".
SqlQuote( "All" ) . "\n";
# OK, Prio was not defined - create Answer
my $Text = "You sent wrong platform-setting, valid values are:" .
join( "\n\t", @all ) . "\n\n";
$Text .= "* The rep_platform is set to the default value ".
SqlQuote( "All" ) . "\n";
BugMailError( 0, $Text );
BugMailError( 0, $Text );
# set default value from param-file
$Control{'rep_platform'} = "All";
# set default value from param-file
$Control{'rep_platform'} = "All";
}
}
......@@ -401,16 +401,16 @@ sub CheckSystem
my @all = getEnumList( "op_sys" );
if( (lsearch( \@all, $sys ) == -1) || $sys eq "" ) {
# OK, Prio was not defined - create Answer
my $Text = "You sent wrong OS-setting, valid values are:" .
join( "\n\t", @all ) . "\n\n";
$Text .= "* The op_sys is set to the default value ".
SqlQuote( "Linux" ) . "\n";
# OK, Prio was not defined - create Answer
my $Text = "You sent wrong OS-setting, valid values are:" .
join( "\n\t", @all ) . "\n\n";
$Text .= "* The op_sys is set to the default value ".
SqlQuote( "Linux" ) . "\n";
BugMailError( 0, $Text );
BugMailError( 0, $Text );
# set default value from param-file
$Control{'op_sys'} = "Linux";
# set default value from param-file
$Control{'op_sys'} = "Linux";
}
}
......@@ -424,7 +424,7 @@ sub FetchAllSQLData( )
my @res = ();
while( MoreSQLData() ){
push( @res, FetchOneColumn() );
push( @res, FetchOneColumn() );
}
return( @res );
}
......@@ -463,21 +463,21 @@ sub BugMailError($ $ )
# On permission error, dont sent all other Errors back -> just quit !
if( $errflag == 2 ) { # Permission-Error
Reply( $SenderShort, $Message_ID, "Bugzilla Error", "Permission denied.\n\n" .
"You do not have the permissions to create a new bug. Sorry.\n" );
exit;
Reply( $SenderShort, $Message_ID, "Bugzilla Error", "Permission denied.\n\n" .
"You do not have the permissions to create a new bug. Sorry.\n" );
exit;
}
# Warnings - store for the reply mail
if( $errflag == 0 ) {
push( @mailwarnings, $text );
push( @mailwarnings, $text );
}
# Critical Error
if( $errflag == 1 ) {
$critical_err += 1;
push( @mailerrors, $text );
$critical_err += 1;
push( @mailerrors, $text );
}
}
......@@ -546,33 +546,33 @@ _____ snip _____________________________________________________________________
EOF
;
foreach ( @RequiredLabels ) {
$w = "";
$w = $Control{$_} if defined( $Control{ $_ } );
$ret .= sprintf( " \@%-15s: %s\n", $_, $w );
$w = "";
$w = $Control{$_} if defined( $Control{ $_ } );
$ret .= sprintf( " \@%-15s: %s\n", $_, $w );
}
$ret .= "\n";
# Allowed Labels
foreach( @AllowedLabels ) {
next if( /reporter/ ); # Reporter is not a valid label
next if( /assigned_to/ ); # Assigned to is just a number
if( defined( $Control{ $_ } ) && lsearch( \@RequiredLabels, $_ ) == -1 ) {
$ret .= sprintf( " \@%-15s: %s\n", $_, $Control{ $_ } );
}
next if( /reporter/ ); # Reporter is not a valid label
next if( /assigned_to/ ); # Assigned to is just a number
if( defined( $Control{ $_ } ) && lsearch( \@RequiredLabels, $_ ) == -1 ) {
$ret .= sprintf( " \@%-15s: %s\n", $_, $Control{ $_ } );
}
}
if( $Body eq "" ) {
$ret .= <<END
< the bug-description follows here >
_____ snip _______________________________________________________________________
END
; } else {
$ret .= "\n" . $Body;
$ret .= "\n" . $Body;
}
return( $ret );
}
......@@ -597,47 +597,47 @@ sub dump_entity {
# Output the body:
my @parts = $entity->parts;
if (@parts) { # multipart...
my $i;
foreach $i (0 .. $#parts) { # dump each part...
dump_entity($parts[$i], ("$name, part ".(1+$i)));
}
} else { # single part...
# Get MIME type, and display accordingly...
my $msg_part = $entity->head->get( 'Content-Disposition' );
$msg_part ||= "";
my ($type, $subtype) = split('/', $entity->head->mime_type);
my $body = $entity->bodyhandle;
my ($data, $on_disk );
if( $msg_part =~ /^attachment/ ) {
# Attached File
my $des = $entity->head->get('Content-Description');
$des ||= $entity->head->recommended_filename;
$des ||= "unnamed attachment";
if( defined( $body->path )) { # Data is on disk
$on_disk = 1;
$data = $body->path;
} else { # Data is in core
$on_disk = 0;
$data = $body->as_string;
}
push ( @attachments, [ $data, $entity->head->mime_type, $on_disk, $des ] );
} else {
# Real Message
if ($type =~ /^(text|message)$/) { # text: display it...
if ($IO = $body->open("r")) {
$Body .= $_ while (defined($_ = $IO->getline));
$IO->close;
} else { # d'oh!
print "$0: couldn't find/open '$name': $!";
}
} else { print "Oooops - no Body !\n"; }
}
my $i;
foreach $i (0 .. $#parts) { # dump each part...
dump_entity($parts[$i], ("$name, part ".(1+$i)));
}
} else { # single part...
# Get MIME type, and display accordingly...
my $msg_part = $entity->head->get( 'Content-Disposition' );
$msg_part ||= "";
my ($type, $subtype) = split('/', $entity->head->mime_type);
my $body = $entity->bodyhandle;
my ($data, $on_disk );
if( $msg_part =~ /^attachment/ ) {
# Attached File
my $des = $entity->head->get('Content-Description');
$des ||= $entity->head->recommended_filename;
$des ||= "unnamed attachment";
if( defined( $body->path )) { # Data is on disk
$on_disk = 1;
$data = $body->path;
} else { # Data is in core
$on_disk = 0;
$data = $body->as_string;
}
push ( @attachments, [ $data, $entity->head->mime_type, $on_disk, $des ] );
} else {
# Real Message
if ($type =~ /^(text|message)$/) { # text: display it...
if ($IO = $body->open("r")) {
$Body .= $_ while (defined($_ = $IO->getline));
$IO->close;
} else { # d'oh!
print "$0: couldn't find/open '$name': $!";
}
} else { print "Oooops - no Body !\n"; }
}
}
}
......@@ -658,19 +658,19 @@ sub extractControls( $ )
# In restricted mode, all lines before the first keyword
# are skipped.
if( $restricted ) {
while( $lbody[0] =~ /^\s*\@.*/ ){ shift( @lbody );}
while( $lbody[0] =~ /^\s*\@.*/ ){ shift( @lbody );}
}
# Filtering for keys
foreach( @lbody ) {
if( /^\s*\@description/ ) {
s/\s*\@description//;
$backbody .= $_;
} elsif( /^\s*\@(.*?)(?:\s*=\s*|\s*:\s*|\s+)(.*?)\s*$/ ) {
$Control{lc($1)} = $2;
} else {
$backbody .= "$_" . "\n";
}
if( /^\s*\@description/ ) {
s/\s*\@description//;
$backbody .= $_;
} elsif( /^\s*\@(.*?)(?:\s*=\s*|\s*:\s*|\s+)(.*?)\s*$/ ) {
$Control{lc($1)} = $2;
} else {
$backbody .= "$_" . "\n";
}
}
# thats it.
......@@ -768,7 +768,7 @@ $Body = extractControls( $Body ); # fills the Control-Hash
if( $test ) {
foreach (keys %Control ) {
print "$_ => $Control{$_}\n";
print "$_ => $Control{$_}\n";
}
}
......@@ -782,14 +782,14 @@ $Control{'short_desc'} ||= $Subject;
# Check Control-Labels
# not: reporter !
@AllowedLabels = ("product", "version", "rep_platform",
"bug_severity", "priority", "op_sys", "assigned_to",
"bug_status", "bug_file_loc", "short_desc", "component",
"status_whiteboard", "target_milestone", "groupset",
"qa_contact");
"bug_severity", "priority", "op_sys", "assigned_to",
"bug_status", "bug_file_loc", "short_desc", "component",
"status_whiteboard", "target_milestone", "groupset",
"qa_contact");
#my @AllowedLabels = qw{Summary priority platform assign};
foreach (keys %Control) {
if ( lsearch( \@AllowedLabels, $_) < 0 ) {
BugMailError( 0, "You sent a unknown label: " . $_ );
BugMailError( 0, "You sent a unknown label: " . $_ );
}
}
......@@ -802,13 +802,13 @@ $Control{'reporter'} = $SenderShort;
@RequiredLabels = qw{product version component short_desc};
foreach my $Label (@RequiredLabels) {
if ( ! defined $Control{$Label} ) {
BugMailError( 0, "You were missing a required label: \@$Label\n" );
next;
BugMailError( 0, "You were missing a required label: \@$Label\n" );
next;
}
if( $Control{$Label} =~ /^\s*$/ ) {
BugMailError( 0, "One of your required labels is empty: $Label" );
next;
BugMailError( 0, "One of your required labels is empty: $Label" );
next;
}
}
......@@ -822,7 +822,7 @@ if ( $Body =~ /^\s*$/s ) {
# Check Permissions ...
if (! CheckPermissions("CreateBugs", $SenderShort ) ) {
BugMailError( 2, "Permission denied.\n\n" .
"You do not have the permissions to create a new bug. Sorry.\n" );
"You do not have the permissions to create a new bug. Sorry.\n" );
}
# Set QA
......@@ -846,7 +846,7 @@ if ( $Product eq "" ) {
my $Text = "You didnt send a value for the required key \@product !\n\n";
$Text = "You sent the invalid product \"$Control{'product'}\"!\n\n"
if( defined( $Control{ 'product'} ));
if( defined( $Control{ 'product'} ));
$Text .= "Valid products are:\n\t";
......@@ -879,7 +879,7 @@ if ( $Component eq "" ) {
my $Text = "You did not send a value for the required key \@component!\n\n";
if( defined( $Control{ 'component' } )) {
$Text = "You sent the invalid component \"$Control{'component'}\" !\n";
$Text = "You sent the invalid component \"$Control{'component'}\" !\n";
}
#
......@@ -888,28 +888,28 @@ if ( $Component eq "" ) {
# if a product was sent, only reply the components of the sent product
my @val_components = ();
foreach my $prod ( @all_products ) {
$Text .= "\nValid components for product `$prod' are: \n\t";
$Text .= "\nValid components for product `$prod' are: \n\t";
SendSQL("SELECT components.name FROM components, products WHERE components.product_id=products.id AND products.name = " . SqlQuote($prod));
@val_components = FetchAllSQLData();
SendSQL("SELECT components.name FROM components, products WHERE components.product_id=products.id AND products.name = " . SqlQuote($prod));
@val_components = FetchAllSQLData();
$Text .= join( "\n\t", @val_components ) . "\n";
$Text .= join( "\n\t", @val_components ) . "\n";
}
# Special: if there is a valid product, maybe it has only one component -> use it !
#
my $amount_of_comps = @val_components;
if( $product_valid && $amount_of_comps == 1 ) {
$Component = $val_components[0];
$Text .= " * You did not send a component, but a valid product " . SqlQuote( $Product ) . ".\n";
$Text .= " * This product only has one component ". SqlQuote( $Component ) .".\n" .
" * This component was set by bugzilla for submitting the bug.\n\n";
BugMailError( 0, $Text ); # No blocker
$Component = $val_components[0];
$Text .= " * You did not send a component, but a valid product " . SqlQuote( $Product ) . ".\n";
$Text .= " * This product only has one component ". SqlQuote( $Component ) .".\n" .
" * This component was set by bugzilla for submitting the bug.\n\n";
BugMailError( 0, $Text ); # No blocker
} else { # The component is really buggy :(
$Text .= horLine();
BugMailError( 1, $Text );
$Text .= horLine();
BugMailError( 1, $Text );
}
}
$Control{'component'} = $Component;
......@@ -932,10 +932,10 @@ if ( defined($Control{'assigned_to'})
if ( $Control{'assigned_to'} == 0 ) {
my $Text = "Could not resolve key \@assigned_to !\n" .
"If you do NOT send a value for assigned_to, the bug will be assigned to\n" .
"the qa-contact for the product and component.\n";
"If you do NOT send a value for assigned_to, the bug will be assigned to\n" .
"the qa-contact for the product and component.\n";
$Text .= "This works only if product and component are OK. \n"
. horLine();
. horLine();
BugMailError( 1, $Text );
}
......@@ -961,34 +961,34 @@ if ( $Version eq "" ) {
my $Text = "You did not send a value for the required key \@version!\n\n";
if( defined( $Control{'version'})) {
my $Text = "You sent the invalid version \"$Control{'version'}\"!\n";
my $Text = "You sent the invalid version \"$Control{'version'}\"!\n";
}
my $anz_versions;
my @all_versions;
# Assemble help text
foreach my $prod ( @all_products ) {
$Text .= "Valid versions for product " . SqlQuote( $prod ) . " are: \n\t";
$Text .= "Valid versions for product " . SqlQuote( $prod ) . " are: \n\t";
SendSQL("select value from versions, products where versions.product_id=products.id AND products.name=" . SqlQuote( $prod ));
@all_versions = FetchAllSQLData();
$anz_versions = @all_versions;
$Text .= join( "\n\t", @all_versions ) . "\n" ;
SendSQL("select value from versions, products where versions.product_id=products.id AND products.name=" . SqlQuote( $prod ));
@all_versions = FetchAllSQLData();
$anz_versions = @all_versions;
$Text .= join( "\n\t", @all_versions ) . "\n" ;
}
# Check if we could use the only version
if( $anz_versions == 1 && $product_valid ) {
$Version = $all_versions[0];
# Fine, there is only one version string
$Text .= " * You did not send a version, but a valid product " . SqlQuote( $Product ) . ".\n";
$Text .= " * This product has has only the one version ". SqlQuote( $Version) .".\n" .
" * This version was set by bugzilla for submitting the bug.\n\n";
$Text .= horLine();
BugMailError( 0, $Text ); # No blocker
$Version = $all_versions[0];
# Fine, there is only one version string
$Text .= " * You did not send a version, but a valid product " . SqlQuote( $Product ) . ".\n";
$Text .= " * This product has has only the one version ". SqlQuote( $Version) .".\n" .
" * This version was set by bugzilla for submitting the bug.\n\n";
$Text .= horLine();
BugMailError( 0, $Text ); # No blocker
} else {
$Text .= horLine();
BugMailError( 1, $Text );
$Text .= horLine();
BugMailError( 1, $Text );
}
}
......@@ -1029,25 +1029,25 @@ if( $GroupSet eq "" ) {
# Then search for every Literal in the DB - col name
foreach ( split /\s+|\s*\+\s*|\s*,\s*/, $GroupSet ) {
SendSQL("select id, Name from groups where name=" . SqlQuote($_));
my( $bval, $bname ) = FetchSQLData();
my( $bval, $bname ) = FetchSQLData();
if( defined( $bname ) && $_ eq $bname ) {
if( defined( $bname ) && $_ eq $bname ) {
$GroupArr{$bname} = $bval;
} else {
$Text .= "You sent the wrong GroupSet-String $_\n";
$gserr = 1;
}
} else {
$Text .= "You sent the wrong GroupSet-String $_\n";
$gserr = 1;
}
}
#
# Give help if wrong GroupSet-String came
if( $gserr > 0 ) {
# There happend errors
$Text .= "Here are all valid literal Groupsetting-strings:\n\t";
# There happend errors
$Text .= "Here are all valid literal Groupsetting-strings:\n\t";
SendSQL( "select g.name from groups g, user_group_map u where u.user_id=".$Control{'reporter'}.
" and g.isbuggroup=1 and g.id = u.group_id group by g.name;" );
$Text .= join( "\n\t", FetchAllSQLData()) . "\n";
BugMailError( 0, $Text );
$Text .= join( "\n\t", FetchAllSQLData()) . "\n";
BugMailError( 0, $Text );
}
} # End of checking groupsets
delete $Control{'groupset'};
......@@ -1086,7 +1086,7 @@ END
my $reporter = "";
my $query = "insert into bugs (\n" . join(",\n", @used_fields ) .
", bug_status, creation_ts, delta_ts, everconfirmed) values ( ";
", bug_status, creation_ts, delta_ts, everconfirmed) values ( ";
# 'Yuck'. Then again, this whole file should be rewritten anyway...
$query =~ s/product/product_id/;
......@@ -1096,16 +1096,16 @@ END
my $val;
foreach my $field (@used_fields) {
if( $field eq "groupset" ) {
$query .= $Control{$field} . ",\n";
$query .= $Control{$field} . ",\n";
} elsif ( $field eq 'product' ) {
$query .= get_product_id($Control{$field}) . ",\n";
} elsif ( $field eq 'component' ) {
$query .= get_component_id(get_product_id($Control{'product'}),
$Control{$field}) . ",\n";
} else {
$query .= SqlQuote($Control{$field}) . ",\n";
$query .= SqlQuote($Control{$field}) . ",\n";
}
$val = $Control{ $field };
$val = DBID_to_name( $val ) if( $field =~ /reporter|assigned_to|qa_contact/ );
......@@ -1113,7 +1113,7 @@ END
$tmp_reply .= sprintf( " \@%-15s = %-15s\n", $field, $val );
if ($field eq "reporter") {
$reporter = $val;
$reporter = $val;
}
}
#
......@@ -1150,19 +1150,19 @@ END
my $id;
if( ! $test ) {
SendSQL($query);
SendSQL($query);
$id = Bugzilla->dbh->bz_last_key('bugs', 'bug_id');
$id = Bugzilla->dbh->bz_last_key('bugs', 'bug_id');
my $long_desc_query = "INSERT INTO longdescs SET bug_id=$id, who=$userid, bug_when=\'$bug_when\', thetext=" . SqlQuote($comment);
SendSQL($long_desc_query);
my $long_desc_query = "INSERT INTO longdescs SET bug_id=$id, who=$userid, bug_when=\'$bug_when\', thetext=" . SqlQuote($comment);
SendSQL($long_desc_query);
# Cool, the mail was successful
# Cool, the mail was successful
# system("./processmail", $id, $SenderShort);
} else {
$id = 0xFFFFFFFF; # TEST !
print "\n-------------------------------------------------------------------------\n";
print "$query\n";
print "\n-------------------------------------------------------------------------\n";
print "$query\n";
}
#
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment