newtonlink

Unix 到 Newton通讯的程序

    printf "Get Newton dates for Plan file\n";
    printf "Make sure Sloup is running on your Newton\n";
    $mode = "plan";

} elsif ($ARGV[0] eq "-pr") {

    if ($ARGV[1] eq "") {
	$PrintFile = $PrintDefaultFile;
    } else {
	$PrintFile = $ARGV[1];
    }

    printf "Get Newton outbox entrys for printing\n";
    printf "Make sure Sloup is running on your Newton\n";
    $mode = "pr";

} elsif ($ARGV[0] eq "-fax") {
    #printf "Get Newton outbox entrys for faxing\n";
    #printf "Make sure Sloup is running on your Newton\n";
    $mode = "fax";

} elsif ($ARGV[0] eq "-mail") {
    printf "Get Newton outbox entrys for Email\n";
    printf "Make sure Sloup is running on your Newton\n";
    $mode = "mail";

} elsif ($ARGV[0] eq "-getpnam") {
    printf "Get Newton package names\n";
    printf "Make sure Sloup is running on your Newton\n";
    $mode = "getpnam";

} elsif ($ARGV[0] eq "-getpkg") {
    if ($ARGV[1] eq "") {
	printf "Exit - Package name missing\n";
	unlink $PIDFILE;
	exit;
    }
    if ($ARGV[2] eq "") {
	printf "Exit - Package filename missing\n";
	unlink $PIDFILE;
	exit;
    }
    $PackageName = $ARGV[1];
    $PackageFileName = $ARGV[2];
    printf "Get Newton package $PackageName to file $PackageFileName\n";
    printf "Make sure Sloup is running on your Newton\n";
    $mode = "getpkg";

} elsif ($ARGV[0] eq "-nsmail") {
    printf "Get Newton outbox entrys for Netscape email\n";
    printf "Make sure Sloup is running on your Newton\n";
    $mode = "nsmail";

} elsif ($ARGV[0] eq "-nsadr") {
    printf "Get Newton cards for Netscape email addressbook\n";
    printf "Make sure Sloup is running on your Newton\n";
    $mode = "nsadr";
    
} elsif ($ARGV[0] eq "-xfadr") {
    printf "Get Newton card entrys for Xfmail addressbook\n";
    printf "Make sure Sloup is running on your Newton\n";
    $mode = "xfadr";

} elsif ($ARGV[0] eq "-send") {
    if ($ARGV[1] eq "") {
	printf "Exit - file name missing\n";
	unlink $PIDFILE;
	exit;
    }
    if ($ARGV[2] eq "") {
        $SendFileSoup = "";
    } else {
        $SendFileSoup = $ARGV[2];
    }
    $SendFile = $ARGV[1];
    printf "Send file $SendFile to Newton";
    if ($SendFileSoup ne "") {
        printf " soup $SendFileSoup";
    }
    printf "\nMake sure Sloup is running on your Newton\n";
    $mode = "send";

} elsif ($ARGV[0] eq "-inst") {
    if ($ARGV[1] eq "") {
	printf "Exit - file name missing\n";
	unlink $PIDFILE;
	exit;
    } else {
	$PackageFile = $ARGV[1];
	printf "Install Newton package $PackageFile\n";
	printf "Make sure Sloup is running on your Newton\n";
	$mode = "install";
    }

} elsif ($ARGV[0] eq "-lpkg") {
    if ($ARGV[1] eq "") {
	printf "Exit - file name missing\n";
	unlink $PIDFILE;
	exit;
    } else {
	$LPackageFile = $ARGV[1];
	printf "Install Newton package $LPackageFile using lpkg\n";
	printf "Start the connection utility on your Newton\n";
	$mode = "lpkg";
    }

} elsif ($ARGV[0] eq "-input") {
    printf "Use PC keyboard for Newton input\n";
    printf "Put Sloup in inspect mode, finish input with '!!'\n";
    $mode = "input";

} elsif ($ARGV[0] eq "-soupinfo") {
    if ($ARGV[1] eq "") {
	printf "Exit - soup name missing\n";
	unlink $PIDFILE;
	exit;
    } else {
	$SoupName = $ARGV[1];
	printf "Make sure Sloup is running on your Newton\n";
	$mode = "soupinfo";
    }

} elsif ($ARGV[0] eq "-test") {
    printf "Newtonlink test mode activated\n";
    printf "Make sure Sloup is running on your Newton\n";
    $mode = "test";

} elsif ($ARGV[0] eq "") {
    $mode = "motif";

} elsif (($ARGV[0] eq "-help") || ($ARGV[0] eq "-h") || ($ARGV[0] eq "-?")) {
    printf "\nUsage   : newtonlink [options] [file]\n";
    printf "Options : -adr                       Get Newton cards for Addressbook file\n";
    printf "          -webadr                    Get Newton cards for WebAddress files\n";
    printf "          -ksendfax                  Get Newton cards for Ksendfax phonebook\n";
    printf "          -xrolo [file]              Get Newton notes for Xrolodex file\n";
    printf "          -kjots                     Get Newton notes for Kjots file\n";
    printf "          -plan                      Get Newton dates for Plan file\n";
    printf "          -pr [file]                 Get Newton outbox entrys for printing\n";
    printf "          -fax                       Get Newton outbox entrys for faxing\n";
    printf "          -mail                      Get Newton outbox entrys for email\n";
    printf "          -nsmail                    Get Newton outbox entrys for Netscape email\n";
    printf "          -nsadr                     Get Newton card entrys for Netscape email addressbook\n";
    printf "          -xfadr                     Get Newton card entrys for Xfmail addressbook\n";
    printf "          -getpkg [name] [file]      Get Newton package\n";
    printf "          -getpnam                   Get Newton package names\n";
    printf "          -send [file] [soup]        Send file to Newton\n";
    printf "          -inst [file]               Install Newton package\n";
    printf "          -lpkg [file]               Install Newton package using lpkg\n";
    printf "          -soupinfo [soupname]       Get informations about Newton soup\n";
    printf "          -input                     Use PC keyboard for Newton input\n";
    printf "          -help                      This help text\n";
    printf "          without param              Starting X-windows mode\n\n";
    unlink $PIDFILE;
    exit;

} elsif ($ARGV[0] eq "-onlinehelp") {

    printf "Starting $HTML_Browser for online help\n";
    if ($HTML_Browser eq "netscape") {
        system "$HTML_Browser -remote 'openUrl (file:S_NEWTONLINK_INSTALLDIR_S/doc/newtonlink-doc-en.html)' &";
    } else {
        system "$HTML_Browser S_NEWTONLINK_INSTALLDIR_S/doc/newtonlink-doc-en.html &";
    }
    unlink $PIDFILE;
    exit;

} else {
    printf "Command unknown !\n";
    unlink $PIDFILE;
    exit;
}

