Matt [Danger]

$email = 'user@example.com';
if (!eregi("^[_\.0-9a-z-]+@([0-9a-z][0-9a-z-]+\.)+[a-z]{2,3}$", $email)) {
    print_error("Your email address is invalid!");
}

#!/usr/bin/perl -w
 
#===============================================================================
#
# Facebook status script v2.1
#
# This script allows you to update your Facebook status from the shell.
#
# Copyright (C) 2010 Matt West <matt at mattdanger dot net>
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# For a copy of the GNU General Public License visit <http://www.gnu.org/licenses/>.
#
#===============================================================================
 
# Be sure you have installed the LWP and Crypt::SSLeay packages from CPAN
use LWP;
use HTTP::Cookies;
use Term::ReadKey;
use strict;
 
# General vars
my $login;
my $password;
my $status;
my $auth_key;
my $response;
my $user_agent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.6) Gecko/20060728 Firefox/1.5.0.6";
my @header = ( 'Referer' => 'http://www.facebook.com/', 
               'User-Agent' => $user_agent);
my $cookie_jar = HTTP::Cookies->new(
                file => 'cookies.dat',
                autosave => 1,
                ignore_discard => 1);
my $browser = LWP::UserAgent->new;
$browser->cookie_jar($cookie_jar);
 
# Get login information & the status message to send.
print "Facebook login name: ";
$login = <>; chomp($login);
 
print "Password: ";
ReadMode('noecho');
$password = ReadLine(0); chomp($password); ReadMode 0;
 
print "\nYour status (Facebook appears to have a 232 character limit): ";
$status = <>; chomp($status);
print "\nSending... ";
 
 
#================================================
# Login and get auth key
#================================================
 
$response = $browser->post('https://login.facebook.com/login.php?m&next=http%3A%2F%2Fm.facebook.com%2Fhome.php', 
                           ['email' => $login,
                            'pass' => $password,
                            'login' => 'Log In'], @header);
$cookie_jar->extract_cookies( $response );
$cookie_jar->save;
$response = $browser->get('http://m.facebook.com/a/home.php', @header);
 
$auth_key = $response->content;
$auth_key =~ s/\n//g;
$auth_key =~ s/^.*name="post_form_id" value="//;
$auth_key =~ s/".*$//;
 
#================================================
# Submit the status update
#================================================
 
@header = ('Referer' => 'http://m.facebook.com/a/home.php', 
           'User-Agent' => $user_agent, 
           'Host' => 'm.facebook.com');
 
$response = $browser->post('http://m.facebook.com/a/home.php?re974fcaf&refid=7&rbb94a931', 
                           ['fb_dtsg' => 'jYNZj',
                            'post_form_id' => $auth_key,
                            'status' => $status,
                            'update' => 'Share'], @header);
 
# Did we do good here?
if ($response->content eq '') {
  print "Done!\n\n";
} else {
  print "An error occurred while setting your profile status.\n\n";
}
 
# Now that we're done we can delete the cookies.dat file.
exec('rm cookies.dat');

@define('DEFAULT_TAB', 'email'); // 'social' or 'email' 
@define('FIRST_TAB', 'email'); // 'social' or 'email' as the first tab.

function get_default_tab() {
  switch (DEFAULT_TAB) {
    case 'email':
      $tab_number = 2;
      break;
    case 'social':
      $tab_number = 1;
      break;
    default: die("Error with the Share This plugin: Please define DEFAULT_TAB as either 'social' or 'email'.");  
  }
  echo $tab_number;
}

akst_share_tab('<?php get_default_tab(); ?>');

<li id="akst_tab1" onclick="akst_share_tab('1');"><?php _e('Social Web', 'alexking.org'); ?></li>
<li id="akst_tab2" class="selected" onclick="akst_share_tab('2');"><?php _e('E-mail', 'alexking.org'); ?></li>

