package class_inc;

use word_filter;

%HEADER=(
buy=>        q{<b>Объявления о покупках</b>},
sell=>       q{<b>Объявления о продажах</b>},
service=>    q{<b>Услуги</b>},
auto=>       q{<b>Автомобили</b>},
misc=>       q{<b>Разное</b>},
job_find   =>q{<b>Поиск Работы</b>},
job_offer  =>q{<b>Предложение Работы</b>},
guestbook  =>q{<b>Книга отзывов</b>},
seek_him   =>q{<b>Ищу его</b>},
seek_her   =>q{<b>Ищу её</b>},
seek_smb   =>q{<b>Ищу друга/подругу</b>},
business   =>q{<b>Бизнес предложения</b>},
repair     =>q{<b>Ремонт</b>},
real_est   =>q{<b>Real Estate</b>},
flat_rent  =>q{<b>Квартиры в Rent</b>},
office_rent=>q{<b>Оффисы в Rent</b>},
roommates  =>q{<b>Roommates</b>},
computers  =>q{<b>Компьютеры</b>},
pets       =>q{<b>Домашние Животные</b>},
learning   =>q{<b>Обучение</b>},
invite     =>q{<b>Приглашения</b>},
);

%FN_MAP=(
buy        =>buy        ,
sell       =>sell       ,       
service    =>service    ,    
auto       =>auto       ,
misc       =>misc       ,       
job_find   =>job_find   ,
job_offer  =>job_offer , 
guestbook  =>guestbook  ,
seek_him   =>seek_him   ,
seek_her   =>seek_her   ,
seek_smb   =>seek_smb   ,
business   =>business   ,
repair     =>repair     ,
real_est   =>real_est   ,
flat_rent  =>flat_rent  ,
office_rent=>office_rent,
roommates  =>roommates  ,
computers  =>computers  ,
pets       =>pets       ,
learning   =>learning   ,
invite     =>invite     ,
ORION_BUG_LOST_OF_LAST_LETTER => "BUG",
bu         =>buy        ,        
sel        =>sell       ,      
servic     =>service    ,  
mis        =>misc       ,    
job_fin    =>job_find   ,
job_offe   =>job_offer  ,
guestboo   =>guestbook  ,
seek_hi    =>seek_him   ,
seek_he    =>seek_her   ,
seek_sm    =>seek_smb   ,
busines    =>business   ,
repai      =>repair     ,
real_es    =>real_est   ,
flat_ren   =>flat_rent  ,
office_ren =>office_rent,
roommate   =>roommates  ,
computer   =>computers  ,
pet        =>pets       ,
learnin    =>learning   ,
invit      =>invite     ,
);

my $pagesize=7;
my $delim="-----------------------------------------\n";
$/=$delim;

use CGI qw/:standard/;

sub new_msg {
 my $fn=shift;
 my $s=<<new_message;
 <tr><td colspan=2>
 <table width="100%" border="0" cellspacing="0" cellpadding="1">
   <tr bgcolor="#CCCCCC">
     <th><a name="ob"></a>Поместить объявление</th>
   </tr>
 </table>          
 <table width="100%" border="0" cellspacing="0" cellpadding="3" align="center">
   <tr bgcolor="#FFFFFF"> 
      <form method="post">
                    <INPUT name=fn type=hidden value="$fn">
                    <INPUT name=action type=hidden value="add">
       <td align="right">Name:</td>
       <td> 
         <input name=name size=25>
       </td>
     </tr>
     <tr bgcolor="#f2f2f2"> 
       <td align="right"><font size=2>E-mail</font>:</td>
       <td> 
         <input name=email size=25>
       </td>
     </tr>
     <tr bgcolor="#FFFFFF"> 
       <td align="right"><font size=2>ICQ</font>:</td>
       <td> 
         <input name=icq size=25>
       </td>
     </tr>
     <tr bgcolor="#f2f2f2"> 
       <td align="right"><font size=2>Phone</font>:</td>
       <td> 
         <input name=phone size=25>
       </td>
     </tr>
     <tr bgcolor="#FFFFFF"> 
       <td align="right"><font size=2>Web Page:</font></td>
       <td> 
         <input name=url size=25 value=http://>
       </td>
     </tr>
     <tr bgcolor="#f2f2f2"> 
       <td align="right"><font size=2>Message:</font></td>
       <td> 
         <textarea cols=25 name=comments rows=6></textarea>
       </td>
     </tr>
     <tr bgcolor="#FFFFFF"> 
       <td align="right">&nbsp;</td>
       <td> 
         <input type=submit value=SEND name="submit22">
         <input type=reset value=RESET name="reset22">
         <br>
       </td>
     </tr>
 </form>
   </table>
</td></tr>
new_message

$s
};

