#! /bin/bash
# PGPRS SETUP: Puppy Generic GPRS Modem Setup Utility
#(c) Copyright Aug. 2008 Lloyd Standish www.voluntary-simplicity.org/linux                         
#2007 Lesser GPL licence v2 (http://www.fsf.org/licensing/licenses/lgpl.html)
# version 1.3 Aug. 16, 2008  
#101204 Dejan: if there's no pin gtkdialog has errors, put 1234 instead blank.
#120131 rodin.s: i18n
#120228 fix errors in gettext.

export TEXTDOMAIN=pgprs-setup
export OUTPUT_CHARSET=UTF-8
. gettext.sh


function wordreplace() {
	#argument 1: file to search
	#argument 2: search phrase
	#arg 3: replacement phrase
	#arg 4: delete, append to end of file
	TEMPFILE=/tmp/gprs$$.temp
#	TEMPFILE=/mnt/home/multitech-puppy/tempfile

# escape regex chars, except ^
# i.e., all except ^ are treated as literals
#ARG=`echo "$2" | sed 's:[]\[\^\$\.\*\/]:\\\\&:g'`
ARG=`echo "$2" | sed 's:[]\[\$\.\*\/]:\\\\&:g'`
	if [ "$#" -eq 4 ]; then
		sed "/$ARG/d" $1 > $TEMPFILE
		echo "$3" >> $TEMPFILE
	else
#	sed '/$2/s//$3/' $1	> $TEMPFILE
		sed "s/$ARG/$3/g" $1 > $TEMPFILE
	fi
	mv -f $TEMPFILE $1
}

# user: /etc/ppp/peers/gprsmm (also pap-secrets)
# device file: /etc/ppp/peers/gprsmm
# password: etc/ppp/pap-secrets (also gets user from gprsmm)
# phone: /etc/ppp/peers/gprs-connect-chatmm
# APN /etc/ppp/peers/gprs-connect-chatmm
# PIN /etc/ppp/peers/gprs-connect-chatmm

if [ ! -f "/etc/ppp/peers/gprsmm" -o ! -f "/etc/ppp/peers/gprs-connect-chatmm" ]; then
	 xmessage -bg "#ff8080" -center -title "$(gettext 'PGPRS SETUP')" "$(gettext 'ERROR: one or more PGPRS files missing.  Please reinstall package')"
fi
USER=$"`grep "^user" /etc/ppp/peers/gprsmm | sed 's/\(^user[ 	]*\"\)\([^\"]*\)\(.*\)/\2/'`"
OLDUSER="$USER"
if [ "$USER" = "" ]; then
	USER=gprsuser
fi
PASS=$"`grep "^${USER}" /etc/ppp/pap-secrets | cut --fields=3`"
OLDPASS="$PASS"
if [ "$PASS" = "" ]; then
	PASS=gprspassword