<?php 
switch (FIRST_TAB) {
  case 'social':
?>
    <li id="akst_tab1" onclick="akst_share_tab('1');"><?php _e('Social Web', 'alexking.org'); ?></li>
    <li id="akst_tab2" class="selected" onclick="akst_share_tab('2');"><?php _e('E-mail', 'alexking.org'); ?></li>
<?php
    break;
  case 'email':
?>
    <li id="akst_tab2" class="selected" onclick="akst_share_tab('2');"><?php _e('E-mail', 'alexking.org'); ?></li>
    <li id="akst_tab1" onclick="akst_share_tab('1');"><?php _e('Social Web', 'alexking.org'); ?></li>
<?php
    break;
  default: die("Error with the Share This plugin: Please define FIRST_TAB as either 'social' or 'email'.");
}
?>

#!/bin/bash
COUNT=0
echo -n "Enter a number (999 to quit): "
 
while read NUM; do
  # Set initials
  if [ $COUNT -eq 0 ]; then
    HIGHEST=$NUM
    LOWEST=$NUM
    SUM=$NUM
  fi
 
  # If 999 is entered, break out
  if [ $NUM -eq 999 ]; then
    break
  else
    # See if inputted number is the highest number
    if [ $NUM -gt $HIGHEST ]; then
      HIGHEST=$NUM
    fi
 
    # See if inputted number is the lowest number
    if [ $NUM -lt $LOWEST ]; then
      LOWEST=$NUM;
    fi
 
    # Calculate sum
    SUM=$(($SUM+$NUM))
 
    echo -n "Enter another number (999 to quit): "
  fi
 
  COUNT=$(($COUNT+1))
done
 
AVERAGE=$(($SUM/$COUNT))
echo "Highest number: $HIGHEST"
echo "Lowest number: $LOWEST"
echo "Sum of the numbers: $SUM"
echo "Average of the numbers: $AVERAGE"

#!/bin/bash 
RAN=$((RANDOM%60))
COUNTER=1
echo -n "I've guessed a number between 0-60, what is it? "
 
while read GUESS; do
 
  if [ $GUESS -eq $RAN ]; then
    break;
  else
    echo
    if [ $GUESS -lt $RAN ]; then
      echo -n "Nope, try a higher number: "
    else
      echo -n "Nope, try a lower number: "
    fi	
  fi
  COUNTER=$((COUNTER+1))
 
done
 
echo
echo "Yep, good job! It took you $COUNTER tries to guess correctly."

#!/bin/bash 
echo -n "Enter a number: "; read NUM
echo -n "Enter U to count up to $NUM and D to count down to 0: "; read CHOICE
 
case $CHOICE in
  'u'|'U') 
    COUNTER=0
    while [ $COUNTER -le $NUM ]; do
      echo $COUNTER
      COUNTER=$(($COUNTER+1))
    done ;;
  'd'|'D')
    while [ $NUM -ge 0 ]; do
      echo $NUM;
      NUM=$(($NUM-1))
    done ;;
  *) echo "Error: You entered an invalid argument."
esac

#!/bin/bash
while true; do
  echo "Please enter two numbers (type 'q' to quit): "
  echo -n "Number 1: "
  read NUM1
  if [ $NUM1 == "q" ]; then exit; fi
  echo -n "Number 2: "
  read NUM2
  echo -n "Enter (a) to add, (s) to subtract, (m) to multiply, or (d) to divide these numbers: "
  read OPERATION
 
  case $OPERATION in
    a) echo "The sum of $NUM1 and $NUM2 is: $(($NUM1+$NUM2))" ;;
    s) echo "The difference of $NUM1 and $NUM2 is: $(($NUM1-$NUM2))";;
    m) echo "The product of $NUM1 and $NUM2 is: $(($NUM1*$NUM2))" ;;
    d) if [ $NUM2 -eq 0 ]; then
        echo "You can't divide by 0, a division by zero error will occur."
      else 			
	    echo "The quotient of $NUM1 and $NUM2 is: $(($NUM1/$NUM2))"
      fi ;;
  esac
done