# return HASH of items
sub parse_msg {
 my $txt=shift;
 my %D;
 my @items=split /\n([^\s]*?)=/, $txt; 
 my $i=0;
 my $nm="";
 for(@items) {
  if($i>0) {
   if($i%2 == 1) {
    $nm=$_;
   } else {
    $D{$nm}=$_;
   }
  }
  $i++;
 }
 $D{comm}=~ s/$delim//;
 
 %D;
}

sub get_class {  
print "Content-Type: text/html\n\n";
my $s;
my ($path,$NM)=@_;


 my $site='rb';
 $site='rla' if $NM eq 'class_la.pl';


my $fn=param("fn");
   $fn=$FN_MAP{$fn}; # ORION BUG & PROTECTION
my $action=param("action");

return dflt($NM) unless($fn);

$s="<table width=100% bgcolor='#ffffff' border=0 cellspacing=0 cellpadding=0>";

if ($fn eq "job_find" || $fn eq "job_offer") {
 $s.="<tr><td colspan=4><img src=\"/gfx/header_job.gif\"></td></tr>"; 
} else {
 unless($fn eq 'guestbook') {
 $s.="<tr><td colspan=4><img src=\"/gfx/header_class.gif\"></td></tr>"; 
 }
}

$s.="<tr><td>&nbsp;</td><td valign=top>$HEADER{$fn}<br><br>";
$s.="<a href=\"#ob\"><font color=black>Поместить объявление</font></a><br><br></td>";

 $s.=<<MENU;
 <td align=right>
 <script LANGUAGE=javascript>
<!--
function jumpMenu(targ,selObj,restore){
  eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
}
//-->
</script>

      <form>
        <select name="sel" onChange="jumpMenu('parent',this)" size=1>
          <option selected>Select</option>
          <option value="$NM?fn=sell">Продаю</option>          
          <option value="$NM?fn=buy">Куплю</option>
          <option value="$NM?fn=service">Услуги</option>
          <option value="$NM?fn=auto">Автомобили</option>          
          <option value="$NM?fn=job_find">Ищу работу</option>
          <option value="$NM?fn=job_offer">Предлагаю работу</option>                    
          <option value="$NM?fn=business">Бизнес предложения</option>
          <option value="$NM?fn=repair">Ремонт</option>
          <option value="$NM?fn=real_est">Real Estate</option>
          <option value="$NM?fn=flat_rent">Квартиры в Rent</option>
          <option value="$NM?fn=roommates">Roommates</option>
          <option value="$NM?fn=computers">Компьютеры</option>
          <option value="$NM?fn=pets">Домашние животные</option>
          <option value="$NM?fn=learning">Обучение</option>
          <option value="$NM?fn=invite">Приглашения</option>
          <option value="http://128.121.195.71/dating/rla/">Ишу его</option>
          <option value="http://128.121.195.71/dating/rla/">Ищу ее</option>
          <option value="$NM?fn=seek_smb">Ищу подругу/друга</option>
          <option value="$NM?fn=misc">Разное</option>          
        </select>
       </form>
      </p>
 </td>      
 <td>&nbsp;</td>
 </tr>
 </table>
MENU


if($action eq "add") {  # ADD
 my $name=param("name");
 my $email=param("email");
 my $icq=param("icq");
 my $phone=param("phone");
 my $url=param("url");
 my $comm=param("comments");

 my $time=localtime(); 
 my $msg= <<MESS1;

date=$time
name=$name
email=$email
icq=$icq
phone=$phone
url=$url
comm=$comm
$delim  
MESS1
$msg=~ s/</&lt;/g;
 return "<h2>Должно быть заполено поле <font color=red>NAME</font> или <font color=red>Email</font></h2>" unless ($name||$email);
 return "<h2>Должно быть заполено поле <font color=red>Message</font></h2>" unless $comm; 

if(word_filter::filter($msg)) {
my 
$s.=<<MESS2;
<blockquote>
<h1>Ваше сообщение не может быть добавлено</h1>
 в сообщении присутсвуют запрещенное слово

MESS2
$s.="<b>\"".word_filter::filter($msg)."\"</b></blockquote>";
} else { 
open(F, ">>$path$fn"); 
 print F  $msg;
close F;

$s.=<<MESS2;
<blockquote>
<h1>Ваше сообщение добавлено успешно</h1>
<pre> 
date=$time
name=$name
email=$email
icq=$icq
phone=$phone
url=$url
comment=$comm
</pre>
<a href="$NM?fn=$fn">Просмотр сообщений</a>
</blockquote>
MESS2
}
 
} else { # VIEW
 my $page=param("page");
 $page=0 unless $page;
 open(F, "$path$fn");
 my @rec;
 push @rec,$_ while(<F>); 
 close F;   

 $s.="<table cellspacing=0 cellpadding=1 border=\"0\" width=100% bgcolor='#FFFFFF'>";
 my $size=$#rec;
 my $pg=$page+1;
 my $i=0;
 my $msg="";
 for(reverse @rec) {  
    my %D=parse_msg($_);     
  if($D{name} || $D{email}) {
   if($i>=$page*$pagesize && $i<($page+1)*$pagesize) {    
     $D{url}="" if $D{url} eq "http://";
my ($mail,$url, $col)=("","","#FFFFFF");
$url=$D{url};
$url=substr($url,0,25)."..." if length($url)>25;
$url="<b>WWW:</b><br><a href=\"$D{url}\">$url</a> \&nbsp;"  if $D{url};
$mail=" <a href=\"mailto:$D{email}\">$D{email}</a> \&nbsp;" if $D{email};
$mail.="<br>" if $mail;
$mail.="<b>ICQ:</b> $D{ICQ}" if $D{ICQ};
$col="#f2f2f2" if $i&1;
$D{phone}="<b>Phone:</b> $D{phone}" if $D{phone};

$D{comm}=~ s/(\S{30})/$1 /g;
$D{comm}=~ s/<br>//ig;
$D{phone}=~ s/(\S{30})/$1 /g;
    
$msg.=<<"EOF";
 <tr bgcolor="#CCCCCC"> 
          <td colspan=2> 
            <table width="100%" border="0" cellspacing="0" cellpadding="3">
              <tr bgcolor="$col"> 
                <td> 
                  <table width="100%" border="0" cellspacing="0" cellpadding="3">
                    <tr bgcolor="#e5e5e5"> 
                      <td><b>$D{name}</b></td>
                      <td align="right">$D{date}</td>
                    </tr>
                  </table>
                </td>
              </tr>
              <tr bgcolor="$col"> 
                <td> 
                  <table width="100%" border="0" cellspacing="0" cellpadding="3">
                    <tr> 
                      <td><b>E-mail:</b><br>$mail</td>
                      <td>$D{phone}</td>
                      <td> $url </td>
                    </tr>
                  </table>
                </td>
              </tr>
              <tr bgcolor="$col"> 
                <td>$D{comm}</td>
              </tr>
            </table>
          </td>
 </tr>
EOF
    }
  } # end if
    $i++;    
 } # end for
 my $ppage=$page-1;
 my $nav="&nbsp;"; 
 $nav="<a href=\"$NM?fn=$fn&page=$ppage\">Предыдущая страница</a>" if($page>0);
 my $nav2="&nbsp;";  
 $nav2=qq{<a href="$NM?fn=$fn&page=$pg">Следующая страница</a>} if($size>$pg*$pagesize);


# $s.="<tr><td rowspan=90>&nbsp;</td>";
# $s.="<td colspan=2><table width=100%><tr>";
# $s.="<td bgcolor=#c0d0c0>Всего записей: <b>$size</b> страница $pg</td>";
# $s.="<td bgcolor=#c0d0c0 align=right>$nav &nbsp;&nbsp; $nav2</td>";
# $s.="</tr></table></td>";


$size=0 if $size<0;

$s.=<<"EOF";
<tr bgcolor="#CCCCCC"> 
  <td colspan=2> 
    <table width="100%" border="0" cellspacing="0" cellpadding="3">
      <tr bgcolor="#e5e5e5"> 
        <td>Всего записей: <b>$size</b> страница $pg</td>
        <td align="right">$nav2</td>
      </tr>
    </table>
  </td>
</tr>
EOF

# $s.="<td rowspan=90>&nbsp;</td></tr>";
 $s.=$msg;  

 $s.=<<"EOF";
 <tr>
  <td colspan=2> 
    <table width="100%" border="0" cellspacing="0" cellpadding="3">
      <tr bgcolor="#e5e5e5"> 
        <td align=left>$nav</td>
        <td align="right">$nav2</td>
      </tr>
    </table>
  </td>
 </tr>
EOF

# $s.="<tr bgcolor=#c0d0c0><td >$nav</td><td align=right>$nav2</td></tr>";
# $s.="<tr><td><big><b>Поместить объявление</b></big></td></tr>";

 
 $s.=class_inc::new_msg($fn);

 if($fn eq "job_find" || $fn eq "job_offer") {
 $MSG::MSG='Место Встречи > Работа';
 $s.="<tr><td colspan=2 align=center>";
 $s.="<a class=NAV2 href=\"$NM?fn=job_find\">Поиск работы</a>" if $fn eq "job_offer";
 $s.="<a class=NAV2 href=\"$NM?fn=job_offer\">Предложение работы</a>" if $fn eq "job_find"; 
 $s.="</td></tr>";
 } else {
 $s.="<tr><td colspan=2 align=center><a href=\"".$NM."\"><b><font color=black>Вернуться в главное меню объявлений</font></b></a></td></tr>";
 }
 $s.="</table>";  
 $s;
}

} # END of get class


