#!/usr/bin/perl
#
# Guillaume Cottenceau
#
# Copyright 2000-2005 Mandriva
#
# This software may be freely redistributed under the terms of the GNU
# public license.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
#
use lib qw(/usr/lib/libDrakX);
use common;
use detect_devices;
$ARGV[0] =~ /^--?h/ and die "usage: drivers_install [drivertype1 [drivertype2 ...]]\n";
my @types = @ARGV;
sub install_module_raw {
my ($driver, $o_descr) = @_;
print STDERR "Installing driver $driver", $o_descr ? " (for \"$o_descr\")" : '', "\n";
system("/sbin/modprobe", $driver) and print "\tfailed\n";
}
my $already_usb;
sub install_module {
my ($driver, $descr) = @_;
install_module_raw($driver, $descr);
if (!$already_usb && $driver =~ /usb/) {
$already_usb = 1;
install_module_raw('usbkbd');
install_module_raw('keybdev');
}
}
#- start
foreach my $card (detect_devices::pci_probe()) {
$card->{driver} eq 'unknown' || $card->{driver} =~ /:/ and next;
$card->{media_type} eq "DISPLAY_VGA" and next;
if (!@ARGV || find { $card->{media_type} =~ /$_/i } @types) {
install_module($card->{driver}, $card->{description});
}
}
bugs/log/describecomponents.cgi'>log</a><a class='active' href='/web/bugs/tree/describecomponents.cgi?id=30bdc10993ee2e18993f70fa388b457129b7ccd7'>tree</a><a href='/web/bugs/commit/describecomponents.cgi?id=30bdc10993ee2e18993f70fa388b457129b7ccd7'>commit</a><a href='/web/bugs/diff/describecomponents.cgi?id=30bdc10993ee2e18993f70fa388b457129b7ccd7'>diff</a><a href='/web/bugs/stats/describecomponents.cgi'>stats</a></td><td class='form'><form class='right' method='get' action='/web/bugs/log/describecomponents.cgi'>
<input type='hidden' name='id' value='30bdc10993ee2e18993f70fa388b457129b7ccd7'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/web/bugs/tree/?id=30bdc10993ee2e18993f70fa388b457129b7ccd7'>root</a>/<a href='/web/bugs/tree/describecomponents.cgi?id=30bdc10993ee2e18993f70fa388b457129b7ccd7'>describecomponents.cgi</a></div><div class='content'>blob: 8d2c219f4b40431d308f1cd07f83578c3f546a56 (<a href='/web/bugs/plain/describecomponents.cgi?id=30bdc10993ee2e18993f70fa388b457129b7ccd7'>plain</a>)
<table summary='blob content' class='blob'>
<tr><td class='linenumbers'><pre><a id='n1' href='#n1'>1</a>
<a id='n2' href='#n2'>2</a>
<a id='n3' href='#n3'>3</a>
<a id='n4' href='#n4'>4</a>
<a id='n5' href='#n5'>5</a>
<a id='n6' href='#n6'>6</a>
<a id='n7' href='#n7'>7</a>
<a id='n8' href='#n8'>8</a>
<a id='n9' href='#n9'>9</a>
<a id='n10' href='#n10'>10</a>
<a id='n11' href='#n11'>11</a>
<a id='n12' href='#n12'>12</a>
<a id='n13' href='#n13'>13</a>
<a id='n14' href='#n14'>14</a>
<a id='n15' href='#n15'>15</a>
<a id='n16' href='#n16'>16</a>
<a id='n17' href='#n17'>17</a>
<a id='n18' href='#n18'>18</a>
<a id='n19' href='#n19'>19</a>
<a id='n20' href='#n20'>20</a>
<a id='n21' href='#n21'>21</a>
<a id='n22' href='#n22'>22</a>
<a id='n23' href='#n23'>23</a>
<a id='n24' href='#n24'>24</a>
<a id='n25' href='#n25'>25</a>
<a id='n26' href='#n26'>26</a>
<a id='n27' href='#n27'>27</a>
<a id='n28' href='#n28'>28</a>
<a id='n29' href='#n29'>29</a>
<a id='n30' href='#n30'>30</a>
<a id='n31' href='#n31'>31</a>
<a id='n32' href='#n32'>32</a>
<a id='n33' href='#n33'>33</a>
<a id='n34' href='#n34'>34</a>
<a id='n35' href='#n35'>35</a>
<a id='n36' href='#n36'>36</a>
<a id='n37' href='#n37'>37</a>
<a id='n38' href='#n38'>38</a>
<a id='n39' href='#n39'>39</a>
<a id='n40' href='#n40'>40</a>
<a id='n41' href='#n41'>41</a>
<a id='n42' href='#n42'>42</a>
<a id='n43' href='#n43'>43</a>
<a id='n44' href='#n44'>44</a>
<a id='n45' href='#n45'>45</a>
<a id='n46' href='#n46'>46</a>
<a id='n47' href='#n47'>47</a>
<a id='n48' href='#n48'>48</a>
<a id='n49' href='#n49'>49</a>
<a id='n50' href='#n50'>50</a>
<a id='n51' href='#n51'>51</a>
<a id='n52' href='#n52'>52</a>
<a id='n53' href='#n53'>53</a>
<a id='n54' href='#n54'>54</a>
<a id='n55' href='#n55'>55</a>
<a id='n56' href='#n56'>56</a>
<a id='n57' href='#n57'>57</a>
<a id='n58' href='#n58'>58</a>
<a id='n59' href='#n59'>59</a>
<a id='n60' href='#n60'>60</a>
<a id='n61' href='#n61'>61</a>
<a id='n62' href='#n62'>62</a>
<a id='n63' href='#n63'>63</a>
<a id='n64' href='#n64'>64</a>
<a id='n65' href='#n65'>65</a>
<a id='n66' href='#n66'>66</a>
<a id='n67' href='#n67'>67</a>
<a id='n68' href='#n68'>68</a>
<a id='n69' href='#n69'>69</a>
<a id='n70' href='#n70'>70</a>
<a id='n71' href='#n71'>71</a>
<a id='n72' href='#n72'>72</a>
<a id='n73' href='#n73'>73</a>
<a id='n74' href='#n74'>74</a>
<a id='n75' href='#n75'>75</a>
<a id='n76' href='#n76'>76</a>
<a id='n77' href='#n77'>77</a>
<a id='n78' href='#n78'>78</a>
<a id='n79' href='#n79'>79</a>
<a id='n80' href='#n80'>80</a>
<a id='n81' href='#n81'>81</a>
<a id='n82' href='#n82'>82</a>
<a id='n83' href='#n83'>83</a>
<a id='n84' href='#n84'>84</a>
<a id='n85' href='#n85'>85</a>
<a id='n86' href='#n86'>86</a>
<a id='n87' href='#n87'>87</a>
<a id='n88' href='#n88'>88</a>
<a id='n89' href='#n89'>89</a>
<a id='n90' href='#n90'>90</a>
<a id='n91' href='#n91'>91</a>
<a id='n92' href='#n92'>92</a>
<a id='n93' href='#n93'>93</a>
<a id='n94' href='#n94'>94</a>
<a id='n95' href='#n95'>95</a>
<a id='n96' href='#n96'>96</a>
<a id='n97' href='#n97'>97</a>
<a id='n98' href='#n98'>98</a>
<a id='n99' href='#n99'>99</a>
<a id='n100' href='#n100'>100</a>
<a id='n101' href='#n101'>101</a>
<a id='n102' href='#n102'>102</a>
<a id='n103' href='#n103'>103</a>
<a id='n104' href='#n104'>104</a>
<a id='n105' href='#n105'>105</a>
<a id='n106' href='#n106'>106</a>
<a id='n107' href='#n107'>107</a>
<a id='n108' href='#n108'>108</a>
<a id='n109' href='#n109'>109</a>
<a id='n110' href='#n110'>110</a>
<a id='n111' href='#n111'>111</a>
<a id='n112' href='#n112'>112</a>
<a id='n113' href='#n113'>113</a>
<a id='n114' href='#n114'>114</a>
<a id='n115' href='#n115'>115</a>
<a id='n116' href='#n116'>116</a>
<a id='n117' href='#n117'>117</a>
<a id='n118' href='#n118'>118</a>
<a id='n119' href='#n119'>119</a>
<a id='n120' href='#n120'>120</a>
<a id='n121' href='#n121'>121</a>
<a id='n122' href='#n122'>122</a>
<a id='n123' href='#n123'>123</a>
<a id='n124' href='#n124'>124</a>
<a id='n125' href='#n125'>125</a>
<a id='n126' href='#n126'>126</a>
<a id='n127' href='#n127'>127</a>
<a id='n128' href='#n128'>128</a>
</pre></td>
<td class='lines'><pre><code><span class="hl slc">#!/usr/bonsaitools/bin/perl -wT</span>
<span class="hl slc"># -*- Mode: perl; indent-tabs-mode: nil -*-</span>
<span class="hl slc">#</span>
<span class="hl slc"># The contents of this file are subject to the Mozilla Public</span>
<span class="hl slc"># License Version 1.1 (the "License"); you may not use this file</span>
<span class="hl slc"># except in compliance with the License. You may obtain a copy of</span>
<span class="hl slc"># the License at http://www.mozilla.org/MPL/</span>
<span class="hl slc">#</span>
<span class="hl slc"># Software distributed under the License is distributed on an "AS</span>
<span class="hl slc"># IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or</span>
<span class="hl slc"># implied. See the License for the specific language governing</span>
<span class="hl slc"># rights and limitations under the License.</span>
<span class="hl slc">#</span>
<span class="hl slc"># The Original Code is the Bugzilla Bug Tracking System.</span>
<span class="hl slc">#</span>
<span class="hl slc"># The Initial Developer of the Original Code is Netscape Communications</span>
<span class="hl slc"># Corporation. Portions created by Netscape are</span>
<span class="hl slc"># Copyright (C) 1998 Netscape Communications Corporation. All</span>
<span class="hl slc"># Rights Reserved.</span>
<span class="hl slc">#</span>
<span class="hl slc"># Contributor(s): Terry Weissman <terry@mozilla.org></span>
<span class="hl slc"># Bradley Baetz <bbaetz@student.usyd.edu.au></span>
<span class="hl kwa">use</span> vars <span class="hl str">qw(</span>
<span class="hl str"></span> <span class="hl ipl">%FORM</span>
<span class="hl str"></span> <span class="hl ipl">$userid</span>
<span class="hl str">)</span><span class="hl opt">;</span>
<span class="hl kwa">use</span> diagnostics<span class="hl opt">;</span>
<span class="hl kwa">use</span> strict<span class="hl opt">;</span>
<span class="hl kwa">use</span> lib <span class="hl str">qw(.)</span><span class="hl opt">;</span>
<span class="hl kwa">require</span> <span class="hl str">"CGI.pl"</span><span class="hl opt">;</span>
ConnectToDatabase<span class="hl opt">();</span>
GetVersionTable<span class="hl opt">();</span>
<span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwc">defined</span> <span class="hl opt">$::</span>FORM<span class="hl opt">{</span><span class="hl str">'product'</span><span class="hl opt">}) {</span>
<span class="hl slc"># Reference to a subset of %::proddesc, which the user is allowed to see</span>
<span class="hl kwc">my</span> <span class="hl kwb">%products</span><span class="hl opt">;</span>
<span class="hl kwa">if</span> <span class="hl opt">(</span>Param<span class="hl opt">(</span><span class="hl str">"usebuggroups"</span><span class="hl opt">)) {</span>
<span class="hl slc"># OK, now only add products the user can see</span>
confirm_login<span class="hl opt">();</span>
<span class="hl kwa">foreach</span> <span class="hl kwc">my</span> <span class="hl kwb">$p</span> <span class="hl opt">(@::</span>legal_product<span class="hl opt">) {</span>
<span class="hl kwa">if</span> <span class="hl opt">(!</span>GroupExists<span class="hl opt">(</span><span class="hl kwb">$p</span><span class="hl opt">) ||</span> UserInGroup<span class="hl opt">(</span><span class="hl kwb">$p</span><span class="hl opt">)) {</span>
<span class="hl kwb">$products</span><span class="hl opt">{</span><span class="hl kwb">$p</span><span class="hl opt">} = $::</span>proddesc<span class="hl opt">{</span><span class="hl kwb">$p</span><span class="hl opt">};</span>
<span class="hl opt">}</span>
<span class="hl opt">}</span>
<span class="hl opt">}</span>
<span class="hl kwa">else</span> <span class="hl opt">{</span>
<span class="hl kwb">%products</span> <span class="hl opt">= %::</span>proddesc<span class="hl opt">;</span>
<span class="hl opt">}</span>
<span class="hl kwc">my</span> <span class="hl kwb">$prodsize</span> <span class="hl opt">=</span> <span class="hl kwc">scalar</span><span class="hl opt">(</span><span class="hl kwc">keys</span> <span class="hl kwb">%products</span><span class="hl opt">);</span>
<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$prodsize</span> <span class="hl opt">==</span> <span class="hl num">0</span><span class="hl opt">) {</span>
DisplayError<span class="hl opt">(</span><span class="hl str">"Either no products have been defined "</span><span class="hl opt">.</span>
<span class="hl str">"or you have not been given access to any.</span><span class="hl esc">\n</span><span class="hl str">"</span><span class="hl opt">);</span>
<span class="hl kwa">exit</span><span class="hl opt">;</span>
<span class="hl opt">}</span>
<span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$prodsize</span> <span class="hl opt">></span> <span class="hl num">1</span><span class="hl opt">) {</span>
<span class="hl opt">$::</span>vars-<span class="hl opt">>{</span><span class="hl str">'proddesc'</span><span class="hl opt">} =</span> \<span class="hl kwb">%products</span><span class="hl opt">;</span>
<span class="hl opt">$::</span>vars-<span class="hl opt">>{</span><span class="hl str">'target'</span><span class="hl opt">} =</span> <span class="hl str">"describecomponents.cgi"</span><span class="hl opt">;</span>
<span class="hl opt">$::</span>vars-<span class="hl opt">>{</span><span class="hl str">'title'</span><span class="hl opt">} =</span> <span class="hl str">"Bugzilla component description"</span><span class="hl opt">;</span>
<span class="hl opt">$::</span>vars-<span class="hl opt">>{</span><span class="hl str">'h2'</span><span class="hl opt">} =</span>
<span class="hl str">"Please specify the product whose components you want described."</span><span class="hl opt">;</span>
<span class="hl kwc">print</span> <span class="hl str">"Content-type: text/html</span><span class="hl esc">\n\n</span><span class="hl str">"</span><span class="hl opt">;</span>
<span class="hl opt">$::</span>template-<span class="hl opt">></span><span class="hl kwd">process</span><span class="hl opt">(</span><span class="hl str">"global/choose-product.html.tmpl"</span><span class="hl opt">, $::</span>vars<span class="hl opt">)</span>
<span class="hl opt">||</span> ThrowTemplateError<span class="hl opt">($::</span>template-<span class="hl opt">></span><span class="hl kwd">error</span><span class="hl opt">());</span>
<span class="hl kwa">exit</span><span class="hl opt">;</span>
<span class="hl opt">}</span>
<span class="hl opt">$::</span>FORM<span class="hl opt">{</span><span class="hl str">'product'</span><span class="hl opt">} = (</span><span class="hl kwc">keys</span> <span class="hl opt">%::</span>proddesc<span class="hl opt">)[</span><span class="hl num">0</span><span class="hl opt">];</span>
<span class="hl opt">}</span>
<span class="hl kwc">my</span> <span class="hl kwb">$product</span> <span class="hl opt">= $::</span>FORM<span class="hl opt">{</span><span class="hl str">'product'</span><span class="hl opt">};</span>
<span class="hl slc"># Make sure the user specified a valid product name. Note that</span>
<span class="hl slc"># if the user specifies a valid product name but is not authorized</span>
<span class="hl slc"># to access that product, they will receive a different error message</span>
<span class="hl slc"># which could enable people guessing product names to determine</span>
<span class="hl slc"># whether or not certain products exist in Bugzilla, even if they</span>
<span class="hl slc"># cannot get any other information about that product.</span>
<span class="hl kwc">grep</span><span class="hl opt">(</span><span class="hl kwb">$product</span> <span class="hl kwc">eq</span> <span class="hl kwb">$_</span> <span class="hl opt">, @::</span>legal_product<span class="hl opt">)</span>
<span class="hl opt">||</span> DisplayError<span class="hl opt">(</span><span class="hl str">"The product name is invalid."</span><span class="hl opt">)</span>
<span class="hl opt">&&</span> <span class="hl kwa">exit</span><span class="hl opt">;</span>
<span class="hl slc"># Make sure the user is authorized to access this product.</span>
<span class="hl kwa">if</span> <span class="hl opt">(</span>Param<span class="hl opt">(</span><span class="hl str">"usebuggroups"</span><span class="hl opt">) &&</span> GroupExists<span class="hl opt">(</span><span class="hl kwb">$product</span><span class="hl opt">) && !$::</span>userid<span class="hl opt">) {</span>
confirm_login<span class="hl opt">();</span>
UserInGroup<span class="hl opt">(</span><span class="hl kwb">$product</span><span class="hl opt">)</span>
<span class="hl opt">||</span> DisplayError<span class="hl opt">(</span><span class="hl str">"You are not authorized to access that product."</span><span class="hl opt">)</span>
<span class="hl opt">&&</span> <span class="hl kwa">exit</span><span class="hl opt">;</span>
<span class="hl opt">}</span>
<span class="hl slc">######################################################################</span>
<span class="hl slc"># End Data/Security Validation</span>
<span class="hl slc">######################################################################</span>
<span class="hl kwc">my</span> <span class="hl kwb">@components</span><span class="hl opt">;</span>
SendSQL<span class="hl opt">(</span><span class="hl str">"SELECT value, initialowner, initialqacontact, description FROM "</span> <span class="hl opt">.</span>
<span class="hl str">"components WHERE program = "</span> <span class="hl opt">.</span> SqlQuote<span class="hl opt">(</span><span class="hl kwb">$product</span><span class="hl opt">) .</span> <span class="hl str">" ORDER BY "</span> <span class="hl opt">.</span>
<span class="hl str">"value"</span><span class="hl opt">);</span>
<span class="hl kwa">while</span> <span class="hl opt">(</span>MoreSQLData<span class="hl opt">()) {</span>
<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$name, $initialowner, $initialqacontact, $description</span><span class="hl opt">) =</span>
FetchSQLData<span class="hl opt">();</span>
<span class="hl kwc">my</span> <span class="hl kwb">%component</span><span class="hl opt">;</span>
<span class="hl kwb">$component</span><span class="hl opt">{</span><span class="hl str">'name'</span><span class="hl opt">} =</span> <span class="hl kwb">$name</span><span class="hl opt">;</span>
<span class="hl kwb">$component</span><span class="hl opt">{</span><span class="hl str">'initialowner'</span><span class="hl opt">} =</span> <span class="hl kwb">$initialowner</span> ?
DBID_to_name<span class="hl opt">(</span><span class="hl kwb">$initialowner</span><span class="hl opt">) :</span> <span class="hl str">''</span><span class="hl opt">;</span>
<span class="hl kwb">$component</span><span class="hl opt">{</span><span class="hl str">'initialqacontact'</span><span class="hl opt">} =</span> <span class="hl kwb">$initialqacontact</span> ?
DBID_to_name<span class="hl opt">(</span><span class="hl kwb">$initialqacontact</span><span class="hl opt">) :</span> <span class="hl str">''</span><span class="hl opt">;</span>
<span class="hl kwb">$component</span><span class="hl opt">{</span><span class="hl str">'description'</span><span class="hl opt">} =</span> <span class="hl kwb">$description</span><span class="hl opt">;</span>
<span class="hl kwc">push</span> <span class="hl kwb">@components,</span> \<span class="hl kwb">%component</span><span class="hl opt">;</span>
<span class="hl opt">}</span>
<span class="hl opt">$::</span>vars-<span class="hl opt">>{</span><span class="hl str">'product'</span><span class="hl opt">} =</span> <span class="hl kwb">$product</span><span class="hl opt">;</span>
<span class="hl opt">$::</span>vars-<span class="hl opt">>{</span><span class="hl str">'components'</span><span class="hl opt">} =</span> \<span class="hl kwb">@components</span><span class="hl opt">;</span>
<span class="hl kwc">print</span> <span class="hl str">"Content-type: text/html</span><span class="hl esc">\n\n</span><span class="hl str">"</span><span class="hl opt">;</span>
<span class="hl opt">$::</span>template-<span class="hl opt">></span><span class="hl kwd">process</span><span class="hl opt">(</span><span class="hl str">"reports/components.html.tmpl"</span><span class="hl opt">, $::</span>vars<span class="hl opt">)</span>
<span class="hl opt">||</span> ThrowTemplateError<span class="hl opt">($::</span>template-<span class="hl opt">></span><span class="hl kwd">error</span><span class="hl opt">());</span>
</code></pre></td></tr></table>
</div> <!-- class=content -->
<div class='footer'>generated by <a href='https://git.zx2c4.com/cgit/about/'>cgit v1.2.1</a> (<a href='https://git-scm.com/'>git 2.21.0</a>) at 2025-03-12 01:38:00 +0000</div>
</div> <!-- id=cgit -->
</body>
</html>