#!/usr/bin/perl
use DBI;
use CGI;

# karakterkeszlet konvertalasa
sub conv_nobr
{
 my @sorok= split(/\n/,$_[0]);
 $_[0]='';
 my $tordel=1;
 for $ertek (@sorok)
 {
  if($ertek=~/<nobr>/)
  {
   $tordel=0;
   next;
  }
  if($ertek=~/<\/nobr>/)
  {
   $tordel=1;
   next;
  }
   
#  $ertek=~s/  /&nbsp;&nbsp; /;  
  if($tordel==1)
  {
   $_[0].="$ertek <br>\n";
  }
  else
  {
   $_[0].="$ertek\n";
  } 
    
 }
      
}

# karakterkeszlet konvertalasa
sub conv
{
# $_[0]=~s/"/&quot;/g;
 $_[0]=~s/"/\\"/g;
 $_[0]=~s/</&lt;/g;
 $_[0]=~s/>/&gt;/g;
}

sub deconv
{
# $_[0]=~s/&quot;/"/g;
# $_[0]=~s/&quot;/"/g;
 $_[0]=~s/&lt;/</g;
 $_[0]=~s/&gt;/>/g;
}

$bj="bj\@pvsk.dravanet.hu";
$hzoli="hzoltan\@mail.dedasz.hu";

sub email
{
 my $subject=shift;
 my $szoveg=shift;
 my $email=shift;
 $email=$bj if length($email)<1;

 open (MAIL, "|sendmail -t");
 print MAIL "To: $email\n";
 print MAIL "From: PVSK Szerver  <pvsk\@pvsk.dravanet.hu>\n";
 print MAIL "Subject: $subject\n";
 print MAIL "Content-Type: text/plain; charset=\"iso-8859-2\"\nContent-Transfer-Encoding: 8bit\n";
 print MAIL "$szoveg";
 close (MAIL);
}

sub hangrend
{
 my $mi=shift;
 my $vissza="nek";
 my @vadalma=split(/\s/,$mi);
 $mi=$vadalma[scalar(@vadalma)-1];
 $vissza="nak" if $mi=~/[aáoóuúAÁOÓUÚ]/;
 $vissza="nek" if $mi=~/e[qwrtypsdfghjklzxcvbnmQWRTYPSDFGHJKLZXCVBNM]*$/;
 return $vissza;
}

# *** adatbazis parameterek ***
$adatbazis="pvsk";
$db_user_name="pvsk";
$db_user_password="zum18mm40X";
#$host="127.0.0.1";
$port="3306";
#$temp{keput}="../images";

$cdata_source="DBI:mysql:database=$adatbazis"; # DBI data forras
$cdata_source="DBI:mysql:database=$adatbazis;host=$host:port=$port" if(length($host)>3 && $port>0); # DBI data forras

$query=new CGI;

@user=split(/#=#/,$query->cookie("user"));
if(length($query->cookie("user"))>4)
{
 $loginnev=$user[1];
 $user_id=$user[0];
}

# template kezeles
$designv=$query->cookie("design") if defined $query->cookie("design");
$design=$temp{templateut}="../../0102/bj1";
$design=$temp{templateut}="../../0102/tjg1" if $designv==2;
$design=$temp{templateut}="../../0102/bj2" if $designv==3;
# *** connect a szerverhez ***
$cdbh=DBI->connect($cdata_source,$db_user_name,$db_user_password) or die "Nem sikerult kapcsolodni a szerverhrez";
1