fi
PHONE=$"`grep "^[^#].*ATD" /etc/ppp/peers/gprs-connect-chatmm | sed "s/\(.*ATD\)\([^\']*\)\(.*\)/\2/"`"
RGPHONE="ATD${PHONE}"
if [ "$PHONE" = "" ]; then
	PHONE="*99***1#"
fi
APN=$"`grep "^[^#].*CGDCONT" /etc/ppp/peers/gprs-connect-chatmm | sed 's/\(.*\"IP\",\"\)\([^\"]*\)\(.*\)/\2/'`"
RGAPN="AT+CGDCONT=1,\"IP\",\"$APN\""
if [ "$APN" = "" ]; then
	APN=icecelular
fi
PIN=$"`grep CPIN /etc/ppp/peers/gprs-connect-chatmm | sed 's/\(.*CPIN=\"\)\([^\"]*\)\(.*\)/\2/'`"

#101204 Dejan: if there's no pin gtkdialog has errors, put 1234 instead blank...
if [ "$PIN" = "" ]; then PIN="1234"; fi

RGPIN="AT+CPIN=\"$PIN\""
DEV=$"`grep "^/dev/" /etc/ppp/peers/gprsmm`"
RGDEV="^/dev/"
if [ "$DEV" = "" ]; then
	DEV=/dev/yourdevice
fi
while true
do
DETECTED=""
for DEVICE in /dev/ttyUSB0 /dev/usb/ttyUSB0 /dev/ircomm0 /dev/ttyUB0 /dev/rfcomm0 /dev/ttyS0
do
	if [ "`file $DEVICE 2>&1 | grep 'character special'`" != "" -a "`echo ATZ 2>&1 > "$DEVICE"`" = "" ]; then
	#  -a "`echo ATZ > $DEVICE`" = ""
	#   -a "`echo ATZ > "$DEVICE"`" = ""
		DETECTED="$DETECTED $DEVICE"
	fi
done
if [ "$DETECTED" = "" ]; then
	DETECTED="`gettext \"No devices detected. If USB, plug device and click 'RE-PROBE MODEMS'\"`"
else
	DETECTED="$(gettext 'detected devices:') $DETECTED"
fi
export MAIN_DIALOG="
 <vbox>
<text use-markup=\"true\"> <label>\"<b>$(gettext 'PGPRS MODEM SETUP')</b>\"</label></text>
<text><label>$(gettext "If your GPRS ISP does not require a username/password, you should leave the defaults. If you do not know your ISP's APN or the phone number to dial for connection, you can exit and run this setup program again later (click the 'connect' icon on the desktop) The default APN, 'icecelular', is correct only for Costa Rica.")</label></text> 
  <hbox>
    <text>
      <label>$(gettext 'Serial Modem Device File:')</label>
    </text>
    <entry>
      <default>${DEV}</default>
      <variable>DEV</variable>
    </entry>
  </hbox>
  <hbox>
    <text><label>($DETECTED)</label></text>
  </hbox>
  <hbox>
    <text>
      <label>APN:</label>
    </text>
    <entry>
      <default>${APN}</default>
      <variable>APN</variable>
    </entry>
  </hbox>
  
  <hbox>
    <text>
      <label>$(gettext 'Username:')</label>
    </text>
    <entry>
      <default>${USER}</default>
      <variable>USER</variable>
    </entry>
  </hbox>
  
  <hbox>
    <text>
      <label>$(gettext 'Password:')</label>
    </text>
    <entry>
      <default>${PASS}</default>
      <variable>PASS</variable>
    </entry>
  </hbox>
  
  <hbox>
    <text>
      <label>$(gettext 'Phone number:')</label>
    </text>
    <entry>
      <default>${PHONE}</default>
      <variable>PHONE</variable>
    </entry>
  </hbox>

  <hbox>
    <text>
      <label>$(gettext 'Phone PIN:')</label>
    </text>
    <entry>
      <default>${PIN}</default>
      <variable>PIN</variable>
    </entry>
  </hbox>
  
  <hbox>
   <button ok></button>
   <button cancel></button>
   <button>
   		<label>$(gettext 'RE-PROBE MODEMS')</label>
   	</button>
  </hbox>
 </vbox>
" #'geany fix
I=$IFS; IFS=""
for STATEMENTS in  $(gtkdialog3 --program=MAIN_DIALOG); do
	eval $STATEMENTS
done
IFS=$I
if [ "$EXIT" = "$(gettext 'RE-PROBE MODEMS')" ]; then
	continue
fi
if [ "$EXIT" = "OK" ]; then
	LACK=""
	if [ "$DEV" = "" -o "$DEV" = "/dev/yourdevice" ]; then
		LACK="$LACK Serial device file"
		DEV=/dev/yourdevice
	fi
	if [ "$PHONE" = "" ]; then
		LACK="$LACK Telephone"
		PHONE="*99***1#"
	fi
	if [ "$PASS" = "" ]; then
		LACK="$LACK Password"
		PASS="gprspass"
	fi
	if [ "$USER" = "" ]; then
		LACK="$LACK Username"
		USER="gprsuser"
	fi
	if [ "${APN}" = "" ]; then
		LACK="$LACK APN"
		APN="icecelular"
	fi
	if [ "$LACK" != "" ]; then
		xmessage -bg "#ff8080" -center -title "$(gettext 'MT-GPRS SETUP')" "$(gettext 'The following must not be left blank:') $LACK"
		continue
	fi
	wordreplace /etc/ppp/peers/gprsmm "user" "user \"$USER\"" 1
	wordreplace /etc/ppp/peers/gprsmm "$RGDEV" "$DEV" 1
	wordreplace /etc/ppp/pap-secrets "$OLDUSER	*	$OLDPASS" "$USER	*	$PASS" 1
	chmod 600 /etc/ppp/pap-secrets
	wordreplace /etc/ppp/peers/gprs-connect-chatmm "${RGPHONE}" "ATD${PHONE}"
	wordreplace /etc/ppp/peers/gprs-connect-chatmm "$RGAPN" "AT+CGDCONT=1,\"IP\",\"$APN\""
	wordreplace /etc/ppp/peers/gprs-connect-chatmm "$RGPIN" "AT+CPIN=\"$PIN\""
	chmod 700 /etc/ppp/peers/gprs-connect-chatmm
	xmessage -center -title "$(gettext 'PGPRS SETUP')" "$(gettext "Connect to the Internet using 'PGPRS Connect' in the 'Network' menu.")"
fi
break
done
