config.pl

g-page 是一款客户端/服务器应用程序

#!/usr/bin/perl -w

if ( -e "/etc/gpage.conf" )
{
    $y_or_n = editing();
    if ( $y_or_n eq "y" )
    {
	create_file();
    }
    else
    {
	print "\nHere is your current gpage.conf\n\n";
	system("cat /etc/gpage.conf");
    }
}
else
{
    create_file();
}

sub create_file
{
    print "\nCreating gpage.conf...\n";
    print "Please read the README for any questions regarding the server confifuration\n\n";
    open(WRITE_HANDLE, ">/etc/gpage.conf") || die "Unable to create /etc/gpage.conf\n";
    print "Settings for the server: \n";
    while ( 1 )
    {
	print "Enter the domain or ip adress of the network workstation where the server will run: ";
	$domain = <STDIN>;
	chomp ($domain);
	if ( verify($domain) )
	{
	    print WRITE_HANDLE "server_domain=" . $domain . "\n";
	    last;
	}
    }
    while ( 1 )
    {
	print "Enter the port you wish to use to talk to the g-page client (enter 1299 if you are unsure what port to use) ";
	$port = <STDIN>;
	chomp ($port);
	if ( verify($port) )
	{
	    print WRITE_HANDLE "port=" . $port . "\n";
	    last;
	}
    }
    while ( 1 )
    {
	print "Enter the timeout value in seconds for connecting to a remote server: (60 - 120 are typical values): ";
	$timeout = <STDIN>;
	chomp ($timeout);
	if ( verify($timeout) )
	{
	    print WRITE_HANDLE "connect_timeout=" . $timeout . "\n";
	    last;
	}
    }
    while ( 1 )
    {
	print "Enter the tiemout value for talking to a remote server:\nThis is the number of seconds gpage will wait for a response from a server, 60 - 120 serconds will work for most people: ";
	$r_timeout = <STDIN>;
	chomp ($r_timeout);
	if ( verify($r_timeout) )
	{
	    print WRITE_HANDLE "read_timeout=" . $r_timeout . "\n";
	    last;
	}
    }
    close(WRITE_HANDLE);
    print "\nConfiguration file has been written in /etc/gpage.conf\n";
    system("cat /etc/gpage.conf");
    
}
sub editing
{

    print "gpage.conf already exists - would you like to change your settings? (y/n) ";
    $in = <STDIN>;
    chomp ($in);
    return ($in);
}

sub verify
{
    print "You entered $_[0], is that correct? (y/n) ";
    $ok = <STDIN>;
    chomp ($ok);
    if ( $ok eq "y" )
    {
	return ($returnv = 1);
    }
    else
    {
	return ($returnv = 0);
    }
}