KatolaZ
4 years ago
2 changed files with 21 additions and 18 deletions
Split View
Diff Options
-
+16 -13examples/bin/popcon.pl
-
+5 -5examples/cgi-bin/popcon.cgi
+ 16
- 13
examples/bin/popcon.pl
View File
| @@ -60,16 +60,20 @@ sub htmlheader | |||
| <html> | |||
| <head> | |||
| <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> | |||
| <title> Debian Popularity Contest </title> | |||
| <link rev="made" href="mailto:ballombe\@debian.org"> | |||
| <title> Devuan Popularity Contest </title> | |||
| <!-- <link rev="made" href="mailto:ballombe\@debian.org"> | |||
| <link href="http://www.debian.org/debian.css" rel="stylesheet" type="text/css"> | |||
| --> | |||
| <link rel="shortcut icon" href="/favicon.ico"> | |||
| </head> | |||
| <body> | |||
| <div id="header"> | |||
| <div id="upperheader"> | |||
| <div id="logo"> | |||
| <a href="http://www.debian.org/" title="Debian Home"><img src="http://www.debian.org/Pics/openlogo-50.png" alt="Debian" width="50" height="61"></a> | |||
| <a href="http://www.devuan.org/" title="Devuan Home"> | |||
| Devuan Home | |||
| <!-- <img src="http://www.debian.org/Pics/openlogo-50.png" alt="Devuan" width="50" height="61"> --> | |||
| </a> | |||
| </div> <!-- end logo --> | |||
| <p class="section"><a href="/">POPCON</a></p> | |||
| </div> <!-- end upperheader --> | |||
| @@ -77,13 +81,12 @@ sub htmlheader | |||
| <div id="navbar"> | |||
| <p class="hidecss"><a href="#content">Skip Quicknav</a></p> | |||
| <ul> | |||
| <li><a href="http://www.debian.org/intro/about">About Debian</a></li> | |||
| <li><a href="http://www.debian.org/distrib/">Getting Debian</a></li> | |||
| <li><a href="http://www.debian.org/support">Support</a></li> | |||
| <li><a href="http://www.debian.org/devel/">Developers' Corner</a></li> | |||
| <li><a href="https://devuan.org/os/">About Devuan</a></li> | |||
| <li><a href="http://www.devuan.org/distrib/">Getting Devuan</a></li> | |||
| <li><a href="https://devuan.org/os/development">Developers' Corner</a></li> | |||
| </ul> | |||
| </div> <!-- end navbar --> | |||
| <p id="breadcrumbs"><a href="http://popcon.debian.org/">Debian Popularity Contest</a> | |||
| <p id="breadcrumbs"><a href="http://popcon.devuan.org/">Devuan Popularity Contest</a> | |||
| / | |||
| ${report_label}</p> | |||
| </div> <!-- end header --> | |||
| @@ -102,18 +105,18 @@ sub popconintro | |||
| &htmlheader($name, $sec); | |||
| print HTML <<"EOF"; | |||
| <div id="content"> | |||
| <h1>Debian Popularity Contest</h1> | |||
| <h1>Devuan Popularity Contest</h1> | |||
| <p> <em> The popularity contest project is an attempt to map the usage of | |||
| Debian packages. This site publishes the statistics gathered from report | |||
| sent by users of the <a | |||
| href="http://packages.debian.org/popularity-contest">popularity-contest</a> | |||
| Devuan packages. This site publishes the statistics gathered from report | |||
| sent by users of the | |||
| href="http://popcon.devuan.org">popularity-contest</a> | |||
| package. This package sends every week the list of packages installed and the | |||
| access time of relevant files to the server via email. Every day the server | |||
| anonymizes the result and publishes this survey. | |||
| For more information, read the <a href="${docurlbase}README">README</a> and the | |||
| <a href="${docurlbase}FAQ">FAQ</a>. | |||
| </em> | |||
| <p><em>To participate in this survey, install the <a href="http://packages.debian.org/popularity-contest">popularity-contest</a> package.</em> </p> | |||
| <p><em>To participate in this survey, install the <b>popularity-contest</b> package.</em> </p> | |||
| <p></p> | |||
| <form method="GET" action="http://qa.debian.org/popcon.php">Popcon statistics | |||
| for source package <input type="text" size="30" maxlength="80" name="package"> | |||
+ 5
- 5
examples/cgi-bin/popcon.cgi
View File
| @@ -15,7 +15,7 @@ use strict; | |||
| use CGI; | |||
| use Compress::Zlib; | |||
| my $email='survey@popcon.debian.org'; | |||
| my $email='survey@popcon.devuan.org'; | |||
| my $directsave = 0; # Enable to store on disk instead of sending an email | |||
| my $basedir = "/var/lib/popcon"; | |||
| @@ -26,8 +26,8 @@ $ENV{PATH}=""; | |||
| print "Content-Type: text/plain\n\n"; | |||
| if (exists $ENV{REQUEST_METHOD} && $ENV{REQUEST_METHOD} ne "POST") | |||
| { | |||
| print "Debian Popularity-Contest HTTP-POST submission URL\n"; | |||
| print "Visit http://popcon.debian.org/ for more info.\n"; | |||
| print "Devuan Popularity-Contest HTTP-POST submission URL\n"; | |||
| print "Visit http://popcon.devuan.org/ for more info.\n"; | |||
| exit 0; | |||
| } | |||
| @@ -90,9 +90,9 @@ EOF | |||
| print POPCON @entry; | |||
| close POPCON; | |||
| } | |||
| print "Thanks for your submission to Debian Popularity-Contest!\n"; | |||
| print "Thanks for your submission to Devuan Popularity-Contest!\n"; | |||
| print "DEBIAN POPCON HTTP-POST OK\n"; | |||
| } else { | |||
| print "The submission to Debian Popularity-Contest failed!\n"; | |||
| print "The submission to Devuan Popularity-Contest failed!\n"; | |||
| } | |||
| exit 0; | |||