#!/usr/local/bin/perl
#
# VER. 00-01
# ALL RIGHTS RESERVED,COPYRIGHT(C)2007,2012,GAN
#---+----*----+----*----+----*----+----*----+----*----+----*----+----*----+----*
$program_id = 'sample_vpsa010p.cgi';
&main_proc;
exit;
sub main_proc
{
&init_set_proc;
&main_sub_proc;
}
sub init_set_proc
{
require '/homepage/cgi-bin/syslib/PCOM01.pl';
require '/homepage/cgi-bin/syslib/PCOM05.pl';
require '/homepage/cgi-bin/syslib/jcode.pl';
&PCOM01'ACDATE01(*ndate,*ntime,*date,*time,*ndate2);
}
sub main_sub_proc
{
$upldpath = '/homepage/perl/sample/data01/temp001_';
$upldpath_sn = '/homepage/perl/sample/data02/temp001_';
$upldpath_er = '/homepage/perl/sample/data03/temp001_';
$maxsize = 100000;
$snsize = 150;
&PCOM05'MSGRED12(*mib,
*io_status,
*filename,
*mime,
*size,
*upldpath,
*upldpath_er,
*maxsize,
*upldpath_sn,
*snsize);
if ( $io_status eq 'ME' )
{
&init_gmn_proc;
}
else
{
$mib[2] =~ s/\r\n/
/g;
$mib[2] =~ s/\n/
/g;
$mib[2] =~ s/
/
\n/g;
$mib[5] =~ s/\r\n/
/g;
$mib[5] =~ s/\n/
/g;
$mib[5] =~ s/
/
\n/g;
if ( $io_status eq 'UPLD' )
{
$img1 = "
";
}
else
{
$img1 = "";
}
if ( $mib[8] ne "" )
{
$url1 = "関連URL:$mib[8]
";
}
else
{
$url1 = "";
}
&html_send_proc;
}
}
sub init_gmn_proc
{
print <
HTML作成 (様式:VB1)
Copyright (C) 2007 GAN. All rights reserved.