|
|
#!/usr/bin/perl
######################################################################################
##
## Program : fresh.pl
## Description : ดึงหน้าแรก
## Programmer : ไชยรัตน์ สุนทรวิภาต
## Email : sixheadz@hotmail.com, pipo@digithais.com
## Website : http://www.sixhead.net
## Date :
## Modify log :
##
######################################################################################
#####################################################################
#### start setup ####
require "config.pl";
require "module.pl";
#### end of setup ####
#####################################################################
#####################################################################
#### start program ####
print "Pragma: no-cache\n";
print "Content-type:text/html\n\n";
&Show_list_1();
exit;
#### end of program ####
#####################################################################
#### Start sub program. Don't touch anything below ####
sub Show_list_1 {
open (PiPo,"$config_path_to_data/fresh.txt");
@DATA = ;
close(PiPo);
@DATA = reverse(@DATA);
chomp(@DATA);
for (0..0) {
my ($t_record,$t_topic,$t_detail,$t_by,$t_pdate) = split(/\t/,$DATA[$_]);
$gen_pic = '';
if (-e "$config_upload_path/$t_record-s.jpg") { $gen_pic = qq( ); }
elsif (-e "$config_upload_path/$t_record-s.gif") { $gen_pic = qq( ); }
$data .= qq(
|
|
);
}
print qq(
);
exit;
}
__END__
#!/usr/bin/perl
######################################################################################
##
## Program : fresh.pl
## Description : ดึงหน้าแรก
## Programmer : ไชยรัตน์ สุนทรวิภาต
## Email : sixheadz@hotmail.com, pipo@digithais.com
## Website : http://www.sixhead.net
## Date :
## Modify log :
##
######################################################################################
#####################################################################
#### start setup ####
require "config.pl";
require "module.pl";
#### end of setup ####
#####################################################################
#####################################################################
#### start program ####
print "Pragma: no-cache\n";
print "Content-type:text/html\n\n";
&Show_list_1();
exit;
#### end of program ####
#####################################################################
#### Start sub program. Don't touch anything below ####
sub Show_list_1 {
open (PiPo,"$config_path_to_data/fresh.txt");
@DATA = ;
close(PiPo);
@DATA = reverse(@DATA);
chomp(@DATA);
for (0..0) {
my ($t_record,$t_topic,$t_detail,$t_by,$t_pdate) = split(/\t/,$DATA[$_]);
$gen_pic = '';
if (-e "$config_upload_path/$t_record-s.jpg") { $gen_pic = qq(); }
elsif (-e "$config_upload_path/$t_record-s.gif") { $gen_pic = qq(); }
$data .= qq(
|
|
);
}
print qq(
);
exit;
}
__END__
#!/usr/bin/perl
######################################################################################
##
## Program : fresh.pl
## Description : ดึงหน้าแรก
## Programmer : ไชยรัตน์ สุนทรวิภาต
## Email : sixheadz@hotmail.com, pipo@digithais.com
## Website : http://www.sixhead.net
## Date :
## Modify log :
##
######################################################################################
#####################################################################
#### start setup ####
require "config.pl";
require "module.pl";
#### end of setup ####
#####################################################################
#####################################################################
#### start program ####
print "Pragma: no-cache\n";
print "Content-type:text/html\n\n";
&Show_list_1();
exit;
#### end of program ####
#####################################################################
#### Start sub program. Don't touch anything below ####
sub Show_list_1 {
open (PiPo,"$config_path_to_data/fresh.txt");
@DATA = ;
close(PiPo);
@DATA = reverse(@DATA);
chomp(@DATA);
for (0..3) {
my ($t_record,$t_topic,$t_detail,$t_by,$t_pdate) = split(/\t/,$DATA[$_]);
$gen_pic = '';
if (-e "$config_upload_path/$t_record-s.jpg") { $gen_pic = qq(); }
elsif (-e "$config_upload_path/$t_record-s.gif") { $gen_pic = qq(); }
$data .= qq(
|
|
);
}
print qq(
);
exit;
}
__END__
#!/usr/bin/perl
######################################################################################
##
## Program : fresh.pl
## Description : ดึงหน้าแรก
## Programmer : ไชยรัตน์ สุนทรวิภาต
## Email : sixheadz@hotmail.com, pipo@digithais.com
## Website : http://www.sixhead.net
## Date :
## Modify log :
##
######################################################################################
#####################################################################
#### start setup ####
require "config.pl";
require "module.pl";
#### end of setup ####
#####################################################################
#####################################################################
#### start program ####
print "Pragma: no-cache\n";
print "Content-type:text/html\n\n";
&Show_list_1();
exit;
#### end of program ####
#####################################################################
#### Start sub program. Don't touch anything below ####
sub Show_list_1 {
open (PiPo,"$config_path_to_data/fresh.txt");
@DATA = ;
close(PiPo);
@DATA = reverse(@DATA);
chomp(@DATA);
for (0..0) {
my ($t_record,$t_topic,$t_detail,$t_by,$t_pdate) = split(/\t/,$DATA[$_]);
$gen_pic = '';
if (-e "$config_upload_path/$t_record-s.jpg") { $gen_pic = qq(); }
elsif (-e "$config_upload_path/$t_record-s.gif") { $gen_pic = qq(); }
$data .= qq(
|
|
);
}
print qq(
);
exit;
}
__END__
|
|
|
