<% our ( $Mem, $Params ); if ( $Params->{uri} =~ /^\/privacy\/?/ ) { $Response->Include("privacy.asp"); $Response->End(); } elsif ( $Params->{uri} =~ /^\/blog\/([^\/]*)\/(\d+)\/.+$/ ) { $Response->Include("blog.asp", CharSanitize($1), IntSanitize($2)); $Response->End(); } elsif ( $Params->{uri} =~ /^\/blog/ ) { if ( $Params->{uri} =~ /^\/blog\/([^\/]*)\/?$/ ) { $Response->Include("blogs.asp", CharSanitize($1)); $Response->End(); } else { $Response->Include("blogs.asp"); $Response->End(); } } elsif ( $Params->{uri} =~ /^\/protoselido/ ) { $Response->Include("protoselido.asp"); $Response->End(); } elsif ( $Params->{uri} =~ /^\/deeplinks/ ) { if ( $Params->{uri} =~ /^\/deeplinks\/article\/([^\/]*)/ ) { $Response->Include("deeplinks.asp", '', IntSanitize($1)); $Response->End(); } elsif ( $Params->{uri} =~ /^\/deeplinks\/author\/([^\/]*)/ ) { $Response->Include("deeplinks.asp", CharSanitize($1), '', 'blog'); $Response->End(); } elsif ( $Params->{uri} =~ /^\/deeplinks\/tag\/([^\/]*)/ ) { $Response->Include("deeplinks.asp", CharSanitize($1)); $Response->End(); } $Response->Include("deeplinks.asp"); $Response->End(); } elsif ( $Params->{uri} =~ /^\/json/ ) { if ( $Params->{uri} =~ /^\/json\/([^\/]*)\/?$/ ) { $Response->Include("json.asp", CharSanitize($1)); $Response->End(); } elsif ( $Params->{uri} =~ /^\/json\/([^\/]*)\/(\d+)\/.+$/ ) { $Response->Include("json.asp", CharSanitize($1), IntSanitize($2)); $Response->End(); } elsif ( $Params->{uri} =~ /^\/json\/blog\/([^\/]*)\/(\d+)\/.+$/ ) { $Response->Include("json.asp", CharSanitize($1), IntSanitize($2), 'blog'); $Response->End(); } elsif ( $Params->{uri} =~ /^\/json\/blog\/([^\/]*)\/?$/ ) { $Response->Include("json.asp", CharSanitize($1), 0, 'blog'); $Response->End(); } elsif ( $Params->{uri} =~ /^\/json\/paok24tv\/([^\/]*)\/?/ ) { $Response->Include("json.asp", CharSanitize($1)); $Response->End(); } else { $Response->Include("json.asp"); $Response->End(); } } elsif ( $Params->{uri} =~ /^\/article\/([^\/]*)\/?$/ ) { $Response->Include("json.asp", '', IntSanitize($1), '', 'locpush'); $Response->End(); } elsif ( $Params->{uri} =~ /^\/author\/([^\/]*)\/?$/ ) { $Response->Include("json.asp", CharSanitize($1), '', 'blog'); $Response->End(); } elsif ( $Params->{uri} =~ /^\/tag\/([^\/]*)\/?$/ ) { $Response->Include("json.asp", CharSanitize($1)); $Response->End(); } elsif ( $Params->{uri} =~ /^\/paok24tv\/([^\/]*)\/(\d+)\/.+$/ ) { $Response->Include("paok24tv.asp", CharSanitize($1), IntSanitize($2)); $Response->End(); } elsif ( $Params->{uri} =~ /^\/paok24tv\/([^\/]*)\/?$/ ) { $Response->Include("paok24tv.asp", CharSanitize($1)); $Response->End(); } elsif ( $Params->{uri} =~ /^\/roh\/?/ ) { if ( $Params->{uri} =~ /^\/roh\/([^\/]*)\/?/ ) { $Response->Include("items.asp", 'roh', CharSanitize($1)); $Response->End(); } else { $Response->Include("items.asp", 'roh'); $Response->End(); } } elsif ( $Params->{uri} =~ /\/([^\/]*)\/(\d+)\/.+$/ ) { $Response->Include("item.asp", CharSanitize($1), IntSanitize($2)); $Response->End(); } elsif ( $Params->{uri} ) { $Params->{uri} =~ /\/([^\/]*)\/?$/; $Response->Include("items.asp", CharSanitize($1)); $Response->End(); } else { my $skin = $Params->{'skin'} || '0'; my ($datetime, $date, $time) = printableDate(time(), 4); $date =~ /^(\d+)-(\d+)-(\d+)$/; my $jsondate = "$3-$2-$1"; $Response->write(qq[ ΠΑΟΚ - 24 Ώρες Νέα για τον ΠΑΟΚ | PAOK24 ].q[].qq[ ].( $Request->ServerVariables('HTTP_USER_AGENT') =~ m/iPhone/i || $Request->ServerVariables('HTTP_USER_AGENT') =~ m/Android/i ? qq[] : '').qq[ ].qq[ ].qq[ ].(!$skin ? q[ ] : q[ ]).q[ ]); #~ if ( $Params->{'webover'} ) { #~ κλείσε και μπές στο PAOK24 #~ #~
$Response->write(qq[
]); #~
#~ } #~ $Response->write( menu() ); #~
#~ #~
$Response->write(qq[
].( $Request->ServerVariables('HTTP_USER_AGENT') !~ m/iPhone/i && $Request->ServerVariables('HTTP_USER_AGENT') !~ m/Android/i ? qq[
] : qq[
]).qq[
].$Mem->get($Params->{MEM}.'_slider').qq[
].$Mem->get($Params->{MEM}.'_slider_xs').qq[
].$Mem->get($Params->{MEM}.'_latest_news').qq[
].$Mem->get($Params->{MEM}.'_latest_news_paok').qq[
].$Mem->get($Params->{MEM}.'_latest_news_newsfish').qq[
].( $Request->ServerVariables('HTTP_USER_AGENT') !~ m/iPhone/i && $Request->ServerVariables('HTTP_USER_AGENT') !~ m/Android/i ? qq[
] : qq[
]).qq[
].$Mem->get($Params->{MEM}.'_blogers_main').qq[

].$Mem->get($Params->{MEM}.'_atakes').qq[

].$Mem->get($Params->{MEM}.'_featured_0').qq[
].$Mem->get($Params->{MEM}.'_featured_1').qq[ ].$Mem->get($Params->{MEM}.'_featured_2').qq[
].$Mem->get($Params->{MEM}.'_featured_3').qq[ ].$Mem->get($Params->{MEM}.'_featured_4').qq[
]); #~
#~
#~ #~
#~
#~
#~
#~
#~
#~ #~
#~
#~
if ( $skin ) { $Response->write(qq[
]); } else { $Response->write(qq[
]); } $Response->write(qq[
].$Mem->get($Params->{MEM}.'_index_blocks').qq[
].$Mem->get($Params->{MEM}.'_video_slides').qq[
]); #~ $Response->write( foot($skin) ); $Response->write(qq[ ]); } %>