byp4a55 professor6T9

Linux 98.35.109.208.host.secureserver.net 5.14.0-570.51.1.el9_6.x86_64 #1 SMP PREEMPT_DYNAMIC Wed Oct 8 09:41:34 EDT 2025 x86_64
Apache
208.109.35.98

File Name : 6.B.modem-init

#!/usr/bin/perl
#	This is a very brief script that demonstrates send_slow(). This
#command is chiefly for talking to modems and the like where if you send
#it stuff too fast it can get mad at you.
#	Also demonstrated is how to talk to a bidirectional device
#handle.
#
#	This example has been changed in 1.05 so that it actually works. :-)

use Expect;

$device="/dev/modem" unless $device = shift(@ARGV);

# open the device
open(DEVICE,"+>$device") || die "Couldn't open $device, $!\n";

# Expectize it. note the \* which we do because we didn't use the OO
# method of opening the device.
$modem=Expect->exp_init(\*DEVICE);
# Let's watch the output. Once again, output isn't automatically
# watched since it was an initialized handlde and not a process.
$modem->log_stdout(1);

# Put it in raw mode w/ no echoing so it will operate as expected.
$modem->exp_stty('raw','-echo');

# Send it an ATZH0\r to reset its state.
print "Initializing modem\n";
$modem->send_slow(.5,"ATZH0\r");

# How about we look for an OK?
$modem->expect(30,'-re','^OK\r?$')|| warn "Never got OK from modem\n";
print "Modem initialized.\n";

# Now let's interact with it so the user can talk to it, dial it out,
# whatever. This is basically a poor man's term program.
# When you interact() with a handle it puts STDIN in raw mode so
# you are assured of interacting cleanly, no escape chars, etc.
# This is usually what you want. Here however it's nice to be able to
# escape from the session without doing any extra work. So let's make
# an escape character of ^W.
print "Beginning interaction, escape character is ^W.\n";
$modem->interact(\*STDIN,"\027");

# Done? Reset the modem, close the handle.
print $modem "+++";
sleep 3;
print $modem "ATZH0\r";
sleep 1;
# Grab any output ready on the handle, toss it.
$modem->expect(0);
$modem->hard_close();

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	root/root	0755	2024-04-29 01:38:28
..	dir	-	root/root	0755	2024-04-29 01:38:28
1.A.Intro	file	2.37 KB	root/root	0644	2017-05-15 03:55:28
2.A.ftp	file	3.01 KB	root/root	0644	2022-07-22 01:24:36
2.B.rlogin	file	3.95 KB	root/root	0644	2022-07-22 01:24:36
3.A.debugging	file	1.93 KB	root/root	0644	2022-07-22 01:24:36
4.A.top	file	928 B	root/root	0644	2022-07-22 01:24:36
5.A.top	file	1.11 KB	root/root	0644	2022-07-22 01:24:36
5.B.top	file	2.39 KB	root/root	0644	2022-07-22 01:24:36
6.A.smtp-verify	file	3.18 KB	root/root	0644	2022-07-22 01:24:36
6.B.modem-init	file	1.79 KB	root/root	0644	2022-07-22 01:24:36
README	file	644 B	root/root	0644	2017-05-15 03:55:28

Team Anon Force

https://t.me/Professor6T9x