Re: lnu_chat: Automatisk upp- och nedkoppling

Fri, 20 Aug 1999 12:49:15 -0700 

Hejsan...

H�r kommer scriptet...

eller scripten....

scriptet up.pl anv�nder scriptet getpppip2 f�r att kontrollera om ppp0
�r aktiv...

Jag ropar p� scriptet up.pl med en knapp p� en html sida p� servern...

Lite anpassning beh�vs f�r att det skall funka d� jag har ett par frames mm
skojsigt p� min sida....

/Edberg

--------------up.pl--------------

#!/usr/bin/perl

$vem = "/home/httpd/cgi-bin/vem.txt";

push(@INC, "/cgi-bin");
require("cgi-lib.pl");

print "Content-type: text/html\n\n";

#print "<META HTTP-EQUIV=\"refresh\" CONTENT=\"10 :http://helge\">\n";
print "<META HTTP-EQUIV=\"Refresh\" TARGET=\"main\" CONTENT=\"3;
URL=http://helge/server.html\">\n";


$time = `date`;
$date = `getpppip2`;
print $date;

&con;

sub con{
   if ($date ne "") {
      system (`/sbin/./ifdown ppp0`);
      print "Now Disconnected\n";
      open (GUEST,">$vem");
      print GUEST "";
      close (GUEST);
   }

   if ($date eq "") {
      system (`/sbin/./ifup ppp0 > /dev/null`);
      print "Now Connected\n";
      open (GUEST,">$vem");
      print GUEST "$ENV{REMOTE_ADDR}\n";
      close (GUEST);
#      system (`perl /home/httpd/cgi-bin/comic2 > /dev/null`);
#      system (`perl /home/httpd/cgi-bin/metrorocky.pl > /dev/null`);
   }
}

print "Done!\n";
exit 0;

-------------------------------------------


------------getpppip2------------------------

#!/bin/bash

/sbin/./ifconfig | grep 'inet addr' | awk '{print $2;}' | awk -F':'
'{print $2;}' | grep -v '127.0.0.1' | grep -v '192.$

----------------------------------





Rikard Johnels wrote:

> L�ter MYCKET intressant.
> Care to share the script?
>
> On 20-Aug-99 Patrik Edberg wrote:
> > Jag har gjort en Knapp p� en hemmsida p� min lokala Webb server som drar
> > upp min ISDN
> > uppkoppling med ett hj�lp av ett PERL script...
> >
> > Vid ett nytt tryck p� knappen s� kopplas jag ner...  :-)
> >
> > Personligen tycker jag det funkar mycket b�ttre �n att ha en Diald eller
> > n�got annat automatiskt
> > som sk�ter upp och nerkoppling eftersom jag nu har FULL kontroll �ver
> > det hela...
> >
> > /Edberg


======Annons================================================
Denna lista sponsras av 3REX AB , [EMAIL PROTECTED] , 031-158010
25376%&/$"&$&#%$!"%$73"!3  <-Ett smakprov av senaste kerneln
============================================================

Till