Magic-Mirror/gecko-dev
1
0
Fork 0
mirror of https://github.com/mozilla/gecko-dev.git synced 2024-11-25 13:51:41 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Added ability to search for the partition that owns a given file.

Browse Source
This commit is contained in:
terry%netscape.com 1999-01-01 00:34:38 +00:00
parent 1c4178f4e3
commit 8a810e7d5c
1 changed files with 48 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

60
webtools/despot/despot.cgi
View File

@ -208,6 +208,26 @@ sub MainMenu() {
# li(MyForm("EditPartition") . submit($title) .
# hidden(-name=>"partitionid") . end_form()));
# }
my $query = Query("select id,name from repositories order by id");
my @vals = ();
my %labels;
while (my @row = $query->fetchrow()) {
my $v = $row[0];
push(@vals, $v);
$labels{$v} = $row[1];
}
my $radio = popup_menu(-name=>"repid",
"-values"=>\@vals,
-default=>$vals[0],
-labels=>\%labels);
push(@list, li(MyForm("FindPartition") .
submit("Find partition containing file") .
"named<nobr> " .
textfield(-name=>"file", -size=>60) .
"</nobr> in <nobr>repository " . $radio .
end_form()));
if ($::candespot) {
param("_despot", !$::despot);
my $str = $::despot ? "Disable" : "Enable";
@ -234,18 +254,6 @@ sub MainMenu() {
"with email<nobr> " .
textfield(-name=>"email", -size=>25) . "</nobr>" .
end_form()));
my $query = Query("select id,name from repositories order by id");
my @vals = ();
my %labels;
while (my @row = $query->fetchrow()) {
my $v = $row[0];
push(@vals, $v);
$labels{$v} = $row[1];
}
my $radio = popup_menu(-name=>"repid",
"-values"=>\@vals,
-default=>$vals[0],
-labels=>\%labels);
push(@l2,
li(MyForm("AddPartition") . submit("Create or edit partition")
. " named<nobr> " .
@ -646,6 +654,34 @@ sub ViewAccount {
sub FindPartition {
my $repid = $F::repid;
my $file = $F::file;
print h1("Searching for partitions matching $file ...");
my $query = Query("select files.pattern,partitions.name,partitions.id from files,partitions where partitions.id=files.partitionid and partitions.repositoryid=$repid");
my $found = 0;
while (@row = $query->fetchrow()) {
my ($pattern,$name,$id) = (@row);
if (FileMatches($file, $pattern) || FileMatches($pattern, $file)) {
print MyForm("EditPartition") . submit($name) .
hidden("partitionid", $id) . "(matches pattern $pattern)" .
end_form();
$found = 1;
}
}
if (!$found) {
print "No partitions found.";
if ($file !~ /^mozilla/) {
print p("Generally, your filename should start with mozilla/ or mozilla-org/.");
}
}
}
sub AddPartition {
EnsureDespot();
my $partition = $F::partition;