Der Code-Schnippsel-Thread

#!/usr/bin/perl -w


use Getopt::Long;
use Mail::IMAPClient;


$SIG{INT} = \&logout;
$SIG{TERM} = \&logout;
my $tmpfile = "/tmp/mails";


my ($server, $user, $password, @folders, $interval);


if (!GetOptions(
        "server=s"    => \$server,
        "user=s"    => \$user,
        "password=s"    => \$password,
        "folder=s@"    => \@folders,
        "interval=i"    => \$interval
    )) {
    exit(1);
}


if (!$server || !$user || !scalar(@folders)) {
    exit(1);
}


$interval = 300 unless $interval;


if (!$password) {
    print "Enter password for user $user:\n";


    # Do not echo the password on the console.
    system("stty", "-echo");


    chomp($password = <STDIN>);


    # Enable echo again.
    system("stty", "echo");
}


my %options = (
    Server     =>    $server,
    User     =>    $user,
    Password =>    $password
);


print "\nLogin, using there parameters:\n";
print "------------------------------\n";
print "Server:\t\t$server\n";
print "User:\t\t$user\n";
print "Folders:\t@folders\n";
print "Interval:\t$interval seconds\n";


my $imap = Mail::IMAPClient->new(%options)
    or die $!;


print "\nLogin successful!\n";
print "Starting loop. (no more output from here)\n";


my $fh;
my $unread_mail;


while (1) {
    # Go thru all folders and check for unread mails.
    $unread_mail = 0;
    map { $unread_mail += $imap->unseen_count($_) } @folders;


    open($fh, ">", $tmpfile) or die $!;
    print $fh $unread_mail;
    close($fh) or die $!;


    sleep($interval);
}


sub logout
{
    print "Logout...\n";


    $imap->logout()
        or die $imap->LastError();


    unlink($tmpfile) if (-e $tmpfile);


    exit(0);
}

#include <stdio.h>
#include <stdlib.h>


char *einlesen();
char *einlesen()
{
    char *string;
    int anz=80;
    string=(char*)malloc(anz*sizeof(char));
    if(string!=NULL)
    {
        printf("\nGeben sie bitte den String ein:\n");
        scanf("%s",string);
        printf("\nDas ist der String im Upro: %s",string);


    }
    return(string);
}
int main()
{
    char *zeichen;
    zeichen=einlesen();
    printf("\nDas ist der String im Hpro: %s",zeichen);
    free(zeichen);
    return 0;
}

particles_manifest
{
 "file"  "particles/error.pcf"
 "file"  "particles/blood_impact.pcf"
 "file"  "particles/portalgun.pcf"
 "file"  "particles/portal_projectile.pcf"
 "file"  "particles/portals.pcf"
 "file"  "particles/cleansers.pcf"
 "file"  "particles/fire_01.pcf"
 "file"  "particles/tubes.pcf"
 "file"  "particles/environment.pcf"
 "file"  "particles/glados.pcf"
 "file"  "particles/neurotoxins.pcf"
 "file"  "particles/finale_fx.pcf"
 "file"  "particles/water_impact.pcf"
 "file"  "particles/fire_01.pcf"
 "file"  "particles/fire_02.pcf"
 "file"  "particles/burning_fx.pcf"
 "file"  "particles/impact_fx.pcf"  
}

#!/bin/bash


# ******************************************************************************
# Config section.
# ******************************************************************************


interval=15
save_dir="/srv/http/webcam_pics"


# ******************************************************************************
# Functions.
# ******************************************************************************


function snapshot()
{
	echo -n "[$(date)] Invoking snapshot ... " >> wcsnapshotd.log


	mplayer -really-quiet tv:// -tv device=/dev/video0 -frames 1 -vo jpeg > /dev/null 2>&1
	mv 00000001.jpg ${save_dir}/$(date +"%s").jpg


	echo "done." >> wcsnapshotd.log
}


function cleanup()
{
	echo "Really? [y/n]"
	read input


	if [ "$input" == "y" ]; then
		rm -f ${save_dir}/*.jpg
	fi
}


function info()
{
	count=$(find $save_dir -type f -name '*.jpg' | wc -l)
	size=$(du -sh $save_dir | awk '{ print $1 }')


	echo "Info: Number of files: $count | Size of dir: $size"
}


# ******************************************************************************
# Main
# ******************************************************************************


case "$1" in
	start)
		(
			while true; do
				snapshot
				sleep $interval
			done
		) &


		echo $! > wcsnapshotd.pid
	;;
	stop)
		kill $(cat wcsnapshotd.pid)
		rm -f wcsnapshotd.pid
	;;
	restart)
		stop
		sleep 2s
		start
	;;
	status)
		if [ ! -e "wcsnapshotd.pid" ]; then
			echo "Not running"
			exit 1
		else
			ps -p $(cat wcsnapshotd.pid) > /dev/null 2>&1
			if [ $? -eq 0 ]; then
				echo "Running"
				exit 0
			else
				echo "Not running"
				exit 1
			fi
		fi
	;;
	info)
		info
	;;
	clean)
		cleanup
	;;
	*)
		echo "usage: $0 {start|stop|restart|status|info|clean}"
esac

#!/usr/bin/perl -w


use strict;


sub get_latest_pic
{
	my $dir = shift;


	my @files = glob("$dir/*.jpg");
	return $files[scalar(@files)-1];
}


sub get_picture_time
{
	my $filename = shift;
	my $timestamp;


	if ($filename =~ m/.*\/(\d+)\.jpg/) {
		$timestamp = $1;
	}


	return localtime($timestamp);
}


my $picture = get_latest_pic("../../webcam_pics");
my $picture_date = get_picture_time($picture);


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


print <<EOF
<html>
  <head>
    <meta http-equiv="refresh" content="15">
    <title>Webcam</title>
  </head>
  <body>
    Picture date: $picture_date
    <p><img src="$picture"></p>
    (refreshes automatically everey 15s)
  </body>
</html>
EOF

#!/bin/bash


. $HOME/.bashrc


rl=$(runlevel | sed -r 's/^.*([0-9])$/\1/')


if [ -z "$DISPLAY" ] && [ $(tty) == "/dev/tty1" ] && [ $rl -eq 5 ]; then
	startx
	logout
fi