if ($mode eq "motif") {
    # start newtonlink Tk GUI
    system "$instdir/tknl.tcl &";
    unlink $PIDFILE;
    exit;
}

if ($mode eq "lpkg") {
    # install Newton package with lpkg
    &CallLpkg;
    unlink $PIDFILE;
    exit;
}

# try to connect to sloup and ask for several options
&GreetUser;
 
if (open (COMNEWTON, "+>$tty")) {
    printf "Newton connection opened\n";

    # set new baudrate
    printf "Switch baudrate to $SloupBaudrate\n";
    &SetSloupBaudrate;

    # It seems that IRIX needs first a CR to initialize the serial connection
    if ($SystemType eq "IRIX") { printf (COMNEWTON "\n"); }

    if ($mode eq "Addressbook") {
	# get cards from Newton
	&Get4Addressbook;

    } elsif ($mode eq "update") {
	# update all
	&GetPackageNames;
	$XrolodexFile = $XrolodexDefaultFile;
	&Get4Xrolodex;
	&Get4Kjots;
	&GetMeetings4Plan;
	&Get4Addressbook;
	&Get4KsendfaxPhonebook;
	&Get4WebAddress;
	&Get4NetscapeAddressbook;
	&Get4XfmailAddressbook;

    } elsif ($mode eq "webadr") {
	# get cards from Newton
	&Get4WebAddress;

    } elsif ($mode eq "ksendfax") {
	# get cards from Newton
	&Get4KsendfaxPhonebook;

    } elsif ($mode eq "Xrolodex") {
	# get notes from Newton
	&Get4Xrolodex;

    } elsif ($mode eq "kjots") {
	# get notes from Newton
	&Get4Kjots;

    } elsif ($mode eq "plan") {
	# get dates from Newton
	&GetMeetings4Plan;

    } elsif ($mode eq "pr") {
	# get outbox from Newton
	&GetPrintOutbox;

    } elsif ($mode eq "fax") {
	# get outbox from Newton
	&GetFaxOutbox;

    } elsif ($mode eq "mail") {
        # get outbox from Newton
        &Get4Mail;

    } elsif ($mode eq "nsmail") {
	# get outbox from Newton
	&Get4NetscapeMail;

    } elsif ($mode eq "nsadr") {
	# get cards from Newton
	&Get4NetscapeAddressbook;

    } elsif ($mode eq "xfadr") {
	# get cards from Newton
	&Get4XfmailAddressbook;

    } elsif ($mode eq "send") {
	# send file to Newton
	&SendFile2Newton;

    } elsif ($mode eq "getpnam") {
	# get Newton package names
	&GetPackageNames;

    } elsif ($mode eq "getpkg") {
	# get Newton package
	&GetPackage;

    } elsif ($mode eq "install") {
	# install Newton package
	&InstallPackage;

    } elsif ($mode eq "input") {
	# send keyboard to Newton
	&KeyboardInput;

    } elsif ($mode eq "soupinfo") {
	# get info about a Newton soup
	&GetSoupInfo;

    } elsif ($mode eq "test") {
	# activate Newtonlink test mode
	&SloupTest;

    }

    # close connection
    close COMNEWTON;
    printf "\nNewton connection closed\n";
    unlink $PIDFILE;
    exit;

} else {
    print STDERR "Can't open $tty\n";
    return;
}