# Вызов без параметра
sub dflt {
 my ($NM,$s)=@_;

 my $site='rb';
 $site='rla' if $NM eq 'class_la.pl';
 
 if(param("menu") eq "job") {
 $MSG::MSG='Место Встречи > Работа';
 $s.=<<DFLT_JOB;
 <table width="100%" border="0" cellspacing=0 cellpadding="0" bgcolor='#ffffff'>
  <tr><td><img src=\"/gfx/header_job.gif\"><br><br>
  <tr>
  <td align=center>
  <table width=100% cellpadding=0 cellspacing=0>  
  <tr bgcolor="#f2f2f2"><td colspan=2 align=center><br><B>ВЫБЕРИТЕ КАТЕГОРИЮ</B><br><br></td></tr>
  <tr height=35>
    <td align=center>&nbsp;<a class=NAV3 href="$NM?fn=job_offer">Предлагаю Работу</a></td>
  </tr>
  <tr height=35 bgcolor="#f2f2f2">
    <td align=center>&nbsp;<a class=NAV3 href="$NM?fn=job_find">Ищу Работу</a></td>
  </tr>  
  </table>
  </td>
  </tr>
 </table>
DFLT_JOB
 }  else {
 $s.=<<DFLT;
 <table width="100%" border="0" cellspacing=0 cellpadding="0" bgcolor='#ffffff'>
  <tr><td><img src=\"/gfx/header_class.gif\"><br><br>
  <center><B>ВЫБЕРИТЕ КАТЕГОРИЮ</B></center></td></tr>
  <tr>
  <td align=center>
  <table width=100% cellpadding=0 cellspacing=0>  
  <tr height=35 bgcolor="#f2f2f2">
    <td width=20>&nbsp;</td><td>&nbsp; <a class=NAV3 href="$NM?fn=sell">Продаю</a>
  <tr height=35>
    <td>&nbsp;</td><td>&nbsp; <a class=NAV3 href="$NM?fn=buy">Куплю</a>    
  <tr height=35 bgcolor="#f2f2f2">
    <td>&nbsp;</td><td>&nbsp; <a class=NAV3 href="$NM?fn=service">Услуги</a>
  <tr height=35>
    <td>&nbsp;</td><td>&nbsp; <a class=NAV3 href="$NM?fn=auto">Автомобили</a>
  <tr height=35 bgcolor="#f2f2f2">
    <td>&nbsp;</td><td>&nbsp; <a class=NAV3 href="$NM?fn=business">Бизнес предложения</a>
  <tr height=35>
    <td>&nbsp;</td><td>&nbsp; <a class=NAV3 href="$NM?fn=job_find">Ищу работу</a>
  <tr height=35 bgcolor="#f2f2f2">
    <td>&nbsp;</td><td>&nbsp; <a class=NAV3 href="$NM?fn=job_offer">Предлагаю работу</a>
  <tr height=35>
    <td>&nbsp;</td><td>&nbsp; <a class=NAV3 href="$NM?fn=repair">Ремонт</a>
  <tr height=35 bgcolor="#f2f2f2">
    <td>&nbsp;</td><td>&nbsp; <a class=NAV3 href="$NM?fn=real_est">Real Estate</a>
  <tr height=35>    
    <td>&nbsp;</td><td>&nbsp; <a class=NAV3 href="$NM?fn=flat_rent">Квартиры в Rent</a>    
  <tr height=35 bgcolor="#f2f2f2">    
    <td>&nbsp;</td><td>&nbsp; <a class=NAV3 href="$NM?fn=roommates">Roommates</a>
  <tr height=35>
    <td>&nbsp;</td><td>&nbsp; <a class=NAV3 href="$NM?fn=computers">Компьютеры</a>
  <tr height=35 bgcolor="#f2f2f2">    
    <td>&nbsp;</td><td>&nbsp; <a class=NAV3 href="$NM?fn=pets">Домашние Животные</a>
  <tr height=35>
    <td>&nbsp;</td><td>&nbsp; <a class=NAV3 href="$NM?fn=learning">Обучение</a>
  <tr height=35 bgcolor="#f2f2f2">    
    <td>&nbsp;</td><td>&nbsp; <a class=NAV3 href="$NM?fn=invite">Приглашения</a>
  <tr height=35>
    <td>&nbsp;</td><td>&nbsp; <a class=NAV3 href="http://128.121.195.71/dating/rla/">Ищу его</a>
  <tr height=35 bgcolor="#f2f2f2">    
    <td>&nbsp;</td><td>&nbsp; <a class=NAV3 href="http://128.121.195.71/dating/rla/">Ищу её</a>
  <tr height=35>
    <td>&nbsp;</td><td>&nbsp; <a class=NAV3 href="$NM?fn=seek_smb">Ищу друга/подругу</a> </td></tr>
  <tr height=35 bgcolor="#f2f2f2">
    <td>&nbsp;</td><td>&nbsp; <a class=NAV3 href="$NM?fn=misc">Разное</a></td></tr>
  </table>
  </td>
  </tr>
 </table>
DFLT
 }
}
1;