[BACK]Return to register.cgi CVS log [TXT] [DIR] Up to [Local Repository] / register / prgsrc

Diff for /register/prgsrc/register.cgi between versions 1.7 and 1.12

version 1.7, 2001/09/17 02:57:51 version 1.12, 2002/08/12 21:10:55
Line 41  use POSIX qw(locale_h); Line 41  use POSIX qw(locale_h);
   
 setlocale(LC_CTYPE,'russian');  setlocale(LC_CTYPE,'russian');
 $ENV{'LANG'}='ru_RU.KOI8-R';  $ENV{'LANG'}='ru_RU.KOI8-R';
 my ($SENDMAIL) = "/usr/sbin/sendmail";  my ($SENDMAIL) = "mail";
 my $TO = 'borisv@lk.net, igra@gorlovka.net, erudit@mail.od.ua';  my $TO = 'borisv@lk.net, igra@gorlovka.net, erudit@mail.od.ua';
 my $FROM = 'borisv@lk.net';  my $FROM = 'borisv@lk.net';
   
Line 58  my $dbh = DBI->connect("DBI:mysql:chgk", Line 58  my $dbh = DBI->connect("DBI:mysql:chgk",
         die "Can't connect to DB chgk\n";          die "Can't connect to DB chgk\n";
     };      };
   
 print header;  print header(-charset=>'koi8-r');
   
   
 ##################################################  ##################################################
Line 87  my $self=url(); Line 87  my $self=url();
 ###############################################  ###############################################
 print <<END;  print <<END;
 <dl>  <dl>
   <dt><a href="$self">Home</a></dt>
 <dt><a href="$self?rid=1&level=1000&clubs=0">Все регионы</a></dt>  <dt><a href="$self?rid=1&level=1000&clubs=0">Все регионы</a></dt>
 <dt><a href="$self?rid=1&level=1000&clubs=1">Все клубы</a></dt>  <dt><a href="$self?rid=1&level=1000&clubs=1">Все клубы</a></dt>
 <dt><a href="$self?addclub=1">Добавить клуб</a></dt>  <dt><a href="$self?addclub=1">Добавить клуб</a></dt>
Line 124  END Line 125  END
 <h1 align=center>  <h1 align=center>
 Журнал "Игра"<br>  Журнал "Игра"<br>
 и<br>  и<br>
 <a href="http:/znatoki/klub/znat.html"><img   <a href="/znatoki/klub/znat.html"><img 
 ismap border=0 src= "http:../images/logo.gif"   ismap border=0 src= "../images/logo.gif" 
 alt="Интернет Клуб Что? Где? Когда?" width=319 height=27></a>  alt="Интернет Клуб Что? Где? Когда?" width=319 height=27></a>
 <br>ПРЕДСТАВЛЯЮТ<br>  <br>ПРЕДСТАВЛЯЮТ<br>
 Регистр Клубов Интеллектуальных Игр  Регистр Клубов Интеллектуальных Игр
Line 171  END Line 172  END
 о клубе</a></dt>  о клубе</a></dt>
 <dt><a href="$self?whoiswho=1">Кто есть кто</a></dt>  <dt><a href="$self?whoiswho=1">Кто есть кто</a></dt>
 </dl>  </dl>
   <p align=center>
   END
   print &Include_virtual("../boris/register/regions.html");
   print <<END;
   </p>
 END  END
 }  }
   
 ####################################################################  ####################################################################
 # And the bottom of the page  # And the bottom of the page
 ###################################################################  ###################################################################
       my $sth=$dbh->prepare("select count(*) from Clubs");
       $sth->execute;
       my ($count) = $sth->fetchrow_array;
       $sth->finish;
   
     print "<p align=center>";      print "<p align=center>";
       print "Всего клубов: $count<br>\n";
     print "Эту страничку посмотрели ";      print "Эту страничку посмотрели ";
     print `/home/piataev/public_html/cgi-bin/counter.sh /znatoki/cgi-bin/register.cgi`;      print `/home/piataev/public_html/cgi-bin/counter.sh /znatoki/cgi-bin/register.cgi`;
     print " раз(а)</p>\n";      print " раз(а)</p>\n";
Line 248  SELECT Name FROM Regions WHERE RID=$args Line 259  SELECT Name FROM Regions WHERE RID=$args
   
         # Frist, we print clubs          # Frist, we print clubs
         if ($args{'clubs'}) {          if ($args{'clubs'}) {
               $result .= ListRegionURLs(%args);
             $result .= ListClubs(%args);              $result .= ListClubs(%args);
         }          }
         $sth=$args{'dbh'}->prepare("          $sth=$args{'dbh'}->prepare("
Line 276  SELECT rid FROM Regions WHERE $clause OR Line 288  SELECT rid FROM Regions WHERE $clause OR
 }  }
   
 ############################################################  ############################################################
   # List the URLs of a given region
   ###########################################################
   sub ListRegionURLs {
       my %args = @_;
       my $sth;
       $sth = $args{'dbh'}->prepare("
   SELECT URL FROM Regions WHERE rid=$args{'rid'} and NOT ISNULL(URL)");
   
       $sth->execute;
           
       if (!$sth->rows) {
           return "";
       }
       
       my $result;
           
       $result=<<END;
   <dl><dt>Странички:</dt>
   <dd><dl>\n
   END
       
       while (my ($string)=$sth->fetchrow_array) {
           $string=htmlize($string);
           $result .= p($string);
       }
       $result .= "</dl></dd></dl>\n";
       return $result;
   }
   
   
   ############################################################
 # List the clubs of a given region or a given association  # List the clubs of a given region or a given association
 ###########################################################  ###########################################################
 sub ListClubs {  sub ListClubs {
Line 724  sub AddClub { Line 767  sub AddClub {
 # Sending the letter with results  # Sending the letter with results
 #####################################################################  #####################################################################
 sub SendLetter {  sub SendLetter {
    open(MAIL,"| $SENDMAIL -t -n");     open(MAIL,"| $SENDMAIL -s 'Registracionnaya kartochka kluba' $TO");
     print MAIL <<END;      print MAIL <<END;
 To: $TO  
 From: $FROM  
 Subject: Registracionnaya kartochka kluba  
 MIME-Version: 1.0  MIME-Version: 1.0
 Content-type: text/plain; charset=koi8-r  Content-type: text/plain; charset=koi8-r
   
Removed from v.1.7  
changed lines
  Added in v.1.12

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>