summaryrefslogtreecommitdiffstats
path: root/perl-install/fs
diff options
context:
space:
mode:
authorThierry.Vignaud <thierry.vignaud@gmail.com>2014-05-28 22:37:23 +0200
committerThierry Vignaud <thierry.vignaud@gmail.com>2014-05-28 22:37:23 +0200
commit2800fdc2a724ef9b05b3add20fe6a0d6906cc9b3 (patch)
tree71b836aac6e9e7ed1874591614cc065bd703e0a6 /perl-install/fs
parent4ade9f622bb68a14c697108da1fb2726ecf0de4a (diff)
downloaddrakx-2800fdc2a724ef9b05b3add20fe6a0d6906cc9b3.tar
drakx-2800fdc2a724ef9b05b3add20fe6a0d6906cc9b3.tar.gz
drakx-2800fdc2a724ef9b05b3add20fe6a0d6906cc9b3.tar.bz2
drakx-2800fdc2a724ef9b05b3add20fe6a0d6906cc9b3.tar.xz
drakx-2800fdc2a724ef9b05b3add20fe6a0d6906cc9b3.zip
add spacing for readability
Diffstat (limited to 'perl-install/fs')
-rw-r--r--perl-install/fs/dmraid.pm1
1 files changed, 1 insertions, 0 deletions
diff --git a/perl-install/fs/dmraid.pm b/perl-install/fs/dmraid.pm
index 92cce9bef..109126872 100644
--- a/perl-install/fs/dmraid.pm
+++ b/perl-install/fs/dmraid.pm
@@ -67,6 +67,7 @@ sub _raid_devices_raw() {
$2 => $1;
}
} call_dmraid(qw(-d -s -c -c));
+
map {
chomp;
log::l("got: $_");
lass="hl str"> PutHeader("Posting Bug -- Please wait", "Posting Bug", "One moment please..."); umask 0; ConnectToDatabase(); if (!defined $::FORM{'component'} || $::FORM{'component'} eq "") { print "You must choose a component that corresponds to this bug. If\n"; print "necessary, just guess. But please hit the <B>Back</B> button\n"; print "and choose a component.\n"; exit 0 } my $forceAssignedOK = 0; if ($::FORM{'assigned_to'} eq "") { SendSQL("select initialowner from components where program=" . SqlQuote($::FORM{'product'}) . " and value=" . SqlQuote($::FORM{'component'})); $::FORM{'assigned_to'} = FetchOneColumn(); $forceAssignedOK = 1; } $::FORM{'assigned_to'} = DBNameToIdAndCheck($::FORM{'assigned_to'}, $forceAssignedOK); $::FORM{'reporter'} = DBNameToIdAndCheck($::FORM{'reporter'}); my @bug_fields = ("reporter", "product", "version", "rep_platform", "bug_severity", "priority", "op_sys", "assigned_to", "bug_status", "bug_file_loc", "short_desc", "component"); my $query = "insert into bugs (\n" . join(",\n", @bug_fields) . ", creation_ts, long_desc ) values ( "; foreach my $field (@bug_fields) { $query .= SqlQuote($::FORM{$field}) . ",\n"; } $query .= "now(), " . SqlQuote($::FORM{'comment'}) . " )\n"; my %ccids; if (defined $::FORM{'cc'}) { foreach my $person (split(/[ ,]/, $::FORM{'cc'})) { if ($person ne "") { $ccids{DBNameToIdAndCheck($person)} = 1; } } } # print "<PRE>$query</PRE>\n"; SendSQL($query); SendSQL("select LAST_INSERT_ID()"); my $id = FetchOneColumn(); foreach my $person (keys %ccids) { SendSQL("insert into cc (bug_id, who) values ($id, $person)"); } print "<H2>Changes Submitted</H2>\n"; print "<A HREF=\"show_bug.cgi?id=$id\">Show BUG# $id</A>\n"; print "<BR><A HREF=\"query.cgi\">Back To Query Page</A>\n"; system("./processmail $id < /dev/null > /dev/null 2> /dev/null &"); exit;