| 22 |
pts = dbh.select_all("select source from pts where #{dbh.quote(cgi['email'])}=email").map { |e| e[0] } |
pts = dbh.select_all("select source from pts where #{dbh.quote(cgi['email'])}=email").map { |e| e[0] } |
| 23 |
puts "<h1>PTS subscriptions check for #{cgi['email']}</h1>" |
puts "<h1>PTS subscriptions check for #{cgi['email']}</h1>" |
| 24 |
if (maint - pts).length > 0 |
if (maint - pts).length > 0 |
| 25 |
puts "Packages you maintain but are not subscribed to:<br/><ul>" |
puts "Packages you maintain but are not subscribed to:<br/><pre>" |
| 26 |
(maint - pts).sort.each { |s| puts "<li><a href=\"http://packages.qa.debian.org/#{s}\">#{s}</a></li>" } |
(maint - pts).sort.each { |s| puts "subscribe #{s} #{cgi['email']}" } |
| 27 |
puts "</ul>" |
puts "</pre>" |
| 28 |
end |
end |
| 29 |
if (upload - pts).length > 0 |
if (upload - pts).length > 0 |
| 30 |
puts "Packages you are uploader for but are not subscribed to:<br/><ul>" |
puts "Packages you are uploader for but are not subscribed to:<br/><pre>" |
| 31 |
(upload - pts).sort.each { |s| puts "<li><a href=\"http://packages.qa.debian.org/#{s}\">#{s}</a></li>" } |
(upload - pts).sort.each { |s| puts "subscribe #{s} #{cgi['email']}" } |
| 32 |
puts "</ul>" |
puts "</pre>" |
| 33 |
end |
end |
| 34 |
|
puts 'To be sent in the body of a mail to pts@qa.debian.org. See <a href="http://www.debian.org/doc/developers-reference/resources.html#pts-commands">Developers Reference</a> for more info.<br/>If you are a DD, you can also connect to master and feed those commands to /org/packages.qa.debian.org/bin/pts' |
| 35 |
else |
else |
| 36 |
puts <<-EOF |
puts <<-EOF |
| 37 |
|
|
Parent Directory
| 
Revision Log
| 
Patch